Do neravnoteže između stavki u skladištu i stavki u knjizi stavki dolazi kada otpremate stavku kompleta koja ima potvrđen okvir "Automatska međuverzija paketa" s lokacije u sustavu Microsoft Dynamics NAV 2009

Primjenjuje se na

Dynamics NAV 2009

Ovaj se članak odnosi na Microsoft Dynamics NAV za sve regije.

Simptomi

Pretpostavimo da ste potvrdili okvire Zatraži odabir i Obavezan koš za mjesto u dijaloškom okviru Kartica lokacije u sustavu Microsoft Dynamics NAV 2009. Kada otpremate prodajnu narudžbu za stavku kompleta koja na mjestu ima potvrđen okvir Automatska sastavnica kompleta , na unosu skladišta ostaje neispravna količina. Međutim, stavka Knjiga stavki prikazuje točnu količinu za stavku prodaje. Stoga postoji neravnoteža između unosa skladišta i unosa u knjigu artikala.
Taj se problem pojavljuje u sljedećim proizvodima:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

Rješenje

Informacije o hitnom popravku

Microsoft sada nudi podržani hitni popravak. No njegova je namjena samo ispravljanje problema opisanog u ovom članku. Primijenite ga samo na sustave koji imaju taj specifični problem. Ovaj hitni popravak može proći dodatna testiranja. Stoga, ako se ovaj problem ne odnosi ozbiljno, preporučujemo da pričekate sljedeći servisni paket za Microsoft Dynamics NAV 2009 ili sljedeću verziju sustava Microsoft Dynamics NAV koja sadrži ovaj hitni popravak.

Napomena: U posebnim slučajevima, ako stručnjak tehničke podrške za Microsoft Dynamics i povezane proizvode utvrdi da određeno ažuriranje može riješiti problem, poziv službi podrške može biti besplatan. Uobičajene cijene poziva službi za podršku primjenjuju se na dodatna pitanja i probleme koje nemaju veze s pripadnom nadopunom.

Informacije o instalaciji

Microsoft daje primjere programiranja samo za ilustraciju, bez jamstva, bilo izričitog ili prešutnog. To uključuje, bez ograničenja, implicitna jamstva utrživosti ili prikladnosti za određenu svrhu. U članku se podrazumijeva da ste upoznati s programskim jezikom koji se pokazuje te s alatima koji se koriste za stvaranje i ispravljanje pogrešaka procedura. Microsoftovi inženjeri za podršku mogu vam pomoći objasniti funkcionalnost određene procedure, no neće mijenjati te primjere radi pružanja dodatne funkcionalnosti ili konstruirati procedure koji zadovoljavaju vaše specifične zahtjeve.

Napomena Prije nego što instalirate ovaj hitni popravak, provjerite jesu li svi korisnici Microsoft Navision klijenta odjavljeni sa sustava. To obuhvaća korisnike klijentskih usluga Microsoft Navision Application Services (NAS). Trebali biste biti jedini klijentski korisnik prijavljen na vrijeme implementacije ovog hitnog popravka.

Da biste implementirali ovaj hitni popravak, morate imati licencu za razvojne inženjere.

Preporučujemo da se korisničkom računu u prozoru Prijave u sustav Windows ili u prozoru Prijave u bazu podataka dodijeli ID uloge "SUPER". Ako korisničkom računu nije moguće dodijeliti ID uloge "SUPER", morate provjeriti ima li korisnički račun sljedeće dozvole:

Dozvola za izmjenu objekta koji ćete mijenjati.
Dozvola za izvršavanje za objekt System Object ID 5210 i za objekt System Object ID 9015

Napomena: nemate pravo na spremišta podataka, osim ako morate popraviti podatke.

Promjene koda

Napomena: uvijek testirajte popravke koda u kontroliranom okruženju prije primjene popravaka na proizvodnim računalima.
Da biste riješili taj problem, učinite sljedeće:

Stvorite novu globalnu varijablu u stavci Jnl.-Poštanska linijska jedinica koda (22), a zatim odredite varijablu na sljedeći način:
- Naziv: TempWhseJnlLine
- DataType: Record
- Podvrsta: Redak dnevnika skladišta
- Privremeno: Da

Promijenite kod u funkciji PostOutput u jedinici koda stavke Jnl.-Post Line (22) na sljedeći način:
Postojeći kod

...
"Invoiced Quantity" := 0;
END;
PostItem;
IF NOT Kitting THEN
UpdateProdOrderLine(ProdOrderLine,ReTrack);

// Delete the following lines. 
IF Location."Bin Mandatory" AND (NOT CalledFromInvtPutawayPick) THEN
WhseJnlPostLine.RUN(WhseJnlLine);
// End of the lines.

END;
END;
END;
...

Zamjenski kôd

...
"Invoiced Quantity" := 0;
END;
PostItem;
IF NOT Kitting THEN
UpdateProdOrderLine(ProdOrderLine,ReTrack);

// Add the following lines.
IF Location."Bin Mandatory" AND (NOT CalledFromInvtPutawayPick) THEN BEGIN
TempWhseJnlLine := WhseJnlLine;
WhseJnlPostLine.RUN(WhseJnlLine);
END;
// End of the lines.

END;
END;
END;
...

Stvorite proceduru GetOutputWhseJnlLine u stavci Jnl.-Post Line codeunit (22) na sljedeći način:
1. Stvorite varijablu parametra, a zatim varijablu navedite na sljedeći način:
  - Naziv: OutputWhseJnlLine
  - DataType: Record
  - Podvrsta: Redak dnevnika skladišta
  - Privremeno: Da
2. Kod dodajte na sljedeći način:
```
PROCEDURE GetOutputWhseJnlLine(VAR OutputWhseJnlLine);
OutputWhseJnlLine := TempWhseJnlLine;
OutputWhseJnlLine.INSERT;
```
Stvorite novu lokalnu varijabliju u funkciji Code u jedinici koda BOM Jnl.-Post Line (32), a zatim varijablu navedite na sljedeći način:
- Naziv: TempOutputWhseJnlLine
- DataType: Record
- Podvrsta: Redak dnevnika skladišta
- Privremeno: Da

Promijenite kod u funkciji Code u jedinici koda BOM Jnl.-Post Line (32) na sljedeći način:
Postojeći kod 1

...
TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2); 
ReserveBOMJnlLine.TransferBOMJnlToItemJnlLine(BOMJnlLine,ItemJnlLine,"Quantity (Base)");
ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim2);
IF "Entry Type" = "Entry Type"::Assembly THEN BEGIN
ProdOrderLine.DELETE;
ProdOrderLine.Status := ProdOrderLine.Status::Finished;
ProdOrderLine.INSERT;
...

Zamjenski kod 1

...
TransferDimToItemJnlLine(ItemJnlLine,TempJnlLineDim2); 
ReserveBOMJnlLine.TransferBOMJnlToItemJnlLine(BOMJnlLine,ItemJnlLine,"Quantity (Base)");
ItemJnlPostLine.RunWithCheck(ItemJnlLine,TempJnlLineDim2);

// Add the following line.
ItemJnlPostLine.GetOutputWhseJnlLine(TempOutputWhseJnlLine);

IF "Entry Type" = "Entry Type"::Assembly THEN BEGIN
ProdOrderLine.DELETE;
ProdOrderLine.Status := ProdOrderLine.Status::Finished;
ProdOrderLine.INSERT;
...

Postojeći kod 2

...
OutputItemLedgEntryNo := ItemJnlLine."Item Shpt. Entry No.";
END;
PostWhseJnlLine(ItemJnlLine,TempHandlingSpecification,OriginalQuantity,OriginalQuantityBase);
PostTempJnlLines;
IF BOMReg."No." = 0 THEN BEGIN
BOMReg.LOCKTABLE;
IF BOMReg.FIND('+') THEN
BOMReg."No." := BOMReg."No." + 1
...

Zamjenski kod 2

...
OutputItemLedgEntryNo := ItemJnlLine."Item Shpt. Entry No.";
END;
PostWhseJnlLine(ItemJnlLine,TempHandlingSpecification,OriginalQuantity,OriginalQuantityBase);
PostTempJnlLines;

// Add the following line.
PostSalesWhseJnlLine(TempOutputWhseJnlLine);

IF BOMReg."No." = 0 THEN BEGIN
BOMReg.LOCKTABLE;
IF BOMReg.FIND('+') THEN
BOMReg."No." := BOMReg."No." + 1
...

Stvorite funkciju PostSalesWhseJnlLine u jedinici koda BOM Jnl.-Post Line (32) na sljedeći način:

Stvorite novi parametar, a zatim ga definirajte na sljedeći način:
- Naziv: TempOutputWhseJnlLine2
- DataType: Record
- Podvrsta: Redak dnevnika skladišta
- Privremeno: Da

Kod dodajte na sljedeći način:

LOCAL PROCEDURE PostSalesWhseJnlLine(VAR TempOutputWhseJnlLine);
BEGIN
WITH TempOutputWhseJnlLine2 DO BEGIN
IF FINDFIRST THEN BEGIN
Quantity := -Quantity;
"From Bin Code" := "To Bin Code";
"From Zone Code" := "To Zone Code";
"To Bin Code" := '';
"To Zone Code" := '';
WhseJnlPostLine.RUN(TempOutputWhseJnlLine2);
END;
END;
END;

Preduvjeti

Da biste primijenili ovaj hitni popravak, morate imati instaliran neki od sljedećih proizvoda:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

Podaci o uklanjanju

Ovaj hitni popravak ne možete ukloniti.

Status

Microsoft je potvrdio da je to problem u Microsoftovim proizvodima koji su navedeni u odjeljku „Odnosi se na“.

Napomena: Ovo je članak "FAST PUBLISH" stvoren izravno u Microsoftovoj ustanovi za podršku. Ovdje sadržane informacije pružaju se takve kakve jesu kao odgovor na nove probleme. Kao rezultat brzine stavljanja na raspolaganje, materijali mogu sadržavati tipografske pogreške i mogu se revidirati u bilo kojem trenutku bez prethodne najave. Dodatne napomene potražite u Uvjetima korištenja .