تصبح تكلفة وحدة العناصر سالبة بعد تشغيل إعادة التقييم على العناصر التي تستخدم أسلوب متوسط التكلفة في Microsoft Dynamics NAV

تنطبق هذه المقالة على Microsoft Dynamics NAV لجميع البلدان وجميع اللغات المحلية.

الأعراض

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

• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
• Microsoft Dynamics NAV 2009
• Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) مع 975251 تطبيق الإصلاح العاجل

ملاحظة لمزيد من المعلومات حول الإصلاح العاجل 975251، انقر فوق رقم المقالة التالي لعرض المقالة في قاعدة معارف Microsoft:

975251 تواجه أداء بطيئا عند تنفيذ مهمة ضبط دفعة التكلفة لمتوسط التكلفة في Microsoft Dynamics NAV 5.0

الدقة

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

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

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

            
          

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

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

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

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

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

• إذن تعديل للكائن الذي ستقوم بتغييره.
• إذن Execute للكائن System Object ID 5210 ولعنصر System Object ID 9015.

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

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

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

1. قم بتغيير التعليمات البرمجية في الدالة AvgValueEntriesToAdjustExist في وحدة التعليمات البرمجية لتعديل المخزون (5895) إلى ما يلي:

   ...
            IF FindNextRange THEN BEGIN
              AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
              AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
            END;  
   
     // Add the following line.
     OutbndValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 
   
   ...
   

2. قم بتغيير التعليمات البرمجية في الدالة IsExcludeEntryFromAvgCostCalc في Codeunit لتعديل المخزون (5895) إلى ما يلي:

   ...
            IF NOT "Valued By Average Cost" THEN
              EXIT(FALSE);
            ItemLedgEntry.GET("Item Ledger Entry No.");
            IF ItemLedgEntry.Positive THEN
              EXIT(FALSE);
   
   // Delete the following line.
   EXIT(TRUE); 
   
   // Add the following line.
          EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
   ...
   
   ...
       // Delete the following lines.
       LOCAL PROCEDURE GetEntryNoToStartAt@78
       BEGIN
         StartAt := 0;
         WITH ExcludedValueEntry DO BEGIN
           RESET;
           IF FINDFIRST THEN
             REPEAT
               IF "Partial Revaluation" AND
                  (OutbndValueEntry."Entry No." > "Entry No.")
               THEN
                 StartAt := "Entry No.";
             UNTIL NEXT = 0;
         END;
         EXIT(StartAt + 1);
       END;
       // End of the lines.
   ...
   

3. قم بتغيير التعليمات البرمجية في الدالة AdjustItemAvgCost في الوحدة البرمجية لتعديل المخزون (5895) إلى ما يلي:

   ...
               WHILE NOT Restart AND AvgValueEntriesToAdjustExist(
                       TempOutbndValueEntry,TempExcludedValueEntry,AvgCostAdjmtEntryPoint)
               DO BEGIN
                 REPEAT
   
                   // Delete the following lines.
                   TempExcludedValueEntry.SETFILTER("Entry No.",'>=%1',                          
                     GetEntryNoToStartAt(TempOutbndValueEntry,TempExcludedValueEntry)); 
                   // End of the lines.
   
                   AdjustOutbndAvgEntry(TempOutbndValueEntry,TempExcludedValueEntry);
                   UpdateConsumpAvgEntry(TempOutbndValueEntry);
                 UNTIL TempOutbndValueEntry.NEXT = 0;
   ...
   

4. قم بتغيير التعليمات البرمجية في الدالة IsExcludeEntryFromAvgCostCalc في Codeunit لتعديل المخزون (5895) إلى ما يلي:

   ...
       BEGIN
         WITH ValueEntry DO BEGIN
           IF "Partial Revaluation" THEN         
   
             // Delete the following line.
             EXIT(TRUE);                                                                           
   
             // Add the following lines.
             EXIT(                                                                                 
               ("Entry No." > OutbndValueEntry."Entry No.") OR                                     
               (("Entry No." < OutbndValueEntry."Entry No.") AND NOT                               
                IncludedInCostCalculation(ValueEntry,OutbndValueEntry."Item Ledger Entry No.")));  
             // End of the lines.
   
           IF "Item Ledger Entry No." = OutbndValueEntry."Item Ledger Entry No." THEN
             EXIT(TRUE);
   ...
   

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

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

• Microsoft Dynamics NAV 2009 Service Pack 1
• Microsoft Dynamics NAV 2009
• Microsoft Dynamics NAV 5.0 Service Pack 1 مع 975251 تطبيق الإصلاح العاجل

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

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

الحالة

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

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