รายงานภาษี VAT ของสเปน 349 ส่งออกยอดเงินในสกุลเงินที่ใช้ในเอกสารนี้แม้ว่าคุณใช้โปรแกรมแก้ไขด่วน 254942 ใน Microsoft Dynamics NAV

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

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

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

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

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

1. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันGetPostedCountryLocCodeเป็นดังนี้:
   รหัสที่อยู่ 1

   ...                            REPEAT
                                 IF SalesInvLines."Location Code" <> '' THEN BEGIN
                                   IF Location.GET(SalesInvLines."Location Code") THEN
                                     EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                   IF EUCountryLinesLocationCode THEN BEGIN
   
   // Delete the following line.
                                     AmountToIncludeIn349 := AmountToIncludeIn349 + SalesInvLines.Amount;
   
                                     IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                       LocationDifferentCountryCode := TRUE;
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
   ...
   
   

   รหัสแทนที่ 1

   ...                            REPEAT
                                 IF SalesInvLines."Location Code" <> '' THEN BEGIN
                                   IF Location.GET(SalesInvLines."Location Code") THEN
                                     EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                   IF EUCountryLinesLocationCode THEN BEGIN
   
   // Add the following lines.
                                     AmountToIncludeIn349 +=
                                       GetExportedAmountIn349(SalesInvHeader."Currency Code",
                                       SalesInvHeader."Currency Factor",SalesInvLines."Line Amount");
   // End of the lines.
   
                                     IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
                                       LocationDifferentCountryCode := TRUE;
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
   ...
   
   

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

   ...                                  TempSalesInvLines.INSERT;
                                   END;
                                 END ELSE
                                   IF CompInforShipToCountryCode THEN BEGIN
                                     EUCountryLinesLocationCode := TRUE;
   
   // Delete the following line.
                                     AmountToIncludeIn349 := AmountToIncludeIn349 + SalesInvLines.Amount;
   
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
                               UNTIL SalesInvLines.NEXT = 0;
                           END;
   ...
   
   

   รหัสแทนที่ 2

   ...                                  TempSalesInvLines.INSERT;
                                   END;
                                 END ELSE
                                   IF CompInforShipToCountryCode THEN BEGIN
                                     EUCountryLinesLocationCode := TRUE;
   
   // Add the following lines.
                                     AmountToIncludeIn349 +=
                                       GetExportedAmountIn349(SalesInvHeader."Currency Code",
                                       SalesInvHeader."Currency Factor",SalesInvLines."Line Amount");
   // End of the lines.
   
                                     TempSalesInvLines := SalesInvLines;
                                     TempSalesInvLines.INSERT;
                                   END;
                               UNTIL SalesInvLines.NEXT = 0;
                           END;
   ...
   
   

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

   ...                          REPEAT
                               IF PurchInvLines."Location Code" <> '' THEN BEGIN
                                 IF Location.GET(PurchInvLines."Location Code") THEN
                                   EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                 IF EUCountryLinesLocationCode THEN BEGIN
   
   // Delete the following line.
                                   AmountToIncludeIn349 := AmountToIncludeIn349 + PurchInvLines.Amount;
   
                                   IF GetCountryfromLocation(PurchInvLines."Location Code") <> CountryCode THEN
                                     LocationDifferentCountryCode := TRUE;
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
   ...
   

   รหัสแทนที่ 3

   ...                          REPEAT
                               IF PurchInvLines."Location Code" <> '' THEN BEGIN
                                 IF Location.GET(PurchInvLines."Location Code") THEN
                                   EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
                                 IF EUCountryLinesLocationCode THEN BEGIN
   
   // Add the following lines.
                                   AmountToIncludeIn349 +=
                                     GetExportedAmountIn349(PurchInvHeader."Currency Code",
                                     PurchInvHeader."Currency Factor",PurchInvLines."Line Amount");
   // End of the lines.
   
                                   IF GetCountryfromLocation(PurchInvLines."Location Code") <> CountryCode THEN
                                     LocationDifferentCountryCode := TRUE;
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
   ...
   
   

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

   ...                                TempPurchInvLines.INSERT;
                                 END;
                               END ELSE
                                 IF CompInforShipToCountryCode THEN BEGIN
                                   EUCountryLinesLocationCode := TRUE;
   
   // Delete the following line.
                                   AmountToIncludeIn349 := AmountToIncludeIn349 + PurchInvLines.Amount;
   
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
                             UNTIL PurchInvLines.NEXT = 0;
                         END;
   ...
   
   

   รหัสแทนที่ 4

   ...                                TempPurchInvLines.INSERT;
                                 END;
                               END ELSE
                                 IF CompInforShipToCountryCode THEN BEGIN
                                   EUCountryLinesLocationCode := TRUE;
   
   // Add the following lines.
                                   AmountToIncludeIn349 +=
                                     GetExportedAmountIn349(PurchInvHeader."Currency Code",
                                     PurchInvHeader."Currency Factor",PurchInvLines."Line Amount");
   // End of the lines.
   
                                   TempPurchInvLines := PurchInvLines;
                                   TempPurchInvLines.INSERT;
                                 END;
                             UNTIL PurchInvLines.NEXT = 0;
                         END;
   ...
   
   

2. เปลี่ยนแปลงรหัสนี้ในฟังก์ชันGetExportedAmountIn349เป็นดังนี้:
   รหัสที่มีอยู่

   ...      BEGIN
           IF DeliveryOperationCode = DeliveryOperationCode::" " THEN
             DeliveryOperationCode := DeliveryOperationCode::E;
         END;
   
         BEGIN
         END.
       }
       RDLDATA
       {
   ...
   
   

   รหัสแทน

   ...      BEGIN
           IF DeliveryOperationCode = DeliveryOperationCode::" " THEN
             DeliveryOperationCode := DeliveryOperationCode::E;
         END;
   
   // Add the following lines.  
         LOCAL PROCEDURE GetExportedAmountIn349@1100014(CurrencyCode@1100008 : Code[20];CurrencyFactor@1100009 : Decimal;LineAmount@1100010 : Decimal) : Decimal;
         VAR
           Currency@1100001 : Record 4;
         BEGIN
           IF CurrencyCode <> '' THEN BEGIN
             Currency.GET(CurrencyCode);
             EXIT(ROUND(LineAmount / CurrencyFactor,Currency."Amount Rounding Precision"))
           END;
           EXIT(LineAmount);
         END;
   
   // End of the lines.
   
         BEGIN
         END.
       }
       RDLDATA
       {
   ...