Feil beløp beregnes i mva-postene når du bruker en faktura som bruker en mva-bokføringsgruppe (mva) for realisert MVA i den spanske versjonen av Microsoft Dynamics NAV 2009

Gjelder for
Dynamics NAV 2009

Denne artikkelen gjelder for språkinnstillingene for Microsoft Dynamics NAV for Spania (es).

Symptomer

Anta at du legger inn en faktura som bruker en mva-bokføringsgruppe for realisert MVA i den spanske versjonen av Microsoft Dynamics NAV 2009. Deretter oppretter du en faktura fra fakturaen i Cartera-modulen. Deretter bruker du fakturaen på en betaling ved hjelp av det gjenværende beløpet i fakturaen. Når du i denne situasjonen viser den tilsvarende MVA-posten, er beløpsverdien feil. Dette problemet oppstår i følgende produkter:

  • Den spanske versjonen av Microsoft Dynamics NAV 2009 R2
  • Den spanske versjonen av Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

      

Årsak

Dette problemet oppstår fordi systemet beregner det opprinnelige beløpet i stedet for det gjenstående beløpet når du bruker en faktura som bruker en mva-bokføringsgruppe for realisert mva.

Oppløsning

Hurtigreparasjonsinformasjon

En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å rette opp problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som opplever dette spesifikke problemet. Denne hurtigreparasjonen kan få ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på den neste Microsoft Dynamics NAV 2009-oppdateringspakken eller den neste Microsoft Dynamics NAV-versjonen som inneholder denne hurtigreparasjonen.

Obs! I spesielle tilfeller kan kostnader som vanligvis påløper for støtteanrop, bli avbrutt hvis en technical support professional for Microsoft Dynamics og relaterte produkter bestemmer at en bestemt oppdatering vil løse problemet. De vanlige støttekostnadene gjelder for ytterligere støttespørsmål og problemer som ikke kvalifiserer for den aktuelle oppdateringen.

            
          

Installasjonsinformasjon

Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet for et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.

Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle Microsoft Navision-klientbrukere er logget av systemet. Dette inkluderer microsoft Navision Application Services (NAS)-klientbrukere. Du bør være den eneste klientbrukeren som er logget på når du implementerer denne hurtigreparasjonen.

Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.

Vi anbefaler at brukerkontoen i Windows-påloggingsvinduet eller i vinduet Pålogginger for database tilordnes rolle-ID-en SUPER. Hvis brukerkontoen ikke kan tilordnes rolle-IDen SUPER, må du kontrollere at brukerkontoen har følgende tillatelser:

  • Endre-tillatelsen for objektet du skal endre.
  • Execute-tillatelsen for Objektet System Object ID 5210 og systemobjekt-ID 9015-objektet.

                
Vær oppmerksom på at du ikke trenger å ha rettigheter til datalagrene med mindre du må utføre datareparasjon.

Kodeendringer

Obs! Test alltid kodeløsninger i et kontrollert miljø før du bruker løsningene på produksjonsdatamaskinene.
Følg disse trinnene for å løse dette problemet:

  1. Endre koden i de globale variablene i mva-posttabellen (254) som følger:
    Eksisterende kode

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

    Erstatningskode

    ...
GLSetupRead@1004 : Boolean;

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

VATPostingSetup@1100000 : Record 325;
...

  2. Endre koden i getunrealizedVATPart-funksjonen i mva-posttabellen (254) som følger:
    Eksisterende kode

    ...
UnrealizedVatType::Percentage:

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

UnrealizedVatType::First:
...

    Erstatningskode

    ...
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. Legg til en ny prosedyre i mva-posttabellen (254) som følger:

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

  4. Endre koden i CustUnrealizedVAT-funksjonen i gen. Jnl.-Post Line" codeunit (12) som følger:
    Eksisterende kode 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.
...

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

    Eksisterende kode 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.
...

    Erstatningskode 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. Endre koden i VendUnrealizedVAT-funksjonen i Gen. Jnl.-Post Line" codeunit (12) som følger:
    Eksisterende kode 1

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

    Erstatningskode 1

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

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

VendLedgEntry2.Open := TRUE;
...

    Eksisterende kode 2

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

TotalUnrealVATAmountFirst,
...

    Erstatningskode 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,
...

    Eksisterende kode 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.
...

    Erstatningskode 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. Legg til følgende nye lokale prosedyrer i "Gen. Jnl.-Post Line" codeunit (12) som følger:

    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;

          

Forutsetninger

Du må ha ett av følgende produkter installert for å bruke denne hurtigreparasjonen:

  • Den spanske versjonen av Microsoft Dynamics NAV 2009 R2
  • Den spanske versjonen av Microsoft Dynamics NAV 2009 SP1

Informasjon om fjerning

Du kan ikke fjerne denne hurtigreparasjonen.

Mer informasjon

Hvis du vil ha mer informasjon om problemer som er relatert til realisert mva-mva i mva-poster, klikker du følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:

2664615 Beløpet i mva-postene er feil når du legger inn et program i den spanske versjonen av Microsoft Dynamics NAV 2009

Status

Microsoft har bekreftet at dette er et problem i Microsoft-produktene som er oppført i delen «Gjelder for».

Obs! Dette er en «FAST PUBLISH»-artikkel som er opprettet direkte fra Microsofts støtteorganisasjon. Informasjonen i dette er angitt som svar på nye problemer. Som et resultat av hastigheten på å gjøre det tilgjengelig, kan materialene inkludere typografiske feil og kan bli revidert når som helst uten varsel. Se vilkår for bruk for andre hensyn.