ไม่มีกระจายส่วนลดค่าธรรมเนียมสินค้าใน accordance เพื่อเลือกตัวเลือกใน 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. เปลี่ยนแปลงรหัสนี้ในคุณสมบัติในโค้ดยูนิตลงรายการบัญชีการขาย (80) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...PostJobContractLine(JobTaskSalesLine,TempJnlLineDim2);
   
                           END;
   
                         SalesLine.Type::"Charge (Item)":
   
                           IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
   
   // Delete the following line.
                            ItemJnlRollRndg := FALSE;             
   // End of the deleted line.
   
                             ClearItemChargeAssgntFilter;
   
                             TempItemChargeAssgntSales.SETCURRENTKEY("Applies-to Doc. Type");
   
                             TempItemChargeAssgntSales.SETRANGE("Document Line No.",SalesLine."Line No.");
   
                             IF TempItemChargeAssgntSales.FINDSET THEN
   ...
   

   รหัสแทนที่ 1

   ...PostJobContractLine(JobTaskSalesLine,TempJnlLineDim2);
   
                           END;
   
                         SalesLine.Type::"Charge (Item)":
   
                           IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
   
   // Add the following line.
                            ItemJnlRollRndg := TRUE;                  
   // End of the added line.
   
                             ClearItemChargeAssgntFilter;
   
                             TempItemChargeAssgntSales.SETCURRENTKEY("Applies-to Doc. Type");
   
                             TempItemChargeAssgntSales.SETRANGE("Document Line No.",SalesLine."Line No.");
   
                             IF TempItemChargeAssgntSales.FINDSET THEN
   ...
   

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

   ...GenJnlLineDocNo := TempItemChargeAssgntSales."Applies-to Doc. No.";
   
                                 CASE TempItemChargeAssgntSales."Applies-to Doc. Type" OF
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::Shipment:
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerShpt(SalesLine);
   
                                       TempItemChargeAssgntSales.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   ...
   

   รหัสแทนที่ 2

   ...GenJnlLineDocNo := TempItemChargeAssgntSales."Applies-to Doc. No.";
   
                                 CASE TempItemChargeAssgntSales."Applies-to Doc. Type" OF
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::Shipment:
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerShpt(SalesLine,SalesLine."Inv. Discount Amount",
   
                                        SalesLine.Quantity,SalesLine."Line Discount Amount",SalesLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntSales.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   ...
   

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

   ...TempItemChargeAssgntSales.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerRetRcpt(SalesLine);
   
                                       TempItemChargeAssgntSales.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::Order,
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::Invoice:
   ...
   

   รหัสแทนที่ 3

   ...TempItemChargeAssgntSales.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerRetRcpt(SalesLine,SalesLine."Inv. Discount Amount",
   
                                        SalesLine.Quantity,SalesLine."Line Discount Amount",SalesLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntSales.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::Order,
   
                                   TempItemChargeAssgntSales."Applies-to Doc. Type"::Invoice:
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerShptในโค้ดยูนิตลงรายการบัญชีการขาย (80) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...END;
   
           END;
   
         END;
   
   
   // Delete the following line.
        LOCAL PROCEDURE PostItemChargePerShpt@5807(SalesLine@1000 : Record 37);
   
         VAR
   
           SalesShptLine@1003 : Record 111;
   
           TempItemLedgEntry@1010 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1009 : Codeunit 6500;
   ...
   

   รหัสแทนที่ 1

   ...END;
   
           END;
   
         END;
   
   
   // Add the following line.
        LOCAL PROCEDURE PostItemChargePerShpt@5807(SalesLine@1000 : Record 37;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
   
         VAR
   
           SalesShptLine@1003 : Record 111;
   
           TempItemLedgEntry@1010 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1009 : Codeunit 6500;
   ...
   

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

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
               IF Factor < 1 THEN BEGIN
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Delete the following line.
                  AmountToAssign,QtyToAssign);
   
                 NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
   
                 NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                 NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   ...
   

   รหัสแทนที่ 2

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
               IF Factor < 1 THEN BEGIN
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Add the following lines.
                  AmountToAssign,QtyToAssign,TotalInvDiscAmtRemaining,
   
                  TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
                 NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
   
                 NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                 NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   ...
   

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

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Delete the following line.
                  NonDistrAmountToAssign,NonDistrQtyToAssign);
   
             UNTIL TempItemLedgEntry.NEXT = 0;
   
           END ELSE
   
             PostItemCharge(SalesLine,
   
               SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
   ...
   

   รหัสแทนที่ 3

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Add the following lines.
                  NonDistrAmountToAssign,NonDistrQtyToAssign,TotalInvDiscAmtRemaining,
   
                 TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
             UNTIL TempItemLedgEntry.NEXT = 0;
   
           END ELSE
   
             PostItemCharge(SalesLine,
   
               SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
   ...
   

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

   ...END ELSE
   
             PostItemCharge(SalesLine,
   
               SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
   
               TempItemChargeAssgntSales."Amount to Assign",
   
   // Delete the following lines.
              TempItemChargeAssgntSales."Qty. to Assign");
   
        END;
   
   
   
        LOCAL PROCEDURE PostItemChargePerRetRcpt@5810(SalesLine@1000 : Record 37);
   // End of the deleted lines.
   
         VAR
   
           ReturnRcptLine@1002 : Record 6661;
   
           TempItemLedgEntry@1010 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1009 : Codeunit 6500;
   ...
   

   รหัสแทนที่ 4

   ...END ELSE
   
             PostItemCharge(SalesLine,
   
               SalesShptLine."Item Shpt. Entry No.",SalesShptLine."Quantity (Base)",
   
               TempItemChargeAssgntSales."Amount to Assign",
   
   // Add the following lines.
              TempItemChargeAssgntSales."Qty. to Assign",TotalInvDiscAmtRemaining,
   
              TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   
        END;
   
   
   
        LOCAL PROCEDURE PostItemChargePerRetRcpt@5810(SalesLine@1000 : Record 37;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
   // End of the added lines.
   
         VAR
   
           ReturnRcptLine@1002 : Record 6661;
   
           TempItemLedgEntry@1010 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1009 : Codeunit 6500;
   ...
   

3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerRetRcptในโค้ดยูนิตลงรายการบัญชีการขาย (80) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
               IF Factor < 1 THEN BEGIN
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Delete the following line.
                  AmountToAssign,QtyToAssign);
   
                 NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
   
                 NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                 NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   ...
   

   รหัสแทนที่ 1

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
               IF Factor < 1 THEN BEGIN
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Add the following lines.
                  AmountToAssign,QtyToAssign,TotalInvDiscAmtRemaining,
   
                  TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
                 NonDistrQuantity := NonDistrQuantity - ABS(TempItemLedgEntry.Quantity);
   
                 NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                 NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   ...
   

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

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Delete the following line.
                  NonDistrAmountToAssign,NonDistrQtyToAssign);
   
             UNTIL TempItemLedgEntry.NEXT = 0;
   
           END ELSE
   
             PostItemCharge(SalesLine,
   
               ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
   ...
   

   รหัสแทนที่ 2

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
               END ELSE // the last time
   
                 PostItemCharge(SalesLine,
   
                   TempItemLedgEntry."Entry No.",ABS(TempItemLedgEntry.Quantity),
   
   // Add the following lines.
                  NonDistrAmountToAssign,NonDistrQtyToAssign,TotalInvDiscAmtRemaining,
   
                  TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
             UNTIL TempItemLedgEntry.NEXT = 0;
   
           END ELSE
   
             PostItemCharge(SalesLine,
   
               ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
   ...
   

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

   ...END ELSE
   
             PostItemCharge(SalesLine,
   
               ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
   
               TempItemChargeAssgntSales."Amount to Assign",
   
   // Delete the following line.
              TempItemChargeAssgntSales."Qty. to Assign")
   
         END;
   
   
   
         LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
   
         VAR
   ...
   

   รหัสแทนที่ 3

   ...END ELSE
   
             PostItemCharge(SalesLine,
   
               ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
   
               TempItemChargeAssgntSales."Amount to Assign",
   
   // Add the following lines.
              TempItemChargeAssgntSales."Qty. to Assign",TotalInvDiscAmtRemaining,
   
              TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
   // End of the added lines.
   
         END;
   
   
   
         LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
   
         VAR
   ...
   

4. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargeในโค้ดยูนิตลงรายการบัญชีการขาย (80) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...TempValueEntryRelation.DELETEALL;
   
           END;
   
         END;
   
   
   // Delete the following line.
        PROCEDURE PostItemCharge@42(SalesLine@1005 : Record 37;ItemEntryNo@1004 : Integer;QuantityBase@1003 : Decimal;AmountToAssign@1002 : Decimal;QtyToAssign@1001 : Decimal);
   
         VAR
   
           DummyTrackingSpecification@1000 : Record 336;
   
         BEGIN
   
           WITH TempItemChargeAssgntSales DO BEGIN
   ...
   

   รหัสแทนที่ 1

   ...TempValueEntryRelation.DELETEALL;
   
           END;
   
         END;
   
   
   // Add the following line.
        PROCEDURE PostItemCharge@42(SalesLine@1005 : Record 37;ItemEntryNo@1004 : Integer;QuantityBase@1003 : Decimal;AmountToAssign@1002 : Decimal;QtyToAssign@1001 : Decimal;VAR TotalInvDiscAmtRemaining@1006 : Decimal;VAR TotalQtyRemaining@1007 : Decimal;VAR TotalLineDiscAmtRemaining@1008 : Decimal;VAR TotalLineAmtRemaining@1009 : Decimal);
   
         VAR
   
           DummyTrackingSpecification@1000 : Record 336;
   
         BEGIN
   
           WITH TempItemChargeAssgntSales DO BEGIN
   ...
   

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

   ...SalesLine.Amount :=
   
                 CurrExchRate.ExchangeAmtFCYToLCY(
   
                   UseDate,SalesHeader."Currency Code",TotalChargeAmt,SalesHeader."Currency Factor");
   
             SalesLine."Inv. Discount Amount" := ROUND(
   
   // Delete the following lines.
                SalesLine."Inv. Discount Amount" / SalesLine.Quantity * QtyToAssign,
   
                GLSetup."Amount Rounding Precision");
   // End of the deleted lines.
   
             SalesLine.Amount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision") - TotalChargeAmtLCY;
   
             IF SalesHeader."Currency Code" <> '' THEN
   
               TotalChargeAmtLCY := TotalChargeAmtLCY + SalesLine.Amount;
   
             SalesLine."Unit Cost (LCY)" := ROUND(
   ...
   

   รหัสแทนที่ 2

   ...SalesLine.Amount :=
   
                 CurrExchRate.ExchangeAmtFCYToLCY(
   
                   UseDate,SalesHeader."Currency Code",TotalChargeAmt,SalesHeader."Currency Factor");
   
             SalesLine."Inv. Discount Amount" := ROUND(
   
   // Add the following lines.
                TotalInvDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
   
                GLSetup."Amount Rounding Precision");
   
            SalesLine."Line Discount Amount" := ROUND(
   
                TotalLineDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
   
                GLSetup."Amount Rounding Precision");
   
            SalesLine."Line Amount" := ROUND(
   
                TotalLineAmtRemaining / TotalQtyRemaining * QtyToAssign,
   
                GLSetup."Amount Rounding Precision");
   
            TotalInvDiscAmtRemaining := TotalInvDiscAmtRemaining - SalesLine."Inv. Discount Amount";
   
            TotalLineDiscAmtRemaining := TotalLineDiscAmtRemaining - SalesLine."Line Discount Amount";
   
   TotalLineAmtRemaining := TotalLineAmtRemaining - SalesLine."Line Amount";
   
            TotalQtyRemaining := TotalQtyRemaining - QtyToAssign;
   
   // End of the added lines.    
   
             SalesLine.Amount := ROUND(SalesLine.Amount,GLSetup."Amount Rounding Precision") - TotalChargeAmtLCY;
   
             IF SalesHeader."Currency Code" <> '' THEN
   
               TotalChargeAmtLCY := TotalChargeAmtLCY + SalesLine.Amount;
   
             SalesLine."Unit Cost (LCY)" := ROUND(
   ...
   

5. เปลี่ยนแปลงรหัสนี้ในคุณสมบัติใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...3:
   
                           ERROR(Text015);
   
                         PurchLine.Type::"Charge (Item)":
   
                           IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
   
   // Delete the following line.
                            ItemJnlRollRndg := FALSE;
   
                             ClearItemChargeAssgntFilter;
   
                             TempItemChargeAssgntPurch.SETCURRENTKEY("Applies-to Doc. Type");
   
                             TempItemChargeAssgntPurch.SETRANGE("Document Line No.",PurchLine."Line No.");
   
                             IF TempItemChargeAssgntPurch.FINDSET THEN
   ...
   

   รหัสแทนที่ 1

   ...3:
   
                           ERROR(Text015);
   
                         PurchLine.Type::"Charge (Item)":
   
                           IF Invoice OR ItemChargeAssgntOnly THEN BEGIN
   
   // Add the following line.
                            ItemJnlRollRndg := TRUE;
   
                             ClearItemChargeAssgntFilter;
   
                             TempItemChargeAssgntPurch.SETCURRENTKEY("Applies-to Doc. Type");
   
                             TempItemChargeAssgntPurch.SETRANGE("Document Line No.",PurchLine."Line No.");
   
                             IF TempItemChargeAssgntPurch.FINDSET THEN
   ...
   

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

   ...GenJnlLineDocNo := TempItemChargeAssgntPurch."Applies-to Doc. No.";
   
                                 CASE TempItemChargeAssgntPurch."Applies-to Doc. Type" OF
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::Receipt:
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerRcpt(PurchLine);
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
   
                                     BEGIN
   ...
   

   รหัสแทนที่ 2

   ...GenJnlLineDocNo := TempItemChargeAssgntPurch."Applies-to Doc. No.";
   
                                 CASE TempItemChargeAssgntPurch."Applies-to Doc. Type" OF
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::Receipt:
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerRcpt(PurchLine,PurchLine."Inv. Discount Amount",
   
                                        PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
   
                                     BEGIN
   ...
   

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

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerTransfer(PurchLine);
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
   
                                     BEGIN
   ...
   

   รหัสแทนที่ 3

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Transfer Receipt":
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerTransfer(PurchLine,PurchLine."Inv. Discount Amount",
   
                                        PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
   
                                     BEGIN
   ...
   

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

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerRetShpt(PurchLine);
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
   
                                     BEGIN
   ...
   

   รหัสแทนที่ 4

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Shipment":
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerRetShpt(PurchLine,PurchLine."Inv. Discount Amount",
   
                                        PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
   
                                     BEGIN
   ...
   

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

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerSalesShpt(PurchLine);
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   ...
   

   รหัสแทนที่ 5

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Sales Shipment":
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerSalesShpt(PurchLine,PurchLine."Inv. Discount Amount",
   
                                        PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   ...
   

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

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   
   // Delete the following line.
                                      PostItemChargePerRetRcpt(PurchLine);
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::Order,
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::Invoice:
   ...
   

   รหัสแทน 6

   ...TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::"Return Receipt":
   
                                     BEGIN
   
   // Add the following lines.
                                      PostItemChargePerRetRcpt(PurchLine,PurchLine."Inv. Discount Amount",
   
                                        PurchLine.Quantity,PurchLine."Line Discount Amount",PurchLine."Line Amount");
   // End of the added lines.
   
                                       TempItemChargeAssgntPurch.MARK(TRUE);
   
                                     END;
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::Order,
   
                                   TempItemChargeAssgntPurch."Applies-to Doc. Type"::Invoice:
   ...
   

6. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerRcptใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...END;
   
           END;
   
         END;
   
   
   // Delete the following line.
        LOCAL PROCEDURE PostItemChargePerRcpt@5807(PurchLine@1000 : Record 39);
   
         VAR
   
           PurchRcptLine@1002 : Record 121;
   
           TempItemLedgEntry@1003 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1005 : Codeunit 6500;
   ...
   

   รหัสแทนที่ 1

   ...END;
   
           END;
   
         END;
   
   
   // Add the following line.
        LOCAL PROCEDURE PostItemChargePerRcpt@5807(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
   
         VAR
   
           PurchRcptLine@1002 : Record 121;
   
           TempItemLedgEntry@1003 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1005 : Codeunit 6500;
   ...
   

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

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
                 IF Factor < 1 THEN BEGIN
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Delete the following line.
                    AmountToAssign * Sign,QtyToAssign,PurchRcptLine."Indirect Cost %");
   
                   NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
   
                   NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                   NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   ...
   

   รหัสแทนที่ 2

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
                 IF Factor < 1 THEN BEGIN
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Add the following lines.
                    AmountToAssign * Sign,QtyToAssign,PurchRcptLine."Indirect Cost %",
   
                    TotalInvDiscAmtRemaining,TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
                   NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
   
                   NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                   NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   ...
   

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

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Delete the following line.
                    NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,PurchRcptLine."Indirect Cost %");
   
               UNTIL TempItemLedgEntry.NEXT = 0;
   
             END ELSE
   
               ERROR(Text042)
   
           ELSE
   ...
   

   รหัสแทนที่ 3

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Add the following lines.
                    NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,PurchRcptLine."Indirect Cost %",
   
                    TotalInvDiscAmtRemaining,TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
               UNTIL TempItemLedgEntry.NEXT = 0;
   
             END ELSE
   
               ERROR(Text042)
   
           ELSE
   ...
   

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

   ...PostItemCharge(PurchLine,
   
               PurchRcptLine."Item Rcpt. Entry No.",PurchRcptLine."Quantity (Base)",
   
               TempItemChargeAssgntPurch."Amount to Assign" * Sign,
   
               TempItemChargeAssgntPurch."Qty. to Assign",
   
   // Delete the following lines.
              PurchRcptLine."Indirect Cost %");
   
        END;
   
   
   
        LOCAL PROCEDURE PostItemChargePerRetShpt@5811(PurchLine@1000 : Record 39);
   // End of the deleted lines.
   
         VAR
   
           ReturnShptLine@1002 : Record 6651;
   
           TempItemLedgEntry@1010 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1009 : Codeunit 6500;
   ...
   

   รหัสแทนที่ 4

   ...PostItemCharge(PurchLine,
   
               PurchRcptLine."Item Rcpt. Entry No.",PurchRcptLine."Quantity (Base)",
   
               TempItemChargeAssgntPurch."Amount to Assign" * Sign,
   
               TempItemChargeAssgntPurch."Qty. to Assign",
   
   // Add the following lines.
              PurchRcptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
   
              TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   
        END;
   
   
   
        LOCAL PROCEDURE PostItemChargePerRetShpt@5811(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
   // End of the added lines.
   
         VAR
   
           ReturnShptLine@1002 : Record 6651;
   
           TempItemLedgEntry@1010 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1009 : Codeunit 6500;
   ...
   

7. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerRetShptใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
                 IF Factor < 1 THEN BEGIN
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Delete the following line.
                    AmountToAssign * Sign,QtyToAssign,ReturnShptLine."Indirect Cost %");
   
                   NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
   
                   NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                   NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   ...
   

   รหัสแทนที่ 1

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
                 IF Factor < 1 THEN BEGIN
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Add the following lines.
                    AmountToAssign * Sign,QtyToAssign,ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
   
                    TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
                   NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
   
                   NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                   NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   ...
   

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

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Delete the following line.
                    NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,ReturnShptLine."Indirect Cost %");
   
               UNTIL TempItemLedgEntry.NEXT = 0;
   
             END ELSE
   
               ERROR(Text042)
   
           ELSE
   ...
   

   รหัสแทนที่ 2

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Add the following lines.
                    NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
   
                    TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
               UNTIL TempItemLedgEntry.NEXT = 0;
   
             END ELSE
   
               ERROR(Text042)
   
           ELSE
   ...
   

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

   ...PostItemCharge(PurchLine,
   
               ReturnShptLine."Item Shpt. Entry No.",-ReturnShptLine."Quantity (Base)",
   
               ABS(TempItemChargeAssgntPurch."Amount to Assign") * Sign,
   
               TempItemChargeAssgntPurch."Qty. to Assign",
   
   // Delete the following lines.
              ReturnShptLine."Indirect Cost %");
   
        END;
   
   
   
        LOCAL PROCEDURE PostItemChargePerTransfer@23(PurchLine@1000 : Record 39);
   // End of the deleted lines.
   
         VAR
   
           TransRcptLine@1002 : Record 5747;
   
           ItemApplnEntry@1003 : Record 339;
   
           DummyTrackingSpecification@1001 : Record 336;
   ...
   

   รหัสแทนที่ 3

   ...PostItemCharge(PurchLine,
   
               ReturnShptLine."Item Shpt. Entry No.",-ReturnShptLine."Quantity (Base)",
   
               ABS(TempItemChargeAssgntPurch."Amount to Assign") * Sign,
   
               TempItemChargeAssgntPurch."Qty. to Assign",
   
   // Add the following lines.
              ReturnShptLine."Indirect Cost %",TotalInvDiscAmtRemaining,
   
              TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   
        END;
   
   
   
        LOCAL PROCEDURE PostItemChargePerTransfer@23(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1016 : Decimal;VAR TotalQtyRemaining@1017 : Decimal;VAR TotalLineDiscAmtRemaining@1018 : Decimal;VAR TotalLineAmtRemaining@1019 : Decimal);
   // End of the added lines.
   
         VAR
   
           TransRcptLine@1002 : Record 5747;
   
           ItemApplnEntry@1003 : Record 339;
   
           DummyTrackingSpecification@1001 : Record 336;
   ...
   

8. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerTransferใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้
   รหัสที่มีอยู่

   ...PurchLine."Bin Code" := '';
   
             PurchLine."Line No." := "Document Line No.";
   
   
   
             IF TransRcptLine."Item Rcpt. Entry No." = 0 THEN
   
   // Delete the following line.
              PostItemChargePerITTransfer(PurchLine,TransRcptLine)
   
             ELSE BEGIN
   
               TotalAmountToPostFCY := "Amount to Assign";
   
               IF PurchHeader."Currency Code" <> '' THEN
   
                 TotalAmountToPostLCY :=
   ...
   

   รหัสแทน

   ...PurchLine."Bin Code" := '';
   
             PurchLine."Line No." := "Document Line No.";
   
   
   
             IF TransRcptLine."Item Rcpt. Entry No." = 0 THEN
   
   // Add the following lines.
              PostItemChargePerITTransfer(PurchLine,TransRcptLine,TotalInvDiscAmtRemaining,
   
                TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
   // End of the added lines.
   
             ELSE BEGIN
   
               TotalAmountToPostFCY := "Amount to Assign";
   
               IF PurchHeader."Currency Code" <> '' THEN
   
                 TotalAmountToPostLCY :=
   ...
   

9. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerITTransferใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...END;
   
           END;
   
         END;
   
   
   // Delete the following line.
        LOCAL PROCEDURE PostItemChargePerITTransfer@43(PurchLine@1000 : Record 39;TransRcptLine@1017 : Record 5747);
   
         VAR
   
           TempItemLedgEntry@1016 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1001 : Codeunit 6500;
   
           Factor@1023 : Decimal;
   ...
   

   รหัสแทนที่ 1

   ...END;
   
           END;
   
         END;
   
   
   // Add the following line.
        LOCAL PROCEDURE PostItemChargePerITTransfer@43(PurchLine@1000 : Record 39;TransRcptLine@1017 : Record 5747;VAR TotalInvDiscAmtRemaining@1026 : Decimal;VAR TotalQtyRemaining@1024 : Decimal;VAR TotalLineDiscAmtRemaining@1025 : Decimal;VAR TotalLineAmtRemaining@1030 : Decimal);
   
         VAR
   
           TempItemLedgEntry@1016 : TEMPORARY Record 32;
   
           ItemTrackingMgt@1001 : Codeunit 6500;
   
           Factor@1023 : Decimal;
   ...
   

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

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
                 IF Factor < 1 THEN BEGIN
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Delete the following line.
                    AmountToAssign,QtyToAssign,0);
   
                   NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
   
                   NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                   NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   ...
   

   รหัสแทนที่ 2

   ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
   
                 IF Factor < 1 THEN BEGIN
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Add the following lines.
                    AmountToAssign,QtyToAssign,0,TotalInvDiscAmtRemaining,
   
                    TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
                   NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
   
                   NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
   
                   NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   ...
   

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

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Delete the following line.
                    NonDistrAmountToAssign,NonDistrQtyToAssign,0);
   
               UNTIL TempItemLedgEntry.NEXT = 0;
   
             END ELSE
   
               ERROR(Text042);
   
           END;
   ...
   

   รหัสแทนที่ 3

   ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
   
                 END ELSE // the last time
   
                   PostItemCharge(PurchLine,
   
                     TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
   
   // Add the following lines.
                    NonDistrAmountToAssign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
   
                    TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
   // End of the added lines.
   
               UNTIL TempItemLedgEntry.NEXT = 0;
   
             END ELSE
   
               ERROR(Text042);
   
           END;
   ...
   

10. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerSalesShptใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
    รหัสที่อยู่ 1

    ...ERROR(Text042);
    
            END;
    
          END;
    
    
    // Delete the following line.
         LOCAL PROCEDURE PostItemChargePerSalesShpt@41(PurchLine@1000 : Record 39);
    
          VAR
    
            SalesShptLine@1002 : Record 111;
    
            TempItemLedgEntry@1010 : TEMPORARY Record 32;
    
            ItemTrackingMgt@1009 : Codeunit 6500;
    ...
    

    รหัสแทนที่ 1

    ...ERROR(Text042);
    
            END;
    
          END;
    
    
    // Add the following line.
        LOCAL PROCEDURE PostItemChargePerSalesShpt@41(PurchLine@1000 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
    
          VAR
    
            SalesShptLine@1002 : Record 111;
    
            TempItemLedgEntry@1010 : TEMPORARY Record 32;
    
            ItemTrackingMgt@1009 : Codeunit 6500;
    ...
    

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

    ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
    
                  IF Factor < 1 THEN BEGIN
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Delete the following line.
                     AmountToAssign * Sign,QtyToAssign,0);
    
                    NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
    
                    NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
    
                    NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    ...
    

    รหัสแทนที่ 2

    ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
    
                  IF Factor < 1 THEN BEGIN
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Add the following lines.
                     AmountToAssign * Sign,QtyToAssign,0,TotalInvDiscAmtRemaining,
    
                     TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
    // End of the added lines.
    
                    NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
    
                    NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
    
                    NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    ...
    

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

    ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Delete the following line.
                     NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0);
    
                UNTIL TempItemLedgEntry.NEXT = 0;
    
              END ELSE
    
                ERROR(Text042)
    
            ELSE
    ...
    

    รหัสแทนที่ 3

    ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Add the following lines.
                     NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
    
                     TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
    // End of the added lines.
    
                UNTIL TempItemLedgEntry.NEXT = 0;
    
              END ELSE
    
                ERROR(Text042)
    
            ELSE
    ...
    

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

    ...ELSE
    
              PostItemCharge(PurchLine,
    
                SalesShptLine."Item Shpt. Entry No.",-SalesShptLine."Quantity (Base)",
    
                TempItemChargeAssgntPurch."Amount to Assign" * Sign,
    
    // Delete the following lines.
               TempItemChargeAssgntPurch."Qty. to Assign",0)
    
         END;
    
    
    
         PROCEDURE PostItemChargePerRetRcpt@37(PurchLine@1001 : Record 39);
    // End of the deleted lines.
    
          VAR
    
            ReturnRcptLine@1000 : Record 6661;
    
            TempItemLedgEntry@1011 : TEMPORARY Record 32;
    
            ItemTrackingMgt@1010 : Codeunit 6500;
    ...
    

    รหัสแทนที่ 4

    ...ELSE
    
              PostItemCharge(PurchLine,
    
                SalesShptLine."Item Shpt. Entry No.",-SalesShptLine."Quantity (Base)",
    
                TempItemChargeAssgntPurch."Amount to Assign" * Sign,
    
    // Add the following lines.
               TempItemChargeAssgntPurch."Qty. to Assign",0,TotalInvDiscAmtRemaining,
    
               TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
    
         END;
    
    
    
         PROCEDURE PostItemChargePerRetRcpt@37(PurchLine@1001 : Record 39;VAR TotalInvDiscAmtRemaining@1012 : Decimal;VAR TotalQtyRemaining@1013 : Decimal;VAR TotalLineDiscAmtRemaining@1014 : Decimal;VAR TotalLineAmtRemaining@1015 : Decimal);
    // End of the added lines.
    
          VAR
    
            ReturnRcptLine@1000 : Record 6661;
    
            TempItemLedgEntry@1011 : TEMPORARY Record 32;
    
            ItemTrackingMgt@1010 : Codeunit 6500;
    ...
    

11. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargePerRetRcptใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
    รหัสที่อยู่ 1

    ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
    
                  IF Factor < 1 THEN BEGIN
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Delete the following line.
                     AmountToAssign * Sign,QtyToAssign,0);
    
                    NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
    
                    NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
    
                    NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    ...
    

    รหัสแทนที่ 1

    ...AmountToAssign := ROUND(NonDistrAmountToAssign * Factor,GLSetup."Amount Rounding Precision");
    
                  IF Factor < 1 THEN BEGIN
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Add the following lines.
                     AmountToAssign * Sign,QtyToAssign,0,TotalInvDiscAmtRemaining,
    
                     TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
    // End of the added lines.
    
                    NonDistrQuantity := NonDistrQuantity - TempItemLedgEntry.Quantity;
    
                    NonDistrQtyToAssign := NonDistrQtyToAssign - QtyToAssign;
    
                    NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    ...
    

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

    ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Delete the following line.
                     NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0);
    
                UNTIL TempItemLedgEntry.NEXT = 0;
    
              END ELSE
    
                ERROR(Text042)
    
            ELSE
    ...
    

    รหัสแทนที่ 2

    ...NonDistrAmountToAssign := NonDistrAmountToAssign - AmountToAssign;
    
                  END ELSE // the last time
    
                    PostItemCharge(PurchLine,
    
                      TempItemLedgEntry."Entry No.",TempItemLedgEntry.Quantity,
    
    // Add the following lines.
                     NonDistrAmountToAssign * Sign,NonDistrQtyToAssign,0,TotalInvDiscAmtRemaining,
    
                     TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining);
    // End of the added lines.
    
                UNTIL TempItemLedgEntry.NEXT = 0;
    
              END ELSE
    
                ERROR(Text042)
    
            ELSE
    ...
    

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

    ...ELSE
    
              PostItemCharge(PurchLine,
    
                ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
    
                TempItemChargeAssgntPurch."Amount to Assign" * Sign,
    
    // Delete the following line.
               TempItemChargeAssgntPurch."Qty. to Assign",0)
    
          END;
    
    
    
          LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
    
          VAR
    ...
    

    รหัสแทนที่ 3

    ...ELSE
    
              PostItemCharge(PurchLine,
    
                ReturnRcptLine."Item Rcpt. Entry No.",ReturnRcptLine."Quantity (Base)",
    
                TempItemChargeAssgntPurch."Amount to Assign" * Sign,
    
    // Add the following lines.
               TempItemChargeAssgntPurch."Qty. to Assign",0,TotalInvDiscAmtRemaining,
    
               TotalQtyRemaining,TotalLineDiscAmtRemaining,TotalLineAmtRemaining)
    // End of the added lines.
    
          END;
    
    
    
          LOCAL PROCEDURE PostAssocItemJnlLine@3(QtyToBeShipped@1000 : Decimal;QtyToBeShippedBase@1001 : Decimal) : Integer;
    
          VAR
    ...
    

12. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันPostItemChargeใน thePurch ขึ้น-ลงรายการบัญชีโค้ดยูนิต (90) เป็นดังนี้:
    รหัสที่อยู่ 1

    ...TempValueEntryRelation.DELETEALL;
    
            END;
    
          END;
    
    
    // Delete the following line.
         LOCAL PROCEDURE PostItemCharge@42(PurchLine@1000 : Record 39;ItemEntryNo@1004 : Integer;QuantityBase@1005 : Decimal;AmountToAssign@1006 : Decimal;QtyToAssign@1007 : Decimal;IndirectCostPct@1008 : Decimal);
    
          VAR
    
            DummyTrackingSpecification@1001 : Record 336;
    
          BEGIN
    
            WITH TempItemChargeAssgntPurch DO BEGIN
    ...
    

    รหัสแทนที่ 1

    ...TempValueEntryRelation.DELETEALL;
    
            END;
    
          END;
    
    
    // Add the following line.
         LOCAL PROCEDURE PostItemCharge@42(PurchLine@1000 : Record 39;ItemEntryNo@1004 : Integer;QuantityBase@1005 : Decimal;AmountToAssign@1006 : Decimal;QtyToAssign@1007 : Decimal;IndirectCostPct@1008 : Decimal;VAR TotalInvDiscAmtRemaining@1009 : Decimal;VAR TotalQtyRemaining@1010 : Decimal;VAR TotalLineDiscAmtRemaining@1011 : Decimal;VAR TotalLineAmtRemaining@1012 : Decimal);
    
          VAR
    
            DummyTrackingSpecification@1001 : Record 336;
    
          BEGIN
    
            WITH TempItemChargeAssgntPurch DO BEGIN
    ...
    

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

    ...ROUND(
    
                  PurchLine.Amount / QuantityBase,GLSetup."Unit-Amount Rounding Precision");
    
    
    
              PurchLine."Inv. Discount Amount" := ROUND(
    
    // Delete the following lines.
                 PurchLine."Inv. Discount Amount" / PurchLine.Quantity * QtyToAssign,
    
                 GLSetup."Amount Rounding Precision");
    
    
    
             PurchLine."Line Discount Amount" := ROUND(
    
                 PurchLine."Line Discount Amount" / PurchLine.Quantity * QtyToAssign,
    
                 GLSetup."Amount Rounding Precision");
    // End of the deleted lines.
    
              PostItemJnlLine(
    
                PurchLine,
    
                0,0,
    
                QuantityBase,QuantityBase,
    ...
    

    รหัสแทนที่ 2

    ...ROUND(
    
                  PurchLine.Amount / QuantityBase,GLSetup."Unit-Amount Rounding Precision");
    
    
    
              PurchLine."Inv. Discount Amount" := ROUND(
    
    // Add the following lines.
                 TotalInvDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
    
                 GLSetup."Amount Rounding Precision");
    
    
    
             PurchLine."Line Discount Amount" := ROUND(
    
                 TotalLineDiscAmtRemaining / TotalQtyRemaining * QtyToAssign,
    
                 GLSetup."Amount Rounding Precision");
    
             PurchLine."Line Amount" := ROUND(
    
                 TotalLineAmtRemaining / TotalQtyRemaining * QtyToAssign,
    
                 GLSetup."Amount Rounding Precision");
    
             TotalInvDiscAmtRemaining := TotalInvDiscAmtRemaining - PurchLine."Inv. Discount Amount";
    
             TotalLineDiscAmtRemaining := TotalLineDiscAmtRemaining -  PurchLine."Line Discount Amount";
    
             TotalLineAmtRemaining := TotalLineAmtRemaining -  PurchLine."Line Amount";
    
             TotalQtyRemaining := TotalQtyRemaining - QtyToAssign;
    // End of the added lines.
    
    
              PostItemJnlLine(
    
                PurchLine,
    
                0,0,
    
                QuantityBase,QuantityBase,
    ...
    

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

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

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 SP1

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

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