Du kan ikke opprette en elektronisk faktura som inneholder et negativt salgsfakturalinjebeløp i den danske versjonen av Microsoft Dynamics NAV

Gjelder for
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

Denne artikkelen gjelder for Microsoft Dynamics NAV for den danske språkinnstillingen (dk).

Symptomer

Du kan ikke opprette en elektronisk faktura som inneholder et negativt linjebeløp for salgsfakturaer i den danske versjonen av Microsoft Dynamics NAV. Du skal imidlertid kunne opprette en elektronisk faktura som inneholder negative linjebeløp når totalbeløpet er positivt.
Dette problemet oppstår i følgende produkter:

  • Den danske versjonen av Microsoft Dynamics NAV 2009 R2
  • Den danske versjonen av Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Den danske versjonen av Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

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 den globale verdien på Tekstkonstat-fanen i OIOUBL Kontroller kodeenheten for salgshodet (13602) på følgende måte:
    Eksisterende verdi
    Tekst 000 ='DAN=Bel>bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf>re en refusion, skal du oprette en kreditnota.; ENU=Beløpet i feltet %1 i linjenummeret %2 kan ikke være negativt. Hvis du vil legge inn en refusjon, oppretter du et kreditnota.'; Erstatningsverdi
    Text000 = 'DAN=Bel>bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf>re en refusion, skal du oprette en kreditnota.; ENU=Totalbeløpet kan ikke være negativt. Hvis du vil legge inn en refusjon, oppretter du et kreditnota.';

  2. Legg til en ny lokal variabel i CheckSalesLines-funksjonen i OIOUBL Check Sales Header codeunit (13602), og angi deretter variabelen som følger:

    • Navn: LineAmount
    • Datatype: Desimal
  3. Endre koden i CheckSalesLines-funksjonen i OIOUBL Check Sales Header codeunit (13602) på følgende måte:
    Eksisterende kode

    ...
    EmptyLineFound := FALSE;
    WITH SalesLine DO BEGIN
    RESET;
    SETRANGE("Document Type",SalesHeader."Document Type");
    SETRANGE("Document No.",SalesHeader."No.");
    IF FIND('-') THEN REPEAT
    IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN
    ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure"));
    IF Description = '' THEN
    IF (Type <> Type::" ") AND ("No." <> '') THEN
    ERROR(Text13608,"Document Type","Document No.",
    FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description));
    
    // Delete the following lines.
    IF "Line Amount" < 0 THEN 
    ERROR(Text000,FIELDCAPTION("Line Amount"),"Line No."); 
    // End of the lines.
    
    LineAmount += "Line Amount";
    IF (Type = Type::" ") OR ("No." = '')
    THEN EmptyLineFound := TRUE;
    UNTIL (NEXT = 0);
    
    IF EmptyLineFound THEN
    ...
    

    Erstatningskode

    ...
    EmptyLineFound := FALSE;
    
    // Add the following line.
    CLEAR(LineAmount);
    
    WITH SalesLine DO BEGIN
    RESET;
    SETRANGE("Document Type",SalesHeader."Document Type");
    SETRANGE("Document No.",SalesHeader."No.");
    IF FIND('-') THEN REPEAT
    IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN
    ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure"));
    IF Description = '' THEN
    IF (Type <> Type::" ") AND ("No." <> '') THEN
    ERROR(Text13608,"Document Type","Document No.",
    FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description));
    LineAmount += "Line Amount";
    IF (Type = Type::" ") OR ("No." = '')
    THEN EmptyLineFound := TRUE;
    UNTIL (NEXT = 0);
    
    // Add the following lines.
    IF LineAmount < 0 THEN 
    ERROR(Text000);
    // End of the lines.
    
    IF EmptyLineFound THEN
    ...
    
  4. Endre den globale verdien på Tekstkonstat-fanen i OIOUBL Check Service Header Codeunit (13613) på følgende måte:
    Eksisterende verdi
    Tekst 000 ='DAN=Bel>bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf>re en refusion, skal du oprette en kreditnota.; ENU=Beløpet i feltet %1 i linjenummeret %2 kan ikke være negativt. Hvis du vil legge inn en refusjon, oppretter du et kreditnota.'; Erstatningsverdi
    Text000 = 'DAN=Bel>bet i feltet %1 p† linje nummer %2 m† ikke v're negativt. Hvis du vil bogf>re en refusion, skal du oprette en kreditnota.; ENU=Totalbeløpet kan ikke være negativt. Hvis du vil legge inn en refusjon, oppretter du et kreditnota.';

  5. Legg til en ny lokal variabel i CheckServiceLines-funksjonen i OIOUBL Check Service Header Codeunit (13613), og angi deretter variabelen som følger:

    • Navn: LineAmount
    • Datatype: Desimal
  6. Endre koden i CheckServiceLines-funksjonen i OIOUBL Check Service Header Codeunit (13613) på følgende måte:
    Eksisterende kode

    ...
    EmptyLineFound := FALSE;
    WITH ServiceLine DO BEGIN
    RESET;
    SETRANGE("Document Type",ServiceHeader."Document Type");
    SETRANGE("Document No.",ServiceHeader."No.");
    IF FIND('-') THEN REPEAT
    IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN
    ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure"));
    IF Description = '' THEN
    IF (Type <> Type::" ") AND ("No." <> '') THEN
    ERROR(Text13608,"Document Type","Document No.",
    FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description));
    
    // Delete the following lines.
    IF "Line Amount" < 0 THEN 
    ERROR(Text000,FIELDCAPTION("Line Amount"),"Line No.");
    // End of the lines.
    
    IF (Type = Type::" ") OR ("No." = '')
    THEN EmptyLineFound := TRUE;
    UNTIL (NEXT = 0);
    
    IF EmptyLineFound THEN
    ...
    

    Erstatningskode

    ...
    EmptyLineFound := FALSE;
    
    // Add the following line.
    CLEAR(LineAmount); 
    
    WITH ServiceLine DO BEGIN
    RESET;
    SETRANGE("Document Type",ServiceHeader."Document Type");
    SETRANGE("Document No.",ServiceHeader."No.");
    IF FIND('-') THEN REPEAT
    IF (Type <> Type::" ") AND ("No." <> '') AND ("Unit of Measure" = '') THEN
    ERROR(Text13612,"Document Type","Document No.",FIELDCAPTION("Unit of Measure"));
    IF Description = '' THEN
    IF (Type <> Type::" ") AND ("No." <> '') THEN
    ERROR(Text13608,"Document Type","Document No.",
    FIELDCAPTION(Type),FIELDCAPTION("No."),FIELDCAPTION(Description));
    
    // Add the following line.
    LineAmount += "Line Amount";
    
    IF (Type = Type::" ") OR ("No." = '')
    THEN EmptyLineFound := TRUE;
    UNTIL (NEXT = 0);
    
    // Add the following lines.
    IF LineAmount < 0 THEN
    ERROR(Text000);
    // End of the lines.
    
    IF EmptyLineFound THEN
    ...
    

Forutsetninger

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

  • Den danske versjonen av Microsoft Dynamics NAV 2009 R2
  • Den danske versjonen av Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Den danske versjonen av Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

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.