Nesprávna čiastka sa vypočíta v položkách DPH, keď použijete vyúčtovanie, ktoré používa účtovnú skupinu dane z pridanej hodnoty (DPH) pre nerealizovanú DPH v španielskej verzii systému Microsoft Dynamics NAV 2009

Vzťahuje sa na
Dynamics NAV 2009

Tento článok sa vzťahuje na miestne nastavenie systému Microsoft Dynamics NAV pre Španielsko (es).

Príznaky

Predpokladajme, že v španielskej verzii systému Microsoft Dynamics NAV 2009 zaúčtujete faktúru, ktorá používa účtovnú skupinu DPH pre nerealizovanú DPH. Ďalej vytvoríte faktúru z faktúry v module Cartera. Potom zaraďte faktúru na platbu použitím zostávajúcej sumy na faktúre. V tomto prípade je pri zobrazení príslušnej položky DPH hodnota čiastky nesprávna. Tento problém sa vyskytuje v nasledujúcich produktoch:

  • Španielska verzia systému Microsoft Dynamics NAV 2009 R2
  • Španielska verzia produktu Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

      

Príčina

Tento problém sa vyskytuje, pretože systém pri fakturácii využívajúcej účtovaciu skupinu DPH pre nerealizovanú DPH vypočíta pôvodnú čiastku namiesto zostávajúcej čiastky.

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 týmto problémom vážne zasiahnutí, odporúčame počkať na ďalší balík Service Pack pre systém Microsoft Dynamics NAV 2009 alebo ďalšiu verziu systému Microsoft Dynamics NAV, ktorá obsahuje túto opravu hotfix.

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. Kód v globálnych premenných v tabuľke položiek DPH (254) zmeníme takto:
    Existujúci kód

    ...
GLSetupRead@1004 : Boolean;
VATPostingSetup@1100000 : Record 325;
...

    Náhradný kód

    ...
GLSetupRead@1004 : Boolean;

// Add the following line.
IsBillDoc@1100001 : Boolean;

VATPostingSetup@1100000 : Record 325;
...

  2. Zmeňte kód vo funkcii GetUnRealizedVATPart v tabuľke položiek DPH (254) takto:
    Existujúci kód

    ...
UnrealizedVatType::Percentage:

// Delete the following line.
EXIT(ABS(SettledAmount) / (ABS(Full) - (ABS(Paid) - ABS(SettledAmount))));

UnrealizedVatType::First:
...

    Náhradný kód

    ...
UnrealizedVatType::Percentage:

// Add the following lines.
BEGIN
IF IsBillDoc THEN
EXIT(ABS(SettledAmount) / ABS(Full));
EXIT(ABS(SettledAmount) / (ABS(Full) - (ABS(Paid) - ABS(SettledAmount))));
END;
// End of the lines.

UnrealizedVatType::First:
...

  3. Do tabuľky položiek DPH pridajte nový postup (254) takto:

    PROCEDURE SetBillDoc@1100000(NewIsBillDoc@1100000 : Boolean);
BEGIN
IsBillDoc := NewIsBillDoc;
END;

  4. Zmeňte kód vo funkcii CustUnrealizedVAT vo vlastnosti "Gen. Jnl.-Post Line" (12) takto:
    Existujúci kód 1

    ...
END;

// Delete the following lines.
IF CustLedgEntry4."Document Type" = CustLedgEntry4."Document Type"::Bill THEN
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry3.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry3."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast)
ELSE
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast);
// End of the lines.
...

    Náhradný kód 1

    ...
END;

// Add the following lines.
VATEntry2.SetBillDoc(IsCustBillDoc(CustLedgEntry4));
VATPart :=
VATEntry2.GetUnRealizedVATPart(
GetCustSettledAmount(SettledAmount,CustLedgEntry4,CustLedgEntry3,CustLedgEntry2),
PaidAmount,
GetCustOriginalAmtLCY(CustLedgEntry4,CustLedgEntry3,CustLedgEntry2),
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast);
// End of the lines.
...

    Existujúci kód 2

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Delete the following lines.
END ELSE BEGIN
VATAmount := ROUND(VATEntry2."Unrealized Amount" * VATPart);
VATBase := ROUND(VATEntry2."Unrealized Base" * VATPart);
VATAmountAddCurr :=
ROUND(
VATEntry2."Add.-Currency Unrealized Amt." * VATPart,
AddCurrency."Amount Rounding Precision");
VATBaseAddCurr :=
ROUND(
VATEntry2."Add.-Currency Unrealized Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// End of the lines.
...

    Náhradný kód 2

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Add the following lines.
END ELSE
CalcCustRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,CustLedgEntry4,VATPart);
// End of the lines.
...

  5. Zmeňte kód vo funkcii VendUnrealizedVAT vo vlastnosti "Gen. Jnl.-Post Line" (12) takto:
    Existujúci kód 1

    ...
IF VendLedgEntry3.FIND('-') THEN BEGIN
VendLedgEntry2.Open := TRUE;
...

    Náhradný kód 1

    ...
IF VendLedgEntry3.FIND('-') THEN BEGIN

// Add the following line.
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");

VendLedgEntry2.Open := TRUE;
...

    Existujúci kód 2

    ...
// Delete the following lines.
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
VendLedgEntry2."Original Amt. (LCY)",
// End of the lines.

TotalUnrealVATAmountFirst,
...

    Náhradný kód 2

    ...
// Add the following lines. 
VATEntry2.SetBillDoc(IsVendBillDoc(VendLedgEntry4));
VATPart :=
VATEntry2.GetUnRealizedVATPart(
GetVendSettledAmount(SettledAmount,VendLedgEntry4,VendLedgEntry3,VendLedgEntry2),
PaidAmount,
GetVendOriginalAmtLCY(VendLedgEntry4,VendLedgEntry3,VendLedgEntry2),
// End of the lines.

TotalUnrealVATAmountFirst,
...

    Existujúci kód 3

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Delete the following lines.
END
END ELSE BEGIN
VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart);
VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart);
VATAmountAddCurr :=
ROUND(
VATEntry2."Add.-Curr. Rem. Unreal. Amount" * VATPart,
AddCurrency."Amount Rounding Precision");
VATBaseAddCurr :=
ROUND(
VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// End of the lines.
...

    Náhradný kód 3

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Add the following lines.
END;
END ELSE
CalcVendRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,VendLedgEntry4,VATPart);
// End of the lines.
...

  6. Pridajte nasledujúce nové miestne procedúry do časti "Gen. Jnl.-Post Line" (12) takto:

    LOCAL PROCEDURE GetVendOriginalAmtLCY@1100004(VendLedgEntry4@1100001 : Record 25;VendLedgEntry3@1100002 : Record 25;VendLedgEntry2@1100000 : Record 25) : Decimal;
BEGIN
WITH VendLedgEntry4 DO BEGIN
IF IsVendBillDoc(VendLedgEntry4) THEN
EXIT(VendLedgEntry3."Original Amt. (LCY)");
EXIT(VendLedgEntry2."Original Amt. (LCY)");
END;
END;

LOCAL PROCEDURE GetCustOriginalAmtLCY@1100010(CustLedgEntry4@1100001 : Record 21;CustLedgEntry3@1100002 : Record 21;CustLedgEntry2@1100000 : Record 21) : Decimal;
BEGIN
WITH CustLedgEntry4 DO BEGIN
IF IsCustBillDoc(CustLedgEntry4) THEN
EXIT(CustLedgEntry3."Original Amt. (LCY)");
EXIT(CustLedgEntry2."Original Amt. (LCY)");
END;
END;

LOCAL PROCEDURE GetVendSettledAmount@1100014(SettledAmt@1100000 : Decimal;VendLedgEntry4@1100003 : Record 25;VendLedgEntry3@1100002 : Record 25;VendLedgEntry2@1100001 : Record 25) : Decimal;
BEGIN
WITH VendLedgEntry4 DO BEGIN
IF IsVendBillDoc(VendLedgEntry4) THEN
EXIT(ROUND(SettledAmt / VendLedgEntry3.GetOriginalCurrencyFactor));
EXIT(ROUND(SettledAmt / VendLedgEntry2.GetOriginalCurrencyFactor));
END;
END;

LOCAL PROCEDURE GetCustSettledAmount@1100019(SettledAmt@1100003 : Decimal;CustLedgEntry4@1100002 : Record 21;CustLedgEntry3@1100001 : Record 21;CustLedgEntry2@1100000 : Record 21) : Decimal;
BEGIN
WITH CustLedgEntry4 DO BEGIN
IF IsCustBillDoc(CustLedgEntry4) THEN
EXIT(ROUND(SettledAmt / CustLedgEntry3.GetOriginalCurrencyFactor));
EXIT(ROUND(SettledAmt / CustLedgEntry2.GetOriginalCurrencyFactor));
END;
END;

LOCAL PROCEDURE IsVendBillDoc@1100015(VendLedgEntry4@1100000 : Record 25) : Boolean;
BEGIN
WITH VendLedgEntry4 DO
EXIT("Document Type" = "Document Type"::Bill);
END;

LOCAL PROCEDURE IsCustBillDoc@1100016(CustLedgEntry4@1100000 : Record 21) : Boolean;
BEGIN
WITH CustLedgEntry4 DO
EXIT("Document Type" = "Document Type"::Bill);
END;

LOCAL PROCEDURE CalcVendRealizedVATAmt@1100032(VAR VATBase@1100001 : Decimal;VAR VATAmount@1100000 : Decimal;VAR VATBaseAddCurr@1100005 : Decimal;VAR VATAmountAddCurr@1100006 : Decimal;VATEntry2@1100002 : Record 254;VendLedgEntry4@1100003 : Record 25;VATPart@1100004 : Decimal);
BEGIN
CalcRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,
IsVendBillDoc(VendLedgEntry4),
VATPart);
END;

LOCAL PROCEDURE CalcCustRealizedVATAmt@1100029(VAR VATBase@1100001 : Decimal;VAR VATAmount@1100000 : Decimal;VAR VATBaseAddCurr@1100006 : Decimal;VAR VATAmountAddCurr@1100005 : Decimal;VATEntry2@1100002 : Record 254;CustLedgEntry4@1100003 : Record 21;VATPart@1100004 : Decimal);
BEGIN
CalcRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,
IsCustBillDoc(CustLedgEntry4),
VATPart);
END;

LOCAL PROCEDURE CalcRealizedVATAmt@1100036(VAR VATBase@1100002 : Decimal;VAR VATAmount@1100001 : Decimal;VAR VATBaseAddCurr@1100008 : Decimal;VAR VATAmountAddCurr@1100007 : Decimal;VATEntry2@1100003 : Record 254;UseUnrealAmt@1100000 : Boolean;VATPart@1100004 : Decimal);
VAR
UnrealAmt@1100006 : Decimal;
UnrealBase@1100005 : Decimal;
UnrealAmtACY@1100009 : Decimal;
UnrealBaseACY@1100010 : Decimal;
BEGIN
WITH VATEntry2 DO
IF UseUnrealAmt THEN BEGIN
UnrealAmt := "Unrealized Amount";
UnrealBase := "Unrealized Base";
UnrealAmtACY := "Add.-Currency Unrealized Amt.";
UnrealBaseACY := "Add.-Currency Unrealized Base";
END ELSE BEGIN
UnrealAmt := "Remaining Unrealized Amount";
UnrealBase := "Remaining Unrealized Base";
UnrealAmtACY := "Add.-Curr. Rem. Unreal. Amount";
UnrealBaseACY := "Add.-Curr. Rem. Unreal. Base";
END;
VATAmount := ROUND(UnrealAmt * VATPart);
VATBase := ROUND(UnrealBase * VATPart);
VATAmountAddCurr := ROUND(UnrealAmtACY * VATPart,AddCurrency."Amount Rounding Precision");
VATBaseAddCurr := ROUND(UnrealBaseACY * VATPart,AddCurrency."Amount Rounding Precision");
END;

          

Predpoklady

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

  • Španielska verzia systému Microsoft Dynamics NAV 2009 R2
  • Španielsku verziu systému Microsoft Dynamics NAV 2009 SP1

Informácie o odstránení

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

Ďalšie informácie

Ďalšie informácie o problémoch súvisiacich s nerealizovanou DPH v položkách DPH získate po kliknutí na nasledujúce číslo článku publikovaného v databáze Microsoft Knowledge Base:

2664615 Čiastka v položkách DPH je nesprávna, ak zaúčtujete aplikáciu v španielskej verzii systému Microsoft Dynamics NAV 2009

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 .