يمكن تشغيل التقرير "حساب فروق أسعار الصرف" (12302) بشكل غير متوقع بعد تشغيل وظيفة المجموعة "تعديل سعر الصرف" لحساب بنكي في إصدار Microsoft Dynamics NAV 2009 R2 البولندية

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

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

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

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

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

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

   ...{ 111 ; ;SWIFT Code ;Code20 ;CaptionML=ENU=SWIFT Code }
   
   // Delete the following lines.
   { 12301; ;Cash/Bank Report Mandatory;Boolean ;OnValidate=VAR
   CashBankReport@1170000 : Record 12300;
   BEGIN
   IF NOT "Cash/Bank Report Mandatory" THEN BEGIN
   BankAccLedgEntry.SETCURRENTKEY("Bank Account No.","Cash/Bank Report Cons. No.","Cash/Bank Report Position");
   BankAccLedgEntry.SETRANGE("Bank Account No.","No.");
   BankAccLedgEntry.SETFILTER("Cash/Bank Report Cons. No.",'<>0');
   IF BankAccLedgEntry.FIND('-') THEN
   ERROR(Text12300,"Cash/Bank Report Mandatory",FIELDNAME("Cash/Bank Report Mandatory"),
   BankAccLedgEntry.TABLENAME,CashBankReport.TABLENAME);
   END;
   // End of the lines.
   
   END;
   ...
   

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

   ...{ 111 ; ;SWIFT Code ;Code20 ;CaptionML=ENU=SWIFT Code }
   
   // Add the following lines.
   { 12301; ;Cash/Bank Report Mandatory;Boolean ;OnValidate=BEGIN
   CheckCashBankRepMandatory;
   // End of the lines.
   
   END;
   ...
   

2. تغيير التعليمات البرمجية في وظيفة تشيككاشبانكريبمانداتوري في جدول الحساب البنكي (270) كما يلي:
   التعليمات البرمجية الموجودة

   ...BEGIN
   ...
   

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

   ...// Add the following lines.
   LOCAL PROCEDURE CheckCashBankRepMandatory@1170000();
   VAR
   CashBankReport@1170000 : Record 12300;
   ExchRateAdjmtReg@1170001 : Record 86;
   BEGIN
   IF "Cash/Bank Report Mandatory" THEN BEGIN
   IF HasExchRateAdjmtReg THEN
   RaiseCashBankRepErr(ExchRateAdjmtReg.TABLECAPTION)
   END ELSE
   IF HasCashBankLedgEntries THEN
   RaiseCashBankRepErr(CashBankReport.TABLECAPTION);
   END;
   LOCAL PROCEDURE HasExchRateAdjmtReg@1170006() : Boolean;
   VAR
   ExchRateAdjmtReg@1170000 : Record 86;
   BEGIN
   ExchRateAdjmtReg.SETRANGE("Account Type",ExchRateAdjmtReg."Account Type"::"Bank Account");
   ExchRateAdjmtReg.SETRANGE("Account No.","No.");
   EXIT(NOT ExchRateAdjmtReg.ISEMPTY);
   END;
   LOCAL PROCEDURE HasCashBankLedgEntries@1170007() : Boolean;
   VAR
   BankAccLedgEntry@1170000 : Record 271;
   BEGIN
   IF NOT BankAccLedgEntry.RECORDLEVELLOCKING THEN
   BankAccLedgEntry.SETCURRENTKEY("Bank Account No.","Cash/Bank Report Cons. No.","Cash/Bank Report Position");
   BankAccLedgEntry.SETRANGE("Bank Account No.","No.");
   BankAccLedgEntry.SETFILTER("Cash/Bank Report Cons. No.",'<>0');
   EXIT(NOT BankAccLedgEntry.ISEMPTY);
   END;
   LOCAL PROCEDURE RaiseCashBankRepErr@1170001(RelatedTableCaption@1170000 : Text[80]);
   BEGIN
   ERROR(
   Text12300,"Cash/Bank Report Mandatory",FIELDCAPTION("Cash/Bank Report Mandatory"),
   BankAccLedgEntry.TABLECAPTION,RelatedTableCaption)
   END;
   // End of the lines.
   
   BEGIN
   ...
   

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

   ...DataItemTable=Table270;
   
   // Delete the following line.
   DataItemTableView=SORTING(Bank Acc. Posting Group);
   
   OnPreDataItem=BEGIN
   ...
   

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

   ...DataItemTable=Table270;
   
   // Add the following lines.
   DataItemTableView=SORTING(Bank Acc. Posting Group)
   WHERE(Cash/Bank Report Mandatory=FILTER(No));
   // End of the lines.
   
   OnPreDataItem=BEGIN
   ...
   

4. تغيير التعليمات البرمجية في مقطع بيانات العنصر رقم 1 في تقرير "حساب فروق أسعار الصرف" (12302) كما يلي:
   التعليمات البرمجية الموجودة

   ...DataItemTable=Table270;
   OnPreDataItem=BEGIN
   ...
   

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

   ...DataItemTable=Table270;
   
   // Add the following lines.
   DataItemTableView=SORTING(No.)
   WHERE(Cash/Bank Report Mandatory=FILTER(Yes));
   // End of the lines.
   
   OnPreDataItem=BEGIN
   ...