Beskrivelse af et bogført dokument i dialogboksen Finansposter er et standarddokument i stedet for det specifikke schweiziske, når du opretter og bogfører dokumentet ved hjælp af forskellige sprog i den schweiziske version af Microsoft Dynamics NAV 2009

Gælder for
Dynamics NAV 2009

Denne artikel gælder for Microsoft Dynamics NAV for følgende lande- og sprogstandarder.

  • Fransk (Schweiz) (fr-ch)
  • Tysk (Schweiz) (de-ch)
  • Italiensk (Schweiz) (it-ch)

Symptomer

Antag, at du angiver det samme nej. serie for dokumenter og bogførte dokumenter i dialogboksen Opsætning af & køb i den schweiziske version af Microsoft Dynamics NAV 2009. Når du opretter og bogfører et dokument ved hjælp af forskellige sprog, er beskrivelsen af det bogførte dokument i dialogboksen Finansposter en standard i stedet for den specifikke schweiziske. Du kan f.eks. angive det samme nej. i feltet Fakturanr. i & feltet Bogførte fakturanr. Når du opretter en købsfaktura ved hjælp af det franske sprog, men bogfører købsfakturaen på engelsk, er beskrivelsen af den bogførte købsfaktura en standardfaktura i stedet for den specifikke schweiziske faktura.

Dette problem opstår i følgende produkter:

  • Den schweiziske version af Microsoft Dynamics NAV 2009 R2
  • Den schweiziske version af Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

      

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. De vil dog ikke ændre disse eksempler for at give ekstra funktionalitet eller konstruere procedurer for at opfylde dine specifikke krav.

Bemærk! Før du installerer dette hotfix, skal du kontrollere, at alle brugere af Microsoft Dynamics NAV-klienten er logget af systemet. Dette omfatter Microsoft Dynamics NAV Application Server-tjenester (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 Udfør for systemobjekt-id 5210-objektet og for systemobjekt-id 9015

    Objekt.

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 Egenskaber i Sales-Post codeunit (80) på følgende måde:
    Eksisterende kode 1

    ...
    IF Invoice AND ("Posting No." = '') THEN BEGIN
    IF ("No. Series" <> '') OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
    THEN
    TESTFIELD("Posting No. Series");
    
    // Delete the following lines.
    IF ("No. Series" <> "Posting No. Series") OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
    THEN BEGIN
    "Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
    ModifyHeader := TRUE;
    END;
    END;
    
    // CH1070.begin
    IF ("Posting Description" = FORMAT("Document Type") + ' ' + "No.") OR
    (("Posting No." <> '') AND NOT ModifyHeader) THEN BEGIN
    // End of the deleted lines.
    
    // CH0003.BEGIN
    // IF "Document Type" <> "Document Type"::Order THEN
    IF NOT ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"]) THEN
    // CH0003.END
    "Posting Description" :=
    ...
    

    Erstatningskode 1

    ...
    IF Invoice AND ("Posting No." = '') THEN BEGIN
    IF ("No. Series" <> '') OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
    THEN
    TESTFIELD("Posting No. Series");
    
    // Add the following lines.
    IF ("No. Series" <> "Posting No. Series") OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"]) OR ("No. Series" <> '')
    THEN BEGIN
    "Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
    ModifyHeader := TRUE;
    END;
    
    END;
    
    // CH1070.begin
    IF ("Posting Description" = FORMAT("Document Type") + ' ' + "No.") OR
    // (("Posting No." <> '') AND NOT ModifyHeader)
    ("Posting No." <> '')
    THEN BEGIN
    // End of the added lines.
    
    // CH0003.BEGIN
    // IF "Document Type" <> "Document Type"::Order THEN
    IF NOT ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"]) THEN
    // CH0003.END
    "Posting Description" :=
    ...
    

    Eksisterende kode 2

    ...
    "Bill-to Name",1,MAXSTRLEN("Posting Description"));
    ModifyHeader := TRUE;
    END;
    // CH1070.end
    
    // Delete the following line.
    IF NOT ItemChargeAssgntOnly THEN BEGIN
    // End of the deleted line.
    
    SalesLine.RESET;
    SalesLine.SETRANGE("Document Type","Document Type");
    SalesLine.SETRANGE("Document No.","No.");
    SalesLine.SETFILTER("Purch. Order Line No.",'<>0');
    IF NOT SalesLine.ISEMPTY THEN BEGIN
    ...
    

    Erstatningskode 2

    ...
    "Bill-to Name",1,MAXSTRLEN("Posting Description"));
    ModifyHeader := TRUE;
    END;
    // CH1070.end
    
    // Add the following line.
    IF NOT ItemChargeAssgntOnly THEN BEGIN
    // End of the added line.
    
    SalesLine.RESET;
    SalesLine.SETRANGE("Document Type","Document Type");
    SalesLine.SETRANGE("Document No.","No.");
    SalesLine.SETFILTER("Purch. Order Line No.",'<>0');
    IF NOT SalesLine.ISEMPTY THEN BEGIN
    ...
    
  2. Du kan ændre koden i Egenskaber i kodeenheden Køb.-Post (90) på følgende måde:
    Eksisterende kode

    ...
    IF Invoice AND ("Posting No." = '') THEN BEGIN
    IF ("No. Series" <> '') OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
    THEN
    TESTFIELD("Posting No. Series");
    
    // Delete the following lines.
    IF ("No. Series" <> "Posting No. Series") OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
    THEN BEGIN
    "Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
    ModifyHeader := TRUE;
    END;
    END;
    // End of the deleted lines.
    
    // CH1070.begin
    IF ("Posting Description" = FORMAT("Document Type") + ' ' + "No.") OR
    // CH0003.BEGIN
    ...
    

    Erstatningskode

    ...
    IF Invoice AND ("Posting No." = '') THEN BEGIN
    IF ("No. Series" <> '') OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"])
    THEN
    TESTFIELD("Posting No. Series");
    
    // Add the following lines.
    IF ("No. Series" <> "Posting No. Series") OR
    ("Document Type" IN ["Document Type"::Order,"Document Type"::"Return Order"]) OR ("No. Series" <> '')
    THEN BEGIN
    "Posting No." := NoSeriesMgt.GetNextNo("Posting No. Series","Posting Date",TRUE);
    ModifyHeader := TRUE;
    END;
    // End of the added lines.
    
    END;
    
    // CH1070.begin
    IF ("Posting Description" = FORMAT("Document Type") + ' ' + "No.") OR
    // CH0003.BEGIN
    ...
    

Forudsætninger

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

  • Den schweiziske version af Microsoft Dynamics NAV 2009 R2
  • Den schweiziske 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.