Mva-beregningen er feil hvis en mva-kjøpsfaktura for omvendt betaling har flere linjer som kobler til forskjellige jobber i Microsoft Dynamics NAV

Gjelder for
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Denne artikkelen gjelder for Microsoft Dynamics NAV for alle land og alle språkinnstillinger.

Symptomer

Når du legger inn en mva-faktura (reverse charge value-added tax) som inneholder flere linjer og linjene kobler til forskjellige jobber i Microsoft Dynamics NAV, er mva-beregningen feil. Dette problemet oppstår i følgende produkter:

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1
  • Microsoft Dynamics NAV 5.0 Service Pack 1

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. Microsofts kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt fremgangsmåte. De vil imidlertid ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere fremgangsmåter 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.
Du kan løse dette problemet ved å endre koden i Purch.-Post codeunit (90). Gjør dette ved å følge disse trinnene:

  1. Legg til en lokal variabel i OnRun-utløseren, og angi deretter variabelen på følgende måte:

    • Navn:TempRevChargeVATAmountLine
    • DataType:Post
    • Undertype:MVA-beløpslinje

    Obs! Aktiver egenskapen Temporary (Midlertidig ).

  2. Legg til en lokal variabel i OnRun-utløseren, og angi deretter variabelen på følgende måte:

    • Navn:TempRevChargeVATAmountLine2
    • DataType:Post
    • Undertype:MVA-beløpslinje

    Obs! Aktiver egenskapen Temporary (Midlertidig ).

  3. Endre koden på OnRun-utløseren på følgende måte:
    Eksisterende kode

    ....

    CASE InvPostingBuffer[1]."VAT Calculation Type" OF
  InvPostingBuffer[1]."VAT Calculation Type"::"Reverse Charge VAT":
//delete lines begin    
    BEGIN
      VATPostingSetup.GET(
        InvPostingBuffer[1]."VAT Bus. Posting Group",InvPostingBuffer[1]."VAT Prod. Posting Group");
      InvPostingBuffer[1]."VAT Amount" :=
        ROUND(
          InvPostingBuffer[1].Amount * VATPostingSetup."VAT %" / 100);
      InvPostingBuffer[1]."VAT Amount (ACY)" :=
        ROUND(
          (InvPostingBuffer[1]."Amount (ACY)" * VATPostingSetup."VAT %" / 100),Currency."Amount Rounding Precision");
    END
//delete lines end  
  InvPostingBuffer[1]."VAT Calculation Type"::"Sales Tax":

    Erstatningskode

    ...
CASE InvPostingBuffer[1]."VAT Calculation Type" OF
InvPostingBuffer[1]."VAT Calculation Type"::"Reverse Charge VAT":

// Add the following line.
CalcRevChargeVATAmounts(InvPostingBuffer[1],TempRevChargeVATAmountLine,TempRevChargeVATAmountLine2);

InvPostingBuffer[1]."VAT Calculation Type"::"Sales Tax":
...

  4. Legg til en ny CalcRevChargeVATAmount-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett den lokale egenskapen til Ja.

    2. Legg til en lokal parameter i CalcRevChargeVATAmount-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:FakturaPostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    3. Legg til en lokal parameter i CalcRevChargeVATAmount-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:TempRevChargeVATAmountLine
      • DataType:Post
      • Undertype:MVA-beløpslinje

    4. Legg til en lokal variabel i CalcRevChargeVATAmount-funksjonen, og angi deretter variabelen på følgende måte:

      • Navn:VATBase
      • DataType:Desimal

    5. Legg til en lokal variabel i CalcRevChargeVATAmount-funksjonen, og angi deretter variabelen på følgende måte:

      • Navn:TotalVATBase
      • DataType:Desimal

    6. I den opprettede CalcRevChargeVATAmount(VAR InvoicePostBuffer : Record "Invoice Post. Buffer"; VAR TempRevChargeVATAmountLine: Record "VAT Amount Line")-funksjonen, legg til følgende kode:

      VATBase := InvoicePostBuffer.Amount;
TotalVATBase := GetTotalVATBase(TempRevChargeVATAmountLine,InvoicePostBuffer);
InvoicePostBuffer."VAT Amount" := GetVATAmount(TotalVATBase + VATBase) - GetVATAmount(TotalVATBase);
SetTotalVATBase(TempRevChargeVATAmountLine,InvoicePostBuffer,VATBase);

  5. Legg til en ny CalcRevChargeVATAmounts-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett den lokale egenskapen til Ja.

    2. Legg til en lokal parameter i CalcRevChargeVATAmounts-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:FakturaPostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    3. Legg til en lokal parameter i CalcRevChargeVATAmounts-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:TempRevChargeVATAmountLine
      • DataType:Post
      • Undertype:MVA-beløpslinje

    4. Legg til en lokal parameter i CalcRevChargeVATAmounts-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:TempRevChargeVATAmountLine2
      • DataType:Post
      • Undertype:MVA-beløpslinje

    5. Legg til en lokal variabel i CalcRevChargeVATAmounts-funksjonen, og angi deretter variabelen på følgende måte:

      • Navn:ACYInvoicePostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

      Obs! Aktiver egenskapen Temporary (Midlertidig ).

    6. I den opprettede CalcRevChargeVATAmounts(VAR InvoicePostBuffer: Record "Invoice Post. Buffer"; VAR TempRevChargeVATAmountLine: Record "VAT Amount Line")-funksjonen, legg til følgende kode:

      CalcRevChargeVATAmount(InvoicePostBuffer,TempRevChargeVATAmountLine);
CopyACYAmounts(InvoicePostBuffer,ACYInvoicePostBuffer);
CalcRevChargeVATAmount(ACYInvoicePostBuffer,TempRevChargeVATAmountLine2);
InvoicePostBuffer."VAT Amount (ACY)" := ACYInvoicePostBuffer."VAT Amount";

  6. Legg til en ny FillVATAmountLine-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett EgenskapenLocal til Ja.

    2. Legg til en lokal parameter i FillVATAmountLine-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:TempRevChargeVATAmountLine
      • DataType:Post
      • Undertype:MVA-beløpslinje

    3. Legg til en lokal parameter i FillVATAmountLine-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Nei
      • Navn:FakturaPostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    4. I den opprettede FillVATAmountLine(VAR TempRevChargeVATAmountLine: Record "VAT Amount Line"; InvoicePostBuffer: Record "Invoice Post. Buffer") funksjon, legg til følgende kode:

      VATPostingSetup.GET(InvoicePostBuffer."VAT Bus. Posting Group",InvoicePostBuffer."VAT Prod. Posting Group");
TempRevChargeVATAmountLine.INIT;
TempRevChargeVATAmountLine."VAT Identifier" := VATPostingSetup."VAT Identifier";
TempRevChargeVATAmountLine."VAT Calculation Type" := VATPostingSetup."VAT Calculation Type";
TempRevChargeVATAmountLine."Tax Group Code" := InvoicePostBuffer."Tax Group Code";
TempRevChargeVATAmountLine."Use Tax" := InvoicePostBuffer."Use Tax";
TempRevChargeVATAmountLine.Positive := InvoicePostBuffer.Amount > 0;

  7. Legg til en ny SetTotalVATBase-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett den lokale egenskapen til Ja.

    2. Legg til en lokal parameter i SetTotalVATBase-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:TempRevChargeVATAmountLine
      • DataType:Post
      • Undertype:MVA-beløpslinje

    3. Legg til en lokal parameter i SetTotalVATBase-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Nei
      • Navn:FakturaPostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    4. Legg til en lokal parameter i SetTotalVATBase-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Nei
      • Navn:VATBase
      • DataType:Desimal

    5. I den opprettede SetTotalVATBase(VAR TempRevChargeVATAmountLine: Record "VAT Amount Line"; Fakturapostbuffer: Post "Fakturapostbuffer"; VATBase : D)-funksjonen, legg til følgende kode:

      FillVATAmountLine(TempRevChargeVATAmountLine,InvoicePostBuffer);
IF NOT TempRevChargeVATAmountLine.FIND THEN
TempRevChargeVATAmountLine.INSERT;
TempRevChargeVATAmountLine."VAT Base" += VATBase;
TempRevChargeVATAmountLine.MODIFY;

  8. Legg til en ny GetTotalVATBase-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett den lokale egenskapen til Ja.

    2. Legg til en lokal parameter i GetTotalVATBase-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:TempRevChargeVATAmountLine
      • DataType:Post
      • Undertype:MVA-beløpslinje

    3. Legg til en lokal parameter i GetTotalVATBase-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Nei
      • Navn:FakturaPostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    4. Angi en returverdi i GetTotalVATBase-funksjonen, og angi deretter verdien som følger:

      • Navn:VATBase
      • Returtype:Desimal

    5. I den opprettede GetTotalVATBase(VAR TempRevChargeVATAmountLine: Record "VAT Amount Line"; InvoicePostBuffer: Post "Fakturapostbuffer") VATBase-funksjon, legg til følgende kode:

      FillVATAmountLine(TempRevChargeVATAmountLine,InvoicePostBuffer);
IF TempRevChargeVATAmountLine.FIND THEN
VATBase := TempRevChargeVATAmountLine."VAT Base";

  9. Legg til en ny CopyACYAmounts-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett den lokale egenskapen til Ja.

    2. Legg til en lokal parameter i CopyACYAmounts-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Nei
      • Navn:FromInvoicePostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    3. Legg til en lokal parameter i CopyACYAmounts-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Ja
      • Navn:ToInvoicePostBuffer
      • DataType:Post
      • Undertype:Fakturastolpe. buffer

    4. I den opprettede CopyACYAmounts(FromInvoicePostBuffer: Record "Invoice Post. Buffer"; VAR ToInvoicePostBuffer: Record "Invoice Post. Buffer") funksjon, legg til følgende kode:

      ToInvoicePostBuffer := FromInvoicePostBuffer;
ToInvoicePostBuffer.Amount := FromInvoicePostBuffer."Amount (ACY)";

  10. Legg til en ny GetVATAmount-funksjon. Gjør dette ved å følge disse trinnene:

    1. Sett den lokale egenskapen til Ja.

    2. Legg til en lokal parameter i GetVATAmount-funksjonen, og angi deretter parameteren på følgende måte:

      • Var: Nei
      • Navn:VATBase
      • DataType:Desimal

    3. Angi en returverdi i GetVATAmount-funksjonen, og angi deretter verdien som følger:

      • Returtype:Desimal

    4. Legg til følgende kode i den opprettede GetVATAmount(VATBase : Decimal) : Desimalfunksjonen:

      EXIT(ROUND(VATBase * VATPostingSetup."VAT %" / 100));

Forutsetninger

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

  • Microsoft Dynamics NAV 2009 R2
  • Microsoft Dynamics NAV 2009 Service Pack 1
  • Microsoft Dynamics NAV 5.0 Service Pack 1

Informasjon om fjerning

Du kan ikke fjerne denne hurtigreparasjonen.

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.