ظهور رسالة الخطأ "البند رقم [Item_No.] غير موجود" عند محاولة إلغاء تسجيل في نموذج "المورد إدخالات دفتر الأستاذ" في النسخة الروسية من Microsoft Dynamics NAV 2009 R2 with Feature Pack 1

الأعراض

في إصدار Microsoft Dynamics NAV 2009 R2 with Feature Pack 1 الروسية، إذا كان الجدول إدخال ضريبة القيمة المضافة (254) توزيع التغييرات ضريبة القيمة المضافة العمليات، عند محاولة إلغاء تسجيل في نموذج "المورد إدخالات دفتر الأستاذ"، تتلقى رسالة الخطأ التالية:

البند رقمItem_No- غير موجود.

الحل

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

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

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

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

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

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

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

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

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

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

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

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

اسم الملف	إصدار الملف	حجم الملف	التاريخ	الوقت	النظام الأساسي
Vstf260227.fob	غير قابل للتطبيق	169,340	03-Jun-2011	10:08	غير قابل للتطبيق

يتوفر الملف التالي للتحميل من Microsoft Dynamics ملف Exchange Server:

https://mbs2.microsoft.com/fileexchange/?fileID=5f52394d-7020-4d24-98b4-909002c45cfeتاريخ الإصدار: 2 أبريل 2014

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

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

قم بإضافة الحقل التالي: {12490; تخصيص ضريبة القيمة المضافة؛ قيمة منطقية}

تغيير التعليمات البرمجية في وظيفة إينسيرتريفيرسالينتري كما يلي:
التعليمات البرمجية الموجودة

...                  ReversalEntry."Bal. Account Type" := GLEntry."Bal. Account Type";

                ReversalEntry."Bal. Account No." := GLEntry."Bal. Account No.";

                ReversalEntry."Line No." := NextLineNo;

                NextLineNo := NextLineNo + 1;

                ReversalEntry.INSERT;



                IF GLEntry.Amount > 0 THEN BEGIN

                  GLItemLedgRelation.RESET;

                  GLItemLedgRelation.SETRANGE("G/L Entry No.",GLEntry."Entry No.");
...

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

...                 ReversalEntry."Bal. Account Type" := GLEntry."Bal. Account Type";

                ReversalEntry."Bal. Account No." := GLEntry."Bal. Account No.";

                ReversalEntry."Line No." := NextLineNo;

// Add the following line.
                ReversalEntry."VAT Allocation" := VATAllocOnCost; 
// End of the added line.

                NextLineNo := NextLineNo + 1;

                ReversalEntry.INSERT;



                IF GLEntry.Amount >0 THEN BEGIN

                  GLItemLedgRelation.RESET;

                 GLItemLedgRelation.SETRANGE("G/L Entry No.",GLEntry."Entry No."); 
...

تغيير التعليمات البرمجية في وظيفة تشيكينتريس كما يلي:
التعليمات البرمجية الموجودة 1

...    PROCEDURE CheckEntries@14();   
...

استبدال رمز 1

...   PROCEDURE CheckEntries@14(IsVATAllocOnCost@1000000000 : Boolean);        
...

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

...      MaxPostingDate := 0D;

      IF NOT GLEntry.FIND('-') THEN

        ERROR(Text009,GLEntry.TABLECAPTION,GLAcc.TABLECAPTION);

// Delete the following line.
      VATAllocOnCost := VATAllocationExist(VATEntry); 
// End of the deleted line.

      IF GLEntry.FIND('-') THEN BEGIN

// Delete the following line.
        IF (GLEntry."Journal Batch Name" = '') AND NOT VATAllocOnCost THEN 
// End of the deleted line.

          TestFieldError;

        REPEAT

          CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);

        UNTIL GLEntry.NEXT = 0;

      END;    
...

استبدال رمز 2

...         MaxPostingDate := 0D;

      IF NOT GLEntry.FIND('-') THEN

        ERROR(Text009,GLEntry.TABLECAPTION,GLAcc.TABLECAPTION);

      IF GLEntry.FIND('-') THEN BEGIN

// Add the following line.
        IF (GLEntry."Journal Batch Name" = '') AND NOT IsVATAllocOnCost THEN
// End of the added line.

          TestFieldError;

        REPEAT

          CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);

        UNTIL GLEntry.NEXT = 0;

      END;
...

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

...       IF VATEntry.FIND('-') THEN

        REPEAT

          CheckVAT(VATEntry);

        UNTIL VATEntry.NEXT = 0;

// Delete the following line.
      IF VATAllocOnCost THEN 
// End of the deleted line.

        IF ValueEntry.FIND('-') THEN

          REPEAT

            CheckItem(ValueEntry);

          UNTIL ValueEntry.NEXT = 0;   
...

استبدال رمز 3

...       IF VATEntry.FIND('-') THEN

        REPEAT

          CheckVAT(VATEntry);

        UNTIL VATEntry.NEXT = 0;

// Add the following line.
      IF IsVATAllocOnCost THEN 
// End of the added line.

        IF ValueEntry.FIND('-') THEN

          REPEAT

            CheckItem(ValueEntry);

          UNTIL ValueEntry.NEXT = 0;  
...

تغيير التعليمات البرمجية في وظيفة سيتريفيرسيفيلتير كما يلي:
التعليمات البرمجية الموجودة 1

...           TaxDiffEntry.SETRANGE("Transaction No.",Number);

      END ELSE BEGIN

        GLReg.GET(Number); 
...

استبدال رمز 1

...         TaxDiffEntry.SETRANGE("Transaction No.",Number);

// Add the following line.
       ValueEntry.SETRANGE("Entry No.",0); 
// End of the added line.

      END ELSE BEGIN

        GLReg.GET(Number);
...

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

...           VATEntry.SETRANGE("Entry No.",GLReg."From VAT Entry No.",GLReg."To VAT Entry No.");

        GLItemLedgRelation.SETCURRENTKEY(GLItemLedgRelation."G/L Register No.");

        GLItemLedgRelation.SETRANGE("G/L Register No.",GLReg."No.");

        IF GLItemLedgRelation.FINDFIRST THEN

          FromValueEntryNo := GLItemLedgRelation."Value Entry No.";

        IF GLItemLedgRelation.FINDLAST THEN

          ToValueEntryNo := GLItemLedgRelation."Value Entry No.";

        ValueEntry.SETRANGE("Entry No.",FromValueEntryNo,ToValueEntryNo); 
...

استبدال رمز 2

...        VATEntry.SETRANGE("Entry No.",GLReg."From VAT Entry No.",GLReg."To VAT Entry No.");

// Add the following lines.
        FromValueEntryNo := 0; 

        ToValueEntryNo := 0; 

        IF VATAllocOnCost THEN BEGIN 
// End of the added lines.

          GLItemLedgRelation.SETCURRENTKEY(GLItemLedgRelation."G/L Register No.");

          GLItemLedgRelation.SETRANGE("G/L Register No.",GLReg."No.");

          IF GLItemLedgRelation.FINDFIRST THEN

            FromValueEntryNo := GLItemLedgRelation."Value Entry No.";

          IF GLItemLedgRelation.FINDLAST THEN

            ToValueEntryNo := GLItemLedgRelation."Value Entry No.";
// Add the following line.
        END;
// End of the added line.

        ValueEntry.SETRANGE("Entry No.",FromValueEntryNo,ToValueEntryNo);  
...

تغيير التعليمات البرمجية في وظيفة فاتالوكاتيونيكسيست كما يلي:
التعليمات البرمجية الموجودة

...// Delete the following line.
       VATEntry2.COPYFILTERS(VATEntry2); 
// End of the deleted line.

      VATEntry2.SETRANGE("VAT Allocation Type",VATEntry2."VAT Allocation Type"::Charge);

      EXIT(NOT VATEntry2.ISEMPTY);   
...

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

...// Add the following line.
       VATEntry2.COPYFILTERS(VATEntry); 
// End of the added line.

      VATEntry2.SETRANGE("VAT Allocation Type",VATEntry2."VAT Allocation Type"::Charge);

      EXIT(NOT VATEntry2.ISEMPTY);  
...

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

الاسم: فاتالوكونكوست
نوع البيانات: منطقية

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

...            IF TempGLReg.FINDSET THEN

            REPEAT

              ReversalEntry2.SetReverseFilter(TempGLReg."No.","Reversal Type");

// Delete the following line.
              ReversalEntry2.CheckEntries;  
// End of the deleted line.

              GET(1);

              IF "Reversal Type" = "Reversal Type"::Register THEN

                Number := TempGLReg."No."

              ELSE

                Number := "Transaction No."; 
...

استبدال رمز 1

...             IF TempGLReg.FINDSET THEN

            REPEAT

// Add the following lines.
              SETRANGE("G/L Register No.",TempGLReg."No."); 

              SETRANGE("VAT Allocation",TRUE); 

              VATAllocOnCost := NOT ISEMPTY; 
// End of the added lines.

              ReversalEntry2.SetReverseFilter(TempGLReg."No.","Reversal Type");

// Add the following line.
              ReversalEntry2.CheckEntries(VATAllocOnCost); 
// End of the added line.

              GET(1);

              IF "Reversal Type" = "Reversal Type"::Register THEN

                Number := TempGLReg."No."

              ELSE

                Number := "Transaction No.";
...

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

...          UNTIL TempGLReg.NEXT = 0;

        END ELSE BEGIN

          ReversalEntry2.SetReverseFilter("Transaction No.","Reversal Type");

// Delete the following line.
          ReversalEntry2.CheckEntries; 
// End of the deleted line.

          GET(1);

          IF "Reversal Type" = "Reversal Type"::Register THEN

            Number := "G/L Register No."    
...

استبدال رمز 2

...             UNTIL TempGLReg.NEXT = 0;

        END ELSE BEGIN

// Add the following lines.
          SETRANGE("G/L Register No.",TempGLReg."No."); 

          SETRANGE("VAT Allocation",TRUE); 

          VATAllocOnCost := NOT ISEMPTY; 
// End of the added lines.

          ReversalEntry2.SetReverseFilter("Transaction No.","Reversal Type");

// Add the following line.
          ReversalEntry2.CheckEntries(VATAllocOnCost); 
// End of the added line.

          GET(1);

          IF "Reversal Type" = "Reversal Type"::Register THEN

            Number := "G/L Register No." 
...

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

يجب أن يكون لديك النسخة الروسية من Microsoft Dynamics NAV 2009 R2 with Feature Pack 1 مثبتة لتطبيق هذا الإصلاح العاجل.

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

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

الحالة

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

المراجع

ديناميكسناف فستف SE: 260227

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

ظهور رسالة الخطأ "البند رقم [Item_No.] غير موجود" عند محاولة إلغاء تسجيل في نموذج "المورد إدخالات دفتر الأستاذ" في النسخة الروسية من Microsoft Dynamics NAV 2009 R2 with Feature Pack 1

الأعراض

الحل

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

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

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

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

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

الحالة

المراجع

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

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

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

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