يصدر إقرار ضريبة القيمة المضافة الإسبانية 349 المبالغ بالعملة المستخدمة في المستند حتى لو قمت بتطبيق الإصلاح العاجل 254942 في Microsoft Dynamics التنقل

معلومات الإصلاح العاجل

الآن يتوفر إصلاح عاجل معتمد من Microsoft. ومع ذلك، هو فقط لتصحيح المشكلة الموضحة في هذه المقالة. تطبيقها فقط على الأنظمة التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح العاجل. ولذلك، إذا لم يكن تأثير المشكلة كبيرا، نوصي بالانتظار حتى الإصدار التالي من حزمة الخدمة ل Microsoft Dynamics NAV 2013 أو الإصدار Microsoft Dynamics التنقل التالي الذي يحتوي على هذا الإصلاح العاجل.

ملاحظة: في بعض الحالات، يحدد المصروفات التي تحتسب عادة لدعم قد يتم إلغاء المكالمات إذا "أخصائي الدعم التقني" ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثًا معيناً سوف يعمل على حل المشكلة. سيتم اضافة تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشاكل التي لا يأهل على حلها للتحديث المطلوب.

تغييرات التعليمات البرمجية

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.
لحل هذه المشكلة، تغيير التعليمات البرمجية في تقرير إجراء الإقرار 349 (10710). للقيام بذلك، اتبع الخطوات التالية:

1. تغيير التعليمات البرمجية في وظيفة جيتبوستيدكونتريلوككودي كما يلي:
   التعليمات البرمجية الموجودة 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
       {
   ...