يتم إعادة حساب ضريبة القيمة المضافة في إحصائيات الشراء بعد إجراء تغيير عند فتح النموذج إحصائيات أو الصفحة في Microsoft Dynamics NAV 2009

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

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

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

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

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

1. تغيير التعليمات البرمجية في وظيفة أوبداتيفاتامونتس في الجدول "بند المبيعات" (37) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           SalesLine2@1000 : Record 37;
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   استبدال رمز 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           SalesLine2@1000 : Record 37;
   
   // Add the following line.
          CustPostingGr@1009 : Record 92;
   // End of the added line.
   
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   التعليمات البرمجية الموجودة 2

   ...SalesLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               SalesLine2.SETFILTER(Amount,'<%1',0);
           SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
           SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   استبدال رمز 2

   ...SalesLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               SalesLine2.SETFILTER(Amount,'<%1',0);
           SalesLine2.SETRANGE("VAT Identifier","VAT Identifier");
           SalesLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
   // Add the following line.
          CustPostingGr.GET(SalesHeader."Customer Posting Group");
   // End of the added line.
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   التعليمات البرمجية الموجودة 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Delete the following line.
            IF "Line No." <> 0 THEN
   // End of the deleted line.
   
               IF MODIFY THEN
                 IF SalesLine2.FINDLAST THEN BEGIN
                   SalesLine2.UpdateAmounts;
                   SalesLine2.MODIFY;
                 END;
   ...
   

   استبدال رمز 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Add the following line.
            IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = CustPostingGr."Service Charge Acc.")) THEN
   // End of the added line.
   
               IF MODIFY THEN
                 IF SalesLine2.FINDLAST THEN BEGIN
                   SalesLine2.UpdateAmounts;
                   SalesLine2.MODIFY;
                 END;
   ...
   

2. تغيير التعليمات البرمجية في وظيفة أوبداتيفاتامونتس في الجدول "بند الشراء" (39) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           PurchLine2@1000 : Record 39;
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   استبدال رمز 1

   ...END;
   
         LOCAL PROCEDURE UpdateVATAmounts@38();
         VAR
           PurchLine2@1000 : Record 39;
   
   // Add the following line.
          VendPostingGr@1009 : Record 93;
   // End of the added line.
   
           TotalLineAmount@1005 : Decimal;
           TotalInvDiscAmount@1004 : Decimal;
           TotalAmount@1001 : Decimal;
           TotalAmountInclVAT@1002 : Decimal;
           TotalQuantityBase@1003 : Decimal;
   ...
   

   التعليمات البرمجية الموجودة 2

   ...PurchLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               PurchLine2.SETFILTER(Amount,'<%1',0);
           PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
           PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   استبدال رمز 2

   ...PurchLine2.SETFILTER(Amount,'>%1',0)
             ELSE
               PurchLine2.SETFILTER(Amount,'<%1',0);
           PurchLine2.SETRANGE("VAT Identifier","VAT Identifier");
           PurchLine2.SETRANGE("Tax Group Code","Tax Group Code");
   
   // Add the following line.
          VendPostingGr.GET(PurchHeader."Vendor Posting Group");
   // End of the added line.
   
           IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   ...
   

   التعليمات البرمجية الموجودة 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Delete the following line.
            IF "Line No." <> 0 THEN
   // End of the deleted line.
   
               IF MODIFY THEN
                 IF PurchLine2.FINDLAST THEN BEGIN
                   PurchLine2.UpdateAmounts;
                   PurchLine2.MODIFY;
                 END;
   ...
   

   استبدال رمز 3

   ...IF "Line Amount" = "Inv. Discount Amount" THEN BEGIN
             Amount := 0;
             "VAT Base Amount" := 0;
             "Amount Including VAT" := 0;
   
   // Add the following line.
            IF ("Line No." <> 0) AND NOT ((Type = Type::"G/L Account") AND ("No." = VendPostingGr."Service Charge Acc.")) THEN
   // End of the added line.
   
               IF MODIFY THEN
                 IF PurchLine2.FINDLAST THEN BEGIN
                   PurchLine2.UpdateAmounts;
                   PurchLine2.MODIFY;
                 END;
   ...