Grundbeløb duplikeres, når du eksporterer Model 349 for en faktura, der bruger forskellige dimensioner og ikke har nogen lokationskode angivet i den spanske version af Microsoft Dynamics NAV 2009

Gælder for
Dynamics NAV 2009

Denne artikel gælder for Microsoft Dynamics NAV for landestandarden for spansk (es).

Symptomer

Antag, at du har flere fakturalinjer i en faktura, der ikke har nogen lokationskode angivet i den spanske version af Microsoft Dynamics NAV 2009. Fakturalinjerne bruger desuden forskellige dimensioner. Derefter bogfører du fakturaen. Når du i denne situation eksporterer Model 349 fra rapporten Make 349 Declaration (10710) for fakturaen, duplikeres grundbeløbene.
Dette problem opstår i følgende produkter:

  • Den spanske version af Microsoft Dynamics NAV 2009 R2
  • Den spanske version af Microsoft Dynamics NAV 2009 Service Pack 1

      

Løsning

Oplysninger om hotfix

Et understøttet hotfix er nu tilgængeligt fra Microsoft. Det er dog kun beregnet til at løse det problem, der er beskrevet i denne artikel. Anvend den kun på systemer, der oplever dette specifikke problem. Dette hotfix kan blive testet yderligere. Hvis du ikke er alvorligt berørt af dette problem, anbefaler vi derfor, at du venter på den næste Service Pack til Microsoft Dynamics NAV 2009 eller den næste Microsoft Dynamics NAV-version, der indeholder dette hotfix.

Bemærk! I særlige tilfælde kan gebyrer, der normalt påløber for supportopkald, blive annulleret, hvis en teknisk supportmedarbejder til Microsoft Dynamics og relaterede produkter afgør, at en bestemt opdatering løser dit problem. De sædvanlige supportomkostninger gælder for yderligere supportspørgsmål og -problemer, der ikke er kvalificeret til den pågældende opdatering.

            
          

Installationsoplysninger

Microsoft leverer kun programmeringseksempler til illustration uden garanti, hverken udtrykt eller underforstået. Dette omfatter, men er ikke begrænset til, underforståede garantier for salgbarhed eller egnethed til et bestemt formål. I denne artikel antages det, at du kender det programmeringssprog, der demonstreres, og med de værktøjer, der bruges til at oprette og foretage fejlfinding af procedurer. Microsofts supportteknikere kan hjælpe med at forklare funktionaliteten af en bestemt procedure, men de vil ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer, der opfylder dine specifikke krav.

Bemærk! Før du installerer dette hotfix, skal du kontrollere, at alle microsoft Navision-klientbrugere er logget af systemet. Dette omfatter klientbrugere af Microsoft Navision Application Services (NAS). Du bør være den eneste klientbruger, der er logget på, når du implementerer dette hotfix.

Hvis du vil implementere dette hotfix, skal du have en udviklerlicens.

Vi anbefaler, at brugerkontoen i vinduet Windows-logon eller i vinduet Databaselogon tildeles rolle-id'et "SUPER". Hvis brugerkontoen ikke kan tildeles rolle-id'et "SUPER", skal du kontrollere, at brugerkontoen har følgende tilladelser:

  • Tilladelsen Rediger for det objekt, du vil ændre.
  • Tilladelsen Execute for System Object ID 5210-objektet og for System Object ID 9015-objektet.

                
Bemærk! Du behøver ikke at have rettigheder til datalagrene, medmindre du skal udføre datareparation.

Kodeændringer

Bemærk! Test altid koderettelser i et kontrolleret miljø, før du anvender rettelserne på dine produktionscomputere.
Du kan løse dette problem ved at følge disse trin:

  1. Skift koden i dataelementnummer 5 i rapporten Make 349 Declaration (10710) på følgende måde:
    Eksisterende kode

    ...
VATInvSales.SETRANGE("EU Service",FALSE);
VATInvSales.SETRANGE(VATInvSales."EU 3-Party Trade",FALSE);
VATInvSales.SETFILTER(VATInvSales."Gen. Prod. Posting Group", FilterString);
IF VATInvSales.FIND('-') THEN BEGIN
REPEAT

// Delete the following lines.
IF IncludeIn349(VATInvSales,AmountToIncludein349,LocationDiffCountryCode) THEN BEGIN
IF (VATInvSales."Country/Region Code" <> CountryCode) OR
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
SummarizeBaseAmount(VATInvSales,AmountToIncludein349,Amount);
END ELSE
EmptyVATRegNo := TRUE;
END;
END;
// End of the lines.

UNTIL VATInvSales.NEXT = 0;
END;
VATInvSales.RESET;
VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
...

    Erstatningskode

    ...
VATInvSales.SETRANGE("EU Service",FALSE);
VATInvSales.SETRANGE(VATInvSales."EU 3-Party Trade",FALSE);
VATInvSales.SETFILTER(VATInvSales."Gen. Prod. Posting Group", FilterString);
IF VATInvSales.FIND('-') THEN BEGIN
REPEAT

// Add the following lines. 
IF (VATInvSales."Document No." <> LastDocNo) OR (VATInvSales."VAT Prod. Posting Group" <> LastVATPostGroup) THEN
IF IncludeIn349(VATInvSales,AmountToIncludein349,LocationDiffCountryCode) THEN BEGIN
IF (VATInvSales."Country/Region Code" <> CountryCode) OR
((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
SummarizeBaseAmount(VATInvSales,AmountToIncludein349,Amount);
END ELSE
EmptyVATRegNo := TRUE;
END;
END;
LastDocNo := VATInvSales."Document No.";
LastVATPostGroup := VATInvSales."VAT Prod. Posting Group";
// End of the lines. 

UNTIL VATInvSales.NEXT = 0;
END;
VATInvSales.RESET;
VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
...

  2. Skift koden i dataelementnummer 6 i rapporten Make 349 Declaration (10710) på følgende måde:
    Eksisterende kode

    ...
VATInvPurch.SETRANGE("EU Service",FALSE);
VATInvPurch.SETRANGE("EU 3-Party Trade",FALSE);
VATInvPurch.SETFILTER("Gen. Prod. Posting Group",FilterString);
IF VATInvPurch.FIND('-') THEN BEGIN
REPEAT

// Delete the following lines.
IF IncludeIn349(VATInvPurch,AmountToIncludein349,LocationDiffCountryCode) THEN BEGIN
IF (VATInvPurch."Country/Region Code" <> CountryCode) OR
((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN
NormalAmount := NormalAmount + AmountToIncludein349
ELSE
NormalAmount := NormalAmount + VATInvPurch.Base;
END ELSE
EmptyVATRegNo := TRUE;
END;
END;
UNTIL VATInvPurch.NEXT = 0;
// End of the lines.

END;
VATInvPurch.RESET;
VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);
...

    Erstatningskode

    ...
VATInvPurch.SETRANGE("EU Service",FALSE);
VATInvPurch.SETRANGE("EU 3-Party Trade",FALSE);
VATInvPurch.SETFILTER("Gen. Prod. Posting Group",FilterString);
IF VATInvPurch.FIND('-') THEN BEGIN
REPEAT

// Add the following lines. 
IF (VATInvPurch."Document No." <> LastDocNo) OR (VATInvPurch."VAT Prod. Posting Group" <> LastVATPostGroup) THEN
IF IncludeIn349(VATInvPurch,AmountToIncludein349,LocationDiffCountryCode) THEN BEGIN
IF (VATInvPurch."Country/Region Code" <> CountryCode) OR
((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
IF "VAT Registration No." <> '' THEN BEGIN
IF AmountToIncludein349 <> 0 THEN
NormalAmount := NormalAmount + AmountToIncludein349
ELSE
NormalAmount := NormalAmount + VATInvPurch.Base;
END ELSE
EmptyVATRegNo := TRUE;
END;
END;
LastDocNo := VATInvPurch."Document No.";
LastVATPostGroup := VATInvPurch."VAT Prod. Posting Group";
UNTIL VATInvPurch.NEXT = 0;
// End of the lines.

END;
VATInvPurch.RESET;
VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);
...

  3. Skift koden i de globale variabler i rapporten Make 349 Declaration (10710) på følgende måde:
    Eksisterende kode

    ...
EUServiceAlreadyExported@1100077 : Boolean;
ThirdPartyAlreadyExported@1100078 : Boolean;
FileNameControlVisible@19024830 : Boolean INDATASET;
PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
Idx@1100080 : ',E,M,H';
PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
VAR
TextAmt@1100101 : Text[15];
BEGIN
...

    Erstatningskode

    ...
EUServiceAlreadyExported@1100077 : Boolean;
ThirdPartyAlreadyExported@1100078 : Boolean;
FileNameControlVisible@19024830 : Boolean INDATASET;
PeriodFrequencyChangeEnable@19073723 : Boolean INDATASET;
Idx@1100080 : ',E,M,H';

// Add the following lines.
LastDocNo@1100082 : Code[20];
LastVATPostGroup@1100083 : Code[20];
// End of the lines.

PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15];
VAR
TextAmt@1100101 : Text[15];
BEGIN
...

          

Forudsætninger

Du skal have et af følgende produkter installeret for at anvende dette hotfix:

  • Den spanske version af Microsoft Dynamics NAV 2009 R2
  • Den spanske version af Microsoft Dynamics NAV 2009 Service Pack 1

Oplysninger om fjernelse

Du kan ikke fjerne dette hotfix.

Status

Microsoft har bekræftet, at dette er et problem i de Microsoft-produkter, der er angivet i afsnittet "Gælder for".

Bemærk! Dette er en "FAST PUBLISH"-artikel, der er oprettet direkte fra Microsoft-supportorganisationen. Oplysningerne heri leveres, som de er som svar på nye problemer. Som følge af den hastighed, der er ved at stille den til rådighed, kan materialerne indeholde typografiske fejl og kan til enhver tid revideres uden varsel. Se Vilkår for anvendelse for andre overvejelser.