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

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

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

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

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

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

1. إضافة متغير عمومي التالية في جدول "إدخال عكسي" (179):

   Text013@1039 : TextConst 'ENU="You cannot reverse %1 No. %2 because the entry has an associated Realized Gain/Loss entry. "';

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

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

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

   ...DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
   DtldCustLedgEntry.SETFILTER("Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");
   DtldCustLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldCustLedgEntry.ISEMPTY THEN
   ERROR(Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldCustLedgEntry.SETRANGE(Unapplied);
     DtldCustLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldCustLedgEntry."Entry Type"::"Realized Gain",DtldCustLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldCustLedgEntry.ISEMPTY THEN
     ERROR(Text013,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   LOCAL PROCEDURE CheckDtldVendLedgEntry@28(VendLedgEntry@1000 : Record 25) : Boolean;
   VAR
   DtldVendLedgEntry@1001 : Record 380;
   ...
   
   

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

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...
   
   

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

   ...DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
   DtldVendLedgEntry.SETFILTER("Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");
   DtldVendLedgEntry.SETRANGE(Unapplied,FALSE);
   IF NOT DtldVendLedgEntry.ISEMPTY THEN
   ERROR(Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   
   // Add the following lines.
   
     DtldVendLedgEntry.SETRANGE(Unapplied);
     DtldVendLedgEntry.SETFILTER("Entry Type",'%1|%2',
     DtldVendLedgEntry."Entry Type"::"Realized Gain",DtldVendLedgEntry."Entry Type"::"Realized Loss");
     IF NOT DtldVendLedgEntry.ISEMPTY THEN
     ERROR(Text013,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
   // End of the lines.
   
   END;
   
   PROCEDURE SetReverseFilter@1(Number@1001 : Integer;RevType@1000 : 'Transaction,Register');
   BEGIN
   IF RevType = RevType::Transaction THEN BEGIN
   ...