ผลรวมของผลรวมสำหรับแต่ละบริษัทในเครือถ้าคุณใช้ 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. เปลี่ยนรหัสในรายงานงบภาษี VAT ที่แสดงรายการ (14522) เป็นดังนี้:
   รหัสที่มีอยู่

   ...PartnerId := PartnerBuffer."Partner ID";
   PartnerVatId := PartnerBuffer."VAT Registration No.";
   PartnerName := GetPartnerName(PartnerType,PartnerId);
   
   Buffer.RESET;
   SetBufferFilters(PartnerType,PartnerId,PartnerVatId);
   ...
   

   รหัสแทน

   ...PartnerId := PartnerBuffer."Partner ID";
   PartnerVatId := PartnerBuffer."VAT Registration No.";
   PartnerName := GetPartnerName(PartnerType,PartnerId);
   
   // Add the following line.
   PartnerBufferIsSet := TRUE;
   // End of the added line.
   
   Buffer.RESET;
   SetBufferFilters(PartnerType,PartnerId,PartnerVatId);
   ...
   

2. เปลี่ยนแปลงรหัสนี้ในตัวแปรส่วนกลางในรายงานงบภาษี VAT ที่แสดงรายการ (14522) เป็นดังนี้:
   รหัสที่อยู่ 1

   ...VAR
   CompanyInfo@1170000002 : Record 79;
   Buffer@1170000007 : TEMPORARY Record 14550;
   PartnerBuffer@1170000008 : TEMPORARY Record 14551;
   PartnerName@1170000012 : Text[250];
   PartnerVatId@1170000013 : Text[30];
   ...
   

   รหัสแทนที่ 1

   ...VAR
   CompanyInfo@1170000002 : Record 79;
   Buffer@1170000007 : TEMPORARY Record 14550;
   
   // Add the following line.
   TempBuffer@1170000059 : TEMPORARY Record 14550;
   // End of the added line.
   
   PartnerBuffer@1170000008 : TEMPORARY Record 14551;
   PartnerName@1170000012 : Text[250];
   PartnerVatId@1170000013 : Text[30];
   ...
   

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

   ...VatAmount6@1170000050 : Decimal;
   TotalOf1365Mline@1170000057 : TextConst 'ENU=Total of %1 line %2';
   TotalOf1365M@1170000058 : TextConst 'ENU=Total of %1';
   
   PROCEDURE SetBuffer@1170000000(VAR Buff@1170000000 : Record 14550;StartPeriod@1170000001 : Date;EndPeriod@1170000002 : Date;VATThresholdAmt@1170000003 : Decimal);
   BEGIN
   ...
   

   รหัสแทนที่ 2

   ...VatAmount6@1170000050 : Decimal;
   TotalOf1365Mline@1170000057 : TextConst 'ENU=Total of %1 line %2';
   TotalOf1365M@1170000058 : TextConst 'ENU=Total of %1';
   
   // Add the following line.
   PartnerBufferIsSet@1170000056 : Boolean;
   // End of the added line.
   
   PROCEDURE SetBuffer@1170000000(VAR Buff@1170000000 : Record 14550;StartPeriod@1170000001 : Date;EndPeriod@1170000002 : Date;VATThresholdAmt@1170000003 : Decimal);
   BEGIN
   ...
   

3. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalcPartnerTotalsในรายงานงบภาษี VAT ที่แสดงรายการ (14522) เป็นดังนี้:
   รหัสที่มีอยู่

   ... LOCAL PROCEDURE CalcPartnerTotals@1170000006(VAR Buff@1170000003 : Record 14550;VAR NumInvoices@1170000001 : Integer;VAR VatBase@1170000002 : Decimal;VAR VatAmount@1170000004 : Decimal);
       BEGIN
   
   // Delete the following lines.
   NumInvoices := Buff.COUNT;
   IF Buff.FINDSET THEN
   REPEAT
   VatBase += ConvertToThousands(Buff."VAT Base");
   VatAmount += ConvertToThousands(Buff."VAT Amount");
   UNTIL Buff.NEXT = 0;
   END;
   
   LOCAL PROCEDURE CalcAllTotals@1170000015();
   // End of the deleted lines.
   ...
   

   รหัสแทน

   ...LOCAL PROCEDURE CalcPartnerTotals@1170000006(VAR Buff@1170000003 : Record 14550;VAR NumInvoices@1170000001 : Integer;VAR VatBase@1170000002 : Decimal;VAR VatAmount@1170000004 : Decimal);
   BEGIN
   
   // Add the following lines.
   VatBase := 0;
   VatAmount := 0;
   NumInvoices := Buff.COUNT;
   IF Buff.FINDSET THEN BEGIN
   IF Buff."1365M" THEN BEGIN
   IF PartnerBufferIsSet THEN BEGIN
   Buff.CALCSUMS("VAT Base", "VAT Amount");
   VatBase := ConvertToThousands(Buff."VAT Base");
   VatAmount := ConvertToThousands(Buff."VAT Amount");
   END ELSE BEGIN
   REPEAT
   VatAmount += CalcPartnerSubTotal(Buff."VAT Registration No.");
   UNTIL Buff.NEXT = 0;
   END;
   END ELSE
   REPEAT
   VatBase += ConvertToThousands(Buff."VAT Base");
   VatAmount += ConvertToThousands(Buff."VAT Amount");
   UNTIL Buff.NEXT = 0;
   END;
   END;
   
   LOCAL PROCEDURE CalcPartnerSubTotal@1170000004(VATRegNo@1170000000 : Text[20]) VatAmount : Decimal;
   VAR
   Buffer2@1170000001 : Record 14550;
   EntryNo@1170000002 : Integer;
   BEGIN
   TempBuffer.RESET;
   TempBuffer.SETRANGE("VAT Registration No.",VATRegNo);
   IF NOT TempBuffer.FINDFIRST THEN BEGIN
   EntryNo := 0;
   TempBuffer.RESET;
   IF TempBuffer.FINDLAST THEN
   EntryNo := TempBuffer.EntryNo + 1;
   
   TempBuffer.INIT;
   TempBuffer.EntryNo := EntryNo;
   TempBuffer."VAT Registration No." := VATRegNo;
   TempBuffer.INSERT;
   
   Buffer2.RESET;
   Buffer2.SETRANGE("1365M-01");
   Buffer2.SETRANGE("1365M-01K");
   Buffer2.SETRANGE("1365M-02");
   Buffer2.SETRANGE("1365M-02K");
   Buffer2.SETRANGE("1365M",TRUE);
   Buffer2.SETRANGE("K-Correction Type");
   Buffer2.SETRANGE("VAT Registration No.",VATRegNo);
   IF Buffer2.FINDSET THEN
   REPEAT
   VatAmount += Buffer2."VAT Amount";
   UNTIL Buffer2.NEXT = 0;
   EXIT(ConvertToThousands(VatAmount));
   END;
   END;
   
       LOCAL PROCEDURE CalcAllTotals@1170000015();
   // End of the added lines.
   ...
   
   

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

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

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

นอกจากนี้ คุณต้องมีKB2982157และMSDNAV2009R2ItemizedVAtHungaryที่ติดตั้งอยู่

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

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