Tento článek platí pro Microsoft Dynamics NAV pro všechny země a všechna jazyková národní prostředí.
Příznaky
Předpokládejme, že povolíte sériové číslo. Specifické nastavení Sledování pro položku v nákupní objednávce nebo v prodejní objednávce v aplikaci Microsoft Dynamics NAV 2009 R2 a v aplikaci Microsoft Dynamics NAV 2009 Service Pack 1 (SP1). Když zaúčtujete nákupní objednávku nebo prodejní objednávku, která obsahuje částečné množství položky, systém vám umožní objednávku neočekávaně zaúčtovat. Systém by vám však měl umožnit odeslat pouze objednávku, která obsahuje celé množství položky.
Řešení
Informace o opravě hotfix
Od Microsoftu je teď k dispozici podporovaná oprava hotfix. Účelem je však pouze vyřešení problému, který je popsán v tomto článku. Aplikujte ho jenom na systémy, ve kterých dochází k tomuto konkrétnímu problému. Tato oprava hotfix může projít dalším testováním. Pokud se vás tedy tento problém vážně netýká, doporučujeme počkat na další aktualizaci Service Pack pro produkt Microsoft Dynamics NAV 2009 nebo další verzi aplikace Microsoft Dynamics NAV, která tuto opravu hotfix obsahuje.
Poznámka: Ve zvláštních případech mohou být poplatky, které jsou obvykle účtovány za telefonická hovory podpory, zrušeny, pokud pracovník technické podpory pro řešení Microsoft Dynamics a související produkty zjistí, že konkrétní aktualizace vyřeší váš problém. Další dotazy a problémy týkající se podpory, které se netýkají této konkrétní opravy, podléhají běžným sazbám za podporu.
Informace o instalaci
Společnost Microsoft poskytuje příklady programování pouze pro ilustraci, bez záruky, ať už vyjádřené nebo předpokládané. To zahrnuje, ale není omezeno na, předpokládané záruky prodejnosti nebo vhodnosti pro konkrétní účel. Tento článek předpokládá, že jste obeznámeni s programovacím jazykem, který je předváděn, a s nástroji, které se používají k vytváření a ladění procedur. Pracovníci technické podpory Microsoftu vám můžou pomoct vysvětlit funkčnost konkrétního postupu. Tyto příklady však neupraví za účelem poskytnutí dalších funkcí ani nevytvoří procedury, které by splňovaly vaše specifické požadavky.
Poznámka: Před instalací této opravy hotfix ověřte, zda jsou všichni uživatelé klienta Microsoft Navision odhlášeni ze systému. To zahrnuje i uživatele klienta Microsoft Navision Application Services (NAS). Měli byste být jediným klientským uživatelem, který je přihlášen při implementaci této opravy hotfix.
K implementaci této opravy hotfix musíte mít vývojářskou licenci.
Doporučujeme, aby uživatelské účtu v okně Windows Přihlášení nebo v okně Přihlášení k databázi bylo přiřazeno ID role "SUPER". Pokud nelze uživatelskému účtu přiřadit ID role "SUPER", je nutné ověřit, zda má uživatelský účet následující oprávnění:
- Oprávnění k úpravám objektu, který budete měnit.
- Oprávnění ke spuštění pro objekt s ID systémového objektu 5210 a pro objekt s ID systémového objektu 9015.
Poznámka: K úložištím dat nemusíte mít práva, ledaže byste museli provádět opravu dat.
Změny kódu
Poznámka: Před použitím oprav v produkčních počítačích vždy otestujte opravy kódu v kontrolovaném prostředí.
Chcete-li tento problém vyřešit, postupujte takto:
Změňte kód v tabulce Řádek prodeje (37). Postupujte takto:
Přidejte globální textovou konstantu a potom ji zadejte následujícím způsobem:
- Název: Text055
- ConstValue: ENU=Množství musí být celé číslo, protože položka %1 je nastavena pro SN Specific Tracking.
Následujícím způsobem změňte kód v části Počet na Faktura – OnValidatetrigger:
Existující kód... "VAT Difference" := 0; CalcInvDiscToInvoice; CalcPrepaymentToDeduct; ...Náhradní kód
... VAT Difference" := 0; CalcInvDiscToInvoice; CalcPrepaymentToDeduct; // Add the following line. CheckPartialOnSNTracking(xRec."Qty. to Invoice","Qty. to Invoice"); ...Následujícím způsobem změňte kód v části Množství na Odeslat – aktivační událost OnValidation:
Existující kód... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Qty. to Ship" < 0) THEN CheckApplFromItemLedgEntry(ItemLedgEntry); ...Náhradní kód
... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Qty. to Ship" < 0) THEN CheckApplFromItemLedgEntry(ItemLedgEntry); // Add the following line. CheckPartialOnSNTracking(xRec."Qty. to Ship","Qty. to Ship"); ...Následujícím způsobem změňte kód v Return Qty. to Receive – OnValidate trigger:
Existující kód... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Return Qty. to Receive" > 0) THEN CheckApplFromItemLedgEntry(ItemLedgEntry); ...Náhradní kód
... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Return Qty. to Receive" > 0) THEN CheckApplFromItemLedgEntry(ItemLedgEntry); // Add the following line. CheckPartialOnSNTracking(xRec."Return Qty. to Receive","Return Qty. to Receive"); ...Novou funkci vytvoříte následujícím způsobem:
LOCAL PROCEDURE CheckPartialOnSNTracking@1109(PrevQty@1000 : Decimal;NewQty@1001 : Decimal); VAR Item@1003 : Record 27; ItemTracking@1004 : Record 6502; //Code.Add.begin IF (PrevQty <> NewQty) AND (Type = Type::Item) THEN BEGIN IF Item.GET("No.") THEN IF ItemTracking.GET(Item."Item Tracking Code") THEN IF ItemTracking."SN Specific Tracking" THEN IF ROUND(NewQty,1) <> NewQty THEN ERROR(Text055,Item."No."); END;
Změňte kód v tabulce Řádek nákupu (39). Postupujte takto:
Přidejte globální textovou konstantu a potom ji zadejte následujícím způsobem:
- Název: Text055
- ConstValue: ENU=Množství musí být celé číslo, protože položka %1 je nastavena pro SN Specific Tracking.
Následujícím způsobem změňte kód v části Množství na Faktura – OnValidatetrigger:
Existující kód... VAT Difference" := 0; CalcInvDiscToInvoice; CalcPrepaymentToDeduct; ...Náhradní kód
... "VAT Difference" := 0; CalcInvDiscToInvoice; CalcPrepaymentToDeduct; // Add the following line. CheckPartialOnSNTracking(xRec."Qty. to Invoice (Base)","Qty. to Invoice (Base)"); ...Následujícím způsobem změňte kód v poli Počet aktivačních událostí pro příjem – OnValid:
Existující kód... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Qty. to Receive" < 0) THEN CheckApplToItemLedgEntry; ...Náhradní kód
... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Qty. to Receive" < 0) THEN CheckApplToItemLedgEntry; // Add the following line. CheckPartialOnSNTracking(xRec."Qty. to Receive (Base)","Qty. to Receive (Base)"); ...Následujícím způsobem změňte kód v Return Qty. to Receive – OnValidate trigger:
Existující kód...IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Qty. to Receive" < 0) THEN CheckApplToItemLedgEntry; ...Náhradní kód
...IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Qty. to Receive" < 0) THEN CheckApplToItemLedgEntry; // Add the following line. CheckPartialOnSNTracking(xRec."Qty. to Receive (Base)","Qty. to Receive (Base)"); ...Následujícím způsobem změňte kód v Return Qty. na Ship – OnValidate trigger
Existující kód... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Return Qty. to Ship" > 0) THEN CheckApplToItemLedgEntry; ...Náhradní kód
... IF (CurrFieldNo <> 0) AND (Type = Type::Item) AND ("Return Qty. to Ship" > 0) THEN CheckApplToItemLedgEntry; // Add the following line. CheckPartialOnSNTracking(xRec."Return Qty. to Ship","Return Qty. to Ship"); ...Novou funkci vytvoříte následujícím způsobem:
LOCAL PROCEDURE CheckPartialOnSNTracking@1109(PrevQty@1000 : Decimal;NewQty@1001 : Decimal); VAR Item@1003 : Record 27; ItemTracking@1004 : Record 6502; //Code.Add.begin IF (PrevQty <> NewQty) AND (Type = Type::Item) THEN BEGIN IF Item.GET("No.") THEN IF ItemTracking.GET(Item."Item Tracking Code") THEN IF ItemTracking."SN Specific Tracking" THEN IF ROUND(NewQty,1) <> NewQty THEN ERROR(Text055,Item."No."); END;
Požadavky
Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1
Informace o odebrání
Tuto opravu hotfix nelze odebrat.
Stav
Společnost Microsoft potvrdila, že se jedná o problém produktů Microsoft, které jsou uvedeny v sekci Platí pro.
Poznámka: Toto je článek určený k rychlému zveřejnění, který byl vytvořen přímo v rámci organizace podpory společnosti Microsoft. Zde uvedené informace jsou poskytovány tak, jak jsou, jako reakce na nově vznikající potíže. Vzhledem k rychlosti, s jakou byl článek zpřístupněn, mohou příslušné materiály obsahovat typografické chyby a mohou být kdykoli bez předchozího upozornění revidovány. Další okolnosti viz Podmínky použití .