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 kliknutím zaškrtnete políčko Upozornění na toleranci plateb v dialogovém okně Nastavení hlavní knihy v aplikaci Microsoft Dynamics NAV. Při zaúčtování deníku plateb odběratele nebo deníku plateb dodavatele, který má toleranci diskontů plateb a toleranci plateb, je debetní účet nebo kreditní účet pro toleranci platby a slevy plateb nesprávně použit v položkách hlavní knihy. V určitých scénářích je částka tolerance platby zaregistrována pro debetní účet, i když by měl být kreditní účet použit v položkách hlavní knihy.
K tomuto problému dochází u následujících produktů:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 5.0
Ř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 Microsoft Dynamics NAV nebo další verzi 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 určitého postupu, ale nebudou tyto příklady upravovat za účelem poskytování dalších funkcí nebo konstrukce procedur, které by splňovaly vaše konkrétní 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 ve funkci PostDtldVendLedgEntries v Gen. Jnl.-Post Řádková kódová jednotka (12) takto:
Existující kód 1… DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance": BEGIN IF GLSetup."Pmt. Disc. Tolerance Posting" = GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts" THEN BEGIN IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc."; END; END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" = GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts" THEN BEGIN IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc."; …Náhradní kód 1
… DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance": BEGIN IF GLSetup."Pmt. Disc. Tolerance Posting" = GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts" THEN BEGIN IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc."; END; END ELSE IF GLSetup."Pmt. Disc. Tolerance Posting" = GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts" THEN BEGIN IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc."; …Existující kód 2
… DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance": BEGIN IF GLSetup."Payment Tolerance Posting" = GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts" THEN BEGIN IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc."; END; END ELSE IF GLSetup."Payment Tolerance Posting" = GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts" THEN BEGIN IF (DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc."; …Náhradní kód 2
… DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance": BEGIN IF GLSetup."Payment Tolerance Posting" = GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts" THEN BEGIN IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Tolerance Credit Acc."; END; END ELSE IF GLSetup."Payment Tolerance Posting" = GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts" THEN BEGIN IF (-DtldCVLedgEntryBuf."Amount (LCY)" >= 0) THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); PaymentTolAcc := VendPostingGr."Payment Disc. Credit Acc."; …Změňte kód ve funkci AutoEntrForDtldVendLedgEntries v Gen. Jnl.-Post Řádková kódová jednotka (12) takto:
Existující kód 1… DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance": BEGIN CASE GLSetup."Pmt. Disc. Tolerance Posting" OF GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts": BEGIN IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); AccNo := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); AccNo := VendPostingGr."Payment Tolerance Credit Acc."; END; END; GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts": BEGIN IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); AccNo := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); AccNo := VendPostingGr."Payment Disc. Credit Acc."; …Náhradní kód 1
… DtldCVLedgEntryBuf."Entry Type"::"Payment Discount Tolerance": BEGIN CASE GLSetup."Pmt. Disc. Tolerance Posting" OF GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Tolerance Accounts": BEGIN IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); AccNo := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); AccNo := VendPostingGr."Payment Tolerance Credit Acc."; END; END; GLSetup."Pmt. Disc. Tolerance Posting"::"Payment Discount Accounts": BEGIN IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); AccNo := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); AccNo := VendPostingGr."Payment Disc. Credit Acc."; …Existující kód 2
… DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance": BEGIN CASE GLSetup."Payment Tolerance Posting" OF GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts": BEGIN IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); AccNo := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); AccNo := VendPostingGr."Payment Tolerance Credit Acc."; END; END; GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts": BEGIN IF DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); AccNo := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); AccNo := VendPostingGr."Payment Disc. Credit Acc."; …Náhradní kód 2
… DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance": BEGIN CASE GLSetup."Payment Tolerance Posting" OF GLSetup."Payment Tolerance Posting"::"Payment Tolerance Accounts": BEGIN IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Debit Acc."); AccNo := VendPostingGr."Payment Tolerance Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Tolerance Credit Acc."); AccNo := VendPostingGr."Payment Tolerance Credit Acc."; END; END; GLSetup."Payment Tolerance Posting"::"Payment Discount Accounts": BEGIN IF -DtldCVLedgEntryBuf."Amount (LCY)" < 0 THEN BEGIN VendPostingGr.TESTFIELD("Payment Disc. Debit Acc."); AccNo := VendPostingGr."Payment Disc. Debit Acc."; END ELSE BEGIN VendPostingGr.TESTFIELD("Payment Disc. Credit Acc."); AccNo := VendPostingGr."Payment Disc. Credit Acc."; …
Požadavky
Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 2009
- Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
- Microsoft Dynamics NAV 5.0
Informace o odebrání
Tuto opravu hotfix nelze odebrat.
Další informace naleznete v následujícím článku znalostní báze znalostní báze Microsoft Knowledge Base:
981697 Nesprávný účet hlavní knihy se použije při zaúčtování platby k použití faktury, kde byla použita "Plná DPH", pokud je povoleno nastavení "Úprava o slevu za platbu" ve formuláři "Nastavení hlavní knihy" v aplikaci Microsoft Dynamics NAV 2009
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í .