Denne artikkelen gjelder for Microsoft Dynamics NAV for den spanske (es) språkinnstillingen.
Symptomer
Når du kjører mva-kontoutdragsrapporten i den spanske versjonen av Microsoft Dynamics NAV 2009 Service Pack 1 (SP1), beregnes ikke grunnbeløpet for den fullstendige MVA-transaksjonen i modell 320.
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:
Endre koden i CalcLineTotal2C-funksjonen i mva-kontoutdraget (12) på følgende måte:
Eksisterende kode... IF VATStmtLine2."Amount Type" = VATStmtLine2."Amount Type"::"Amount+Base" THEN BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Delete the following line. Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; CalculateTotalAmount(VATStmtLine2); END; ...Erstatningskode
... IF VATStmtLine2."Amount Type" = VATStmtLine2."Amount Type"::"Amount+Base" THEN BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // End of the lines. END; CalculateTotalAmount(VATStmtLine2); END; ...Endre koden i CalcLineTotal-funksjonen i mva-kontoutdragsrapporten (12) på følgende måte:
Eksisterende kode 1... BEGIN VATEntry.CALCSUMS(Base,Amount,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Erstatningskode 1
... BEGIN VATEntry.CALCSUMS(Base,Amount,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Eksisterende kode 2
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Delete the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."VAT %"; VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %")* VATEntry."VAT %"; END; Amount := ConditionalAdd(0,VATAmount,VATAmountAC); END; Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; ...Erstatningskode 2
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Add the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; ...Eksisterende kode 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Erstatningskode 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,UseAmtsInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",UseAmtsInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStmtLine2."Amount Type"::"Unrealized Amount": BEGIN ...Eksisterende kode 4
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Delete the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); IF VATPostSetup.GET(VATEntry."VAT Bus. Posting Group",VATEntry."VAT Prod. Posting Group") THEN BEGIN IF VATPostSetup."VAT+EC %" <> 0 THEN BEGIN VATAmount := (VATEntry.Amount / VATPostSetup."VAT+EC %") * VATEntry."EC %"; VATAmountAC := (VATEntry."Additional-Currency Amount" / VATPostSetup."VAT+EC %")* VATEntry."EC %"; END; Amount := ConditionalAdd(0,VATAmount,VATAmountAC); END; Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; END; // End of the lines. END; ...Erstatningskode 4
... END; VATStmtLine2."Amount Type"::"Amount+Base": BEGIN // Add the following lines. VATEntry.CALCSUMS(Amount,Base,VATEntry."Additional-Currency Amount",VATEntry."Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,FALSE), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",FALSE)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; END // End of the lines. END; ...Endre koden for egenskapene i rapporten Telematisk MVA-deklarasjon (10715) på følgende måte:
Eksisterende kode... Header := Text1100000 ELSE Header := Text1100001 + "VAT Declaration Line".GETFILTER("Date Filter"); END; OnPostReport=BEGIN ...Erstatningskode
... Header := Text1100000 ELSE Header := Text1100001 + "VAT Declaration Line".GETFILTER("Date Filter"); // Add the following lines. GLSetup.GET; IF PrintAmtInAddCurr THEN Currency.GET(GLSetup."Additional Reporting Currency"); // End of the lines. END; OnPostReport=BEGIN ...Legg til en global variabel i rapporten Telematisk MVA-deklarasjon (10715), og angi deretter variabelen på følgende måte:
- Navn:Valuta
- DataType:Post
Endre koden i CalcTotLine-funksjonen i den telematiske MVA-deklarasjonsrapporten (10715) som følger:
Eksisterende kode 1... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Erstatningskode 1
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Eksisterende kode 2
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Delete the following line. Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Erstatningskode 2
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Eksisterende kode 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Erstatningskode 3
... BEGIN VATEntry.CALCSUMS(Base,"Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN BEGIN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)); Amount := Amount + Base; END; // End of the lines. END; VATStatementLine2."Amount Type"::"Unrealized Amount": BEGIN ...Eksisterende kode 4
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Delete the following line. Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Erstatningskode 4
... BEGIN VATEntry.CALCSUMS(Amount,Base,"Additional-Currency Amount","Additional-Currency Base"); Amount := ConditionalAdd(0,VATEntry.Amount,VATEntry."Additional-Currency Amount"); // Add the following lines. IF VATEntry."VAT Calculation Type" = VATEntry."VAT Calculation Type"::"Full VAT" THEN Base := ConditionalAdd(0,CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry.Amount,PrintAmtInAddCurr), CalcTotalVATBase(VATEntry."VAT %",VATEntry."EC %",VATEntry."Additional-Currency Amount",PrintAmtInAddCurr)) ELSE Base := ConditionalAdd(0,VATEntry.Base,VATEntry."Additional-Currency Base"); Amount := Amount + Base; // End of the lines. END; END; CalcTotAmount(VATStatementLine2,TotalAmount); ...Endre koden i CalcTotalVATBase-funksjonen i den telematiske MVA-deklarasjonsrapporten (10715) på følgende måte:
Eksisterende kode... OutFile := Text1100006 + "VAT Declaration Line"."Statement Name" + Text1100007 END; BEGIN END. } ...Erstatningskode
... OutFile := Text1100006 + "VAT Declaration Line"."Statement Name" + Text1100007 END; // Add the following lines. PROCEDURE CalcTotalVATBase@1100000(VAT@1100000 : Decimal;EC@1100001 : Decimal;VATAmount@1100002 : Decimal;UseAddCurr@1100003 : Boolean) VATBase : Decimal; BEGIN IF (VAT + EC) = 0 THEN EXIT; IF UseAddCurr THEN EXIT(ROUND(100 * VATAmount / (VAT + EC),Currency."Amount Rounding Precision")) ELSE EXIT(ROUND(100 * VATAmount / (VAT + EC),GLSetup."Amount Rounding Precision")); END; // End of the lines. BEGIN END. } ...
Obs! Kontrollen er plassert ved siden av det siste feltet i inndelingen.
Forutsetninger
Du må ha den spanske versjonen av Microsoft Dynamics NAV 2009 Service Pack 1 installert for å bruke denne hurtigreparasjonen.
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.