บางรายการบัญชีแยกประเภทถูกลงรายการบัญชีไม่ถูกต้องเมื่อคุณลงรายการบัญชีสมุดรายวันการรับเงินสดกับใบแจ้งหนี้และรายการปฏิเสธในเวลาเดียวกันใน Microsoft Dynamics NAV 2009 รุ่นโปรตุเกส

บทความนี้นำไปใช้กับ Microsoft Dynamics NAV สำหรับระบบภาษาโปรตุเกส (pt)

อาการ

เมื่อคุณลงรายการบัญชีสมุดรายวันการรับเงินสดกับใบแจ้งหนี้และรายการปฏิเสธในเวลาเดียวกันใน Microsoft Dynamics NAV 2009 รุ่นโปรตุเกส รายการบัญชีแยกประเภททั่วไปที่ลงรายการบัญชีแล้วทั้งหมดถูกลงรายการบัญชี โดยใช้แอคเคาท์บิลที่ปฏิเสธ อย่างไรก็ตาม บัญชีลูกหนี้ควรใช้สำหรับใบแจ้งหนี้ และบัญชีตั๋วปฏิเสธควรจะใช้สำหรับเอกสารถูกปฏิเสธ ปัญหานี้เกิดขึ้นในผลิตภัณฑ์ต่อไปนี้:

Microsoft Dynamics NAV 2009 R2 รุ่นโปรตุเกส
Microsoft Dynamics NAV 2009 Service Pack 1 รุ่นโปรตุเกส

การแก้ปัญหา

ข้อมูลโปรแกรมแก้ไขด่วน

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก Microsoft อย่างไรก็ตาม มีเป้าหมายเพียงเพื่อการแก้ไขปัญหาที่อธิบายไว้ในบทความนี้ นำวิธีนี้ไปใช้กับระบบที่ประสบกับปัญหาที่เฉพาะเจาะจงเท่านั้น โปรแกรมแก้ไขด่วนนี้อาจได้รับการทดสอบเพิ่มเติม ดังนั้น ถ้าคุณจะไม่รุนแรงได้รับผลกระทบจากปัญหานี้ เราขอแนะนำให้ คุณรอ service pack ถัดไปของ Microsoft Dynamics NAV 2009 หรือเวอร์ชันถัดไป Microsoft Dynamics NAV ที่ประกอบด้วยโปรแกรมแก้ไขด่วนนี้

หมายเหตุ ในกรณีพิเศษ ค่าธรรมเนียมค่าใช้จ่ายสำหรับการสนับสนุนโทรศัพท์อาจถูกยกเลิกถ้า Technical Support Professional สำหรับ Microsoft Dynamics และผลิตภัณฑ์ที่เกี่ยวข้องตรวจพบว่าการปรับปรุงเฉพาะจะแก้ปัญหาของคุณ ค่าใช้จ่ายในการสนับสนุนตามปกติจะใช้กับคำถามและปัญหาในการสนับสนุนเพิ่มเติมซึ่งไม่สอดคล้องตามเกณฑ์สำหรับโปรแกรมปรับปรุงเฉพาะที่เกี่ยวข้อง

ข้อมูลการติดตั้ง

Microsoft ให้ตัวอย่างการเขียนโปรแกรมไว้สำหรับประกอบการอธิบายเท่านั้นโดยไม่มีการรับประกันไม่ว่าจะโดยชัดแจ้งหรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายเกี่ยวกับหน้าที่การใช้งานของกระบวนการเฉพาะ อย่างไรก็ตาม จะไม่แก้ไขตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชัน หรือสร้างขั้นตอนเพื่อตอบสนองความต้องการเฉพาะของคุณ

หมายเหตุ ก่อนที่คุณติดตั้งโปรแกรมแก้ไขด่วนนี้ โปรดตรวจสอบว่า ผู้ใช้ไคลเอนต์ของ Microsoft Navision ทั้งหมดเข้าสู่ระบบออกจากระบบ ข้อมูลนี้รวมถึงผู้ใช้ไคลเอ็นต์บริการแอพลิเคชัน Navision Microsoft (NAS) คุณควรไคลเอ็นต์เฉพาะผู้ใช้ที่เข้าสู่ระบบเมื่อคุณใช้โปรแกรมแก้ไขด่วนนี้

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้ คุณต้องมีสิทธิ์การใช้งานสำหรับนักพัฒนา

เราขอแนะนำว่า บัญชีผู้ใช้ ในหน้าต่างล็อกอินของ Windows หรือ ในหน้าต่างล็อกอินฐานข้อมูลสามารถกำหนดรหัสการเข้าถึงข้อมูล "ขั้นสูง" ถ้าบัญชีผู้ใช้ไม่สามารถกำหนดรหัสการบทบาท "SUPER" คุณต้องตรวจสอบว่า บัญชีผู้ใช้มีสิทธิ์ต่อไปนี้:

สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน
สิทธิ์ Execute สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและ สำหรับออบเจ็กต์ระบบ 9015 ID ของวัตถุ

หมายเหตุ คุณไม่จำเป็นต้องมีสิทธิ์ไปยังร้านค้าข้อมูลยกเว้นว่าคุณจำเป็นต้องซ่อมแซมข้อมูล

การเปลี่ยนแปลงรหัส

หมายเหตุ เสมอทดสอบรหัสแก้ไขในสภาพแวดล้อมการควบคุมก่อนที่คุณนำไปใช้แก้ไขปัญหากับคอมพิวเตอร์ของคุณผลิต
เมื่อต้องการแก้ไขปัญหานี้ เปลี่ยนรหัสในแบบทั่วไปงานสมุดรายวัน-ลงรายการบัญชีบรรทัดโค้ดยูนิต (12) เมื่อต้องการทำเช่นนี้ ให้ทำตามขั้นตอนเหล่านี้

เพิ่มตัวแปรส่วนกลางต่อไปนี้:
TempRejCustLedgEntry@1100047 : TEMPORARY Record 21;

เปลี่ยนแปลงรหัสนี้ในฟังก์ชัน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;
...

เปลี่ยนแปลงรหัสนี้ในฟังก์ชัน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;
...

เปลี่ยนแปลงรหัสนี้ในฟังก์ชัน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;
...

เปลี่ยนแปลงรหัสนี้ในฟังก์ชัน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 +
...

เปลี่ยนแปลงรหัสนี้ในฟังก์ชัน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.",
...

ข้อกำหนดเบื้องต้น

คุณต้องมีหนึ่งผลิตภัณฑ์ต่อไปนี้ติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้:

Microsoft Dynamics NAV 2009 R2 รุ่นโปรตุเกส
Microsoft Dynamics NAV 2009 Service Pack 1 รุ่นโปรตุเกส

ข้อมูลการเอาออก

คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้

สถานะ

Microsoft ยืนยันว่านี่เป็นปัญหาในผลิตภัณฑ์ของ Microsoft ซึ่งแสดงไว้ในส่วน "นำไปใช้กับ"

หมายเหตุ นี่คือบทความ "เผยแพร่เร็ว" ที่สร้างขึ้นโดยตรงจากภายใน Microsoft สนับสนุนองค์กร ข้อมูลในที่นี้ให้ไว้ตามสภาพ เพื่อตอบสนองกับปัญหาที่เกิดขึ้นใหม่ เป็นผลมาจากความเร็วในการทำให้พร้อมใช้งาน วัสดุอาจรวมถึงข้อผิดพลาดการพิมพ์ผิด และอาจแก้ไขได้ตลอดเวลาโดยไม่ต้องแจ้งให้ทราบ ดูข้อตกลงการใช้สำหรับข้อควรพิจารณาอื่น ๆ

อาการ

การแก้ปัญหา

ข้อมูลโปรแกรมแก้ไขด่วน

ข้อมูลการติดตั้ง

การเปลี่ยนแปลงรหัส

ข้อกำหนดเบื้องต้น

ข้อมูลการเอาออก

สถานะ

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

ข้อมูลนี้เป็นประโยชน์หรือไม่

ขอบคุณสำหรับคำติชมของคุณ!