Όταν εξάγετε μια λίστα τιμολόγηση για την πληρωμή των τιμολογίων διαφορετικό από τον ίδιο προμηθευτή σε την ιταλική έκδοση του Microsoft Dynamics NAV 2009, η περιγραφή του τελευταίου τιμολογίου εμφανίζεται στη λίστα τιμολόγησης προμηθευτή αντί να αναφέρει τη φράση "Τιμολόγια ΔΙΑΦΟΡΟΙ" SEPA CBI ετικέτα < RmtInf >. Αυτό το ζήτημα παρουσιάζεται στα ακόλουθα προϊόντα:
-
Την ιταλική έκδοση του Microsoft Dynamics NAV 2009 R2
-
Της ιταλικής έκδοσης του Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Προτεινόμενη αντιμετώπιση
Πληροφορίες άμεσης επιδιόρθωσης
Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.
Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.
Πληροφορίες εγκατάστασης
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας. Ωστόσο, δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
Σημείωση Πριν να εγκαταστήσετε αυτήν την επείγουσα επιδιόρθωση, επιβεβαιώστε ότι όλοι οι χρήστες προγράμματος-πελάτη Microsoft Dynamics NAV έχουν αποσυνδεθεί από το σύστημα. Αυτό περιλαμβάνει υπηρεσίες Microsoft Dynamics NAV εφαρμογών διακομιστή (NAS). Θα πρέπει να το πρόγραμμα-πελάτη μόνο χρήστη που είναι συνδεδεμένος κατά την εφαρμογή αυτής της επείγουσας επιδιόρθωσης.
Για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση, πρέπει να έχετε μια άδεια χρήσης του προγραμματιστή.
Συνιστούμε ότι ο λογαριασμός χρήστη στο παράθυρο "Συνδέσεις Windows" ή στο παράθυρο συνδέσεις βάσης δεδομένων να αντιστοιχιστεί το "SUPER" αναγνωριστικό ρόλου. Εάν ο λογαριασμός χρήστη δεν μπορεί να αντιστοιχιστεί το Αναγνωριστικό ρόλου "SUPER", πρέπει να επαληθεύσετε ότι ο λογαριασμός χρήστη έχει τα ακόλουθα δικαιώματα:
-
Το δικαίωμα "Τροποποίηση" για το αντικείμενο που θα αλλάξετε.
-
Τα δικαιώματα εκτέλεσης για το αντικείμενο 5210 Αναγνωριστικό αντικειμένου συστήματος και για την 9015 Αναγνωριστικό αντικειμένου συστήματος
το αντικείμενο.
Σημείωση Δεν πρέπει να έχετε δικαιώματα για τους χώρους αποθήκευσης δεδομένων, εκτός και αν έχετε να εκτελέσετε επιδιόρθωση δεδομένων.
Αλλαγές κώδικα
Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, ακολουθήστε τα εξής βήματα:
-
Να αλλάξετε τον κωδικό σε καθολικές μεταβλητές στη μονάδα κώδικα προέλευσης προετοιμασία CT SEPA (υπάγονται) ως εξής:
Υπάρχοντα κώδικα...}
CODE
{
LOCAL PROCEDURE CopyJnlLines@4(VAR FromGenJnlLine@1000 : Record 81;VAR TempGenJnlLine@1001 : TEMPORARY Record 81);
BEGIN
...Αντικατάσταση κώδικα
...}
CODE
{
// Add the following lines.
VAR
CumulativeInvoiceTxt@1130000 : TextConst 'ENU=Sundry Invoices';
// End of the added lines.
LOCAL PROCEDURE CopyJnlLines@4(VAR FromGenJnlLine@1000 : Record 81;VAR TempGenJnlLine@1001 : TEMPORARY Record 81);
BEGIN
... -
Αλλάξτε τον κωδικό στη συνάρτηση CreateTempJnlLines στη μονάδα κώδικα προέλευσης προετοιμασία CT SEPA (υπάγονται) ως εξής:
Υπάρχοντα κωδικό 1...PrevVendorBillLine@1130003 : Record 12182;
PaymentDocNo@1120002 : Code[20];
CumulativeAmount@1130002 : Decimal;
BEGIN
PaymentDocNo := FromGenJnlLine.GETFILTER("Document No.");
VendorBillHeader.GET(PaymentDocNo);
...Αντικατάσταση κώδικα 1
...PrevVendorBillLine@1130003 : Record 12182;
PaymentDocNo@1120002 : Code[20];
CumulativeAmount@1130002 : Decimal;
// Add the following line.
CumulativeCnt@1130000 : Integer;
BEGIN
PaymentDocNo := FromGenJnlLine.GETFILTER("Document No.");
VendorBillHeader.GET(PaymentDocNo);
...Υπάρχοντα κώδικα 2
...VendorBillLine.SETRANGE("Cumulative Transfers",TRUE);
IF VendorBillLine.FINDSET THEN BEGIN
CumulativeAmount := 0;
// Delete the following lines.
PrevVendorBillLine := VendorBillLine;
REPEAT
VendorBillLine.TESTFIELD("Document Type",VendorBillLine."Document Type"::Invoice);
IF ((VendorBillLine."Vendor No." <> PrevVendorBillLine."Vendor No.") OR
(VendorBillLine."Vendor Bank Acc. No." <> PrevVendorBillLine."Vendor Bank Acc. No."))
THEN BEGIN
InsertTempGenJnlLine(TempGenJnlLine,VendorBillHeader,PrevVendorBillLine,CumulativeAmount);
CumulativeAmount := VendorBillLine."Amount to Pay";
END ELSE
CumulativeAmount += VendorBillLine."Amount to Pay";
PrevVendorBillLine := VendorBillLine;
UNTIL VendorBillLine.NEXT = 0;
InsertTempGenJnlLine(TempGenJnlLine,VendorBillHeader,PrevVendorBillLine,CumulativeAmount);
END;
VendorBillLine.SETRANGE("Cumulative Transfers",FALSE);
IF VendorBillLine.FINDSET THEN
REPEAT
VendorBillLine.TESTFIELD("Document Type",VendorBillLine."Document Type"::Invoice);
InsertTempGenJnlLine(TempGenJnlLine,VendorBillHeader,VendorBillLine,VendorBillLine."Amount to Pay");
UNTIL VendorBillLine.NEXT = 0;
END;
LOCAL PROCEDURE InsertTempGenJnlLine@1130006(VAR TempGenJnlLine@1130000 : TEMPORARY Record 81;VendorBillHeader@1130001 : Record 12181;VendorBillLine@1130002 : Record 12182;AmountToPay@1130003 : Decimal);
// End of the deleted lines.
BEGIN
WITH TempGenJnlLine DO BEGIN
INIT;
...Αντικατάσταση κώδικα 2
...VendorBillLine.SETRANGE("Cumulative Transfers",TRUE);
IF VendorBillLine.FINDSET THEN BEGIN
CumulativeAmount := 0;
// Add the following lines.
CumulativeCnt := 0;
PrevVendorBillLine := VendorBillLine;
REPEAT
VendorBillLine.TESTFIELD("Document Type",VendorBillLine."Document Type"::Invoice);
IF ((VendorBillLine."Vendor No." <> PrevVendorBillLine."Vendor No.") OR
(VendorBillLine."Vendor Bank Acc. No." <> PrevVendorBillLine."Vendor Bank Acc. No."))
THEN BEGIN
InsertTempGenJnlLine(TempGenJnlLine,VendorBillHeader,PrevVendorBillLine,CumulativeAmount,CumulativeCnt);
CumulativeAmount := VendorBillLine."Amount to Pay";
CumulativeCnt := 1;
END ELSE BEGIN
CumulativeAmount += VendorBillLine."Amount to Pay";
CumulativeCnt += 1;
END;
PrevVendorBillLine := VendorBillLine;
UNTIL VendorBillLine.NEXT = 0;
InsertTempGenJnlLine(TempGenJnlLine,VendorBillHeader,PrevVendorBillLine,CumulativeAmount,CumulativeCnt);
END;
VendorBillLine.SETRANGE("Cumulative Transfers",FALSE);
IF VendorBillLine.FINDSET THEN
REPEAT
VendorBillLine.TESTFIELD("Document Type",VendorBillLine."Document Type"::Invoice);
InsertTempGenJnlLine(TempGenJnlLine,VendorBillHeader,VendorBillLine,VendorBillLine."Amount to Pay",1);
UNTIL VendorBillLine.NEXT = 0;
END;
LOCAL PROCEDURE InsertTempGenJnlLine@1130006(VAR TempGenJnlLine@1130000 : TEMPORARY Record 81;VendorBillHeader@1130001 : Record 12181;VendorBillLine@1130002 : Record 12182;AmountToPay@1130003 : Decimal;CumulativeCnt@1130004 : Integer);
// End of the added lines.
BEGIN
WITH TempGenJnlLine DO BEGIN
INIT;
... -
Αλλάξτε τον κωδικό στη συνάρτηση InsertTempGenJnlLine στη μονάδα κώδικα προέλευσης προετοιμασία CT SEPA (υπάγονται) ως εξής:
Υπάρχοντα κωδικό 1..."Account Type" := TempGenJnlLine."Account Type"::Vendor;
"Bal. Account Type" := TempGenJnlLine."Bal. Account Type"::"Bank Account";
"Bal. Account No." := VendorBillHeader."Bank Account No.";
// Delete the following line.
"External Document No." := VendorBillLine."External Document No.";
Amount := AmountToPay;
"Applies-to Doc. Type" := VendorBillLine."Document Type";
"Applies-to Doc. No." := VendorBillLine."Document No.";
...Αντικατάσταση κώδικα 1
..."Account Type" := TempGenJnlLine."Account Type"::Vendor;
"Bal. Account Type" := TempGenJnlLine."Bal. Account Type"::"Bank Account";
"Bal. Account No." := VendorBillHeader."Bank Account No.";
Amount := AmountToPay;
"Applies-to Doc. Type" := VendorBillLine."Document Type";
"Applies-to Doc. No." := VendorBillLine."Document No.";
...Υπάρχοντα κώδικα 2
..."Due Date" := VendorBillLine."Due Date";
"Posting Date" := VendorBillHeader."Posting Date";
"Recipient Bank Account" := VendorBillLine."Vendor Bank Acc. No.";
// Delete the following line.
Description := VendorBillLine.Description;
"Message to Recipient" := VendorBillLine."Description 2";
INSERT;
END;
...Αντικατάσταση κώδικα 2
..."Due Date" := VendorBillLine."Due Date";
"Posting Date" := VendorBillHeader."Posting Date";
"Recipient Bank Account" := VendorBillLine."Vendor Bank Acc. No.";
// Add the following lines.
IF CumulativeCnt > 1 THEN BEGIN
"Applies-to Ext. Doc. No." := '';
Description := CumulativeInvoiceTxt;
END ELSE BEGIN
"Applies-to Ext. Doc. No." := VendorBillLine."External Document No.";
Description := VendorBillLine.Description;
END;
// End of the added lines.
"Message to Recipient" := VendorBillLine."Description 2";
INSERT;
END;
...
Προϋποθέσεις
Πρέπει να έχετε ένα από τα ακόλουθα προϊόντα, για να εφαρμόσετε αυτήν την επείγουσα επιδιόρθωση:
-
Την ιταλική έκδοση του Microsoft Dynamics NAV 2009 R2
-
Της ιταλικής έκδοσης του Microsoft Dynamics NAV 2009 SP1
Πληροφορίες κατάργησης
Δεν μπορείτε να καταργήσετε αυτήν την επείγουσα επιδιόρθωση.
Κατάσταση
Η Microsoft έχει επιβεβαιώσει ότι πρόκειται για ένα ζήτημα των προϊόντων της Microsoft που παρατίθενται στην ενότητα "Ισχύει για".
Σημείωση Αυτό είναι ένα άρθρο "ΤΑΧΕΙΑΣ ΔΗΜΟΣΙΕΥΣΗΣ" που έχει δημιουργηθεί απευθείας από την εταιρεία υποστήριξης της Microsoft. Οι πληροφορίες που περιέχονται στο παρόν έγγραφο παρέχονται ως έχουν, ως απάντηση σε ζητήματα που προέκυψαν. Ως αποτέλεσμα της ταχύτητας διαθεσιμότητάς του, το υλικό ενδέχεται να περιλαμβάνει τυπογραφικά λάθη και μπορεί να αναθεωρηθεί οποιαδήποτε στιγμή, χωρίς προειδοποίηση. Για άλλα θέματα, ανατρέξτε στην ενότητα " Όροι χρήσης".
