รายงานงบภาษี VAT ไม่พิมพ์ข้อมูลที่ถูกต้องใน Microsoft Dynamics NAV 2009 รุ่นโปรตุเกส

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

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

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

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

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

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันCalcVendorsRelationในรายงานงบ VAT (PT) (13398) เป็นดังนี้:
   รหัสที่มีอยู่

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Delete the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                  VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

   รหัสแทน

   ...          VendEntries.FINDFIRST
           ELSE
             VendEntries.NEXT;
   
           IF VendEntries.Base <> 0 THEN BEGIN
   
   // Add the following lines.
              IF STRPOS(CountryUE,VendEntries."Country/Region Code") = 0 THEN BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  VendEntries."Country/Region Code" := 'RC';
                VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                  VendorsRelation.Number,'','',VendEntries."VAT Registration No.",
                  VendEntries."Document Date",VendEntries.Base,VendEntries.Amount)
              END ELSE BEGIN
                IF VendEntries."VAT Calculation Type" = VendEntries."VAT Calculation Type"::"Reverse Charge VAT" THEN
                  IF VendEntries."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VendEntries."Country/Region Code" := 'RC';
   // End of the lines.
   
               VATRepBuffer.InsertVATPerDeclAnnexVEDetail(VRDeclType,VRDeclYear,VRDeclMonth,VRDeclQuarter,
                 VendorsRelation.Number,VendEntries."Country/Region Code",VendEntries."VAT Registration No.",'',
                 VendEntries."Document Date",VendEntries.Base,VendEntries.Amount);
             END;
               VRRegistersNumber := VRRegistersNumber + 1;
   ...
   
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันInsertCertificateNoในรายงานงบ VAT (PT) (13398) เป็นดังนี้:
   รหัสที่มีอยู่

   ...            IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Delete the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                  IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                    IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                    VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...
   
   

   รหัสแทน

   ...          REPEAT
               IF VATEntry.Type = VATEntry.Type::Sale THEN
                 IF SalesInvHeader.GET(VATEntry."Document No.") THEN
                   VATEntry."VAT Registration No." := SalesInvHeader."Certificate Export No.";
               IF VATEntry.Type = VATEntry.Type::Purchase THEN BEGIN
   
   // Add the following lines.
                  IF STRPOS(CountryUE,VATEntry."Country/Region Code") = 0 THEN BEGIN
                    IF PurchInvHeader.GET(VATEntry."Document No.") THEN
                      VATEntry."VAT Registration No." := PurchInvHeader."Certificate Import No.";
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
                  END ELSE
                    IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Reverse Charge VAT" THEN
                      IF VATEntry."Country/Region Code" = CompanyInfo."Country/Region Code" THEN
                        VATEntry."VAT Registration No." := CompanyInfo."VAT Registration No.";
   // End of the lines.
   
               END;
               VATEntry.MODIFY;
             UNTIL VATEntry.NEXT = 0;
           END;
         END;
   ...