لا يمكنك تغيير بند دفتر يومية بعد تطبيق الإصلاح العاجل 2510272 في Microsoft Dynamics NAV 2009

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

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

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

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

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

1. تغيير التعليمات البرمجية في وظيفة كريتيديم في بند دفتر اليومية الجنرال الجدول (81) كما يلي:
   Exis رمز تينغ

   ...No[5] := No5;
   "Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetDefaultDim(
   TableID,No,"Source Code","Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Delete the following lines.
   IF "Line No." <> 0 THEN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Gen. Journal Line","Journal Template Name",
   "Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   // End of the lines.
   
   END;
   PROCEDURE ValidateShortcutDimCode@14(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);
   BEGIN
   DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);
   ...
   

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

   ...No[5] := No5;
   "Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetDefaultDim(
   TableID,No,"Source Code","Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Add the following lines.
   IF "Line No." <> 0 THEN BEGIN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Gen. Journal Line","Journal Template Name",
   "Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   IF MODIFY THEN;
   END;
   // End of the lines.
   
   END;
   PROCEDURE ValidateShortcutDimCode@14(FieldNumber@1000 : Integer;VAR ShortcutDimCode@1001 : Code[20]);
   BEGIN
   DimMgt.ValidateDimValueCode(FieldNumber,ShortcutDimCode);
   ...
   

2. تغيير التعليمات البرمجية في وظيفة كريتيديم في الجدول "بند دفتر يومية الصنف" (83) كما يلي:
   التعليمات البرمجية الموجودة

   ...DimMgt.UpdateDefaultDimNewDimValue;
   "New Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
   "New Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
   END;
   
   // Delete the following lines.
   IF "Line No." <> 0 THEN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   // End of the lines.
   
   END;
   PROCEDURE CreateProdDim@25(Type1@1007 : Integer;No1@1006 : Code[20];Type2@1005 : Integer;No2@1004 : Code[20];Type3@1003 : Integer;No3@1002 : Code[20]);
   VAR
   TableID@1001 : ARRAY [10] OF Integer;
   ...
   

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

   ...DimMgt.UpdateDefaultDimNewDimValue;
   "New Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
   "New Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
   END;
   
   // Add the following lines.
   IF "Line No." <> 0 THEN BEGIN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   IF MODIFY THEN;
   END;
   // End of the lines.
   
   END;
   PROCEDURE CreateProdDim@25(Type1@1007 : Integer;No1@1006 : Code[20];Type2@1005 : Integer;No2@1004 : Code[20];Type3@1003 : Integer;No3@1002 : Code[20]);
   VAR
   TableID@1001 : ARRAY [10] OF Integer;
   ...
   

3. تغيير التعليمات البرمجية في وظيفة كريتيبروديم في الجدول "بند دفتر يومية الصنف" (83) كما يلي:
   التعليمات البرمجية الموجودة

   ..."Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetProdDocDim(
   TableID,No,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Delete the following lines.
   IF "Line No." <> 0 THEN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   // End of the lines.
   
   END;
   PROCEDURE GetDim@30(VAR JnlLineDim@1000 : Record 356);
   BEGIN
   DimMgt.GetJnlLineDefaultDim(JnlLineDim);
   ...
   

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

   ..."Shortcut Dimension 1 Code" := '';
   "Shortcut Dimension 2 Code" := '';
   DimMgt.GetProdDocDim(
   TableID,No,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   
   // Add the following lines.
   IF "Line No." <> 0 THEN BEGIN
   DimMgt.UpdateJnlLineDefaultDim(
   DATABASE::"Item Journal Line",
   "Journal Template Name","Journal Batch Name","Line No.",0,
   "Shortcut Dimension 1 Code","Shortcut Dimension 2 Code");
   IF MODIFY THEN;
   END;
   // End of the lines.
   
   END;
   PROCEDURE GetDim@30(VAR JnlLineDim@1000 : Record 356);
   BEGIN
   DimMgt.GetJnlLineDefaultDim(JnlLineDim);
   ...