ราคาต่อหน่วยที่ไม่ถูกต้องหลังจากมีการเปลี่ยนแปลงราคา inc. VAT ใน Microsoft Dynamics NAV 2009 R2 รุ่นฮังการี

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

โปรแกรมแก้ไขด่วนจะพร้อมใช้งานได้ในขณะนี้จาก 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. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันUpdateVATAmountsในการแก้ไขตารางบรรทัดการขาย (14536) เป็นดังนี้:
   รหัสที่มีอยู่

   ...Amount * (1 - SalesHeader."VAT Base Discount %" / 100),
   Currency."Amount Rounding Precision");
   "Amount Including VAT" :=
   ROUND(
   Amount * (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100,
   Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
   END;
   "VAT Calculation Type"::"Full VAT":
   BEGIN
   ...
   

   รหัสแทน

   ...Amount * (1 - SalesHeader."VAT Base Discount %" / 100),
   Currency."Amount Rounding Precision");
   "Amount Including VAT" :=
   
   // Add the following line.
   Amount +
   // End of the added line.
   
   ROUND(
   Amount * (1 - SalesHeader."VAT Base Discount %" / 100) * "VAT %" / 100,
   Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
   END;
   "VAT Calculation Type"::"Full VAT":
   BEGIN
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCheckLineAmountในการแก้ไขตารางบรรทัดการขาย (14536) เป็นดังนี้:
   รหัสที่อยู่ 1

   ..."Unit Price Incl. Discount" := "Unit Price" - "Unit Price" * "Line Discount %" / 100;
   END;
   
   // Delete the following line.
   PROCEDURE CheckLineAmount@1360000();
   // End of the deleted line.
   
   BEGIN
   // PS16433.begin
   IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
   ...
   

   รหัสแทนที่ 1

   ..."Unit Price Incl. Discount" := "Unit Price" - "Unit Price" * "Line Discount %" / 100;
       END;
   
   // Add the following lines.
   PROCEDURE CheckLineAmount@1170219();
   VAR      
   SalesinvHeader@1170001 : Record 112;
   // End of the added lines.
   
   BEGIN
   // PS16433.begin
   IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
   ...
   

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

   ...// PS16433.begin
   IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
   SalesCorrLine.GET("Document Type","Document No.","Correction Line No.","Before/ After correction"::Before);
   GetCorrType;
   IF (SalesCorrLine."Line Amount" > "Line Amount") AND
   ("Document Type" = "Document Type"::Invoice) AND
   (SalesCorrectionType."Correction Type" = SalesCorrectionType."Correction Type"::"Quantity and Value")
   THEN
   ...
   

   รหัสแทนที่ 2

   ... // PS16433.begin
   IF "Before/ After correction" = "Before/ After correction"::After THEN BEGIN
   SalesCorrLine.GET("Document Type","Document No.","Correction Line No.","Before/ After correction"::Before);
   
   // Add the following line.
   SalesinvHeader.GET(SalesHeader."Corr. Document No.");
   // End of the added line.
   
   GetCorrType;
   IF (SalesCorrLine."Line Amount" > "Line Amount") AND
   
   // Add the following line.
   (SalesHeader."Prices Including VAT" = SalesinvHeader."Prices Including VAT") AND
   // End of the added line.
   
   ("Document Type" = "Document Type"::Invoice) AND
   (SalesCorrectionType."Correction Type" = SalesCorrectionType."Correction Type"::"Quantity and Value")
   THEN
   ...
   

3. เปลี่ยนรหัสในข้อมูล 5 หมายเลขของสินค้าในการขาย - รายงานใบแจ้งหนี้ (HU) (14516) เป็นดังนี้:
   รหัสที่มีอยู่

   ...DataItemTable=Table14537;
   DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
   WHERE(Before/ After correction=FILTER(Before),
   Document Type=CONST(Posted Invoice));
   DataItemVarName=PostedSalesCorrLineBefore;
   DataItemLinkReference=Sales Invoice Header;
   DataItemLink=Document No.=FIELD(No.);
   }
   SECTIONS
   {
   ...
   

   รหัสแทน

   ...DataItemTable=Table14537;
   DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
   WHERE(Before/ After correction=FILTER(Before),
   Document Type=CONST(Posted Invoice));
   DataItemVarName=PostedSalesCorrLineBefore;
   
   // Add the following lines.
   OnAfterGetRecord=BEGIN
   IF SalesInvHeader.GET("Sales Invoice Header"."Corr. Document No.") THEN
   IF SalesInvHeader."Prices Including VAT" <> "Sales Invoice Header"."Prices Including VAT" THEN
   "Unit Price Incl. Discount" := "VAT Base Amount" / Quantity;
   END;
   
   // End of the added lines.
   
   DataItemLinkReference=Sales Invoice Header;
   DataItemLink=Document No.=FIELD(No.);
   }
   SECTIONS
   {
   ...
   

4. เปลี่ยนรหัสในข้อมูล 6 หมายเลขของสินค้าในการขาย - รายงานใบแจ้งหนี้ (HU) (14516) เป็นดังนี้:
   รหัสที่มีอยู่

   ...DataItemTable=Table14537;
   DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
   WHERE(Before/ After correction=FILTER(After),
   Document Type=CONST(Posted Invoice));
   DataItemVarName=PostedSalesCorrLineAfter;
   DataItemLinkReference=PostedSalesCorrLineBefore;
   DataItemLink=Document No.=FIELD(Document No.),
   Correction Line No.=FIELD(Correction Line No.);
   }
   SECTIONS
   ...
   

   รหัสแทน

   ...DataItemTable=Table14537;
   DataItemTableView=SORTING(Document No.,Correction Line No.,Before/ After correction,Document Type)
   WHERE(Before/ After correction=FILTER(After),
   Document Type=CONST(Posted Invoice));
   DataItemVarName=PostedSalesCorrLineAfter;
   
   // Add the following lines.
   OnAfterGetRecord=BEGIN
   IF SalesInvHeader."Prices Including VAT" <> "Sales Invoice Header"."Prices Including VAT" THEN
   "Unit Price Incl. Discount" := "VAT Base Amount" / Quantity;
   END;
   
   // End of the added lines.
   
   DataItemLinkReference=PostedSalesCorrLineBefore;
   DataItemLink=Document No.=FIELD(Document No.),
   Correction Line No.=FIELD(Correction Line No.);
   }
   SECTIONS
   ...
   

5. เปลี่ยนแปลงรหัสนี้ในตัวแปรส่วนกลางในการขาย - รายงานใบแจ้งหนี้ (HU) (14516) เป็นดังนี้:
   รหัสที่มีอยู่

   ...VALExchRate@1360016 : Text[50];
   Text14530@1360017 : TextConst 'ENU=%1/%2;HUN=%1/%2';
   GroupVATText@13600018 : Text[30];
   CorrInvText@1360018 : TextConst 'ENU=C O R R E C T I V E  I N V O I C E;HUN=H E L Y E S B Ö T Š  S Z µ M L A';
   LogInteractionEnable@19003940 : Boolean INDATASET;
   
   PROCEDURE InitLogInteraction@1360000();
   BEGIN
   LogInteraction := SegManagement.FindInteractTmplCode(4) <> '';
   END;
   ...
   

   รหัสแทน

   ...VALExchRate@1360016 : Text[50];
   Text14530@1360017 : TextConst 'ENU=%1/%2;HUN=%1/%2';
   GroupVATText@13600018 : Text[30];
   CorrInvText@1360018 : TextConst 'ENU=C O R R E C T I V E  I N V O I C E;HUN=H E L Y E S B Ö T Š  S Z µ M L A';
   LogInteractionEnable@19003940 : Boolean INDATASET;
   
   // Add the following line.
   SalesInvHeader@13600019 : Record 112;
   // End of the added line.
   
   PROCEDURE InitLogInteraction@1360000();
   BEGIN
   LogInteraction := SegManagement.FindInteractTmplCode(4) <> '';
   END;
   ...
   

6. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInitSalesLineOnChargeในโค้ดยูนิต VATCorrectionManagement (14535) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...SalesLine.INSERT;
   CopyDim(SalesLine,SalesCorrLine);
   END;
   
   PROCEDURE InitSalesLineOnCharge@1360001(VAR SalesLine@1360000 : Record 37;SalesCorrLine@1360001 : Record 14536;QtyOnSalesLine@1360002 : Decimal);
   BEGIN
   InitSalesLine(SalesCorrLine,SalesLine);
   SalesLine.Type := SalesLine.Type::"Charge (Item)";
   SalesLine."No." := SalesCorrType."Item Charge Code";
   SalesLine.VALIDATE("Unit of Measure Code",'');
   ...
   

   รหัสแทนที่ 1

   ...SalesLine.INSERT;
   CopyDim(SalesLine,SalesCorrLine);
   END;
   
   PROCEDURE InitSalesLineOnCharge@1360001(VAR SalesLine@1360000 : Record 37;SalesCorrLine@1360001 : Record 14536;QtyOnSalesLine@1360002 : Decimal);
   
   // Add the following lines.
   VAR
   SalesInvHeader@1360003 : Record 112;
   // End of the added lines.
   
   BEGIN
   InitSalesLine(SalesCorrLine,SalesLine);
   SalesLine.Type := SalesLine.Type::"Charge (Item)";
   SalesLine."No." := SalesCorrType."Item Charge Code";
   SalesLine.VALIDATE("Unit of Measure Code",'');
   ...
   

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

   ...InitSalesLine(SalesCorrLine,SalesLine);
   SalesLine.Type := SalesLine.Type::"Charge (Item)";
   SalesLine."No." := SalesCorrType."Item Charge Code";
   SalesLine.VALIDATE("Unit of Measure Code",'');
   SalesLine.VALIDATE(Quantity,QtyOnSalesLine);
   SalesLine.VALIDATE("Unit Price",SalesCorrLine."Unit Price");
   IF SalesLine.Quantity <> 0 THEN
   SalesLine.VALIDATE("Line Discount %",SalesCorrLine."Line Discount %");
   SalesLine.UpdateAmounts;
   SalesLine.VALIDATE("Unit Cost (LCY)",0);
   ...
   

   รหัสแทนที่ 2

   ...InitSalesLine(SalesCorrLine,SalesLine);
   SalesLine.Type := SalesLine.Type::"Charge (Item)";
   SalesLine."No." := SalesCorrType."Item Charge Code";
   SalesLine.VALIDATE("Unit of Measure Code",'');
   SalesLine.VALIDATE(Quantity,QtyOnSalesLine);
   
   // Add the following lines.
   IF (SalesCorrLine."Before/ After correction" = SalesCorrLine."Before/ After correction"::Before) AND
   (SalesInvHeader.GET(SalesCorrLine."Source Document No.")) AND
   (SalesHeader."Prices Including VAT" <> SalesInvHeader."Prices Including VAT")
   THEN BEGIN
   IF SalesHeader."Prices Including VAT" THEN
   SalesLine.VALIDATE("Unit Price",SalesCorrLine."Amount Including VAT" / SalesCorrLine.Quantity)
   ELSE
   SalesLine.VALIDATE("Unit Price",SalesCorrLine."VAT Base Amount" / SalesCorrLine.Quantity);
   END ELSE
   // End of the added lines.
   
   SalesLine.VALIDATE("Unit Price",SalesCorrLine."Unit Price");
   IF SalesLine.Quantity <> 0 THEN
   SalesLine.VALIDATE("Line Discount %",SalesCorrLine."Line Discount %");
   SalesLine.UpdateAmounts;
   SalesLine.VALIDATE("Unit Cost (LCY)",0);
   ...
   
   
   

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

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

• Microsoft Dynamics NAV 2009 R2 รุ่นฮังการี

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

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