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

นำไปใช้กับ
Microsoft Dynamics NAV 2009 R2

บทความนี้ใช้กับ Microsoft Dynamics NAV สําหรับภาษาฮังการี (hu)

อาการ

สมมติว่า คุณใช้วิธีการชําระเงินที่ตั้งค่าพารามิเตอร์ความแม่นยําในการปัดเศษในใบแจ้งหนี้ใน Microsoft Dynamics NAV 2009 R2 เวอร์ชันภาษาฮังการี นอกจากนี้ ชนิดการปัดเศษจะถูกตั้งค่าเป็น ใกล้เคียงที่สุด ในสถานการณ์นี้ การปัดเศษไม่ถูกต้องและยอดเงินสุดท้ายไม่ถูกต้อง

การแก้ปัญหา

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

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

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

          

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

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

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

เมื่อต้องการใช้โปรแกรมแก้ไขด่วนนี้

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

  • สิทธิ์ในการปรับเปลี่ยนสําหรับวัตถุที่คุณจะเปลี่ยนแปลง
  • สิทธิ์ Execute สําหรับวัตถุ System Object ID 5210 และสําหรับวัตถุ System Object ID 9015

                
หมายเหตุ คุณไม่มีสิทธิ์ในที่เก็บข้อมูล เว้นแต่คุณจะต้องดําเนินการซ่อมแซมข้อมูล

การเปลี่ยนแปลงโค้ด

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

  1. เพิ่ม PrepmtAmtToDeduct ใหม่( ราคารวม VAT: บูลีน; การชําระเงินล่วงหน้า: ทศนิยม) : ฟังก์ชันทศนิยมในตารางบรรทัดการขาย (37) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: ภาษีมูลค่าเพิ่ม
      • ชนิดข้อมูล: ทศนิยม

    2. เพิ่มรหัสดังนี้:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  2. เปลี่ยนฟังก์ชัน CalcPrepaymentToDeduct ในตารางบรรทัดการขาย (37) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. ลบตัวแปรภายในเครื่องต่อไปนี้:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. เพิ่มตัวแปรภายในเครื่องต่อไปนี้:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. แทนที่รหัสดังนี้:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  3. เพิ่ม PrepmtAmtToDeduct ใหม่( ราคารวม VAT: บูลีน; การชําระเงินล่วงหน้า: ทศนิยม) : ฟังก์ชันทศนิยมในตารางบรรทัดการซื้อ (39) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: ภาษีมูลค่าเพิ่ม
      • ชนิดข้อมูล: ทศนิยม

    2. เพิ่มรหัสดังนี้:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  4. เปลี่ยนฟังก์ชัน CalcPrepaymentToDeduct ในตารางบรรทัดการขาย (37) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. ลบตัวแปรภายในเครื่องต่อไปนี้:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. เพิ่มตัวแปรภายในเครื่องต่อไปนี้:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. แทนที่รหัสดังนี้:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  5. เปลี่ยนรหัสในฟังก์ชัน InitInvoiceRoundingLine ในโค้ดโค้ดโค้ด Sales-Post Prepayments codeunit (442) ดังนี้:
    รหัสที่มีอยู่

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    รหัสทดแทน

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  6. เปลี่ยนโค้ดในฟังก์ชัน InsertLineRelation ในโค้ดโค้ด unit Sales-Post การชําระเงินล่วงหน้า (442) ดังนี้:
    รหัสที่มีอยู่

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    รหัสทดแทน

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  7. เปลี่ยนรหัสในฟังก์ชัน InsertInvoiceRounding ในโค้ดโค้ดโค้ด Sales-Post Prepayments codeunit (442) ดังนี้:
    รหัสที่มีอยู่

    ...
"G/L Account No." := SalesLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

    รหัสทดแทน

    ...
"G/L Account No." := SalesLine."No.";

// Add the following line
Description := SalesLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

  8. เปลี่ยนรหัสในฟังก์ชัน InsertInvoiceRounding ในโค้ดโค้ดโค้ด Purchase-Post Prepayments codeunit (444) ดังนี้:
    รหัสที่มีอยู่

    ...
"G/L Account No." := PurchLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

    รหัสทดแทน

    ...
"G/L Account No." := PurchLine."No.";

// Add the following line.
Description := PurchLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

  9. เปลี่ยนรหัสในฟังก์ชัน InitInvoiceRoundingLine ในโค้ดโค้ดโค้ด Purchase-Post Prepayments codeunit (444) ดังนี้:
    รหัสที่มีอยู่

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    รหัสทดแทน

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  10. เปลี่ยนโค้ดในฟังก์ชัน InsertLineRelation ในโค้ดโค้ด unit Purchase-Post การชําระเงินล่วงหน้า (444) ดังนี้:
    รหัสที่มีอยู่

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    รหัสทดแทน

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  11. เพิ่ม LineRelationExists( LetterLine: Record 26586) ใหม่ : ฟังก์ชันบูลีนใน Sales-Post Codeunit ขั้นสูง (26585) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: ความสัมพันธ์บรรทัด
      • ชนิดข้อมูล: ระเบียน 26592

    2. เพิ่มรหัสดังนี้:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Sale);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  12. เพิ่ม UpdateAmountToApply( LetterLine: Record 26592 ใหม่; ฟังก์ชัน VAT LinkedAdvanceEntry: บันทึก 21) ในโค้ด unit Sales-Post Advances (26585) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: ลิงก์
      • ชนิดข้อมูล: Record 26590

    2. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: CustLedgEntry
      • ชนิดข้อมูล: ระเบียน 21

    3. เพิ่มรหัสดังนี้:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF CustLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
CustLedgEntry.CALCFIELDS("Remaining Amount");
IF CustLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(CustLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := CustLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  13. เพิ่ม AddRoundingLine( LetterLine: Record 26586 ใหม่ SalesInvHeader: เร็กคอร์ด 112; เรกคอร์ด 112 VAR LinkedAdvanceEntry: เร็กคอร์ด 21; LastLetterNo: โค้ด [20]) : หักค่า Amount: ทศนิยม
     Sales-Post Codeunit (26585) ได้ดังนี้

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  14. เปลี่ยนรหัสในฟังก์ชัน PostInvoiceCorrection ในโค้ดโค้ด Sales-Post Advances codeunit (26585) ดังนี้:
    รหัสที่มีอยู่

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(SalesHeader."No.");
// End of thelines.
...

    รหัสทดแทน

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
...

  15. เปลี่ยนโค้ดในฟังก์ชัน DeductRndLetterLines ในโค้ดโค้ด Sales-Post Advances codeunit (26585) ดังนี้:
    รหัสที่มีอยู่

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;

    รหัสทดแทน

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" = SalesLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,SalesInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

  16. เพิ่มฟังก์ชัน LineRelationExists( LetterLine: Record 26588) ใหม่ใน Purchase-Post Codeunit Advances (26586) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: ความสัมพันธ์บรรทัด
      • ชนิดข้อมูล: ระเบียน 26592

    2. เพิ่มรหัสดังนี้:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Purchase);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  17. เพิ่ม UpdateAmountToApply(LetterLine: Record 26588; ฟังก์ชัน VAR LinkedAdvanceEntry: Record 25) ในโค้ด unit Purchase-Post Advances (26586) เมื่อต้องการทำสิ่งนี้ ให้ทำตามขั้นตอนเหล่านี้:

    1. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: LetterLine
      • ชนิดข้อมูล: Record 26588

    2. เพิ่มตัวแปรภายใน แล้วระบุตัวแปรดังนี้:

      • ชื่อ: VendorLedgEntry
      • ชนิดข้อมูล: ระเบียน 25

    3. เพิ่มรหัสดังนี้:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF VendorLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
VendorLedgEntry.CALCFIELDS("Remaining Amount");
IF VendorLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(VendorLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := VendorLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  18. เพิ่ม AddRoundingLine( LetterLine ใหม่: Record 26588; PurchInvHeader: เร็กคอร์ด 122; บันทึกการซื้อ VAR LinkedAdvanceEntry: Record 25; LastLetterNo: Code [20]) : DeductedAmount : Decimal function in the Purchase-Post Advances codeunit (26586) ดังต่อไปนี้:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  19. เปลี่ยนรหัสในฟังก์ชัน PostInvoiceCorrection ในโค้ดโค้ด Purchase-Post Advances codeunit (26586) ดังนี้:
    รหัสที่มีอยู่

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(PurchHeader."No.");
// End of the lines.

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

    รหัสทดแทน

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

  20. ลบฟังก์ชัน DeductRndLetterLines ใน Purchase-Post Advances codeunit (26586)

  21. เปลี่ยนรหัสในฟังก์ชัน PostInvLineCorrection ในโค้ดโค้ด Purchase-Post Advances codeunit (26586) ดังนี้:
    รหัสที่มีอยู่

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;
...

    รหัสทดแทน

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" = PurchLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,PurchInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

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

คุณต้องมี Microsoft Dynamics NAV 2009 R2 รุ่นภาษาฮังการีติดตั้งอยู่เพื่อใช้โปรแกรมแก้ไขด่วนนี้

ลบข้อมูลออก

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

สถานะ

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

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