Bahasa Spanyol 349 PPN Deklarasi ekspor jumlah mata uang yang digunakan dalam dokumen meskipun Anda menerapkan perbaikan terbaru 254942 di Microsoft Dynamics NAV

Informasi Hotfix

Sekarang tersedia hotfix yang didukung dari Microsoft. Namun, hanya ditujukan untuk memperbaiki masalah yang dijelaskan di artikel ini. Terapkan hanya ke sistem yang mengalami masalah khusus ini. Perbaikan terbaru ini dapat menerima pengujian tambahan. Oleh karena itu, jika Anda tidak terlalu dipengaruhi oleh masalah ini, kami sarankan Anda menunggu paket layanan Microsoft Dynamics NAV 2013 atau versi Microsoft Dynamics NAV berikutnya yang berisi perbaikan terbaru ini.

Catatan Dalam kasus tertentu, biaya yang biasanya diadakan untuk panggilan mungkin dibatalkan apabila profesional dukungan teknis untuk Microsoft Dynamics dan produk-produk terkait dukungan menentukan bahwa pembaruan khusus akan memecahkan masalah Anda. Biaya dukungan biasa akan berlaku untuk pertanyaan dan masalah yang tidak termasuk pada pembaruan tertentu yang dimaksud dukungan tambahan.

Perubahan kode

Catatan Selalu menguji kode perbaikan di lingkungan yang dikontrol sebelum menerapkan perbaikan untuk komputer produksi.
Untuk menyelesaikan masalah ini, Ubah kode di membuat 349 Deklarasi laporan (10710). Untuk melakukannya, ikuti langkah-langkah berikut:

1. Ubah kode di fungsi GetPostedCountryLocCode sebagai berikut:
   Kode yang ada 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;
   ...
   
   

   Penggantian kode 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;
   ...
   
   

   Kode yang ada 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;
   ...
   
   

   Penggantian kode 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;
   ...
   
   

   Kode yang ada 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;
   ...
   

   Penggantian kode 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;
   ...
   
   

   Ada kode 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;
   ...
   
   

   Penggantian kode 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. Ubah kode di fungsi GetExportedAmountIn349 sebagai berikut:
   Kode yang ada

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

   Penggantian kode

   ...      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
       {
   ...