Ορισμένες εγγραφές γ/λ καταχωρούνται εσφαλμένα όταν καταχωρείτε εγγραφές εισπράξεων με ένα τιμολόγιο και τεχνική απόρριψη ταυτόχρονα στην Πορτογαλική έκδοση του Microsoft Dynamics NAV 2009

Πληροφορίες άμεσης επιδιόρθωσης

Μια υποστηριζόμενη άμεση επιδιόρθωση είναι τώρα διαθέσιμη από τη Microsoft. Ωστόσο, προορίζεται μόνο για τη διόρθωση του ζητήματος που περιγράφεται σε αυτό το άρθρο. Eφαρμόστε τη μόνο σε συστήματα που αντιμετωπίζουν το συγκεκριμένο ζήτημα. Αυτή η επείγουσα επιδιόρθωση ενδέχεται να υποβληθεί σε πρόσθετο έλεγχο. Επομένως, εάν αυτό το ζήτημα δεν σας επηρεάζει ιδιαίτερα, σας συνιστούμε να περιμένετε έως το επόμενο service pack του Microsoft Dynamics NAV 2009 ή την επόμενη έκδοση του Microsoft Dynamics NAV που περιέχει αυτήν την επείγουσα επιδιόρθωση.

Σημείωση Σε ειδικές περιπτώσεις, οι χρεώσεις που υφίστανται κανονικά για κλήσεις υποστήριξης ενδέχεται να να ακυρωθούν, εάν έναν επαγγελματία τεχνικής υποστήριξης για το Microsoft Dynamics και σχετικά προϊόντα προσδιορίζει ότι μια συγκεκριμένη ενημερωμένη έκδοση θα επιλύσει το ζήτημά σας. Οι συνηθισμένες χρεώσεις υποστήριξης θα ισχύει για πρόσθετες ερωτήσεις υποστήριξης και για θέματα που δεν αφορούν τη συγκεκριμένη ενημερωμένη έκδοση.

Αλλαγές κώδικα

Σημείωση Πάντα δοκιμή κώδικα διορθώνει σε ελεγχόμενο περιβάλλον πριν να εφαρμόσετε τις ενημερώσεις κώδικα στους υπολογιστές παραγωγής.
Για να επιλύσετε αυτό το ζήτημα, να αλλάξετε τον κωδικό στο πεδίο ομάδα καταχώρησης εγγραφών.-Post γραμμή μονάδα κώδικα (12). Για να το κάνετε αυτό, ακολουθήστε τα εξής βήματα:

1. Προσθέστε την παρακάτω καθολική μεταβλητή:

   TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;

2. Αλλάξτε τον κωδικό στη συνάρτηση PostCust ως εξής:
   Υπάρχοντα κωδικό 1

   ...          DiscRiskFactAmountLCY := 0;
             DiscUnriskFactAmountLCY := 0;
             CollFactAmountLCY := 0;
           //--------
   
             IF Cust."No." <> "Account No." THEN
               Cust.GET("Account No.");
             Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);
   
             IF "Posting Group" = '' THEN BEGIN
   ...
   
   

   Αντικατάσταση κώδικα 1

   ...          DiscRiskFactAmountLCY := 0;
             DiscUnriskFactAmountLCY := 0;
             CollFactAmountLCY := 0;
           //--------
   
   // Add the following lines. 
            TempRejCustLedgEntry.RESET;
            TempRejCustLedgEntry.DELETEALL;
   // End of the lines.
   
             IF Cust."No." <> "Account No." THEN
               Cust.GET("Account No.");
             Cust.CheckBlockedCustOnJnls(Cust,"Document Type",TRUE);
   
             IF "Posting Group" = '' THEN BEGIN
   ...
   
   

   Υπάρχοντα κώδικα 2

   ...            END;
   
             // Post the application
             ApplyCustLedgEntry(
               CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");
   
   // Delete the following lines.
            IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
              GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
   // End of the lines.
   
             IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
               IF "Document Type" = "Document Type"::Bill THEN BEGIN
                 DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
                 CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
   ...
   
   

   Αντικατάσταση κώδικα 2

   ...            END;
   
             // Post the application
             ApplyCustLedgEntry(
               CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,GLSetup."Appln. Rounding Precision");
   
   // Add the following lines.
            IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
              "Applies-to Doc. Type" := AppliesToDocType;
   // End of the lines.
   
             IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
               IF "Document Type" = "Document Type"::Bill THEN BEGIN
                 DocPost.CreateReceivableDoc(GenJnlLine,CVLedgEntryBuf);
                 CustLedgEntry."Document Situation" := CustLedgEntry."Document Situation"::Cartera;
   ...
   
   

3. Αλλάξτε τον κωδικό στη συνάρτηση PostVend ως εξής:
   Υπάρχοντα κώδικα

   ...          // Post the application
             ApplyVendLedgEntry(
               CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
               GLSetup."Appln. Rounding Precision");
   
   // Delete the following lines.
            IF GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" " THEN
              GenJnlLine."Applies-to Doc. Type" := AppliesToDocType;
   // End of the lines.
   
             IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
               IF "Document Type" = "Document Type"::Bill THEN BEGIN
                 DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
                 VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
   ...
   
   

   Αντικατάσταση κώδικα

   ...          // Post the application
             ApplyVendLedgEntry(
               CVLedgEntryBuf,DtldCVLedgEntryBuf,GenJnlLine,
               GLSetup."Appln. Rounding Precision");
   
   // Add the following lines.
            IF ("Applies-to ID" = '') AND ("Applies-to Doc. Type" = "Applies-to Doc. Type"::" ") THEN
              "Applies-to Doc. Type" := AppliesToDocType;
   // End of the lines.
   
             IF AppManagement.AccessToCartera AND NOT GenJnlLine.Prepayment THEN BEGIN
               IF "Document Type" = "Document Type"::Bill THEN BEGIN
                 DocPost.CreatePayableDoc(GenJnlLine,CVLedgEntryBuf);
                 VendLedgEntry."Document Situation" := VendLedgEntry."Document Situation"::Cartera;
   ...
   
   

4. Αλλάξτε τον κωδικό στη συνάρτηση ApplyCustLedgEntry ως εξής:
   Υπάρχοντα κώδικα

   ...                OldCustLedgEntry."Document Situation"::"Closed Documents",
                   OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
                   FromClosedDoc := TRUE
                 ELSE
                   FromClosedDoc := FALSE;
                 DocPost.UpdateReceivableDoc(
                   OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
                   DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
                   DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
               END;
   ...
   
   

   Αντικατάσταση κώδικα

   ...                OldCustLedgEntry."Document Situation"::"Closed Documents",
                   OldCustLedgEntry."Document Situation"::"Closed BG/PO"]) THEN
                   FromClosedDoc := TRUE
                 ELSE
                   FromClosedDoc := FALSE;
   
   // Add the following lines.
                IF OldCustLedgEntry."Document Status" = OldCustLedgEntry."Document Status"::Rejected THEN BEGIN
                  TempRejCustLedgEntry := OldCustLedgEntry;
                  TempRejCustLedgEntry."Remaining Amount (LCY) stats." := AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY;
                  TempRejCustLedgEntry.INSERT;
                END;
   // End of the lines.
   
                 DocPost.UpdateReceivableDoc(
                   OldCustLedgEntry,GenJnlLine,AppliedAmountLCY + DeltaUnrealAmount + DeltaAmountLCY,
                   DocAmountLCY,RejDocAmountLCY,DiscDocAmountLCY,CollDocAmountLCY,
                   DiscRiskFactAmountLCY,DiscUnriskFactAmountLCY,CollFactAmountLCY);
               END;
   ...
   
   

5. Αλλάξτε τον κωδικό στη συνάρτηση PostDtldCustLedgEntries ως εξής:
   Υπάρχοντα κώδικα

   ...              AccNo := CustPostingGr."Bills Account";
               END ELSE BEGIN
                 CustPostingGr.TESTFIELD("Receivables Account");
                 AccNo := CustPostingGr."Receivables Account";
               END;
   
   // Delete the following lines.
              IF DiscDocAmountLCY <> 0 THEN BEGIN
                CustPostingGr.TESTFIELD("Discted. Bills Acc.");
                AccNo := CustPostingGr."Discted. Bills Acc.";
              END;
              IF CollDocAmountLCY <> 0 THEN BEGIN
                CustPostingGr.TESTFIELD("Bills on Collection Acc.");
                AccNo := CustPostingGr."Bills on Collection Acc.";
              END;
              IF RejDocAmountLCY <> 0 THEN BEGIN
                CASE GenJnlLine."Applies-to Doc. Type" OF
                  GenJnlLine."Applies-to Doc. Type"::Bill:
                    BEGIN
                      CustPostingGr.TESTFIELD("Rejected Bills Acc.");
                      AccNo := CustPostingGr."Rejected Bills Acc.";
                    END;
                  GenJnlLine."Applies-to Doc. Type"::Invoice:
                    BEGIN
                      CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
                      AccNo := CustPostingGr."Rejected Factoring Acc.";
                    END;
                  ELSE
                    IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
                      (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
                      CASE OldCVLedgEntryBuf4."Document Type" OF
                        OldCVLedgEntryBuf4."Document Type"::Bill:
                          BEGIN
                            CustPostingGr.TESTFIELD("Receivables Account");
                            AccNo := CustPostingGr."Receivables Account";
                          END;
                        OldCVLedgEntryBuf4."Document Type"::Invoice:
                          BEGIN
                            CustPostingGr.TESTFIELD("Receivables Account");
                            AccNo := CustPostingGr."Receivables Account";
                          END;
                      END;
                    END;
                END;
              END;
              IF (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) THEN BEGIN
                CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
                AccNo := CustPostingGr."Factoring for Discount Acc.";
              END;
              IF CollFactAmountLCY <> 0 THEN BEGIN
                CustPostingGr.TESTFIELD("Factoring for Collection Acc.");
                AccNo := CustPostingGr."Factoring for Collection Acc.";
              END;
   // End of the lines.
   
               ReceivableAccAmtLCY :=
                 TotalAmountLCY -
                 (DocAmountLCY + DiscDocAmountLCY +
                  CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
   ...
   
   

   Αντικατάσταση κώδικα

   ...              AccNo := CustPostingGr."Bills Account";
               END ELSE BEGIN
                 CustPostingGr.TESTFIELD("Receivables Account");
                 AccNo := CustPostingGr."Receivables Account";
               END;
   
               ReceivableAccAmtLCY :=
                 TotalAmountLCY -
                 (DocAmountLCY + DiscDocAmountLCY +
                  CollDocAmountLCY + RejDocAmountLCY + DiscRiskFactAmountLCY +
   ...
   
   

6. Αλλάξτε τον κωδικό στη συνάρτηση PostReceivableDocs ως εξής:
   Υπάρχοντα κώδικα

   ...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
             GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
             InsertGLEntry(TRUE);
           END;
           IF RejDocAmountLCY <> 0 THEN BEGIN
   
   // Delete the following lines.
            CASE GenJnlLine."Applies-to Doc. Type" OF
              GenJnlLine."Applies-to Doc. Type"::Bill:
                BEGIN
                  CustPostingGr.TESTFIELD("Rejected Bills Acc.");
                  InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
                  GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                  GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                  InsertGLEntry(TRUE);
                END;
              GenJnlLine."Applies-to Doc. Type"::Invoice:
                BEGIN
                  CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
                  InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
                  GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                  GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                  InsertGLEntry(TRUE);
                END;
              ELSE
                IF (GenJnlLine."Document Type" IN [GenJnlLine."Document Type"::"Credit Memo",GenJnlLine."Document Type"::Payment]) AND
                  (OldCVLedgEntryBuf4."Applies-to ID" <> '') THEN BEGIN
                  CASE OldCVLedgEntryBuf4."Document Type" OF
                    OldCVLedgEntryBuf4."Document Type"::Bill:
                      BEGIN
                        CustPostingGr.TESTFIELD("Rejected Bills Acc.");
                        InitGLEntry(CustPostingGr."Rejected Bills Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE);
                        GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                        GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                        InsertGLEntry(TRUE);
                      END;
                    OldCVLedgEntryBuf4."Document Type"::Invoice:
                      BEGIN
                        CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
                        InitGLEntry(CustPostingGr."Rejected Factoring Acc.",RejDocAmountLCY,DocAmtCalcAddCurrency(RejDocAmountLCY),TRUE,TRUE
          );
   
                        GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                        GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                        InsertGLEntry(TRUE);
                      END;
                  END;
                END;
   // End of the lines.
   
             END;
           END;
           IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
             InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
   ...
   
   

   Αντικατάσταση κώδικα

   ...          GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
             GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
             InsertGLEntry(TRUE);
           END;
           IF RejDocAmountLCY <> 0 THEN BEGIN
   
   // Add the following lines.
            WITH TempRejCustLedgEntry DO BEGIN
              RESET;
              SETCURRENTKEY("Customer No.","Document Type","Document Situation","Document Status");
              SETRANGE("Document Type","Document Type"::Bill);
              CALCSUMS("Remaining Amount (LCY) stats.");
              IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
                CustPostingGr.TESTFIELD("Rejected Bills Acc.");
                InitGLEntry(
                  CustPostingGr."Rejected Bills Acc.","Remaining Amount (LCY) stats.",
                  DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
                GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                InsertGLEntry(TRUE);
              END;
              SETRANGE("Document Type","Document Type"::Invoice);
              CALCSUMS("Remaining Amount (LCY) stats.");
              IF "Remaining Amount (LCY) stats." <> 0 THEN BEGIN
                CustPostingGr.TESTFIELD("Rejected Factoring Acc.");
                InitGLEntry(
                  CustPostingGr."Rejected Factoring Acc.","Remaining Amount (LCY) stats.",
                  DocAmtCalcAddCurrency("Remaining Amount (LCY) stats."),TRUE,TRUE);
                GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
                GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
                InsertGLEntry(TRUE);
              END;
   // End of the lines.
   
             END;
           END;
           IF DiscRiskFactAmountLCY <> 0 THEN BEGIN
             CustPostingGr.TESTFIELD("Factoring for Discount Acc.");
             InitGLEntry(CustPostingGr."Factoring for Discount Acc.",
   ...