Tento článek se týká aplikace Microsoft Dynamics NAV pro národní prostředí v indickém jazyce.
Příznaky
Předpokládejme, že máte platbu pomocí daně ze služeb uvedené v indické verzi aplikace Microsoft Dynamics NAV 2009. Vytvoříte nákupní fakturu, která má více řádků s různými hodnotami dimenze, které se použijí na platbu. V této situaci se při zaúčtování nákupní faktury zobrazí následující chybová zpráva:
Poznámka
Vyrovnaný platební doklad xxxx by neměl mít částku k vyrovnání větší než částku.
K tomuto problému dochází u následujících produktů:
- Indická verze aplikace Microsoft Dynamics NAV 2009 R2
- Indická verze aplikace Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Ř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 FillInvPostingBuffer v jednotce kódu Purch.-Post (90) takto:
Existující kód... InvPostingBuffer[1].SetTaxAmountswithVAT(AmountLoadedonInventory,InputOutputTaxAmount,CapitalGoods,VatablePurchaseTaxAmount,0); IF (PurchLine."Service Tax Amount" <> 0) THEN BEGIN FillSTaxPostingBuffer(PurchLine,PurchLineACY); // Delete the following lines. STaxPostingBuffer2.TRANSFERFIELDS(STaxPostingBuffer[1]); STaxPostingBuffer2.Amount := // End of the lines. STaxPostingBuffer2."Service Tax Base Amount" + STaxPostingBuffer2."Service Tax Amount" + STaxPostingBuffer2."Service Tax eCess Amount" + STaxPostingBuffer2."Service Tax SHE Cess Amount"; IF NOT STaxPostingBuffer2.INSERT THEN STaxPostingBuffer2.MODIFY; END; ...Náhradní kód
... InvPostingBuffer[1].SetTaxAmountswithVAT(AmountLoadedonInventory,InputOutputTaxAmount,CapitalGoods,VatablePurchaseTaxAmount,0); IF (PurchLine."Service Tax Amount" <> 0) THEN BEGIN FillSTaxPostingBuffer(PurchLine,PurchLineACY); // Add the following lines. STaxPostingBuffer2.TRANSFERFIELDS(STaxPostingBuffer[2]); STaxPostingBuffer2.Amount := STaxPostingBuffer2.Amount + // End of the lines. STaxPostingBuffer2."Service Tax Base Amount" + STaxPostingBuffer2."Service Tax Amount" + STaxPostingBuffer2."Service Tax eCess Amount" + STaxPostingBuffer2."Service Tax SHE Cess Amount"; IF NOT STaxPostingBuffer2.INSERT THEN STaxPostingBuffer2.MODIFY; END; ...Změňte kód ve funkci UpdSvcTaxPostingBuffer v kódové jednotce Purch.-Post (90) takto:
Existující kód... END; LOCAL PROCEDURE UpdSvcTaxPostingBuffer@1280031(); VAR TempDimBuf@1280001 : TEMPORARY Record 360; // Delete the following line. EntryNo@1280000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Náhradní kód
... END; LOCAL PROCEDURE UpdSvcTaxPostingBuffer@1280031(); VAR TempDimBuf@1280001 : TEMPORARY Record 360; // Add the following line. EntryNo1@1280000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Změňte kód ve funkci UpdSvcTaxPostingBuffer v kódové jednotce Purch.-Post (90) takto:
Existující kód... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Delete the following lines. EntryNo := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo = 0 THEN EntryNo := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. SvcTaxPostingBuffer[1]."Dimension Entry No." := EntryNo; SvcTaxPostingBuffer[2] := SvcTaxPostingBuffer[1]; IF SvcTaxPostingBuffer[2].FIND THEN BEGIN SvcTaxPostingBuffer[2]."Service Tax Base Amount" := SvcTaxPostingBuffer[2]."Service Tax Base Amount" + SvcTaxPostingBuffer[1]."Service Tax Base Amount"; ...Náhradní kód
... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Add the following lines. EntryNo1 := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo1 = 0 THEN EntryNo1 := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. SvcTaxPostingBuffer[1]."Dimension Entry No." := EntryNo; SvcTaxPostingBuffer[2] := SvcTaxPostingBuffer[1]; IF SvcTaxPostingBuffer[2].FIND THEN BEGIN SvcTaxPostingBuffer[2]."Service Tax Base Amount" := SvcTaxPostingBuffer[2]."Service Tax Base Amount" + SvcTaxPostingBuffer[1]."Service Tax Base Amount"; ...Změňte kód ve funkci UpdSTaxPostingBuffer v kódové jednotce Purch.-Post (90) takto:
Existující kód... END; LOCAL PROCEDURE UpdSTaxPostingBuffer@1500010(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Delete the following line. EntryNo@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Náhradní kód
... END; LOCAL PROCEDURE UpdSTaxPostingBuffer@1500010(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Add the following line. EntryNo1@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Změňte kód ve funkci UpdSTaxPostingBuffer v kódové jednotce Purch.-Post (90) takto:
Existující kód... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Delete the following lines. EntryNo := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo = 0 THEN EntryNo := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := STaxPostingBuffer[2]."Service Tax Base Amount" + STaxPostingBuffer[1]."Service Tax Base Amount"; ...Náhradní kód
... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Add the following lines. EntryNo1 := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo1 = 0 THEN EntryNo1 := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := STaxPostingBuffer[2]."Service Tax Base Amount" + STaxPostingBuffer[1]."Service Tax Base Amount"; ...Změňte kód ve funkci UpdSTaxApplicationBuffer2 v kódové jednotce Purch.-Post (90) takto:
Existující kód... END; LOCAL PROCEDURE UpdSTaxApplicationBuffer2@1500020(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Delete the following line. EntryNo@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Náhradní kód
... END; LOCAL PROCEDURE UpdSTaxApplicationBuffer2@1500020(); VAR TempDimBuf@1500001 : TEMPORARY Record 360; // Add the following line. EntryNo1@1500000 : Integer; BEGIN TempDocDim.RESET; TempDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line"); TempDocDim.SETRANGE("Line No.",PurchLine."Line No."); IF TempDocDim.FIND('-') THEN ...Změňte kód ve funkci UpdSTaxApplicationBuffer2 v kódové jednotce Purch.-Post (90) takto:
Existující kód... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Delete the following lines. EntryNo := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo = 0 THEN EntryNo := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := ...Náhradní kód
... TempDimBuf."Table ID" := TempDocDim."Table ID"; TempDimBuf."Dimension Code" := TempDocDim."Dimension Code"; TempDimBuf."Dimension Value Code" := TempDocDim."Dimension Value Code"; TempDimBuf.INSERT; UNTIL TempDocDim.NEXT = 0; // Add the following lines. EntryNo1 := DimBufMgt.FindDimensions(TempDimBuf); IF EntryNo1 = 0 THEN EntryNo1 := DimBufMgt.InsertDimensions(TempDimBuf); // End of the lines. STaxPostingBuffer[1]."Dimension Entry No." := EntryNo; STaxPostingBuffer[2] := STaxPostingBuffer[1]; IF STaxPostingBuffer[2].FIND THEN BEGIN STaxPostingBuffer[2]."Service Tax Base Amount" := ...Změňte kód ve funkci CheckAmounttoApplyofApplPmt v jednotce PSČ Purch.-Post (90) takto:
Existující kód... BEGIN ExecuteForLookup := ApplLookupOk; END; PROCEDURE CheckAmounttoApplyofApplPmt@1500018(OldVendLedgEntry@1500001 : Record 25;ServiceTaxEntry@1500000 : Record 16473); BEGIN STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); ...Náhradní kód
... BEGIN ExecuteForLookup := ApplLookupOk; END; PROCEDURE CheckAmounttoApplyofApplPmt@1500018(OldVendLedgEntry@1500001 : Record 25;ServiceTaxEntry@1500000 : Record 16473); // Add the following lines. VAR STAmount@1600000 : Decimal; // End of the lines. BEGIN STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); ...Změňte kód ve funkci CheckAmounttoApplyofApplPmt v jednotce PSČ Purch.-Post (90) takto:
Existující kód... STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); // Delete the following lines. IF STaxPostingBuffer2.FINDFIRST THEN BEGIN IF OldVendLedgEntry."Amount to Apply" > STaxPostingBuffer2.Amount THEN ERROR(Text16520,OldVendLedgEntry."Document No.",STaxPostingBuffer2.Amount) IF STaxPostingBuffer2.FINDFIRST THEN BEGIN IF OldVendLedgEntry."Amount to Apply" > STaxPostingBuffer2.Amount THEN ERROR(Text16520,OldVendLedgEntry."Document No.",STaxPostingBuffer2.Amount) ELSE STaxPostingBuffer2.Amount -= OldVendLedgEntry."Amount to Apply"; STaxPostingBuffer2.MODIFY; END ELSE STaxPostingBuffer2.Amount -= OldVendLedgEntry."Amount to Apply"; STaxPostingBuffer2.MODIFY; // End of the lines. END ...Náhradní kód
... STaxPostingBuffer2.RESET; STaxPostingBuffer2.SETRANGE("Service Tax Group Code",ServiceTaxEntry."Service Tax Group Code"); STaxPostingBuffer2.SETRANGE("Service Tax Registration No.",ServiceTaxEntry."Service Tax Registration No."); // Add the following lines. IF STaxPostingBuffer2.FINDSET THEN BEGIN REPEAT STAmount += STaxPostingBuffer2.Amount; STaxPostingBuffer2.MODIFY; UNTIL STaxPostingBuffer2.NEXT = 0; IF OldVendLedgEntry."Amount to Apply" > STAmount THEN ERROR(Text16520,OldVendLedgEntry."Document No.",STAmount) ELSE STaxPostingBuffer2.Amount -= OldVendLedgEntry."Amount to Apply"; // End of the lines. END ...
Požadavky
Chcete-li nainstalovat tuto opravu hotfix, musíte mít nainstalovaný jeden z následujících produktů:
- Indická verze aplikace Microsoft Dynamics NAV 2009 R2
- Indická verze aplikace Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
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í .