Ovaj se članak odnosi na Microsoft Dynamics NAV za sve jezične regionalne sheme.
Simptomi
U sustavu Microsoft Dynamics NAV, kada postavite Br. za produkcijski BOM pomoću broja stavke u tablici artikala i zatim pokretanje izvješća "Količinska eksplozija BOM-a", izvješće prikazuje nepotpune stavke.
Taj se problem pojavljuje u sljedećim proizvodima:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009 R2
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:
Promijenite kod u funkciji podatkovne stavke broj 2 u izvješću Količina razrezanja BOM-a (99000753) na sljedeći način:
Postojeći kod 1... BomComponent[Level]."Production BOM No." := Item."Production BOM No."; BomComponent[Level].SETRANGE("Production BOM No.",Item."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); BomComponent[Level].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); BomComponent[Level].SETFILTER("Ending Date",'%1|%2..',0D,CalculateDate); NoList[Level] := Item."No."; Quantity[Level] := UOMMgt.GetQtyPerUnitOfMeasure(Item,Item."Base Unit of Measure") / UOMMgt.GetQtyPerUnitOfMeasure( Item, ...Zamjenski kod 1
... BomComponent[Level]."Production BOM No." := Item."Production BOM No."; BomComponent[Level].SETRANGE("Production BOM No.",Item."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); BomComponent[Level].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); BomComponent[Level].SETFILTER("Ending Date",'%1|%2..',0D,CalculateDate); // Add the following line. NoListType[Level] := NoListType[Level]::Item; // End of the added line. NoList[Level] := Item."No."; Quantity[Level] := UOMMgt.GetQtyPerUnitOfMeasure(Item,Item."Base Unit of Measure") / UOMMgt.GetQtyPerUnitOfMeasure( Item, ...Postojeći kod 2
... BEGIN WHILE BomComponent[Level].NEXT = 0 DO BEGIN Level := Level - 1; IF Level <1 THEN CurrReport.BREAK; // Delete the following line. IF NOT UpperLevelItem.GET(NoList[Level]) THEN // End of the deleted line. UpperLevelItem."Production BOM No." := NoList[Level]; BomComponent[Level].SETRANGE("Production BOM No.",UpperLevelItem."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); END; ...Zamjenski kod 2
... BEGIN WHILE BomComponent[Level].NEXT = 0 DO BEGIN Level := Level - 1; IF Level <1 THEN CurrReport.BREAK; // Add the following line. IF NoListType[NextLevel] = NoListType[NextLevel]::"Production BOM" THEN // End of the added line. UpperLevelItem."Production BOM No." := NoList[Level]; BomComponent[Level].SETRANGE("Production BOM No.",UpperLevelItem."Production BOM No."); BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]); END; ...Postojeći kod 3
... BEGIN CompItem.GET(BomComponent[Level]."No."); IF CompItem."Production BOM No."<>'' THEN BEGIN NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); NoList[NextLevel] := CompItem."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(CompItem."Production BOM No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",CompItem."Production BOM No."); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); ...Zamjenski kod 3
... BEGIN CompItem.GET(BomComponent[Level]."No."); IF CompItem."Production BOM No."<>'' THEN BEGIN NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); // Add the following line. NoListType[NextLevel] := NoListType[NextLevel]::Item; // End of the added line. NoList[NextLevel] := CompItem."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(CompItem."Production BOM No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",CompItem."Production BOM No."); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); ...Postojeći kod 4
... CompItem, VersionMgt.GetBOMUnitOfMeasure( CompItem."Production BOM No.",VersionCode[NextLevel])); END; IF Level > 1 THEN BEGIN // Delete the following lines. IF BomItem.GET(BomComponent[Level - 1]."No.") THEN BEGIN QtyPerUnitOfMeasure := UOMMgt.GetQtyPerUnitOfMeasure(BomItem,BomComponent[Level - 1]."Unit of Measure Code") / UOMMgt.GetQtyPerUnitOfMeasure( BomItem,VersionMgt.GetBOMUnitOfMeasure(BomItem."Production BOM No.",VersionCode[Level])); // End of the deleted lines. END; END; END; BomComponent[Level].Type::"Production BOM": BEGIN ...Zamjenski kod 4
... CompItem, VersionMgt.GetBOMUnitOfMeasure( CompItem."Production BOM No.",VersionCode[NextLevel])); END; IF Level > 1 THEN BEGIN // Add the following lines. IF (BomComponent[Level - 1].Type = BomComponent[Level - 1].Type::Item) THEN BEGIN IF BomItem.GET(BomComponent[Level - 1]."No.") THEN BEGIN QtyPerUnitOfMeasure := UOMMgt.GetQtyPerUnitOfMeasure(BomItem,BomComponent[Level - 1]."Unit of Measure Code") / UOMMgt.GetQtyPerUnitOfMeasure( BomItem,VersionMgt.GetBOMUnitOfMeasure(BomItem."Production BOM No.",VersionCode[Level])); END; // End of the added lines. END; END; END; BomComponent[Level].Type::"Production BOM": BEGIN ...Postojeći kod 5
... BomComponent[Level].Type::"Production BOM": BEGIN ProdBOM.GET(BomComponent[Level]."No."); NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); NoList[NextLevel] := ProdBOM."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(ProdBOM."No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",NoList[NextLevel]); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); BomComponent[NextLevel].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); ...Zamjenski kod 5
... BomComponent[Level].Type::"Production BOM": BEGIN ProdBOM.GET(BomComponent[Level]."No."); NextLevel := Level + 1; CLEAR(BomComponent[NextLevel]); // Add the following line. NoListType[NextLevel] := NoListType[NextLevel]::"Production BOM"; // End of the added line. NoList[NextLevel] := ProdBOM."No."; VersionCode[NextLevel] := VersionMgt.GetBOMVersion(ProdBOM."No.",CalculateDate,FALSE); BomComponent[NextLevel].SETRANGE("Production BOM No.",NoList[NextLevel]); BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]); BomComponent[NextLevel].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); ...Promijenite kod u globalnim varijablama u izvješću Količina razgradnje BOM-a (99000753) na sljedeći način:
Postojeći kod... Quantity@1013 : ARRAY [99] OF Decimal; QtyPerUnitOfMeasure@1014 : Decimal; Level@1015 : Integer; NextLevel@1016 : Integer; BOMQty@1017 : Decimal; BEGIN END. } RDLDATA ...Zamjenski kôd
... Quantity@1013 : ARRAY [99] OF Decimal; QtyPerUnitOfMeasure@1014 : Decimal; Level@1015 : Integer; NextLevel@1016 : Integer; BOMQty@1017 : Decimal; // Add the following line. NoListType@1018 : ARRAY [99] OF ' ,Item,Production BOM'; // End of the added line. BEGIN END. } RDLDATA ...
Preduvjeti
Da biste primijenili ovaj hitni popravak, morate imati instaliran neki od sljedećih proizvoda:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009 R2
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“.
Reference
VSTF DynamicsNAV SE: 251802
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 .