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

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

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

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

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

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

1. إنشاء دالة جيتكبجينفرونداكك جديد يستخدم نوع الكود لقيمة الإرجاع (الطول 20) في الجدول "بند المبيعات" (37). لإنشاء هذه الوظيفة، اتبع الخطوات التالية:

   1. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: Cust@1012

      • نوع البيانات: سجل

      • النوع الفرعي: العميل

   2. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: CustPostingGroup@1013

      • نوع البيانات: سجل

      • النوع الفرعي: مجموعة ترحيل العميل

   3. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: CustTemplate@1014

      • نوع البيانات: سجل

      • النوع الفرعي: قالب العميل

   4. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: SalesSetup@1008

      • نوع البيانات: سجل

      • النوع الفرعي: المبيعات وإعداد الحسابات المدينة

   5. أضف التعليمات البرمجية كما يلي:
      

      SalesSetup.GET;IF SalesSetup."Invoice Rounding" THEN BEGIN
        IF Cust.GET(SalesHeader."Bill-to Customer No.") THEN
          CustPostingGroup.GET(Cust."Customer Posting Group")
        ELSE
          IF CustTemplate.GET(SalesHeader."Sell-to Customer Template Code") THEN
            CustPostingGroup.GET(CustTemplate."Customer Posting Group");
      END;
      EXIT(CustPostingGroup."Invoice Rounding Account");
      

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

   • Cust@1012

   • CustPostingGroup@1013

   • CustTemplate@1014

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

   …WITH SalesLine DO BEGIN
     SETRANGE("Document Type",SalesHeader."Document Type");
     SETRANGE("Document No.",SalesHeader."No.");
     SalesSetup.GET;
     IF SalesSetup."Invoice Rounding" THEN BEGIN
       IF Cust.GET(SalesHeader."Bill-to Customer No.") THEN
         CustPostingGroup.GET(Cust."Customer Posting Group")
       ELSE
         IF CustTemplate.GET(SalesHeader."Sell-to Customer Template Code") THEN
           CustPostingGroup.GET(CustTemplate."Customer Posting Group");
     END;
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = CustPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

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

   …WITH SalesLine DO BEGIN
     SETRANGE("Document Type",SalesHeader."Document Type");
     SETRANGE("Document No.",SalesHeader."No.");
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = GetCPGInvRoundAcc) OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

4. إنشاء دالة جيتفبجينفرونداكك جديد يستخدم نوع التعليمات البرمجية (الطول 20) لقيمة الإرجاع في الجدول "بند الشراء" (39). لإنشاء هذه الوظيفة، اتبع الخطوات التالية:

   1. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: Vendor@1000

      • نوع البيانات: سجل

      • النوع الفرعي: المورد

   2. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: VendorPostingGroup@1001

      • نوع البيانات: سجل

      • النوع الفرعي: مجموعة ترحيل المورد

   3. إضافة متغير محلي جديد ثم قم بتحديد المتغير كما يلي:

      • الاسم: PurchSetup@1002

      • نوع البيانات: سجل

      • النوع الفرعي: الشراء وإعداد الحسابات الدائنة

   4. أضف التعليمات البرمجية كما يلي:
      

      PurchSetup.GET;  IF PurchSetup."Invoice Rounding" THEN  
        IF Vendor.GET(PurchHeader."Pay-to Vendor No.") THEN
          VendorPostingGroup.GET(Vendor."Vendor Posting Group");
      EXIT(VendorPostingGroup."Invoice Rounding Account");
      

      
      

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

   • Vendor@1012

   • VendorPostingGroup@1013

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

   …WITH PurchLine DO BEGIN
     SETRANGE("Document Type",PurchHeader."Document Type");
     SETRANGE("Document No.",PurchHeader."No.");
     PurchSetup.GET;
     IF PurchSetup."Invoice Rounding" THEN BEGIN
       Vendor.GET(PurchHeader."Pay-to Vendor No.");
       VendorPostingGroup.GET(Vendor."Vendor Posting Group");
     END;
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = VendorPostingGroup."Invoice Rounding Account") OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …
   

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

   …WITH PurchLine DO BEGIN
     SETRANGE("Document Type",PurchHeader."Document Type");
     SETRANGE("Document No.",PurchHeader."No.");
     IF FINDSET THEN
       REPEAT
         IF NOT ZeroAmountLine(QtyType) THEN BEGIN
           IF (Type = Type::"G/L Account") AND NOT "Prepayment Line" THEN
             RoundingLineInserted := ("No." = GetVPGInvRoundAcc) OR RoundingLineInserted;
           IF "VAT Calculation Type" IN
              ["VAT Calculation Type"::"Reverse Charge VAT","VAT Calculation Type"::"Sales Tax"]
   …