الكمية المتبقية في إدخال RG 23 د غير صحيح بعد ترحيل إشعار دائن المشتريات في إصدار Microsoft Dynamics NAV 2009 SP1 الهندية

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

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

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

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

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

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

   • الاسم: اكسيكوتيكسسيسي

   • نوع البيانات: منطقية

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

   • الاسم: DetailRG23D

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

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

   ...                       END;
                         UNTIL StrOrderDetails.NEXT = 0;
                     END;
                     SalesLine.MODIFY;
                 UNTIL SalesLine.NEXT = 0;
   
   // Add the following l ines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   ...
   

3. إضافة المتغير التالي في الدالة تشيكافايلابليقتيفوريتورنفي الجدول بند المبيعات(37):

   • الاسم: RG23D2

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

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

   ...           IF RG23D.FINDSET THEN
             REPEAT
   // Delete the following line.
                  QtyAllocated += ABS(RG23D.Quantity); 
   // End of the deleted line.
   
   // Add the following lines.
              RG23D2.GET(RG23D."Ref. Entry No."); 
              RG23D2.CALCFIELDS("Remaining Quantity"); 
              QtyAllocated += ABS(RG23D2.Quantity - RG23D2."Remaining Quantity");
   // End of the added lines.
   
             UNTIL RG23D.NEXT = 0;
   ...
   

4. قم بإنشاء الدالة سيتيكسيكوتيكسسيسيفي الجدول بند المبيعات(37). ثم أضف المعلمة التالية:

   • الاسم: ExecuteExcise2

   • نوع البيانات: منطقية
     

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

   ExecuteExcise := ExecuteExcise2;

5. إضافة متغير عمومي التالية في الجدول بند الشراء(39):

   • الاسم: اكسيكوتيكسسيسي

   • نوع البيانات: منطقية

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

   • الاسم: DetailRG23D

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

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

   ...                        END;
                       UNTIL StrOrderDetails.NEXT = 0;
                   END;
                   PurchLine.MODIFY;
               UNTIL PurchLine.NEXT = 0;
   
   // Add the following lines.
                IF NOT ExecuteExcise THEN BEGIN 
                  DetailRG23D.RESET; 
                  DetailRG23D.SETRANGE("Document Type","Document Type"); 
                  DetailRG23D.SETRANGE("Order No.","No."); 
                  DetailRG23D.SETRANGE("Document No.",''); 
                  DetailRG23D.DELETEALL; 
                END; 
   // End of the added lines.
   
            END;
           END;
         END;
   ...
   

7. قم بإنشاء الدالة سيتيكسيكوتيكسسيسيفي الجدول بند الشراء(39). ثم أضف المعلمة التالية:

   • الاسم: ExecuteExcise2

   • نوع البيانات: منطقية
     

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

   ExecuteExcise := ExecuteExcise2;

8. تغيير التعليمات البرمجية في الخصائصفي المبيعات-نشركوديونيت (80) كما يلي:

     ...                SalesLine.GetSalesPriceExclusiveTaxes(SalesHeader);
                     SalesLine.UpdateSalesLinesPIT(SalesHeader);
                   END;
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    SalesLine.SetExecuteExcise( 
                      ("Document Type" IN ["Document Type"::"Credit Memo","Document Type"::Invoice]) OR 
                      (("Document Type" IN ["Document Type"::"Return Order", 
                      "Document Type"::Order]) AND 
                      Invoice)); 
   // End of the added lines.
   
                     SalesLine.CalculateStructures(SalesHeader);
                     SalesLine.AdjustStructureAmounts(SalesHeader);
                     SalesLine.UpdateSalesLines(SalesHeader);
                     CheckVATSettled(SalesHeader);
                   END;
   ...
   
   

9. تغيير التعليمات البرمجية في خصائصفي الشراء.-نشركوديونيت (90) كما يلي:

     ...                   TESTFIELD("Document Date");
                   IF GenJnlCheckLine.DateNotAllowed("Posting Date") THEN
                     FIELDERROR("Posting Date",Text045);
   
                   IF Structure <> '' THEN BEGIN
   
   // Add the following lines.
                    PurchLine.SetExecuteExcise(("Document Type" = "Document Type"::"Credit Memo") OR 
                      (("Document Type" = "Document Type"::"Return Order") AND Invoice)); 
   // End of the added lines.
   
                     PurchLine.CalculateStructures(PurchHeader);
                     COMMIT;
                     CheckVATSettled;
                     PurchLine.AdjustStructureAmounts(PurchHeader);
                     PurchLine.UpdatePurchLines(PurchHeader);
   ...