Lao kirjed kõigi üksuse jälgimise töö töölehe ridade üksus sisestamisel töölehe alusele Microsoft Dynamics nav-i 2009 ei värskendata

Kiirparanduse teave

Lasknud välja toetatava käigultparanduse on nüüd Microsoftilt saadaval. Aga see on ette nähtud ainult selles artiklis kirjeldatud probleemi kõrvaldamiseks. Rakendage seda ainult süsteemides, kus ilmneb see konkreetne probleem. Seda käigultparandust võidakse täiendavalt testida. Seega, kui probleem teie tööd tõsiselt ei kahjusta, soovitame oodata järgmist hoolduspaketti Microsoft Dynamics nav-i või järgmise Microsoft Dynamics nav-i versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel kulud, mis tekivad teatud palub tühistada saab kui tehniline toetus Professional Microsoft Dynamics ja nendega seotud toodete leiab, et mõni konkreetne värskendus lahendab teie probleemi. Tavaline tugiteenuste kohaldatakse täiendavat tugiteenust vajavatele küsimustele ning probleemidele, mis pole lahendatavad konkreetse värskenduse installimisega.

Koodi muudatusi

Märkus. Alati test koodi lahendab kontrollitavas keskkonnas enne rakendamist tootmine arvutite parandused.
Selle probleemi lahendamiseks toimige järgmiselt: luua kohaliku järgmised muutujad:

1. Lisage uus Globaalne muutuja tabeli töö rida (210) ja seejärel määrake muutuja järgmiselt:

   • Nimi: WMSManagement

   • Andmetüüp: koodiplokk

   • Alamliiki: WMS haldus (7302)

2. Kustuta järgmine kood Aluse tähis atribuudi TableRelation väli (5403) töö töölehe rida tabelis (210):

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

3. Muuda OnValidate käivitab Bin koodi koodi väli (5403) töö töölehe rida tabelis (210) järgmiselt:
   Kood

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

   Eemaldamise teave

   ...// 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. Lisage uus kohaliku muutuja Aluse tähis - OnLookup triggerin töö töölehe rida tabelis (210) ja seejärel määrake muutuja järgmiselt:

   • Nimi: BinCode

   • Andmetüüp: kood

   • Pikkus: 20

5. Lisage järgmine kood Aluse tähis - OnLookup käivitab töö töölehe rida tabelis (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. Lao töölehe rida tabeli (7311) välja Lähtedokument (25) OptionString atribuudi väärtust muuta järgmisega:
   OptionString=, S. järjestuses, S. arve, S. kreeditarve, S. korra, lk tellimus, lk arve, lk kreeditarve, lk korra, Inb. Üleminek Outb. Üleminek Prod. Tarbimise GetLocation, inventuuri. Žurnaali., ümberklassif. Žurnaali., tarbimine žurnaali. väljund žurnaali., Koosluse žurnaali. Serv järjestuses, töö žurnaali.

7. Lao töölehe rida tabeli (7311) välja Viide dokumendi (60) OptionString atribuudi väärtust muuta järgmisega:
   OptionString= , postitatud saatelehe postitatud lk arve, postitatud Rtrn. saatelehe, lk kreeditarve, postitatud lähetus, postitatud S. arve, postitatud Rtrn. lähetus, postitatud S. kreeditarve, postitatud T. saamisel postitatud T. saadetise postitatud üksuse päevik, Lisateenused, ladustamine, noppimine, liikumine, Koosluse töölehe, töö töölehe

8. Lähtedokument välja (25) laokanne tabelis (7312) OptionString atribuudi väärtust muuta järgmisega:
   OptionString=, S. järjestuses, S. arve, S. kreeditarve, S. korra, lk tellimus, lk arve, lk kreeditarve, lk korra, Inb. Üleminek Outb. Üleminek Prod. Tarbimise GetLocation, inventuuri. Žurnaali., ümberklassif. Žurnaali., tarbimine žurnaali. väljund žurnaali., Koosluse žurnaali. operaatori tellimuse, töö žurnaali.

9. Dokumendi välja (60) laokanne tabelis (7312) OptionString atribuudi väärtust muuta järgmisega:
   OptionString= , postitatud saatelehe postitatud lk arve, postitatud Rtrn. saatelehe, lk kreeditarve, postitatud lähetus, postitatud S. arve, postitatud Rtrn. lähetus, postitatud S. kreeditarve, postitatud T. saamisel postitatud T. saadetise postitatud üksuse päevik, Lisateenused, ladustamine, noppimine, liikumine, Koosluse töölehe, töö töölehe

10. Asukoha kood juhtelemendi (60) töö töölehe vormil (201) kuvatud atribuudi muutmiseks järgmiselt:
    Kood

    Visible = Yes

    Eemaldamise teave

    Visible = No

11. Lisage Asukoha kood ja Töö kood vaheline välja Aluse tähis töö töölehe vormil (201) ja seejärel määrake välja järgmised:

    ...{ 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. Lisa uus Globaalne muutuja töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

    • Nimi: asukoht

    • Andmetüüp: kirje

    • Alamliiki: asukoht (14)

13. Looge uus theItem žurnaali funktsiooni töö žurnaali.-Post LineCodeunit (1012) järgmiselt:

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

14. Lisage järgmine kood theItem žurnaali funktsioonis töö žurnaali.-Post LineCodeunit (1012):

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

15. Looge uus PostWhseJnlLine funktsiooni töö žurnaali.-Post LineCodeunit (1012) järgmiselt:

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

16. Looge järgmiste kohalike muutujate PostWhseJnlLine funktsiooni töö žurnaali.-Post LineCodeunit (1012):

    1. Lisage kohaliku muutuja PostWhseJnlLine funktsioon töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

       • Nimi: WarehouseJournalLine

       • Andmetüüp: kirje

       • Alamliiki: Lao töölehe rida (7311)

    2. Lisage kohaliku muutuja PostWhseJnlLine funktsioon töö žurnaali.-Post LineCodeunit (1012) ning seejärel määrake muutuja järgmiselt:

       • Nimi: TempWarehouseJournalLine

       • Andmetüüp: ajutine kirje

       • Alamliiki: Lao töölehe rida (7311)

    3. Lisage kohaliku muutuja PostWhseJnlLine funktsioon töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

       • Nimi: ItemTrackingManagement

       • Andmetüüp: koodiplokk

       • Alamliiki: kauba haldus (6500)

    4. Lisage kohaliku muutuja PostWhseJnlLine funktsioon töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

       • Nimi: WMSManagement

       • Andmetüüp: koodiplokk

       • Alamliiki: WMS Management (7302)

    5. Lisage kohaliku muutuja PostWhseJnlLine funktsioon töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

       • Nimi: WhseJnlRegisterLine

       • Andmetüüp: koodiplokk

       • Alatüüpi: Lao. Žurnaali-Line registreerimine (7301)

17. Lisage järgmine kood PostWhseJnlLine funktsiooni töö žurnaali.-Post LineCodeunit (1012) järgmiselt:

    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. Uue kohaliku muutuja lisada koodi funktsiooni töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

    • Nimi: TempTrackingSpecification

    • Andmetüüp: ajutine kirje

    • Alamliiki: jälgimise spetsifikatsiooni (336)

19. Uue kohaliku muutuja lisada koodi funktsiooni töö žurnaali.-Post LineCodeunit (1012) ja seejärel määrake muutuja järgmiselt:

    • Nimi: ItemJnlLine2

    • Andmetüüp: kirje

    • Alamliiki: üksuse rea (83)

20. Muutke koodi koodi funktsiooni töö žurnaali.-Post LineCodeunit (1012) järgmiselt:
    Kood 1

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

    Kood 1

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

    Kood 2

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

    Asendamine kood 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. Muutke dokumendi parameeter GetSourceDocument funktsiooni lao sisemise OptionString atribuudi väärtus. Halduse koodiplokk (5775) järgmine:
    OptionString=, S. järjestuses, S. arve, S. kreeditarve, S. korra, lk tellimus, lk arve, lk kreeditarve, lk korra, Inb. Üleminek Outb. Üleminek Prod. Tarbimise GetLocation, inventuuri. Žurnaali., ümberklassif. Žurnaali., tarbimine žurnaali. väljund žurnaali., Koosluse žurnaali. operaatori tellimuse, töö žurnaali.

22. Lao sisemise GetSourceDocument funktsioon koodi muuta. Halduse koodiplokk (5775) järgmiselt:
    Kood

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

    Eemaldamise teave

    ...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. Muuta koodi CreateWhseJnlLine funktsiooni WMS Management koodiplokk (7302) järgmised:
    Kood

    ...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.";
    ...
    

    Eemaldamise teave

    ...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.";
    ...