الإدخالات المرحلة غير صحيحة عند عكس دفع في إصدار Microsoft Dynamics NAV 2009 الإيطالية

المرحلة الإدخالات غير صحيحة في جدول "إدخال عكسي" (179) عند عكس دفع مبلغ غير مطبقة في إصدار Microsoft Dynamics NAV 2009 الإيطالية. استمرار حدوث هذه المشكلة بعد تطبيق الإصلاح العاجل 2802054. اتبع الخطوات الموجودة في المقطع تغييرات التعليمات البرمجية لحل هذه المشكلة. تحدث هذه المشكلة في المنتجات التالية:

إصدار Microsoft Dynamics NAV 2009 R2 الإيطالية
إصدار Microsoft Dynamics NAV 2009 Service Pack 1 (SP1) الإيطالية

الحل

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

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

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

معلومات التثبيت

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

ملاحظة: قبل تثبيت هذا الإصلاح العاجل، تأكد من تسجيل خروج النظام كافة المستخدمين عميل Microsoft Dynamics التنقل. ويشمل ذلك خدمات Microsoft Dynamics NAV تطبيق الملقم (NAS). يجب أن يكون عميل فقط المستخدم الذي تم تسجيل دخوله عند تطبيق هذا الإصلاح العاجل.

لتطبيق هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.

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

إذن "تعديل" للكائن الذي سيتم تغيير.
إذن Execute للكائن 5210 معرف كائن النظام و نظام 9015 معرف الكائن

الكائن.

ملاحظة: ليس لديك حق لمخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

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

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

لحل هذه المشكلة، اتبع الخطوات التالية.

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

...PostApplied@1029 : Boolean;
        Text012@1028 : TextConst 'ENU=You cannot reverse register No. %1 because it contains customer or vendor ledger entries that have been posted and applied in the same transaction.\\You must reverse each transaction in register No. %1 separately.;ITA=Impossibile stornare il registro Nr. %1 perch‚ contiene movimenti contabili clienti o fornitori che sono stati registrati e collegati nella stessa transazione.\\Ô necessario stornare separatamente ogni transazione nel registro Nr. %1.';

      PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
...

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

...PostApplied@1029 : Boolean;
        Text012@1028 : TextConst 'ENU=You cannot reverse register No. %1 because it contains customer or vendor ledger entries that have been posted and applied in the same transaction.\\You must reverse each transaction in register No. %1 separately.;ITA=Impossibile stornare il registro Nr. %1 perch‚ contiene movimenti contabili clienti o fornitori che sono stati registrati e collegati nella stessa transazione.\\Ô necessario stornare separatamente ogni transazione nel registro Nr. %1.';

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

      PROCEDURE ReverseTransaction@8(TransactionNo@1000 : Integer);
...

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

...DtldCustLedgEntry.SETFILTER(
              DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");

// Delete the following lines.
           IF DtldCustLedgEntry.FIND('-') THEN BEGIN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
             CLEAR(DtldCustLedgEntry);
             DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
             DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
             DtldCustLedgEntry.SETRANGE(Unapplied,TRUE);
             IF DtldCustLedgEntry.FIND('-') THEN BEGIN
               REPEAT
                 TempRevertTransactionNo.Number := DtldCustLedgEntry."Transaction No.";
                 IF TempRevertTransactionNo.INSERT THEN;
               UNTIL DtldCustLedgEntry.NEXT = 0;
             END;
           END;
// End of the deleted lines.

          UNTIL CustLedgEntry.NEXT = 0;
...

استبدال رمز 1

...DtldCustLedgEntry.SETFILTER(
              DtldCustLedgEntry."Entry Type",'<>%1',DtldCustLedgEntry."Entry Type"::"Initial Entry");

// Add the following lines.
           IF NOT DtldCustLedgEntry.ISEMPTY THEN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
           CheckDtldCustLedgEntry(CustLedgEntry);
// End of the added lines.

          UNTIL CustLedgEntry.NEXT = 0;
...

التعليمات البرمجية الموجودة 2

...DtldVendLedgEntry.SETFILTER(
              DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");

// Delete the following lines.
           IF DtldVendLedgEntry.FIND('-') THEN BEGIN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
             CLEAR(DtldVendLedgEntry);
             DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
             DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
             DtldVendLedgEntry.SETRANGE(Unapplied,TRUE);
             IF DtldVendLedgEntry.FIND('-') THEN BEGIN
               REPEAT
                 TempRevertTransactionNo.Number := DtldVendLedgEntry."Transaction No.";
                 IF TempRevertTransactionNo.INSERT THEN;
               UNTIL DtldVendLedgEntry.NEXT = 0;
             END;
           END;
// End of the deleted lines.

          UNTIL VendLedgEntry.NEXT = 0;
...

استبدال رمز 2

...DtldVendLedgEntry.SETFILTER(
              DtldVendLedgEntry."Entry Type",'<>%1',DtldVendLedgEntry."Entry Type"::"Initial Entry");

// Add the following lines.
           IF NOT DtldVendLedgEntry.ISEMPTY THEN
             IF RevType = RevType::Register THEN
               ERROR(Text012,Number);
           CheckDtldVendLedgEntry(VendLedgEntry);
// End of the added lines.

          UNTIL VendLedgEntry.NEXT = 0;
...

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

...DtldCustLedgEntry@1001 : Record 379;
      BEGIN

// Delete the following lines.
       DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.");
       DtldCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No.");
       IF DtldCustLedgEntry.FIND('-') THEN
         REPEAT
           IF (DtldCustLedgEntry."Entry Type" <> DtldCustLedgEntry."Entry Type"::"Initial Entry") AND
              (NOT DtldCustLedgEntry.Unapplied)
           THEN
             ERROR(
               Text000,CustLedgEntry.TABLECAPTION,CustLedgEntry."Entry No.");
         UNTIL DtldCustLedgEntry.NEXT = 0;
// End of the deleted lines.

      END;
...

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

...DtldCustLedgEntry@1001 : Record 379;
      BEGIN

// Add the following lines.
       DtldCustLedgEntry.SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type");
       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.");

       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 added lines.

      END;
...

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

...DtldVendLedgEntry@1001 : Record 380;
      BEGIN

// Delete the following lines.
       DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.");
       DtldVendLedgEntry.SETRANGE("Vendor Ledger Entry No.",VendLedgEntry."Entry No.");
       IF DtldVendLedgEntry.FIND('-') THEN
         REPEAT
           IF (DtldVendLedgEntry."Entry Type" <> DtldVendLedgEntry."Entry Type"::"Initial Entry") AND
              (NOT DtldVendLedgEntry.Unapplied)
           THEN
             ERROR(
               Text000,VendLedgEntry.TABLECAPTION,VendLedgEntry."Entry No.");
         UNTIL DtldVendLedgEntry.NEXT = 0;
// End of the deleted lines.

      END;
...

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

...DtldVendLedgEntry@1001 : Record 380;
      BEGIN

// Add the following lines.
       DtldVendLedgEntry.SETCURRENTKEY("Vendor Ledger Entry No.","Entry Type");
       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.");

       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 added lines.

      END;
...

المتطلبات الأساسية

يجب أن يكون لديك أحد المنتجات التالية مثبتة لتطبيق هذا الإصلاح العاجل:

إصدار Microsoft Dynamics NAV 2009 R2 الإيطالية
إصدار Microsoft Dynamics NAV 2009 SP1 الإيطالية

معلومات الإزالة

لا يمكنك إزالة هذا الإصلاح العاجل.

الحالة

أقرت Microsoft أن هذه مشكلة في منتجات Microsoft المسردة في قسم "ينطبق على".

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

الإدخالات المرحلة غير صحيحة عند عكس دفع في إصدار Microsoft Dynamics NAV 2009 الإيطالية

الحل

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

معلومات التثبيت

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

المتطلبات الأساسية

معلومات الإزالة

الحالة

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!