Systém neprejavuje manuálne upravenú výšku DPH po odoslaní všeobecného denníka v slovenskej alebo českej verzii balíka Microsoft Dynamics NAV 5.0 Service Pack 1

Vzťahuje sa na
Microsoft Dynamics NAV 5.0

Tento článok sa vzťahuje na systém Microsoft Dynamics NAV pre nasledujúce krajiny a miestne jazykové nastavenia.

  • slovenčina (sk)
  • čeština (cz)

Príznaky

Predpokladajme, že vytvárate nový riadok vo všeobecnom denníku v slovenskej alebo českej verzii balíka Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1). Po manuálnom úprave hodnoty čiastky DPH a zaúčtovaní do účtovného denníka systém pri účtovaní denníka prepočíta čiastku dane z pridanej hodnoty (DPH) a nahradí upravenú čiastku DPH použitím vypočítanej hodnoty.

Riešenie

Informácie o rýchlych opravách

Spoločnosť Microsoft teraz poskytuje podporovanú rýchlu opravu. Jeho účelom je však len vyriešiť problém, ktorý je popísaný v tomto článku. Použite ju len v systémoch, v ktorých sa vyskytol tento konkrétny problém. Táto rýchla oprava môže byť ešte otestovaná. Ak teda nie ste vážne zasiahnutí týmto problémom, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics NAV 5.0 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu.

Poznámka: V osobitných prípadoch môžu byť poplatky, ktoré sú zvyčajne účtované za hovory s oddelením technickej podpory, zrušené, ak pracovník technickej podpory pre systém Microsoft Dynamics a súvisiace produkty rozhodne, že konkrétna aktualizácia vyrieši váš problém. Zvyčajné náklady na podporu sa budú vzťahovať na ďalšie otázky a problémy podpory, na ktoré sa nevzťahuje konkrétna príslušná aktualizácia.

          

Informácie o inštalácii

Spoločnosť Microsoft poskytuje príklady programovania len pre ilustráciu bez výslovnej alebo implicitnej záruky. To sa týka (okrem iného) aj implicitných záruk obchodovateľnosti alebo vhodnosti na konkrétny účel. Článok predpokladá, že poznáte predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft vám môžu pomôcť vysvetliť funkčnosť konkrétneho postupu, tieto príklady však nebudú upravovať, aby poskytovali ďalšie funkcie alebo zostavili procedúry podľa vašich špecifických požiadaviek.

Poznámka Pred inštaláciou tejto rýchlej opravy overte, či sú všetci používatelia klienta Microsoft Navision odhlásení zo systému. Týka sa to používateľov klientských služieb Microsoft Navision Application Services (NAS). V čase implementácie tejto rýchlej opravy by ste mali byť jediným klientskym používateľom, ktorý je prihlásený.

Ak chcete implementovať túto rýchlu opravu, musíte mať vývojársku licenciu.

Odporúčame priradiť používateľskému kontu v okne Prihlásenie do Windowsu alebo v okne Prihlásenia do databázy ID roly SUPER. Ak používateľskému kontu nie je možné priradiť ID roly SUPER, musíte overiť, či má používateľské konto nasledujúce povolenia:

  • Povolenie Upraviť pre objekt, ktorý budete meniť.
  • Povolenie na spustenie pre objekt systémového objektu ID 5210 a pre objekt systémového objektu ID 9015.

                
Poznámka: Ak nepotrebujete vykonať opravu údajov, nemusíte mať práva na ukladacie priestory údajov.

Zmeny kódu

Poznámka: Opravy kódu pred použitím opráv v produkčných počítačoch vždy testujte v kontrolovanom prostredí.
Pri odstraňovaní tohto problému postupujte nasledovne:

  1. Zmeňte kód v spúšťači Suma DPH - PriOverení v spúšťači Gen. Tabuľka riadkov denníka (81) takto:
    Existujúci kód

    ...
"VAT Difference" :=
"VAT Amount" -
ROUND(

// Delete the following lines. 
Amount * "VAT %" / (100 + "VAT %"),
Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
// End of the lines.

GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
...

    Náhradný kód

    ...
"VAT Difference" :=
"VAT Amount" -
ROUND(

// Add the following lines. 
Amount - ROUND(Amount / (1 + "VAT %" / 100),
Currency."Amount Rounding Precision",Currency.VATRoundingDirection));
//End of the lines. 

GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
...

  2. Zmeňte kód v spúšťači VAT % - OnValidate v spúšťači Gen. Tabuľka riadkov denníka (81) takto:
    Existujúci kód

    ...
CASE "VAT Calculation Type" OF
"VAT Calculation Type"::"Normal VAT",
"VAT Calculation Type"::"Reverse Charge VAT":

// Delete the following lines.
BEGIN
GLSetup.GET;
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
"VAT Amount" :=
ROUND(
Amount * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecision,
RoundingDirection);
"VAT Base Amount" := Amount - "VAT Amount";
END ELSE BEGIN
"VAT Base Amount" :=
ROUND(Amount / (1 + "VAT %" / 100),Currency."Amount Rounding Precision");
"VAT Amount" :=
ROUND(Amount - "VAT Base Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
END;
// End of the lines.

"VAT Calculation Type"::"Full VAT":
BEGIN
IF ("Prepayment Type" = "Prepayment Type"::Advance) AND NOT "System-Created Entry" AND
...

    Náhradný kód

    ...
CASE "VAT Calculation Type" OF
"VAT Calculation Type"::"Normal VAT",
"VAT Calculation Type"::"Reverse Charge VAT":

// Add the following line. 
CalcVATAmount(Amount,"VAT Amount","VAT Base Amount","VAT %"); 

"VAT Calculation Type"::"Full VAT":
BEGIN
IF ("Prepayment Type" = "Prepayment Type"::Advance) AND NOT "System-Created Entry" AND
...

  3. Zmena kódu v súbore DPH % - OnValidate spúšťač v Gen. Tabuľka riadkov denníka (81) takto:
    Existujúci kód

    ...
CASE "Bal. VAT Calculation Type" OF
"Bal. VAT Calculation Type"::"Normal VAT",
"Bal. VAT Calculation Type"::"Reverse Charge VAT":

// Delete the following lines. 
BEGIN
GLSetup.GET;
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
"Bal. VAT Amount" :=
ROUND(
-Amount * ROUND("Bal. VAT %" / (100 + "Bal. VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecision,
RoundingDirection);
"Bal. VAT Base Amount" := -Amount - "Bal. VAT Amount";
END ELSE BEGIN
"Bal. VAT Base Amount" :=
ROUND(-Amount / (1 + "Bal. VAT %" / 100),Currency."Amount Rounding Precision");
"Bal. VAT Amount" :=
ROUND(-Amount - "Bal. VAT Base Amount",Currency."Amount Rounding Precision",Currency.VATRoundingDirection);
END;
END;
// End of the lines. 

"Bal. VAT Calculation Type"::"Full VAT":
"Bal. VAT Amount" := -Amount;
"Bal. VAT Calculation Type"::"Sales Tax":
...

    Náhradný kód

    ...
CASE "Bal. VAT Calculation Type" OF
"Bal. VAT Calculation Type"::"Normal VAT",
"Bal. VAT Calculation Type"::"Reverse Charge VAT":
// Add the following line 
CalcVATAmount(-Amount,"Bal. VAT Amount","Bal. VAT Base Amount","Bal. VAT %"); 
"Bal. VAT Calculation Type"::"Full VAT":
"Bal. VAT Amount" := -Amount;
"Bal. VAT Calculation Type"::"Sales Tax":
...

  4. Vytvorenie novej funkcie CalcVATApripojiť lokálnu funkciu v Gen. Tabuľka riadkov denníka (81) takto:

    LOCAL PROCEDURE CalcVATAmount@1220000(Amount@1220000 : Decimal;VAR VATAmount@1220001 : Decimal;VAR VATBase@1220002 : Decimal;VATPercent@1220003 : Decimal);
VAR
RoundingPrecision@1220004 : Decimal;
RoundingDirection@1220005 : Text[1];
BEGIN
GLSetup.GET;
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLSetup.GetRoundingParamenters(Currency,RoundingPrecision,RoundingDirection);
VATAmount :=
ROUND(
Amount * ROUND(VATPercent / (100 + VATPercent),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecision,
RoundingDirection); 
VATBase := Amount - VATAmount;
END ELSE BEGIN
VATBase :=
ROUND(
Amount / (1 + VATPercent / 100),
Currency."Amount Rounding Precision",
Currency.VATRoundingDirection);
VATAmount := Amount - VATBase;
END;
END;

  5. Zmeňte kód vo funkcii InitVat v Gen. Jnl.-Post Line kódová jednotka (12). Postupujte takto:

    1. Odstráňte nasledujúce lokálne premenné:

      • CalculatedVATAmtLCY : Decimal
      • RoundingPrecisionLCY: Decimal
      • RoundingDirectionLCY: Text[1]

    2. Pridajte novú premennú a potom ju zadajte nasledovným spôsobom:

      • Názov: VATAmtLCY
      • DataType:Decimal

    3. Kód zmeňte takto:
      Existujúci kód

      ...
GenJnlLine."VAT Amount LCY (Non Deduct.)";
GLEntry."VAT Amount" := "Amount (LCY)" - GLEntry.Amount;

// Delete the following lines. 
GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
IF GLSetup."Round VAT Coeff." THEN
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecisionLCY,
RoundingDirectionLCY)
ELSE
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" - ROUND("Amount (LCY)" / (1 + "VAT %" / 100),RoundingPrecisionLCY),
RoundingPrecisionLCY,
RoundingDirectionLCY);
IF ("VAT Amount (LCY)" <> CalculatedVATAmtLCY) AND
("Currency Code" <> '')
THEN BEGIN 
// End of the lines. 

GLEntry.Amount := "VAT Base Amount (LCY)";
GLEntry."VAT Amount" := "VAT Amount (LCY)"; 
END;
...

      Náhradný kód

      ...
GenJnlLine."VAT Amount LCY (Non Deduct.)";
GLEntry."VAT Amount" := "Amount (LCY)" - GLEntry.Amount;

// Add the following lines. 
VATAmtLCY := CalculatedVATAmountLCY;
IF ("VAT Amount (LCY)" <> VATAmtLCY) AND ("Currency Code" <> '') THEN BEGIN 
//End of the lines. 

GLEntry.Amount := "VAT Base Amount (LCY)";
GLEntry."VAT Amount" := "VAT Amount (LCY)";

// Add the following lines.
END ELSE
IF GLSetup."Round VAT Coeff." THEN BEGIN
GLEntry."VAT Amount" := VATAmtLCY - "VAT Amount LCY (Non Deduct.)";
GLEntry.Amount := "Amount (LCY)" - GLEntry."VAT Amount";
//End of the lines. 

END; 
...

  6. Zmeňte kód vo funkcii InsertVAT v Gen. Jnl.-Post Line kódová jednotka (12). Postupujte takto:

    1. Odstráňte nasledujúce lokálne premenné:

      • CalculatedVATAmtLCY : Decimal
      • RoundingPrecisionLCY: Decimal
      • RoundingDirectionLCY: Text[1]

    2. Kód zmeňte takto:
      Existujúci kód

      ...
"Posting Date","Currency Code","VAT Difference",
CurrExchRate.ExchangeRate("Posting Date","Currency Code")));

// Delete the following lines. 
GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
IF GLSetup."Round VAT Coeff." THEN
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecisionLCY,
RoundingDirectionLCY)
ELSE
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" - ROUND("Amount (LCY)" / (1 + "VAT %" / 100),RoundingPrecisionLCY),
RoundingPrecisionLCY,
RoundingDirectionLCY);
IF ("VAT Amount (LCY)" <> CalculatedVATAmtLCY) AND
("Currency Code" <> '')
THEN
VATDifferenceLCY := "VAT Amount (LCY)" - CalculatedVATAmtLCY; 
// End of the lines. 

IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
IF TaxJurisdiction.Code <> TaxDetail."Tax Jurisdiction Code" THEN
...

      Náhradný kód

      ...
"Posting Date","Currency Code","VAT Difference",
CurrExchRate.ExchangeRate("Posting Date","Currency Code")));

// Add the following lines. 
IF "VAT Amount (LCY)" <> CalculatedVATAmountLCY THEN
VATDifferenceLCY := "VAT Amount (LCY)" - CalculatedVATAmountLCY; 
//End of the lines. 

IF "VAT Calculation Type" = "VAT Calculation Type"::"Sales Tax" THEN BEGIN
IF TaxJurisdiction.Code <> TaxDetail."Tax Jurisdiction Code" THEN
...

  7. Vytvorenie novej lokálnej funkcie CalculatedVATAmountLCY v gen. Jnl.-Post Line codeunit (12):

    LOCAL PROCEDURE CalculatedVATAmountLCY@1220009() : Decimal;
VAR
CalculatedVATAmtLCY@1220002 : Decimal;
RoundingPrecisionLCY@1220001 : Decimal;
RoundingDirectionLCY@1220000 : Text[1];
BEGIN
WITH GenJnlLine DO BEGIN
IF "Currency Code" = '' THEN
EXIT("VAT Amount (LCY)");
GLSetup.GET;
GLSetup.GetRoundingParamentersLCY(Currency,RoundingPrecisionLCY,RoundingDirectionLCY);
IF GLSetup."Round VAT Coeff." THEN
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" * ROUND("VAT %" / (100 + "VAT %"),GLSetup."VAT Coeff. Rounding Precision"),
RoundingPrecisionLCY,
RoundingDirectionLCY)
ELSE
CalculatedVATAmtLCY :=
ROUND(
"Amount (LCY)" - ROUND("Amount (LCY)" / (1 + "VAT %" / 100),RoundingPrecisionLCY),
RoundingPrecisionLCY,
RoundingDirectionLCY);
EXIT(CalculatedVATAmtLCY);
END;
END;

Predpoklady

Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovaný niektorý z nasledujúcich produktov:

  • Slovenská verzia systému Microsoft Dynamics NAV 5.0 Service Pack 1
  • Česká verzia systému Microsoft Dynamics NAV 5.0 Service Pack 1

Ak chcete použiť túto rýchlu opravu, musíte mať nainštalovanú 2527241 rýchlej opravy.
Ďalšie informácie nájdete v článku databázy Microsoft Knowledge Base, ktorý sa zobrazí po kliknutí na príslušné číslo článku:

2527241 Zaúčtovaná suma DPH v položke DPH je nesprávna, ak použijete funkciu "Round VAT Coeff" v českej verzii systému Microsoft Dynamics NAV 5.0 SP1 s nainštalovaným balíkom funkcií Feature Pack 1

Informácie o odstránení

Túto rýchlu opravu nemožno odstrániť.

Stav

Spoločnosť Microsoft potvrdila, že ide o problém v produktoch spoločnosti Microsoft, ktoré sú uvedené v časti Vzťahuje sa na.

Poznámka: Toto je článok typu FAST PUBLISH, ktorý bol vytvorený priamo v rámci organizácie podpory spoločnosti Microsoft. Informácie obsiahnuté v tomto dokumente sa poskytujú tak, ako sú, ako odpoveď na vzniknuté problémy. V dôsledku rýchlosti ich sprístupnenia môžu materiály obsahovať typografické chyby a môžu byť kedykoľvek revidované bez predchádzajúceho upozornenia. Ďalšie dôležité informácie nájdete v Podmienkach používania .