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

Veidne: CPR — Navision kodu labojumu veidne

KĻŪDAS numurs: 140208 (satura uzturēšana)

Šis raksts neattiecas uz Microsoft Dynamics NAV visās valstīs un visu valodu lokalizācijas.

Pazīmes

Pieņemsim, ka jums ir vairāk nekā vienu vienumu izsekošana rindas vienumu Microsoft Dynamics NAV 2009 darba žurnālu. Izliekot ziņu vienumu darbu žurnālā nodalījumam, noliktavas ieraksti tiek atjaunināts tikai ar pēdējo preces izsekošanas rindā ievadīto. Tāpēc ir neatbilstība starp noliktavu un preču grāmatas vienuma.
Šīs problēmas rodas ar šādiem produktiem:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009. gada 1. servisa pakotne (SP1)


Risinājums

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.

Ja šis labojumfails nav izlikts publiskai lejupielādei (t.i., šajā rakstā nav sniegts publiski pieejams šī labojumfaila vietrādis URL), izplatīšanai ir nepieciešama tehniskā vadītāja, eskalācijas grupas locekļa vai vadītāja atļauja un stājas spēkā šādi nosacījumi:

  • Labojumfailu var saņemt klienti ir radusies sadaļā "Simptomi" minēto kļūdas.

  • Jums ir jāreģistrē klienti, kuriem tiek nosūtīts šis labojumfails, un viņiem jānodrošina nākamā servisa pakotne, tiklīdz tā ir pieejama (ja tiek izlaista servisa pakotne).

Šo labojumfailu nav paredzēts iekļaut servisa pakotnē Microsoft Dynamics NAV 2009.



Informācija par instalēšanu

Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.

Piezīme. Pirms šī labojumfaila instalēšanas pārliecinieties, vai ka visi Microsoft Navision klients lietotāji ir atteikušies sistēmu. Tas ietver Microsoft Navision lietojumprogrammu pakalpojumus (NAS) klients lietotājiem. Jums ir jābūt tikai klienta lietotājam, kurš pieteicies, kurus skars šo labojumfailu.

Lai ieviestu šo labojumfailu, datorā jābūt instalētai izstrādātāja licenci.

Ieteicams, ka lietotāja konts tiek atvērts logs Windows lietotājvārdi vai logā datu bāzes lietotājvārdi piešķirt "SUPER" lomas ID. Ja lietotāja kontam nevar piešķirt "SUPER" lomas ID, ir jāpārbauda lietotāja konts ir šādas atļaujas:

  • Objektu, kad tiks mainīts modificēt atļaujas.

  • Izpildes atļaujas sistēmas objekts ID 5210 objekta un sistēmas objekts ID 9015 objektam.



Piezīme. Jums nav tiesības datu krātuvju vien veikt datu labošana.

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

Priekšnosacījumi

Datorā ir jābūt instalētai kādai no šiem produktiem, lai lietotu šo labojumfailu:

  • Microsoft Dynamics NAV 2009 R2

  • Microsoft Dynamics NAV 2009. gada 1. servisa pakotne (SP1)

Informācija par noņemšanu

Nevar noņemt šo labojumfailu.

Atsauces

VSTF DynamicsNAVSE: 235403

Statuss

Korporācija Microsoft ir apstiprinājusi, ka šī problēma pastāv Microsoft produktos, kas ir minēti sadaļā "Attiecas uz".

Piezīme. Šis ir STEIDZAMI PUBLICĒJAMS raksts, kas izveidots tieši Microsoft atbalsta organizācijā. Šajā rakstā ietvertā informācija ir sniegta, reaģējot uz nesen konstatētām problēmām. Tā kā šis raksts ir tapis pieejams neilgā laikā, materiālos var būt pareizrakstības kļūdas un tās var tikt labotas jebkurā laikā bez paziņojuma. Skatīt Lietošanas citi apsvērumi.

Autors: nhaman
Autors: v-zhipen
Tehniskais redaktors: nhaman
Redaktors:

Vai nepieciešama papildu palīdzība?

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Microsoft Insider

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×