Při použití způsobu platby s nastaveným parametrem Přesnost zaokrouhlení faktury v maďarské verzi aplikace Microsoft Dynamics NAV 2009 R2 je zaokrouhlení nesprávné a konečná částka je nesprávná

Platí pro
Microsoft Dynamics NAV 2009 R2

Tento článek se týká aplikace Microsoft Dynamics NAV pro národní prostředí maďarštiny (hu).

Příznaky

Předpokládejme, že způsob platby s nastaveným parametrem Přesnost zaokrouhlení faktur používáte v maďarské verzi aplikace Microsoft Dynamics NAV 2009 R2. Typ zaokrouhlení je navíc nastavený na hodnotu Nejbližší. V této situaci je zaokrouhlení nesprávné a konečná částka je nesprávná.

Ř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:

  1. Přidejte nový PrepmtAmtToDeduct( PricesIncludingVAT: Boolean; ZálohaPct: desetinné číslo) : Desítková funkce v tabulce Řádek prodeje (37) Postupujte takto:

    1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: VATFactor
      • Datový typ: Desetinné číslo

    2. Kód přidejte takto:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Price" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  2. Změňte funkci CalcPrepaymentToDecut v tabulce Řádek prodeje (37). Postupujte takto:

    1. Odstraňte následující místní proměnné:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. Přidejte následující místní proměnné:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. Nahraďte kód následujícím způsobem:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetSalesHeader;
IF SalesHeader."Prepayment Type" = SalesHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(SalesHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  3. Přidejte nový PrepmtAmtToDeduct( PricesIncludingVAT: Boolean; ZálohaPct: desetinné číslo) : Desítková funkce v tabulce řádku nákupu (39) Postupujte takto:

    1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: VATFactor
      • Datový typ: Desetinné číslo

    2. Kód přidejte takto:

      IF PricesIncludingVAT THEN
VATFactor := (1 + "VAT %" / 100)
ELSE
VATFactor := 1;
EXIT(
ROUND(
ROUND(
ROUND(
ROUND("Unit Cost" * "Qty. to Invoice",Currency."Amount Rounding Precision") *
(1 - ("Line Discount %" / 100)),Currency."Amount Rounding Precision") *
(PrepaymentPct / 100) / VATFactor,Currency."Amount Rounding Precision") * VATFactor,Currency."Amount Rounding Precision"));

  4. Změňte funkci CalcPrepaymentToDecut v tabulce Řádek prodeje (37). Postupujte takto:

    1. Odstraňte následující místní proměnné:

      PrepmtPct: Decimal;
AbsoluteAdvCorrection: Boolean;

    2. Přidejte následující místní proměnné:

      TotalPrepmtAmtToDeduct: Decimal;
HundredPct: Decimal;

    3. Nahraďte kód následujícím způsobem:

      IF (Quantity - "Quantity Invoiced") <> 0 THEN BEGIN
TotalPrepmtAmtToDeduct := "Prepmt. Amt. Inv." - "Prepmt Amt Deducted";
GetPurchHeader;
IF PurchHeader."Prepayment Type" = PurchHeader."Prepayment Type"::Advance THEN BEGIN
VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group");
CASE VATPostingSetup."Adv. Invoice Correction Type" OF
VATPostingSetup."Adv. Invoice Correction Type"::Percentage:
"Prepmt Amt to Deduct" :=
ROUND("Qty. to Invoice" / (Quantity - "Quantity Invoiced") *
TotalPrepmtAmtToDeduct,Currency."Amount Rounding Precision");
VATPostingSetup."Adv. Invoice Correction Type"::Absolute:
BEGIN
HundredPct := 100;
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT",HundredPct);
IF "Prepmt Amt to Deduct" > TotalPrepmtAmtToDeduct THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct;
END;
VATPostingSetup."Adv. Invoice Correction Type"::"Fully Invoiced":
IF "Qty. to Invoice" = Quantity - "Quantity Invoiced" THEN
"Prepmt Amt to Deduct" := TotalPrepmtAmtToDeduct
ELSE
"Prepmt Amt to Deduct" := 0;
END;
END ELSE
"Prepmt Amt to Deduct" := PrepmtAmtToDeduct(PurchHeader."Prices Including VAT","Prepayment %");
END ELSE
"Prepmt Amt to Deduct" := 0

  5. Změňte kód ve funkci InitInvoiceRoundingLine v kódové jednotce zálohy Sales-Post (442) takto:
    Existující kód

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    Náhradní kód

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  6. Následujícím způsobem změňte kód ve funkci InsertLineRelation v kódové jednotce Sales-Post záloh (442):
    Existující kód

    ...
IF SalesHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(SalesHeader."Currency Code");
...

    Náhradní kód

    ...
IF SalesHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(SalesHeader."Document Type");
Currency.SetPaymentMethod(SalesHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END ELSE
Currency.GET(SalesHeader."Currency Code");
...

  7. Změňte kód ve funkci InsertInvoiceRounding v kódové jednotce Sales-Post zálohy (442) takto:
    Existující kód

    ...
"G/L Account No." := SalesLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

    Náhradní kód

    ...
"G/L Account No." := SalesLine."No.";

// Add the following line
Description := SalesLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,SalesLine);
...

  8. Změňte kód ve funkci InsertInvoiceRounding v kódové jednotce zálohy Purchase-Post (444) takto:
    Existující kód

    ...
"G/L Account No." := PurchLine."No.";
"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

    Náhradní kód

    ...
"G/L Account No." := PurchLine."No.";

// Add the following line.
Description := PurchLine.Description;

"Dimension Entry No." := InsertInDimBuffer(TempDocDim,PurchLine);
...

  9. Změňte kód ve funkci InitInvoiceRoundingLine v kódové jednotce zálohy Purchase-Post (444) takto:
    Existující kód

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    Náhradní kód

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  10. Následujícím způsobem změňte kód ve funkci InsertLineRelation v kódové jednotce Purchase-Post záloh (444):
    Existující kód

    ...
IF PurchHeader."Currency Code" = '' THEN
Currency.InitRoundingPrecision
ELSE
Currency.GET(PurchHeader."Currency Code");
...

    Náhradní kód

    ...
IF PurchHeader."Currency Code" = '' THEN BEGIN
Currency.SetDocumentType(PurchHeader."Document Type");
Currency.SetPaymentMethod(PurchHeader."Payment Method Code");
Currency.InitRoundingPrecision;
END
ELSE
Currency.GET(PurchHeader."Currency Code");
...

  11. Přidejte nový LineRelationExists( LetterLine: Record 26586) : Booleovská funkce v kódové jednotce Sales-Post Advances (26585). Postupujte takto:

    1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: LineRelation
      • Datový typ: Záznam 26592

    2. Kód přidejte takto:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Sale);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  12. Add a new UpdateAmountToApply( LetterLine: Record 26592; VAT LinkedAdvanceEntry: Record 21) funkce v kódové jednotce Sales-Post Advances (26585). Postupujte takto:

    1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: Odkaz
      • Datový typ: Záznam 26590

    2. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: CustLedgEntry
      • Datový typ: Záznam 21

    3. Kód přidejte takto:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF CustLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
CustLedgEntry.CALCFIELDS("Remaining Amount");
IF CustLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(CustLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := CustLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  13. Přidejte nový AddRoundingLine( LetterLine: Record 26586; SalesInvHeader: Záznam 112; VAR LinkedAdvanceEntry: Záznam 21; LastLetterNo: Kód [20]) : DeductedAmount: Decimal
     v kódové jednotce Sales-Post Advances (26585) takto:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  14. Následujícím způsobem změňte kód ve funkci PostInvoiceCorrection v kódové jednotce Sales-Post Advances (26585):
    Existující kód

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(SalesHeader."No.");
// End of thelines.
...

    Náhradní kód

    ...
FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
...

  15. Následujícím způsobem změňte kód ve funkci DeductRndLetterLines v kódové jednotce Sales-Post Advances (26585):
    Existující kód

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;

    Náhradní kód

    ...
AddPrepmtSalesInvLine(LetterLine,SalesInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" = SalesLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,SalesInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

  16. Přidejte novou funkci LineRelationExists( LetterLine: Record 26588) v kódové jednotce Purchase-Post Advances (26586). Postupujte takto:

    1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: LineRelation
      • Datový typ: Záznam 26592

    2. Kód přidejte takto:

      WITH LineRelation DO BEGIN
SETRANGE(Type,Type::Purchase);
SETRANGE("Letter No.",LetterLine."Letter No.");
SETRANGE("Letter Line No.",LetterLine."Line No.");
EXIT(NOT ISEMPTY);
END;

  17. Přidejte nový UpdateAmountToApply( LetterLine: záznam 26588; VAR LinkedAdvanceEntry: Record 25) v kódové jednotce Purchase-Post Advances (26586). Postupujte takto:

    1. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: LetterLine
      • Datový typ: Záznam 26588

    2. Přidejte místní proměnnou a pak určete proměnnou následujícím způsobem:

      • Název: VendorLedgEntry
      • Datový typ: Záznam 25

    3. Kód přidejte takto:

      WITH Link DO BEGIN
SETRANGE("Entry Type","Entry Type"::"Link To Letter");
SETRANGE("Document No.",LetterLine."Letter No.");
SETRANGE("Line No.",LetterLine."Line No.");
IF FINDSET THEN
REPEAT
IF VendorLedgEntry.GET("CV Ledger Entry No.") THEN BEGIN
VendorLedgEntry.CALCFIELDS("Remaining Amount");
IF VendorLedgEntry."Remaining Amount" <> -LinkedAdvanceEntry."Amount to Apply" THEN
IF LinkedAdvanceEntry.GET(VendorLedgEntry."Entry No.") THEN BEGIN
LinkedAdvanceEntry."Amount to Apply" := LinkedAdvanceEntry."Amount to Apply" + Amount;
LinkedAdvanceEntry.MODIFY;
END ELSE BEGIN
LinkedAdvanceEntry := VendorLedgEntry;
LinkedAdvanceEntry."Amount to Apply" := Amount;
LinkedAdvanceEntry."Currency Code" := "Currency Code";
LinkedAdvanceEntry.INSERT;
END;
END;
UNTIL NEXT = 0;
END;

  18. Přidejte nový AddRoundingLine( LetterLine: Record 26588; PurchInvHeader: Záznam 122; VAR LinkedAdvanceEntry: Záznam 25; LastLetterNo: Kód [20]) : DeductedAmount : Desítková funkce v kódové jednotce Purchase-Post Advances (26586) takto:

    LetterLine.SETRANGE("Letter No.",LetterLine."Letter No.");
LetterLine.SETFILTER("Line No.",'>%1',LetterLine."Line No.");
LetterLine.SETFILTER("Amount To Deduct",'<>0');
IF LetterLine.FINDSET(TRUE) THEN
REPEAT
IF NOT LineRelationExists(LetterLine) THEN BEGIN
DeductedAmount := DeductedAmount + LetterLine."Amount To Deduct";
LetterLine."Amount Deducted" := LetterLine."Amount Deducted" + LetterLine."Amount To Deduct";
LetterLine."Amount To Deduct" := 0;
LetterLine.MODIFY(TRUE);
UpdateAmountToApply(LetterLine,LinkedAdvanceEntry);
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,LetterLine."Amount Deducted",LetterLine."VAT Amount",LastLetterNo);
END;
UNTIL LetterLine.NEXT = 0;

  19. Následujícím způsobem změňte kód ve funkci PostInvoiceCorrection v kódové jednotce Purchase-Post Advances (26586):
    Existující kód

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

// Delete the following lines.
IF FullyDeducted THEN
DeductRndLetterLines(PurchHeader."No.");
// End of the lines.

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

    Náhradní kód

    ...
FullyDeducted := FullyDeductedVendPrepmt(PurchLine);

PurchLine.SETFILTER("Prepmt Amt to Deduct",'<>0');
...

  20. Odstraňte funkci DeductRndLetterLines v kódové jednotce Purchase-Post Advances (26586).

  21. Následujícím způsobem změňte kód ve funkci PostInvLineCorrection v kódové jednotce Purchase-Post Advances (26586):
    Existující kód

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);
END;
UNTIL LineRelation.NEXT = 0;
...

    Náhradní kód

    ...
AddPrepmtPurchInvLine(LetterLine,PurchInvHeader,AmountToDeduct,VATAmount,LastLetterNo);

// Add the following lines.
IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" = PurchLine."Prepmt. Amt. Inv." THEN
InvoicedAmount := InvoicedAmount + AddRoundingLine(LetterLine,PurchInvHeader,LinkedAdvanceEntry,LastLetterNo);
// End of the lines.

END;
UNTIL LineRelation.NEXT = 0;
...

Požadavky

Chcete-li tuto opravu hotfix použít, musíte mít nainstalovanou maďarskou verzi aplikace Microsoft Dynamics NAV 2009 R2.

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í .