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

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

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

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

معلومات التثبيت

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

ملاحظة: قبل تثبيت هذا الإصلاح العاجل، تأكد من تسجيل خروج النظام كافة المستخدمين عميل Microsoft Dynamics التنقل. ويشمل ذلك خدمات Microsoft Dynamics NAV تطبيق الملقم (NAS). يجب أن يكون عميل فقط المستخدم الذي تم تسجيل دخوله عند تطبيق هذا الإصلاح العاجل.

لتطبيق هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.

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

• إذن "تعديل" للكائن الذي سيتم تغيير.

• إذن Execute للكائن 5210 معرف كائن النظام و نظام 9015 معرف الكائن
  
  الكائن.

ملاحظة: ليس لديك حق لمخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

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

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

لحل هذه المشكلة، اتبع الخطوات التالية.

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

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   استبدال رمز 1

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   استبدال رمز 2

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   استبدال التعليمات البرمجية

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ..."VAT Base Amount" := NewVATBaseAmount;
   
   // Delete the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   استبدال التعليمات البرمجية

   ..."VAT Base Amount" := NewVATBaseAmount;
   
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.CalcVATToReport(SalesHeader,"VAT Base","VAT Amount" - "VAT Difference",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

   استبدال التعليمات البرمجية

   ...
   // Add the following line.
   CalcVATToReport(SalesHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
   ...
   

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

   ...
   // Delete the following line.
   PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
   // End of the deleted line.
   
   BEGIN
   ...
   

   استبدال رمز 1

   ...
   // Add the following lines.
   PROCEDURE CalcVATToReport@1360001(SalesHeader@1360000 : Record 36;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360005 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal);
   VAR
   AmountLCY@1360006 : Decimal;
   AmtInclVATLCY@1360007 : Decimal;
   // End of the added lines.
   
   BEGIN
   ...
   

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

   ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   
   // Delete the following lines.
   VATAmountToReport :=
   ROUND(VATAmount / SalesHeader."VAT Currency Factor");
   END ELSE BEGIN
   VATBaseAmountToReport := VATBaseAmount;
   VATAmountToReport := VATAmount;
   // End of the deleted lines.
   
   END;
   ...
   

   استبدال رمز 2

   ...ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   
   // Add the following lines.
   AmountLCY :=
   ROUND(VATBaseAmount / SalesHeader."VAT Currency Factor");
   AmtInclVATLCY :=
   ROUND(AmtInclVAT / SalesHeader."VAT Currency Factor");
   VATAmountToReport :=
   AmtInclVATLCY - AmountLCY;
   END ELSE BEGIN
   VATBaseAmountToReport := VATBaseAmount;
   VATAmountToReport := AmtInclVAT - VATBaseAmount;
   // End of the added lines.
   
   END;
   ...
   

6. تغيير التعليمات البرمجية في الحقول الموجودة في الجدول "بند الشراء" (39) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   استبدال رمز 1

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   استبدال رمز 2

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   استبدال التعليمات البرمجية

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...END;
   
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   استبدال التعليمات البرمجية

   ...END;
   
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base Amount","Amount Including VAT",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

   ...
   // Delete the following line.
   CalcVATToReport(PurchHeader,"VAT Base","VAT Amount" - "VAT Difference",
   // End of the deleted line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

   استبدال التعليمات البرمجية

   ...
   // Add the following line.
   CalcVATToReport(PurchHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
   // End of the added line.
   
   "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)","VAT % (Non Deductible)");
   ...
   

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

    ...
    // Delete the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    BEGIN
    NonDeductableVATAmount := VATAmount * NonDeductableVATPct / 100;
    // End of the deleted lines.
    
    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...
    

    استبدال رمز 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(PurchHeader@1360000 : Record 38;VATBaseAmount@1360001 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360003 : Decimal;VAR VATAmountToReport@1360004 : Decimal;NonDeductableVATPct@1360005 : Decimal);
    VAR
    NonDeductableVATAmount@1360006 : Decimal;
    AmountLCY@1360008 : Decimal;
    AmtInclVATLCY@1360009 : Decimal;
    BEGIN
    NonDeductableVATAmount := (AmtInclVAT - VATBaseAmount) * NonDeductableVATPct / 100;
    // End of the added lines.
    
    IF PurchHeader."Currency Code" <> '' THEN BEGIN
    ...
    

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

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    
    // Delete the following lines.
    VATAmountToReport :=
    ROUND((VATAmount - NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := VATAmount - ROUND(NonDeductableVATAmount);
    // End of the deleted lines.
    
    END
    ...
    

    استبدال رمز 2

    ...ROUND((VATBaseAmount + NonDeductableVATAmount) / PurchHeader."VAT Currency Factor");
    
    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / PurchHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / PurchHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY - ROUND(NonDeductableVATAmount / PurchHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount + ROUND(NonDeductableVATAmount);
    VATAmountToReport := AmtInclVAT - VATBaseAmount - ROUND(NonDeductableVATAmount);
    // End of the added lines.
    
    END
    ...
    

11. تغيير التعليمات البرمجية في الحقول الموجودة في الجدول المرفق (5902) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    استبدال رمز 1

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

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

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    استبدال رمز 2

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

12. تغيير التعليمات البرمجية في وظيفة أوبداتيفاتامونتس في الجدول المرفق (5902) كما يلي:
    التعليمات البرمجية الموجودة

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    استبدال التعليمات البرمجية

    ...
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

13. تغيير التعليمات البرمجية في وظيفة كالكفاتامونتلينيس في الجدول المرفق (5902) كما يلي:
    التعليمات البرمجية الموجودة

    ...
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base","VAT Amount" - "VAT Difference",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    استبدال التعليمات البرمجية

    ...
    // Add the following line.CalcVATToReport(ServHeader,"VAT Base","Amount Including VAT" - "VAT Difference",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

14. تغيير التعليمات البرمجية في وظيفة أوبداتيفاتونلينيس في الجدول المرفق (5902) كما يلي:
    التعليمات البرمجية الموجودة

    ..."VAT Base Amount" := NewVATBaseAmount;
    
    // Delete the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT" - "VAT Base Amount",
    // End of the deleted line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

    استبدال التعليمات البرمجية

    ..."VAT Base Amount" := NewVATBaseAmount;
    
    // Add the following line.
    CalcVATToReport(ServHeader,"VAT Base Amount","Amount Including VAT",
    // End of the added line.
    
    "VAT Base Amt. to Report (LCY)","VAT Amount to Report (LCY)");
    ...
    

15. تغيير التعليمات البرمجية في وظيفة كالكفاتوريبورت في الجدول المرفق (5902) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
    // Delete the following line.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;VATAmount@1360002 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    // End of the deleted line.
    
    BEGIN
    ...
    

    استبدال رمز 1

    ...
    // Add the following lines.
    PROCEDURE CalcVATToReport@1360000(ServHeader@1360004 : Record 5900;VATBaseAmount@1360003 : Decimal;AmtInclVAT@1360007 : Decimal;VAR VATBaseAmountToReport@1360001 : Decimal;VAR VATAmountToReport@1360000 : Decimal);
    VAR
    AmountLCY@1360005 : Decimal;
    AmtInclVATLCY@1360006 : Decimal;
    // End of the added lines.
    
    BEGIN
    ...
    

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

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    
    // Delete the following lines.
    VATAmountToReport :=
    ROUND(VATAmount / ServHeader."VAT Currency Factor");
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := VATAmount;
    // End of the deleted lines.
    
    END;
    ...
    

    استبدال رمز 2

    ...ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    
    // Add the following lines.
    AmountLCY :=
    ROUND(VATBaseAmount / ServHeader."VAT Currency Factor");
    AmtInclVATLCY :=
    ROUND(AmtInclVAT / ServHeader."VAT Currency Factor");
    VATAmountToReport :=
    AmtInclVATLCY - AmountLCY;
    END ELSE BEGIN
    VATBaseAmountToReport := VATBaseAmount;
    VATAmountToReport := AmtInclVAT - VATBaseAmount;
    // End of the added lines.
    
    END;
    ...
    

16. تغيير التعليمات البرمجية في وظيفة ديفيديماونت في "كوديونيت" ترحيل المبيعات (80) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    
    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    استبدال رمز 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';SalesLineQty@1001 : Decimal);
    BEGIN
    ...
    

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

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(SalesHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    استبدال رمز 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(SalesLine,SalesHeader);
    // End of the added line.
    
    ...
    

17. إنشاء دالة "كوديونيت" ترحيل المبيعات (80) كما يلي:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR SalesLine@1360002 : Record 37;SalesHeader@1360003 : Record 36);VAR
      TotalVATBaseAmtLCY@1360005 : Decimal;
      TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
      WITH SalesLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(SalesHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY);
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

18. تغيير التعليمات البرمجية في وظيفة ديفيديماونت في الشراء.-"نشر كوديونيت" (90) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    
    // Delete the following lines.
    VAR
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    استبدال رمز 1

    ...LOCAL PROCEDURE DivideAmount@8(QtyType@1000 : 'General,Invoicing,Shipping';PurchLineQty@1001 : Decimal);
    BEGIN
    ...
    

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

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    PurchLine.CalcVATToReport(PurchHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    استبدال رمز 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(PurchLine,PurchHeader);
    // End of the added line.
    ...
    

19. إنشاء دالة في في المشتريات.-"نشر كوديونيت" (90) كما يلي:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360026(VAR PurchLine@1360002 : Record 39;PurchHeader@1360003 : Record 38);VAR
      TotalVATBaseAmtLCY@1360005 : Decimal;
      TotalVATAmountLCY@1360004 : Decimal;
    BEGIN
      WITH PurchLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(PurchHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY,"VAT % (Non Deductible)");
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

20. تغيير التعليمات البرمجية في وظيفة ديفيديمونت في كوديونيت إدارة المبالغ سيرف (5986) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...ChargeableQty@1006 : Decimal;
    
    // Delete the following lines.
    TotalVATBaseAmtLCY@1360001 : Decimal;
    TotalVATAmountLCY@1360000 : Decimal;
    // End of the deleted lines.
    
    BEGIN
    ...
    

    استبدال رمز 1

    ...ChargeableQty@1006 : Decimal;
    BEGIN
    ...
    

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

    ...END;
    
    // Delete the following lines.
    TempVATAmountLineRemainder."Calc VAT Base Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report" + "VAT Base Amount";
    TempVATAmountLineRemainder."Calc VAT Amount to Report" :=
      TempVATAmountLineRemainder."Calc VAT Amount to Report" + "Amount Including VAT" - "VAT Base Amount" - "VAT Difference";
    CalcVATToReport(ServiceHeader,
      TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
      TempVATAmountLineRemainder."Calc VAT Amount to Report",
      TotalVATBaseAmtLCY,TotalVATAmountLCY);
    "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
    "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
    TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
    TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
    // End of the deleted lines.
    ...
    

    استبدال رمز 2

    ...END;
    
    // Add the following line.
    CalcRoundedVATToReport(ServiceLine,TempVATAmountLineRemainder,ServHeader);
    // End of the added line.
    ...
    

21. إنشاء دالة في في كوديونيت إدارة المبالغ سيرف (5986) كما يلي:

    LOCAL PROCEDURE CalcRoundedVATToReport@1360001(VAR ServiceLine@1360002 : Record 5902;VAR TempVATAmountLineRemainder@1360004 : Record 290;ServHeader@1360003 : Record 5900);VAR
      TotalVATBaseAmtLCY@1360006 : Decimal;
      TotalVATAmountLCY@1360005 : Decimal;
    BEGIN
      WITH ServiceLine DO BEGIN
        TempVATAmountLineRemainder."Calc VAT Base Amount to Report" +=
          "VAT Base Amount";
        TempVATAmountLineRemainder."Calc VAT Amount to Report" +=
          "Amount Including VAT";
        CalcVATToReport(ServHeader,
          TempVATAmountLineRemainder."Calc VAT Base Amount to Report",
          TempVATAmountLineRemainder."Calc VAT Amount to Report",
          TotalVATBaseAmtLCY,TotalVATAmountLCY);
        "VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY - TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)";
        "VAT Amount to Report (LCY)" := TotalVATAmountLCY - TempVATAmountLineRemainder."VAT Amount to Report (LCY)";
        TempVATAmountLineRemainder."VAT Base Amt. to Report (LCY)" := TotalVATBaseAmtLCY;
        TempVATAmountLineRemainder."VAT Amount to Report (LCY)" := TotalVATAmountLCY;
      END;
    END;
    

المتطلبات الأساسية

يجب أن يكون لديك الإصدار المجرية من Microsoft Dynamics NAV 2009 R2 مثبتة لتطبيق هذا الإصلاح العاجل.

معلومات الإزالة

لا يمكنك إزالة هذا الإصلاح العاجل.