ערכי מחסן אינם מעודכנים עם כל פריט מעקב השורות ביומן משימה בעת רישום פריט ביומן משימת לסל ב- Microsoft Dynamics NAV 2009

מידע על תיקונים חמים

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. יש להחיל אותו רק במערכות שהתעוררה בהן בעיה ספציפית זו. תיקון חם זה עשוי לעבור בדיקות נוספות. לכן, אם המערכת שברשותך לא נפגעה באופן חמור מבעיה זו, מומלץ להמתין למהדורת סרגל ניווט של Microsoft Dynamics service pack הבאה או גירסת Microsoft Dynamics NAV הבא המכיל תיקון חם זה.

הערה במקרים מיוחדים, שהצגת עבור שיחות עשויים לבטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים יקבע שעדכון ספציפי יפתור את הבעיה. דמי התמיכה המקובלים יחולו על נוספים שאלות וסוגיות תמיכה אשר אינן מצריכות העדכון הספציפי האמור.

שינויי קוד

הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות: יצירת משתנים מקומיים הבאים:

1. הוספת משתנה גלובלי חדש בטבלה שורת יומן משימה (210), ולאחר מכן ציין את המשתנה כדלקמן:

   • שם: WMSManagement

   • סוג נתונים: Codeunit

   • סוג משנה: ניהול WMS (7302)

2. מחק הקוד הבא לתוך המאפיין TableRelation של קוד סל שדה (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. הוספת משתנה מקומי חדש ב- triggerin OnLookup של קוד סל - הטבלה שורת יומן משימה (210), ולאחר מכן ציין את המשתנה כדלקמן:

   • שם: BinCode

   • סוג נתונים: קוד

   • אורך: 20

5. הוסף את הקוד הבא בהדק OnLookup קוד סל - בטבלה שורת יומן משימה (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. שנה את ערך המאפיין OptionString של השדה מסמך המקור (25) בטבלה שורת יומן מחסן (7311) באופן הבא:
   OptionString= S., סדר, חשבונית S., S. הזיכוי, הזמנת החזרה S., p. הזמנה, חשבונית p., p. הזיכוי, הזמנת החזרה p., Inb. העברה, Outb. העברה, ייצור. צריכה, פריט Jnl., Phys. Invt. Jnl., Reclass. Jnl., צריכה Jnl., Jnl., BOM Jnl., Serv הזמנת הפלט, משימה Jnl.

7. שנה את ערך המאפיין OptionString של השדה מסמך האסמכתא (60) בטבלה שורת יומן מחסן (7311) באופן הבא:
   OptionString= , Rcpt., נרשם p. מלאי שנרשמו, נרשם Rtrn. Rcpt., פורסם תזכיר Cr. p., נרשם משלוח, רישום מלאי S., נרשם Rtrn. משלוח, פורסם תזכיר Cr. S., שנרשמו t., נרשמה סטייה משלוח, קבלה פריט היומן, Prod., Put-לא נמצא, בחר, תנועה, יומן BOM, יומן עבודה

8. שנה את ערך המאפיין OptionString של השדה מסמך המקור (25) בטבלה ערך מחסן (7312) באופן הבא:
   OptionString= S., סדר, חשבונית S., S. הזיכוי, הזמנת החזרה S., p. הזמנה, חשבונית p., p. הזיכוי, הזמנת החזרה p., Inb. העברה, Outb. העברה, ייצור. צריכה, פריט Jnl., Phys. Invt. Jnl., Reclass. Jnl., צריכה Jnl., Jnl., BOM Jnl., Serv. הזמנת הפלט, משימה Jnl.

9. שנה את ערך המאפיין OptionString של השדה מסמך האסמכתא (60) בטבלה ערך מחסן (7312) באופן הבא:
   OptionString= , Rcpt., נרשם p. מלאי שנרשמו, נרשם Rtrn. Rcpt., פורסם תזכיר Cr. p., נרשם משלוח, רישום מלאי S., נרשם Rtrn. משלוח, פורסם תזכיר Cr. S., שנרשמו t., נרשמה סטייה משלוח, קבלה פריט היומן, Prod., Put-לא נמצא, בחר, תנועה, יומן BOM, יומן עבודה

10. שנה את המאפיין Visible של הפקד קוד מיקום (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. הוספת משתנה גלובלי חדש ב- Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

    • שם: מיקום

    • סוג נתונים: רשומה

    • סוג משנה: מיקום (14)

13. צור פונקציה GetLocation חדש Jnl משימת.-codeunit קו Post (1012) כפי שמוצג להלן:

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

14. הוסף את הקוד הבא בפונקציה GetLocation Jnl משימת.-codeunit קו Post (1012):

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

15. צור פונקציה PostWhseJnlLine חדש Jnl משימת.-codeunit קו Post (1012) כפי שמוצג להלן:

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

16. יצירת משתנים מקומיים הבאים בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (1012):

    1. הוספת משתנה מקומי בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

       • שם: WarehouseJournalLine

       • סוג נתונים: רשומה

       • סוג משנה: שורת יומן מחסן (7311)

    2. הוספת משתנה מקומי בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

       • שם: TempWarehouseJournalLine

       • סוג נתונים: רשומה זמנית

       • סוג משנה: שורת יומן מחסן (7311)

    3. הוספת משתנה מקומי בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

       • שם: ItemTrackingManagement

       • סוג נתונים: Codeunit

       • סוג משנה: ניהול מעקב אחר פריט (6500)

    4. הוספת משתנה מקומי בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

       • שם: WMSManagement

       • סוג נתונים: Codeunit

       • סוג משנה: ניהול WMS (7302)

    5. הוספת משתנה מקומי בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

       • שם: WhseJnlRegisterLine

       • סוג נתונים: Codeunit

       • סוג משנה: Whse. Jnl.-לרשום שורה (7301)

17. הוסף את הקוד הבא בפונקציה PostWhseJnlLine Jnl משימת.-codeunit קו Post (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. הוספת משתנה מקומי חדש בפונקציה קוד Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

    • שם: TempTrackingSpecification

    • סוג נתונים: רשומה זמנית

    • סוג משנה: מעקב אחר מפרט (336)

19. הוספת משתנה מקומי חדש בפונקציה קוד Jnl משימת.-codeunit קו Post (1012), ולאחר מכן ציין את המשתנה כדלקמן:

    • שם: ItemJnlLine2

    • סוג נתונים: רשומה

    • סוג משנה: שורת יומן פריט (83)

20. לשנות את הקוד בפונקציה קוד Jnl משימת.-codeunit קו Post (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. שנה את ערך המאפיין OptionString של מסמך האסמכתא הפרמטר בפונקציה GetSourceDocument ב Whse. ניהול codeunit (5775) הבאים:
    OptionString= S., סדר, חשבונית S., S. הזיכוי, הזמנת החזרה S., p. הזמנה, חשבונית p., p. הזיכוי, הזמנת החזרה p., Inb. העברה, Outb. העברה, ייצור. צריכה, פריט Jnl., Phys. Invt. Jnl., Reclass. Jnl., צריכה Jnl., Jnl., BOM Jnl., Serv. הזמנת הפלט, משימה Jnl.

22. לשנות את הקוד בפונקציה GetSourceDocument ב Whse. ניהול codeunit (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. שנה את הקוד בפונקציה CreateWhseJnlLine ב codeunit ניהול 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.";
    ...