Einträge im Hauptbuch werden falsch gebucht, wenn Zahlungseingangsprotokoll eine Rechnung und eine Zahlung ablehnen gleichzeitig in der portugiesischen Version von Microsoft Dynamics NAV 2009 buchen

Hotfix-Informationen

Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.

Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.

Ändern von Code

Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
Um dieses Problem zu beheben, ändern Sie den Code in der Fibu Buch.-Post Line Codeunit (12). Gehen Sie hierzu folgendermaßen vor:

1. Fügen Sie die folgende globale Variable hinzu:

   TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;

2. Ändern Sie den Code in der Funktion PostCust wie folgt:
   Vorhandener Code 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
   ...
   
   

   Neuer Code 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
   ...
   
   

   Vorhandener Code 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;
   ...
   
   

   Neuer Code 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. Ändern Sie den Code in der Funktion PostVend wie folgt:
   Vorhandener code

   ...          // 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;
   ...
   
   

   Neuer code

   ...          // 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. Ändern Sie den Code in der Funktion ApplyCustLedgEntry wie folgt:
   Vorhandener code

   ...                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;
   ...
   
   

   Neuer code

   ...                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. Ändern Sie den Code in der Funktion PostDtldCustLedgEntries wie folgt:
   Vorhandener code

   ...              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 +
   ...
   
   

   Neuer code

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

6. Ändern Sie den Code in der Funktion PostReceivableDocs wie folgt:
   Vorhandener code

   ...          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.",
   ...
   
   

   Neuer code

   ...          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.",
   ...