Unele intrări de contabilitate sunt înregistrate incorect când publicați un jurnalul de încasări cu o factură și o listă de respingere în același timp în versiunea portugheză a Microsoft Dynamics NAV 2009

Informații despre remedierea rapidă

Un hotfix acceptat este acum disponibil de la Microsoft. Cu toate acestea, acesta este destinat numai corectării problemei descrise în acest articol. Aplicați-o numai pe sistemele care întâmpină această problemă anume. Această remediere rapidă poate să necesite testare suplimentară. De aceea, dacă nu sunteți grav afectat de această problemă, vă recomandăm să așteptați următorul pachet service pack Microsoft Dynamics NAV 2009 sau versiunea Microsoft Dynamics NAV următoare, care conține această remediere rapidă.

Notă În cazuri speciale, costurile implicate de obicei pentru asistență apeluri pot fi anulate dacă un specialist în asistență tehnică pentru Microsoft Dynamics și produse asociate stabilește că o anumită actualizare va rezolva problema. Se vor aplica costurile uzuale de asistenţă pentru întrebări suplimentare de asistenţă şi pentru probleme ce nu fac obiectul actualizării în cauză.

Modificări de cod

Notă Întotdeauna test cod remediază într-un mediu controlat înainte de a aplica remedieri pentru computerele de producție.
Pentru a rezolva această problemă, modificați codul din gen jurnal.-Post linie codeunit (12). Pentru a face acest lucru, urmați acești pași:

1. Adăugați următoarele global variabila:

   TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;

2. Modificați codul din funcția PostCust după cum urmează:
   Cod existent 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
   ...
   
   

   Cod de înlocuire 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
   ...
   
   

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

   Înlocuirea cod 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. Modificați codul din funcția PostVend după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...          // 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. Modificați codul din funcția ApplyCustLedgEntry după cum urmează:
   Cod existent

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

   Cod de înlocuire

   ...                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. Modificați codul din funcția PostDtldCustLedgEntries după cum urmează:
   Cod existent

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

   Cod de înlocuire

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

6. Modificați codul din funcția PostReceivableDocs după cum urmează:
   Cod existent

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

   Cod de înlocuire

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