لا يتم تحديث إدخالات المستودع مع كل عنصر تتبع البنود في دفتر يومية وظيفة عند ترحيل صنف موجود في دفتر يومية الوظيفة إلى سلة في Microsoft Dynamics NAV 2009

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

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

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

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

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

1. إضافة متغير عمومي جديد في الجدول "بند دفتر يومية الوظيفة" (210) ثم قم بتحديد المتغير كما يلي:

   • الاسم: ومسماناجيمينت

   • نوع البيانات: كوديونيت

   • النوع الفرعي: إدارة WMS (7302)

2. حذف حقل الرمز التالي في خاصية تابليريليشن رمز سلة (5403) في الجدول "بند دفتر يومية الوظيفة" (210):

   Bin.Code WHERE (Location Code=FIELD(Location Code));

3. تغيير التعليمات البرمجية في مشغل OnValidate "رمز سلة" الحقل (5403) في الجدول "بند دفتر يومية الوظيفة" (210) كما يلي:
   التعليمات البرمجية الموجودة

   ...// Delete the following lines.
   TESTFIELD("Location Code");
   CheckItemAvailable;
   // End of the lines.
   ...
   

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

   ...// Add the following lines.
   TESTFIELD("Location Code");
   IF "Bin Code" <> '' THEN BEGIN
   GetLocation("Location Code");
   Location.TESTFIELD("Bin Mandatory");
   END;
   TESTFIELD(Type,Type::Item);
   CheckItemAvailable;
   WMSManagement.FindBinContent("Location Code","Bin Code","No.","Variant Code",'')
   // End of the lines.
   ...
   

4. إضافة متغير محلي جديد في تريجيرين أونلوكوب رمز سلة- جدول "بند دفتر يومية الوظيفة" (210) ثم قم بتحديد المتغير كما يلي:

   • الاسم: بينكودي

   • نوع البيانات: التعليمات البرمجية

   • الطول: 20

5. أضف التعليمات البرمجية التالية في المشغل أونلوكوب رمز سلة- في الجدول "بند دفتر يومية الوظيفة" (210):

   TESTFIELD("Location Code");TESTFIELD(Type,Type::Item);
   BinCode := WMSManagement.BinContentLookUp("Location Code","No.","Variant Code",'',"Bin Code");
   IF BinCode <> '' THEN
   VALIDATE("Bin Code",BinCode);
   

6. تغيير القيمة في الخاصية أوبتيونسترينج لحقل المستند المصدر (25) في "بند دفتر اليومية مستودع" الجدول (7311) على ما يلي:
   أوبتيونسترينج= س.، أمر، فاتورة س.، س. الدائن، أمر الإرجاع س.، أمر ص، فاتورة ص، ص الدائن، أمر إرجاع الصفحة، مفتوحاً. النقل، اتجاه. النقل، برود. الاستهلاك، عنصر جنل، سمات إينفت. جنل., ريكلاس. مهمة جنل., الاستهلاك جنل., جنل., شجرة جنل.، سيرف أمر المخرجات، جنل-

7. تغيير القيمة في الخاصية أوبتيونسترينج لحقل مرجع المستند (60) في جدول "المستودع بند دفتر اليومية" (7311) على ما يلي:
   أوبتيونسترينج= ، أرسلت Rcpt. ترحيل الفاتورة ص، ترحيل رترن. Rcpt.، أرسلت مذكرة Cr. ص، نشرت الشحنة ترحيل الفاتورة س.، نشرت رترن. الشحنة، أرسلت مذكرة Cr. س.، ترحيل إيصال T.، نشرت T. الشحنة، بند دفتر اليومية، همز، وضع بعيداً، انتقاء حركة دفتر يومية شجرة المواد ودفتر يومية الوظيفة

8. تغيير القيمة في الخاصية أوبتيونسترينج لحقل "المستند المصدر" (25) في جدول "إدخال المستودع" (7312) على ما يلي:
   أوبتيونسترينج= س.، أمر، فاتورة س.، س. الدائن، أمر الإرجاع س.، أمر ص، فاتورة ص، ص الدائن، أمر إرجاع الصفحة، مفتوحاً. النقل، اتجاه. النقل، برود. الاستهلاك، عنصر جنل، سمات إينفت. جنل., ريكلاس. مهمة جنل., الاستهلاك جنل., جنل., شجرة جنل.، خدمة أمر المخرجات، جنل-

9. تغيير القيمة في الخاصية أوبتيونسترينج لحقل "مرجع المستند" (60) في جدول "إدخال المستودع" (7312) على ما يلي:
   أوبتيونسترينج= ، أرسلت Rcpt. ترحيل الفاتورة ص، ترحيل رترن. Rcpt.، أرسلت مذكرة Cr. ص، نشرت الشحنة ترحيل الفاتورة س.، نشرت رترن. الشحنة، أرسلت مذكرة Cr. س.، ترحيل إيصال T.، نشرت T. الشحنة، بند دفتر اليومية، همز، وضع بعيداً، انتقاء حركة دفتر يومية شجرة المواد ودفتر يومية الوظيفة

10. تغيير الخاصية مرئي من عنصر تحكم "التعليمات البرمجية الموقع" (60) في نموذج دفتر "يومية الوظيفة" (201) كما يلي:
    التعليمات البرمجية الموجودة

    Visible = Yes

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

    Visible = No

11. إضافة حقل رمز سلة بين حقل كود موقع حقل رمز نوع العمل في نموذج دفتر "يومية الوظيفة" (201)، وقم بتحديد الحقل كما يلي:

    ...{ 61 ;Label ;0 ;0 ;0 ;0 ;ParentControl=60;
    InColumnHeading=Yes }
    
    // Add the following lines.
    { 102 ;TextBox ;35507;1650 ;1700 ;440 ;ParentControl=1;
    InColumn=Yes;
    SourceExpr="Bin Code" }
    { 103 ;Label ;0 ;0 ;0 ;0 ;ParentControl=102;
    InColumnHeading=Yes }
    // End of the lines.
    
    { 48 ;TextBox ;11430;2530 ;1650 ;440 ;ParentControl=1;
    ...
    

12. إضافة متغير عمومي جديد في جنل المهمة.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

    • الاسم: الموقع

    • نوع البيانات: السجل

    • النوع الفرعي: الموقع (14)

13. إنشاء دالة جيتلوكيشن جديدة في جنل المهمة.-كوديونيت "بعد سطر" (1012) كما يلي:

    LOCAL PROCEDURE GetLocation@25(LocationCode@1000 : Code[10]);
    

14. أضف التعليمات البرمجية التالية في الدالة جيتلوكيشن في جنل المهمة.-كوديونيت "بعد سطر" (1012):

    IF LocationCode = '' THENCLEAR(Location)
    ELSE
    IF Location.Code <> LocationCode THEN
    Location.GET(LocationCode);
    

15. إنشاء دالة بوستوهسيجنليني جديدة في جنل المهمة.-كوديونيت "بعد سطر" (1012) كما يلي:

    LOCAL PROCEDURE PostWhseJnlLine@24(ItemJnlLine@1000 : Record 83;OriginalQuantity@1001 : Decimal;OriginalQuantityBase@1002 : Decimal;VAR TempTrackingSpecification@1003 : TEMPORARY Record 336);

16. إنشاء المتغيرات المحلية التالية في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012):

    1. إضافة متغير محلي في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

       • الاسم: واريهوسيجورناليني

       • نوع البيانات: السجل

       • النوع الفرعي: مستودع بند دفتر اليومية (7311)

    2. إضافة متغير محلي في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

       • الاسم: تيمبواريهوسيجورناليني

       • نوع البيانات: السجل المؤقت

       • النوع الفرعي: مستودع بند دفتر اليومية (7311)

    3. إضافة متغير محلي في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

       • الاسم: إيتيمتراكينجماناجيمينت

       • نوع البيانات: كوديونيت

       • النوع الفرعي: إدارة تعقب عنصر (6500)

    4. إضافة متغير محلي في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

       • الاسم: ومسماناجيمينت

       • نوع البيانات: كوديونيت

       • النوع الفرعي: إدارة WMS (7302)

    5. إضافة متغير محلي في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

       • الاسم: وسيجنلريجيستيرليني

       • نوع البيانات: كوديونيت

       • النوع الفرعي: وس . جنل--تسجيل خط (7301)

17. أضف التعليمات البرمجية التالية في الدالة بوستوهسيجنليني في جنل المهمة.-كوديونيت "بعد سطر" (1012) كما يلي:

    WITH ItemJnlLine DO BEGINIF "Entry Type" IN ["Entry Type"::Consumption,"Entry Type"::Output] THEN
    EXIT;
    Quantity := OriginalQuantity;
    "Quantity (Base)" := OriginalQuantityBase;
    GetLocation("Location Code");
    IF Location."Bin Mandatory" THEN
    IF WMSManagement.CreateWhseJnlLine(ItemJnlLine,0,WarehouseJournalLine,FALSE,FALSE) THEN BEGIN
    TempTrackingSpecification.MODIFYALL("Source Type",DATABASE::"Job Journal Line");
    ItemTrackingManagement.SplitWhseJnlLine(WarehouseJournalLine,TempWarehouseJournalLine,TempTrackingSpecification,FALSE);
    IF TempWarehouseJournalLine.FIND('-') THEN
    REPEAT
    WMSManagement.CheckWhseJnlLine(TempWarehouseJournalLine,1,0,FALSE);
    WhseJnlRegisterLine.RUN(TempWarehouseJournalLine);
    UNTIL TempWarehouseJournalLine.NEXT = 0;
    END;
    END;
    

18. إضافة متغير محلي جديد في دالة التعليمات البرمجية في وظيفة جنل.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

    • الاسم: تيمبتراكينجسبيسيفيكيشن

    • نوع البيانات: السجل المؤقت

    • النوع الفرعي: تتبع مواصفات (336)

19. إضافة متغير محلي جديد في دالة التعليمات البرمجية في وظيفة جنل.-كوديونيت "بعد سطر" (1012)، ثم قم بتحديد المتغير كما يلي:

    • الاسم: ItemJnlLine2

    • نوع البيانات: السجل

    • النوع الفرعي: بند دفتر يومية الصنف (83)

20. تغيير التعليمات البرمجية في وظيفة التعليمات البرمجية في وظيفة جنل.-كوديونيت "بعد سطر" (1012) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...ItemJnlLine.INIT;
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    
    

    استبدال رمز 1

    ...ItemJnlLine.INIT;
    
    // Add the following line.
    ItemJnlLine."Line No." := "Line No.";
    
    ItemJnlLine."Item No." := JobJnlLine2."No.";
    ...
    

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

    ...ItemLedgEntry.LOCKTABLE;
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    END;
    ...
    

    استبدال رمز 2

    ...ItemLedgEntry.LOCKTABLE;
    
    // Add the following line.
    ItemJnlLine2 := ItemJnlLine;
    
    ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim);
    
    // Add the following lines.
    ItemJnlPostLine.CollectTrackingSpecification(TempTrackingSpecification);
    PostWhseJnlLine(ItemJnlLine2,ItemJnlLine2.Quantity,ItemJnlLine2."Quantity (Base)",TempTrackingSpecification);
    // End of the lines.
    ...
    

21. تغيير القيمة في الخاصية أوبتيونسترينج معلمة "وثيقة مرجعية" في الدالة جيتسورسيدوكومينت في وس. إدارة كوديونيت (5775) بما يلي:
    أوبتيونسترينج= س.، أمر، فاتورة س.، س. الدائن، أمر الإرجاع س.، أمر ص، فاتورة ص، ص الدائن، أمر إرجاع الصفحة، مفتوحاً. النقل، اتجاه. النقل، برود. الاستهلاك، عنصر جنل، سمات إينفت. جنل., ريكلاس. مهمة جنل., الاستهلاك جنل., جنل., شجرة جنل.، خدمة أمر المخرجات، جنل-

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

    ...EXIT;
    END;
    END;
    ERROR(Text000);
    ...
    

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

    ...EXIT;
    END;
    
    // Add the following lines.
    DATABASE::"Job Journal Line":
    BEGIN 
    SourceDocument := SourceDocument::"Job Jnl.";
    EXIT;
    END;
    // End of the lines.
    
    END;
    ERROR(Text000);
    ...
    

23. تغيير التعليمات البرمجية في وظيفة كرياتيوهسيجنليني في كوديونيت إدارة WMS (7302) كما يلي:
    التعليمات البرمجية الموجودة

    ...WhseJnlLine."Source Line No." := "Line No.";
    END;
    WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Delete the following line.
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal";
    
    WhseJnlLine."Reference No." := "Document No.";
    ...
    

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

    ...WhseJnlLine."Source Line No." := "Line No.";
    
    // Add the following lines.
    END ELSE
    IF "Job No." <> '' THEN BEGIN
    WhseJnlLine."Source Type" := DATABASE::"Job Journal Line";
    WhseJnlLine."Source Subtype" := ItemJnlTemplateType;
    WhseMgt.GetSourceDocument(WhseJnlLine."Source Document",WhseJnlLine."Source Type",WhseJnlLine."Source Subtype");
    WhseJnlLine."Source No." := "Document No.";
    WhseJnlLine."Source Line No." := "Line No.";
    // End of the lines.
    END;WhseJnlLine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...ine."Source Code" := "Source Code";
    WhseJnlLine."Reason Code" := "Reason Code";
    WhseJnlLine."Registering No. Series" := "Posting No. Series";
    WhseJnlLine."Whse. Document Type" := WhseJnlLine."Whse. Document Type"::" ";
    
    // Add the following lines.
    IF "Job No." = '' THEN
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Item Journal"
    ELSE
    WhseJnlLine."Reference Document" := WhseJnlLine."Reference Document"::"Job Journal";
    // End of the lines.
    
    WhseJnlLine."Reference No." := "Document No.";
    ...