يتم حساب الحقل "الرصيد المتأخر" بشكل غير صحيح في مربع الحوار "إحصائيات العملاء" في Microsoft Dynamics NAV 2009

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

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

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

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

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

1. إضافة وظيفة جديدة في جدول العملاء (18) كما يلي:

   PROCEDURE CalcOverDueBalance@1100() OverDueBalance : Decimal;VAR
   CustLedgerEntry@1102 : Record 21;
   BEGIN
   CustLedgerEntry.SETCURRENTKEY("Customer No.",Open,Positive,"Due Date","Currency Code");
   CustLedgerEntry.SETRANGE("Customer No.","No.");
   CustLedgerEntry.SETRANGE(Open,TRUE);
   CustLedgerEntry.SETFILTER("Due Date",'<%1',WORKDATE);
   IF CustLedgerEntry.FINDSET THEN
   REPEAT
   CustLedgerEntry.CALCFIELDS("Remaining Amt. (LCY)");
   OverDueBalance += CustLedgerEntry."Remaining Amt. (LCY)";
   UNTIL CustLedgerEntry.NEXT = 0;
   END;
   

2. إضافة وظيفة جديدة في جدول الموردين (23) كما يلي:

   PROCEDURE CalcOverDueBalance@1100() OverDueBalance : Decimal;VAR
   VendLedgerEntry@1102 : Record 25;
   BEGIN
   VendLedgerEntry.SETCURRENTKEY("Vendor No.",Open,Positive,"Due Date","Currency Code");
   VendLedgerEntry.SETRANGE("Vendor No.","No.");
   VendLedgerEntry.SETRANGE(Open,TRUE);
   VendLedgerEntry.SETFILTER("Due Date",'<%1',WORKDATE);
   IF VendLedgerEntry.FINDSET THEN
   REPEAT
   VendLedgerEntry.CALCFIELDS("Remaining Amt. (LCY)");
   OverDueBalance += VendLedgerEntry."Remaining Amt. (LCY)";
   UNTIL VendLedgerEntry.NEXT = 0;
   END;
   

3. تغيير التعليمات البرمجية في النموذج "إحصائيات العميل" (151) كما يلي:
   التعليمات البرمجية الموجودة

   ...MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   { 15 ;TextBox ;3850 ;6490 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Delete the following line.
   SourceExpr="Balance Due (LCY)";
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   DtldCustLedgEntry.SETFILTER("Customer No.","No.");
   ...
   

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

   ...MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   { 15 ;TextBox ;3850 ;6490 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Add the following line.
   SourceExpr=CalcOverDueBalance;
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   DtldCustLedgEntry.SETFILTER("Customer No.","No.");
   ...
   

4. تغيير التعليمات البرمجية في النموذج "إحصائيات المورد" (152) كما يلي:
   التعليمات البرمجية الموجودة

   ...MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   { 14 ;TextBox ;3850 ;4840 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Delete the following line.
   SourceExpr="Balance Due (LCY)";
   
   OnDrillDown=VAR
   VendLedgEntry@1001 : Record 25;
   DtldVendLedgEntry@1000 : Record 380;
   BEGIN
   DtldVendLedgEntry.SETFILTER("Vendor No.","No.");
   ...
   

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

   ...MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   { 14 ;TextBox ;3850 ;4840 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Add the following line.
   SourceExpr=CalcOverDueBalance;
   
   OnDrillDown=VAR
   VendLedgEntry@1001 : Record 25;
   DtldVendLedgEntry@1000 : Record 380;
   BEGIN
   DtldVendLedgEntry.SETFILTER("Vendor No.","No.");
   ...
   

5. تغيير التعليمات البرمجية في نموذج "الائتمانات المتاحة" (7177) كما يلي:
   التعليمات البرمجية الموجودة

   ...{ 1 ;TabControl ;220 ;220 ;9350 ;6270 ;HorzGlue=Both;
   VertGlue=Both;
   PageNamesML=ENU=General }
   { 3 ;TextBox ;3850 ;5830 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Delete the following line.
   SourceExpr="Balance Due (LCY)";
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   DtldCustLedgEntry.SETFILTER("Customer No.","No.");
   ...
   

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

   ...{ 1 ;TabControl ;220 ;220 ;9350 ;6270 ;HorzGlue=Both;
   VertGlue=Both;
   PageNamesML=ENU=General }
   { 3 ;TextBox ;3850 ;5830 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   
   // Add the following line.
   SourceExpr=CalcOverDueBalance;
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   DtldCustLedgEntry.SETFILTER("Customer No.","No.");
   ...
   

6. تغيير التعليمات البرمجية في النموذج "مربع حقائق إحصائيات العميل" (9802) كما يلي:
   التعليمات البرمجية الموجودة

   ...VertAlign=Bottom;
   Border=No;
   MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   
   // Delete the following line.
   { 12 ;TextBox ;3630 ;5720 ;2750 ;440 ;SourceExpr="Balance Due (LCY)";
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   DtldCustLedgEntry.SETFILTER("Customer No.","No.");
   ...
   

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

   ...VertAlign=Bottom;
   Border=No;
   MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   
   // Add the following line.
   { 12 ;TextBox ;3630 ;5720 ;2750 ;440 ;SourceExpr=CalcOverDueBalance;
   
   OnDrillDown=VAR
   DtldCustLedgEntry@1000 : Record 379;
   CustLedgEntry@1001 : Record 21;
   BEGIN
   DtldCustLedgEntry.SETFILTER("Customer No.","No.");
   ...
   

7. تغيير التعليمات البرمجية في النموذج "مربع حقائق إحصائيات المورد" (9094) كما يلي:
   التعليمات البرمجية الموجودة

   ...VertAlign=Bottom;
   Border=No;
   MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   
   // Delete the following line.
   { 12 ;TextBox ;3520 ;4180 ;2750 ;440 ;SourceExpr="Balance Due (LCY)";
   
   OnDrillDown=VAR
   VendLedgEntry@1001 : Record 25;
   DtldVendLedgEntry@1000 : Record 380;
   BEGIN
   DtldVendLedgEntry.SETFILTER("Vendor No.","No.");
   ...
   

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

   ...VertAlign=Bottom;
   Border=No;
   MultiLine=Yes;
   LeaderDots=Yes;
   SourceExpr=STRSUBSTNO(Text000,FORMAT(CurrentDate)) }
   
   // Add the following line.
   { 12 ;TextBox ;3520 ;4180 ;2750 ;440 ;SourceExpr=CalcOverDueBalance;
   
   OnDrillDown=VAR
   VendLedgEntry@1001 : Record 25;
   DtldVendLedgEntry@1000 : Record 380;
   BEGIN
   DtldVendLedgEntry.SETFILTER("Vendor No.","No.");
   ...
   

ملاحظة: يجب عليك تشغيل أدوات التحويل لتطبيق هذه التغييرات على الصفحات المقابلة.