Noliktavas ieraksti netiek atjaunināts ar visu preču izsekošanas rindas darba žurnālā izliekot ziņu vienumu darbu žurnālā nodalījumam sistēmā Microsoft Dynamics NAV 2009

Informācija par labojumfailu

Pašlaik korporācija Microsoft piedāvā atbalstītu labojumfailu. Tomēr tas ir paredzēts tikai šajā rakstā aprakstītās problēmas novēršanai. Izmantojiet to tikai tām sistēmām, kurām ir radusies tieši šī problēma. Iespējams, tiks veikta šī labojumfaila papildu testēšana. Tādēļ, ja jums ir šī problēma nerada nopietnus traucējumus, ieteicams nogaidīt, līdz tiks izlaista nākamā Microsoft Dynamics NAV servisa pakotne vai nākamo Microsoft Dynamics NAV versiju, kurā ir iekļauts šis labojumfails.

Piezīme. Īpašos gadījumos standarta izmaksas par atbalsta zvaniem nav jāsedz, ja tehniskā atbalsta speciālists Microsoft Dynamics un saistītiem produktiem nosaka, ka šo problēmu novērsīs noteikts atjauninājums. Parasti atbalsta izmaksas tiek piemērotas jautājumiem par papildu atbalstu un problēmām, kas neskar specifisko atjauninājumu apspriešanu.

Koda izmaiņas

Piezīme. Vienmēr pārbaudes kods novērš kontrolētā vidē pirms lietojat datoru ražošanas labojumus.
Lai novērstu šo problēmu, rīkojieties šādi: izveidojiet vietējo mainīgos:

1. Pievienojiet jaunu globālo mainīgo darbu žurnāla rinda tabulā (210) un pēc tam norādiet Mainīgais šādi:

   • Vārds: WMSManagement

   • Datu tips: koda

   • Apakštips: WMS pārvaldības (7302)

2. Izdzēsiet kodu rekvizītā TableRelation Nodalījuma kodu (210) darbu žurnāla rinda tabulas laukā (5403):

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

3. Mainīt darbu žurnāla rinda tabulas (210) šādi OnValidate trigera nodalījuma kodu kodu laukā (5403):
   Kods

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

   Aizstāšanas kodu

   ...// 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. Pievieno jaunu lokālo mainīgo Nodalījuma kodu - OnLookup triggerin tabulu darbu žurnāla rinda (210) un pēc tam norādiet Mainīgais šādi:

   • Nosaukums: BinCode

   • Datu tips: kods

   • Length: 20

5. Pievieno šādu kodu Nodalījuma kods - OnLookup trigera darbu žurnāla rinda tabulā (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. Mainīt vērtību Pirmdokumenta lauka (25) noliktavas žurnāla rinda tabulā (7311) rekvizītā OptionString šim:
   OptionString, = s pasūtījumu, s rēķina, s kredīta vēsturi, s atgriešanas pasūtījumu, P. pasūtījumu, lpp rēķina, lpp kredīta vēsturi, P. atgriešanas pasūtījumu, Inb. Pārsūtīšanas Outb. Pārsūtīšanas Prod. Patēriņa preces žurnāla.. fiz. nol. Žurnāla pārklas. Žurnāla. patēriņa žurnāla, izdošanas žurnāla. IMS žurnāla, servisa pasūtījumu un darbu žurnāla.

7. Maināt vērtību Atsauces dokuments (60) noliktavas žurnāla rinda tabulas laukā (7311) OptionString rekvizīts šim:
   OptionString= , Rcpt., publicēta lpp rēķina ievietojis, ievietojis Rtrn. Rcpt., publicēta lpp kredītrēķinu, ievietojis nosūtīšanu, ievietojis s rēķina, ievietojis Rtrn. nosūtīšanu, ievietojis s kredītrēķinu, izlikti t saņemšanas ievietojis t nosūtīšanas krājumu žurnāla prod, izvietošana, izvēlēties kustības MK žurnālu, darbu žurnālā

8. Mainīt vērtību pirmdokumenta lauka (25) tabulā Noliktavas ieraksts (7312) rekvizītā OptionString šim:
   OptionString, = s secībā, s rēķina, s kredīta vēsturi, s atgriešanas pasūtījumu, P. pasūtījuma, rēķina P., P. kredīta vēsturi, P. atgriešanas pasūtījumu, Inb. Pārsūtīšanas Outb. Pārsūtīšanas Prod. Patēriņa preces žurnāla.. fiz. nol. Žurnāla pārklas. Žurnāla. patēriņa žurnāla, izdošanas žurnāla. IMS žurnāla, servisa pasūtījumu un darbu žurnāla.

9. Mainīt vērtību atsauces dokumenta lauka (60) tabulā Noliktavas ieraksts (7312) rekvizītā OptionString šim:
   OptionString= , Rcpt., publicēta lpp rēķina ievietojis, ievietojis Rtrn. Rcpt., publicēta lpp kredītrēķinu, ievietojis nosūtīšanu, ievietojis s rēķina, ievietojis Rtrn. nosūtīšanu, ievietojis s kredītrēķinu, izlikti t saņemšanas ievietojis t nosūtīšanas krājumu žurnāla prod, izvietošana, izvēlēties kustības MK žurnālu, darbu žurnālā

10. Mainiet redzama rekvizītu atrašanās vietas kods (60) darba žurnāla formā (201) šādi:
    Kods

    Visible = Yes

    Aizstāšanas kodu

    Visible = No

11. Pievienot lauka Nodalījuma kods laukā Novietojuma kods un lauku Darbības tipa kods darbu žurnāla formā (201) un pēc tam norādiet lauku, veiciet:

    ...{ 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. Pievienojiet jaunu globālo mainīgo darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

    • Vārds: atrašanās vieta

    • Datu tips: ieraksts

    • Apakštips: atrašanās vietas (14)

13. Izveidojiet jaunu GetLocation funkciju darba žurnāla.-pastu rindu koda (1012) šādi:

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

14. Pievienojiet šādu kodu funkciju GetLocation darba žurnāla.-Post rindu koda (1012):

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

15. Izveidojiet jaunu PostWhseJnlLine funkciju darba žurnāla.-Post rindu koda (1012) šādi:

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

16. Izveidot vietējās mainīgos funkciju PostWhseJnlLine darbu žurnāla.-pastu rindu koda (1012):

    1. Pievienot lokālo mainīgo funkciju PostWhseJnlLine darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

       • Nosaukums: WarehouseJournalLine

       • Datu tips: ierakstu.

       • Apakštips: (7311) noliktavas žurnāla rinda

    2. Pievienot lokālo mainīgo funkciju PostWhseJnlLine darba žurnāla.-pastu rindu koda (1012), un pēc tam norādiet Mainīgais šādi:

       • Nosaukums: TempWarehouseJournalLine

       • Datu tips: pagaidu ieraksts

       • Apakštips: noliktavas žurnāla rinda (7311)

    3. Pievienot lokālo mainīgo funkciju PostWhseJnlLine darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

       • Nosaukums: ItemTrackingManagement

       • Datu tips: koda

       • Apakštips: vienumu izsekošana Management (6500)

    4. Pievienot lokālo mainīgo funkciju PostWhseJnlLine darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

       • Nosaukums: WMSManagement

       • Datu tips: koda

       • Apakštips: WMS pārvaldība (7302)

    5. Pievienot lokālo mainīgo funkciju PostWhseJnlLine darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

       • Nosaukums: WhseJnlRegisterLine

       • Datu tips: koda

       • Apakštips: preču apstrādes laiks. Žurnāla-reģistra rindas (7301)

17. Pievienojiet šādu kodu funkciju PostWhseJnlLine darba žurnāla.-Post rindu koda (1012) šādi:

    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. Pievienojiet jaunu lokālo mainīgo kodu funkcijai darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

    • Nosaukums: TempTrackingSpecification

    • Datu tips: pagaidu ieraksts

    • Apakštips: Izsekošanas specifikācija (336)

19. Pievienojiet jaunu lokālo mainīgo kodu funkcijai darba žurnāla.-Post rindu koda (1012), un pēc tam norādiet mainīgo šādi:

    • Vārds: ItemJnlLine2

    • Datu tips: ieraksts

    • Apakštips: preču žurnāla rinda (83)

20. Nomainiet šo kodu kodu funkcijai darba žurnāla.-Post rindu koda (1012) šādi:
    Kods 1

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

    Aizstāšanas kods = 1

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

    Kods 2.

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

    Aizstāšanas kods 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. Mainiet vērtību rekvizītā OptionString parametru atsauces dokumenta funkciju GetSourceDocument preču apstrādes laiks. Vadības koda (5775) šādi:
    OptionString, = s pasūtījumu, s rēķina, s kredīta vēsturi, s atgriešanas pasūtījumu, P. pasūtījumu, lpp rēķina, lpp kredīta vēsturi, P. atgriešanas pasūtījumu, Inb. Outb nodošana. Prod nodošana. Patēriņa preces žurnāla.. fiz. nol. Žurnāla pārklas. Žurnāla. patēriņa žurnāla, izdošanas žurnāla. IMS žurnāla, servisa pasūtījumu un darbu žurnāla.

22. Nomainiet kodu GetSourceDocument funkciju preču apstrādes laiks. Koda vadības bloks (5775), šādi:
    Kods

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

    Aizstāšanas kodu

    ...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. Kā sekot nomainiet šo kodu CreateWhseJnlLine funkciju WMS vadības koda (7302):
    Kods

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

    Aizstāšanas kodu

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