ไม่ถูกต้องลงรายการบัญชีรายการ G/L ถ้าคุณใช้การชำระเงินปกติและสูตรใน Microsoft Dynamics NAV 2009 รุ่นภาษาสเปน

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

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

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

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

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

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

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

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

• สิทธิ์การปรับเปลี่ยนสำหรับออปเจ็กต์ที่คุณจะสามารถเปลี่ยน

• สิทธิ์ในการดำเนินการ สำหรับออบเจ็กต์5210 รหัสวัตถุของระบบและระบบ 9015 ID ของวัตถุ
  
  วัตถุ

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

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

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

เมื่อต้องการแก้ไขปัญหานี้ ให้ทำตามขั้นตอนเหล่านี้:

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostDtldCustLedgEntriesในแบบทั่วไปงานสมุดรายวัน-ลงรายการบัญชีบรรทัดโค้ดยูนิต (12) ดัง:
   รหัสที่อยู่ 1

   ...LOCAL PROCEDURE PostDtldCustLedgEntries@46(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;CustPostingGr@1002 : Record 92;GLSetup@1003 : Record 98;NextTransactionNo@1004 : Integer;CustLedgEntryInserted@1012 : Boolean);
         VAR
           DtldCustLedgEntry@1005 : Record 379;
           Currency@1007 : Record 4;
           GenPostingSetup@1008 : Record 252;
           TotalAmountLCY@1009 : Decimal;
           TotalAmountAddCurr@1010 : Decimal;
           PaymentDiscAcc@1011 : Code[20];
           DtldCustLedgEntryNoOffset@1006 : Integer;
           PaymentTolAcc@1013 : Code[20];
   ...
   

   รหัสแทนที่ 1

   ...LOCAL PROCEDURE PostDtldCustLedgEntries@46(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;CustPostingGr@1002 : Record 92;GLSetup@1003 : Record 98;NextTransactionNo@1004 : Integer;CustLedgEntryInserted@1012 : Boolean);
         VAR
           DtldCustLedgEntry@1005 : Record 379;
           Currency@1007 : Record 4;
           GenPostingSetup@1008 : Record 252;
   
   // Add the following line.
   DtldCustLedgEntry3@1100044 : Record 379;
   // End of the added line.
   
           TotalAmountLCY@1009 : Decimal;
           TotalAmountAddCurr@1010 : Decimal;
           PaymentDiscAcc@1011 : Code[20];
           DtldCustLedgEntryNoOffset@1006 : Integer;
           PaymentTolAcc@1013 : Code[20];
   ...
   

   รหัสที่มีอยู่ 2

   ...ReceivableAccAmtLCY@1100001 : Decimal;
           ReceivableAccAmtAddCurr@1100000 : Decimal;
           DtldCustLedgEntry2@1100003 : TEMPORARY Record 379;
           ExistDtldCVLedgEntryBuf@1000003 : Boolean;
           FindBill@1100004 : Boolean;
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ...
   

   รหัสแทนที่ 2

   ...ReceivableAccAmtLCY@1100001 : Decimal;
           ReceivableAccAmtAddCurr@1100000 : Decimal;
           DtldCustLedgEntry2@1100003 : TEMPORARY Record 379;
           ExistDtldCVLedgEntryBuf@1000003 : Boolean;
           FindBill@1100004 : Boolean;
   
   // Add the following line.
   EntryUnapplied@1100051 : Boolean;
   // End of the added line.
   
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ...
   

   รหัสที่มีอยู่ 3

   ... TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
           NegativeLCYAppAmt := 0;
           NegativeACYAppAmt := 0;
   
           IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Customer THEN BEGIN
             IF DtldCustLedgEntry.FINDLAST THEN
               DtldCustLedgEntryNoOffset := DtldCustLedgEntry."Entry No."
             ELSE
   ...
   

   รหัสแทนที่ 3

   ...TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
           NegativeLCYAppAmt := 0;
           NegativeACYAppAmt := 0;
   
   // Add the following line.
   EntryUnapplied := FALSE;
   // End of the added line.
   
           IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Customer THEN BEGIN
             IF DtldCustLedgEntry.FINDLAST THEN
               DtldCustLedgEntryNoOffset := DtldCustLedgEntry."Entry No."
             ELSE
   ...
   

   รหัสที่มีอยู่ 4

   ... END;
               InsertGLEntry(TRUE);
               GenJnlLine."Posting Date" := OriginalPostingDate;
             END;
   
   // Delete the following line.
   PostReceivableDocs(GenJnlLine);
   // End of the deleted line.
   
             IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
               InitGLEntry(CustPostingGr."Receivables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
               InsertGLEntry(FALSE);
               InitGLEntry(CustPostingGr."Receivables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
   ...
   

   รหัสแทนที่ 4

   ... END;
               InsertGLEntry(TRUE);
               GenJnlLine."Posting Date" := OriginalPostingDate;
             END;
   
   // Add the following lines.
   WITH DtldCustLedgEntry3 DO BEGIN
   SETCURRENTKEY("Cust. Ledger Entry No.");
   SETRANGE("Cust. Ledger Entry No.",DtldCustLedgEntry."Cust. Ledger Entry No.");
   SETFILTER("Applies-to Bill No.",'<>%1','');
   SETRANGE(Unapplied,TRUE);
   EntryUnapplied := NOT ISEMPTY;
   END;
   
   PostReceivableDocs(EntryUnapplied);
   // End of the added lines.
   
             IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
               InitGLEntry(CustPostingGr."Receivables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
               InsertGLEntry(FALSE);
               InitGLEntry(CustPostingGr."Receivables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostDtldVendLedgEntriesในแบบทั่วไปงานสมุดรายวัน-ลงรายการบัญชีบรรทัดโค้ดยูนิต (12) ดัง:
   รหัสที่อยู่ 1

   ...  PROCEDURE PostDtldVendLedgEntries@32(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;VendPostingGr@1002 : Record 93;NextTransactionNo@1003 : Integer;VendLedgEntryInserted@1011 : Boolean);
         VAR
           DtldVendLedgEntry@1004 : Record 380;
           Currency@1006 : Record 4;
           GenPostingSetup@1007 : Record 252;
           TotalAmountLCY@1008 : Decimal;
           TotalAmountAddCurr@1009 : Decimal;
           PaymentDiscAcc@1010 : Code[20];
           DtldVendLedgEntryNoOffset@1005 : Integer;
           PaymentTolAcc@1012 : Code[20];
   ...
   

   รหัสแทนที่ 1

   ...PROCEDURE PostDtldVendLedgEntries@32(GenJnlLine2@1000 : Record 81;VAR DtldCVLedgEntryBuf@1001 : Record 383;VendPostingGr@1002 : Record 93;NextTransactionNo@1003 : Integer;VendLedgEntryInserted@1011 : Boolean);
         VAR
           DtldVendLedgEntry@1004 : Record 380;
           Currency@1006 : Record 4;
           GenPostingSetup@1007 : Record 252;
   
   // Add the following line.
   DtldVendLedgEntry3@1100055 : Record 380;
   // End of the added line.
   
           TotalAmountLCY@1008 : Decimal;
           TotalAmountAddCurr@1009 : Decimal;
           PaymentDiscAcc@1010 : Code[20];
           DtldVendLedgEntryNoOffset@1005 : Integer;
           PaymentTolAcc@1012 : Code[20];
   ...
   

   รหัสที่มีอยู่ 2

   ...PayableAccAmtLCY@1100002 : Decimal;
           PayableAccAmtAddCurr@1100010 : Decimal;
           DtldVendLedgEntry2@1100003 : Record 380;
           ExistDtldCVLedgEntryBuf@1100004 : Boolean;
           FindBill@1100005 : Boolean;
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ...
   

   รหัสแทนที่ 2

   ...PayableAccAmtLCY@1100002 : Decimal;
           PayableAccAmtAddCurr@1100010 : Decimal;
           DtldVendLedgEntry2@1100003 : Record 380;
           ExistDtldCVLedgEntryBuf@1100004 : Boolean;
           FindBill@1100005 : Boolean;
   
   // Add the following line.
   EntryUnapplied@1100051 : Boolean;
   // End of the added line.
   
         BEGIN
           TotalAmountLCY := 0;
           TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
   ...
   

   รหัสที่มีอยู่ 3

   ...TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
           NegativeLCYAppAmt := 0;
           NegativeACYAppAmt := 0;
   
           IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Vendor THEN BEGIN
             IF DtldVendLedgEntry.FINDLAST THEN
               DtldVendLedgEntryNoOffset := DtldVendLedgEntry."Entry No."
             ELSE
   ...
   

   รหัสแทนที่ 3

   ...TotalAmountAddCurr := 0;
           PositiveLCYAppAmt := 0;
           PositiveACYAppAmt := 0;
           NegativeLCYAppAmt := 0;
           NegativeACYAppAmt := 0;
   
   // Add the following line.
   EntryUnapplied := FALSE;
   // End of the added line.
   
           IF GenJnlLine2."Account Type" = GenJnlLine2."Account Type"::Vendor THEN BEGIN
             IF DtldVendLedgEntry.FINDLAST THEN
               DtldVendLedgEntryNoOffset := DtldVendLedgEntry."Entry No."
             ELSE
   ...
   

   รหัสที่มีอยู่ 4

   ...END;
               InsertGLEntry(TRUE);
               GenJnlLine."Posting Date" := OriginalPostingDate;
             END;
   
   // Delete the following line.
   PostPayableDocs(GenJnlLine);
   // End of the deleted line.
   
             IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
               InitGLEntry(VendPostingGr."Payables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
               InsertGLEntry(FALSE);
               InitGLEntry(VendPostingGr."Payables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
   ...
   

   รหัสแทนที่ 4

   ...END;
               InsertGLEntry(TRUE);
               GenJnlLine."Posting Date" := OriginalPostingDate;
             END;
   
   // Add the following lines.
   WITH DtldVendLedgEntry3 DO BEGIN
   SETCURRENTKEY("Vendor Ledger Entry No.");
   SETRANGE("Vendor Ledger Entry No.",DtldVendLedgEntry."Vendor Ledger Entry No.");
   SETFILTER("Applies-to Bill No.",'<>%1','');
   SETRANGE(Unapplied,TRUE);
   EntryUnapplied := NOT ISEMPTY;
   END;
   
   PostPayableDocs(EntryUnapplied);
   // End of the added lines.
   
             IF NOT GLEntryTmp.FINDFIRST AND ExistDtldCVLedgEntryBuf THEN BEGIN
               InitGLEntry(VendPostingGr."Payables Account",PositiveLCYAppAmt,PositiveACYAppAmt,FALSE,TRUE);
               InsertGLEntry(FALSE);
               InitGLEntry(VendPostingGr."Payables Account",NegativeLCYAppAmt,NegativeACYAppAmt,FALSE,TRUE);
   ...
   

3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostPayableDocsในแบบทั่วไปงานสมุดรายวัน-ลงรายการบัญชีบรรทัดโค้ดยูนิต (12) ดัง:
   รหัสที่อยู่ 1

   ...ELSE
               VATEntry."Bill-to/Pay-to No." := GenJnlLine2."Account No.";
           END;
         END;
   
   // Delete the following line.
   LOCAL PROCEDURE PostPayableDocs@1100009(VAR GenJnlLine@1100000 : Record 81);
   // End of the deleted line.
   
         BEGIN
           IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
             IF NextEntryNo2 = NextEntryNo THEN
               NextEntryNo := NextEntryNo - 1;
           IF DocAmountLCY <> 0 THEN BEGIN
   ...
   

   รหัสแทนที่ 1

   ...ELSE
               VATEntry."Bill-to/Pay-to No." := GenJnlLine2."Account No.";
           END;
         END;
   
   // Add the following line.
   LOCAL PROCEDURE PostPayableDocs@1100009(EntryUnapplied@1100001 : Boolean);
   // End of the added line.
   
         BEGIN
           IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
             IF NextEntryNo2 = NextEntryNo THEN
               NextEntryNo := NextEntryNo - 1;
           IF DocAmountLCY <> 0 THEN BEGIN
   ...
   

   รหัสที่มีอยู่ 2

   ...BEGIN
           IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
             IF NextEntryNo2 = NextEntryNo THEN
               NextEntryNo := NextEntryNo - 1;
           IF DocAmountLCY <> 0 THEN BEGIN
   
   // Delete the following lines.
   // VSTF330588.begin
   //IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) THEN BEGIN
   IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
   (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" ")
   THEN BEGIN
   // VSTF330588.end
   // End of the deleted lines.
   
               VendPostingGr.TESTFIELD("Payables Account");
               InitGLEntry(VendPostingGr."Payables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
               GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
               GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
               InsertGLEntry(TRUE);
   ...
   

   รหัสแทนที่ 2

   ...BEGIN
           IF (DocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) THEN
             IF NextEntryNo2 = NextEntryNo THEN
               NextEntryNo := NextEntryNo - 1;
           IF DocAmountLCY <> 0 THEN BEGIN
   
   // Add the following lines.
   IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
   EntryUnapplied
   THEN BEGIN
   // End of the added lines.
   
               VendPostingGr.TESTFIELD("Payables Account");
               InitGLEntry(VendPostingGr."Payables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
               GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
               GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
               InsertGLEntry(TRUE);
   ...
   

4. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostReceivableDocsในแบบทั่วไปงานสมุดรายวัน-ลงรายการบัญชีบรรทัดโค้ดยูนิต (12) ดัง:
   รหัสที่อยู่ 1

   ... GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
             InsertGLEntry(TRUE);
           END;
         END;
   
   // Delete the following line.
   LOCAL PROCEDURE PostReceivableDocs@1100003(VAR GenJnlLine@1100000 : Record 81);
   // End of the deleted line.
   
         BEGIN
           IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
             (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
               IF NextEntryNo2 = NextEntryNo THEN
                 NextEntryNo := NextEntryNo - 1;
   ...
   

   รหัสแทนที่ 1

   ...GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
             InsertGLEntry(TRUE);
           END;
         END;
   
   // Add the following line.
   LOCAL PROCEDURE PostReceivableDocs@1100003(EntryUnapplied@1100001 : Boolean);
   // End of the added line.
   
         BEGIN
           IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
             (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
               IF NextEntryNo2 = NextEntryNo THEN
                 NextEntryNo := NextEntryNo - 1;
   ...
   

   รหัสที่มีอยู่ 2

   ...IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
             (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
               IF NextEntryNo2 = NextEntryNo THEN
                 NextEntryNo := NextEntryNo - 1;
           IF DocAmountLCY <> 0 THEN BEGIN
   
   // Delete the following lines.
   // VSTF330588.begin
   //IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) THEN BEGIN
   IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
   (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::" ")
    THEN BEGIN
   // VSTF330588.end
   // End of the deleted lines.
   
               CustPostingGr.TESTFIELD("Receivables Account");
               InitGLEntry(CustPostingGr."Receivables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
               GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
               GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
               InsertGLEntry(TRUE);
   ...
   

   รหัสแทนที่ 2

   ...IF (DocAmountLCY <> 0) OR (DiscDocAmountLCY <> 0) OR (CollDocAmountLCY <> 0) OR (RejDocAmountLCY <> 0) OR
             (DiscRiskFactAmountLCY <> 0) OR (DiscUnriskFactAmountLCY <> 0) OR (CollFactAmountLCY <> 0) THEN
               IF NextEntryNo2 = NextEntryNo THEN
                 NextEntryNo := NextEntryNo - 1;
           IF DocAmountLCY <> 0 THEN BEGIN
   
   // Add the following lines.
   IF (GenJnlLine."Applies-to Doc. Type" = GenJnlLine."Applies-to Doc. Type"::Invoice) OR
   EntryUnapplied
   THEN BEGIN
   // End of the added lines.
   
               CustPostingGr.TESTFIELD("Receivables Account");
               InitGLEntry(CustPostingGr."Receivables Account",DocAmountLCY,DocAmtCalcAddCurrency(DocAmountLCY),TRUE,TRUE);
               GLEntry."Bal. Account Type" := GenJnlLine."Bal. Account Type";
               GLEntry."Bal. Account No." := GenJnlLine."Bal. Account No.";
               InsertGLEntry(TRUE);
   ...
   

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

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

• Microsoft Dynamics NAV 2009 R2 รุ่นภาษาสเปน

• SP1 2009 นำทางของ Dynamics Microsoft รุ่นภาษาสเปน

นอกจากนี้ คุณต้องมีการติดตั้งKB3034441

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

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