347-filen er feil hvis du har mer enn én kunde eller leverandør som har samme mva-registreringsnummer (mva) i den spanske versjonen av Microsoft Dynamics NAV

Gjelder for
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Denne artikkelen gjelder for Microsoft Dynamics NAV for den spanske (es) språkinnstillingen.

Symptomer

Anta at du har mer enn én kunde eller leverandør som har samme mva-registreringsnummer (mva) i den spanske versjonen av Microsoft Dynamics NAV. Hvis den første kunden eller leverandøren ikke har noen poster og den andre kunden eller leverandøren har poster, tar ikke systemet hensyn til oppføringene til den andre kunden eller leverandøren. Derfor er den opprettede 347-filen 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
  • Den spanske versjonen av 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. 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 dataelementnummer 6 i rapporten Lag 347-deklarasjon (10707) som følger:
    Eksisterende kode

    ...
    IF Vendor."VAT Registration No." <> '' THEN BEGIN
    TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;
    
    // Delete the following line.
    PurchasesAmt := PurchasesAmt - NotIn347Amt;
    // End of the line.
    
    IF PurchasesAmt >= MinAmount THEN BEGIN
    IF PostCode347 = ' ' THEN
    ERROR(Text1100009,Vendor."No.");
    ...
    
    

    Erstatningskode

    ...
    IF Vendor."VAT Registration No." <> '' THEN BEGIN
    TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;
    
    // Add the following line.
    PurchasesAmt := PurchasesAmt - NotIn347Amt + AmtSameVATRegNo; // ES0001
    // End of the line.
    
    IF PurchasesAmt >= MinAmount THEN BEGIN
    IF PostCode347 = ' ' THEN
    ERROR(Text1100009,Vendor."No.");
    ...
    
    
  2. Endre koden i CheckSameVATRegNo-funksjonen i rapporten Lag 347-deklarasjon (10707) på følgende måte:
    Eksisterende kode 1

    ...
    VATEntry3@1100000 : Record 254;
    BEGIN
    VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
    
    // Delete the following line.
    VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale);
    // End of the line.
    
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    ...
    
    

    Erstatningskode 1

    ...
    VATEntry3@1100000 : Record 254;
    BEGIN
    VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    ...
    
    

    Eksisterende kode 2

    ...
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    ...
    
    

    Erstatningskode 2

    ...
    VATEntry3.SETRANGE("Country/Region Code",CountryCode);
    IF IsCustomer THEN BEGIN
    
    // Add the following line.
    VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale); // ES0001
    // End of the line.
    
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    ...
    
    

    Eksisterende kode 3

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    ...
    
    

    Erstatningskode 3

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
    END ELSE BEGIN
    
    // Add the following line.
    VATEntry3.SETRANGE(Type,VATEntry3.Type::Purchase); // ES0001
    // End of the line.
    
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    ...
    
    

    Eksisterende kode 4

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    
    // Delete the following line.
    VATEntry3.SETRANGE("Posting Date",FromDate,ToDate);
    // End of the line.
    
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    ...
    
    

    Erstatningskode 4

    ...
    VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
    VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
    END;
    
    // Add the following line.
    VATEntry3.SETRANGE("Document Date",FromDate,ToDate); // ES0001
    // End of the line.
    
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    ...
    
    

    Eksisterende kode 5

    ...
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    
    // Delete the following line.
    Amt := ABS(Amt + VATEntry3.Base + VATEntry3.Amount);
    // End of the line.
    
    UNTIL VATEntry3.NEXT = 0;
    EXIT(Amt);
    END;
    ...
    
    

    Erstatningskode 5

    ...
    IF VATEntry3.FINDFIRST THEN
    REPEAT
    
    // Add the following lines.
    // ES0001.begin
    IF IsCustomer THEN
    Amt := Amt - VATEntry3.Base - VATEntry3.Amount
    ELSE
    Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
    // ES0001.end
    // End of the lines.
    
    UNTIL VATEntry3.NEXT = 0;
    EXIT(Amt);
    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 Service Pack 1
  • Den spanske versjonen av 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.