Gjelder for
Dynamics NAV 2009

Denne artikkelen gjelder for Microsoft Dynamics NAV for alle nasjonale innstillinger for språk.

Symptomer

I Microsoft Dynamics NAV, når du prøver å opprette en ordre i utenlandsk valuta hvis Standard Bokføringsdato er satt til "Dato" Nei, du kan ikke bekrefte valutakursen. Derfor kan du få følgende feilmelding:

Det er ingen valutakurs i filteret.

I tillegg kan du skrive ut rapporten Ordrebekreftelse (205).Dette problemet oppstår i følgende produkter:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

  • Microsoft Dynamics NAV 2009 R2

Oppløsning

Informasjon om hurtigreparasjon

En støttet hurtigreparasjon er nå tilgjengelig fra Microsoft. Det er imidlertid bare ment å løse problemet som er beskrevet i denne artikkelen. Bruk den bare på systemer som har dette bestemte problemet. Denne hurtigreparasjonen kan gjennomgå ytterligere testing. Hvis du ikke er alvorlig påvirket av dette problemet, anbefaler vi derfor at du venter på neste oppdateringspakke for Microsoft Dynamics NAV 2009 eller den neste versjonen av Microsoft Dynamics NAV som inneholder denne hurtigreparasjonen.Obs! I spesielle tilfeller avgifter som vanligvis påløper for støtte samtaler kan avbrytes hvis en kundestøttemedarbeider for Microsoft Dynamics og beslektede produkter avgjør at en bestemt oppdatering løser problemet. Vanlige kundestøttekostnader gjelder for ytterligere kundestøttespørsmål og problemer som ikke dekkes av den gjeldende oppdateringen.

Installasjonsinformasjon

Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.Obs! Før du installerer denne hurtigreparasjonen, må du kontrollere at alle brukere av Microsoft Navision-klienten er logget av systemet. Dette inkluderer Microsoft Navision Application tjenester (NAS) client-brukere. Du skal bare klient-brukeren som er logget på når du implementerer denne hurtigreparasjonen.Hvis du vil implementere denne hurtigreparasjonen, må du ha en utviklerlisens.Vi anbefaler at kontoen i vinduet Windows-pålogging eller i vinduet Database-pålogging være tildelt "SUPER" rolle-ID. Hvis brukerkontoen ikke kan tilordnes "SUPER" rolle-IDen, må du kontrollere at brukerkontoen har følgende tillatelser:

  • Endre-tillatelse for objektet du vil endre.

  • Tilgangsnivået for systemet objekt-IDen til 5210 objektet og systemet objekt-ID-9015 -objekt.

Obs! Du har ikke tilgangsrettigheter til datalagre med mindre du har til å utføre data reparasjon.

Kodeendringer

Obs! Alltid løser teste koden i et kontrollert miljø før du installerer hurtigreparasjoner til produksjonsdatamaskiner for.Hvis du vil løse dette problemet, gjør du følgende:

  1. Endre koden i SalesHeaderExchDate -funksjonen i Salgspris Beregn Jobbskjemahåndtering kodeenheten (7000) som følger:Eksisterende kode

    ...WITH SalesHeader DO BEGIN// Delete the following lines.  IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND     ("Posting Date" = 0D)  THEN    EXIT(WORKDATE);  EXIT("Posting Date");// End of the deleted lines.END;...

    Ny kode

    ...WITH SalesHeader DO BEGIN// Add the following lines.  IF "Posting Date" <>0D THEN    EXIT("Posting Date");  EXIT(WORKDATE);// End of the added lines.END;...

  2. Endre koden i PurchHeaderExchDate -funksjonen i Kjøp. Pris Beregn Jobbskjemahåndtering kodeenhet (7010) som følger:Eksisterende kode

    ...WITH PurchHeader DO BEGIN// Delete the following lines.  IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND     ("Posting Date" = 0D)  THEN    EXIT(WORKDATE);  EXIT("Posting Date");// End of the deleted lines.END;...

    Ny kode

    ...WITH PurchHeader DO BEGIN// Add the following lines.  IF "Posting Date" <> 0D THEN    EXIT("Posting Date");  EXIT(WORKDATE);// End of the added lines.END;...

  3. Endre koden i OnAssistEdit -utløser i feltet Valutakode (111) i Salgsordre -skjemaet (42) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  4. Endre koden i OnAssistEdit -utløser i feltet Valutakode (107) i skjemaet Mva-faktura (43) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  5. Endre koden i OnAssistEdit -utløser i feltet Valutakode (91) i skjemaet Salgskreditnota (44) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added linesIF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  6. Endre koden i OnAssistEdit -utløser i feltet Valutakode (119) i skjemaet for Bestillingen (50) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  7. Endre koden i OnAssistEdit -utløser i feltet Valutakode (104) i skjemaet for Innkjøpsfaktura (51) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  8. Endre koden i OnAssistEdit -utløser i feltet Valutakode (91) i skjemaet Kjøpskreditnota (52) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  9. Endre koden i OnAssistEdit -utløser i feltet Valutakode (91) i skjemaet Ordreretur (6630) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  10. Endre koden i OnAssistEdit -utløser i feltet Valutakode (91) i skjemaet Bestillingsretur (6640) som følger:Eksisterende kode

    ...CLEAR(ChangeExchangeRate);// Delete the following line.ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date");// End of the deleted line.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

    Ny kode

    ...CLEAR(ChangeExchangeRate);// Add the following lines.IF "Posting Date" <> 0D THEN  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor","Posting Date")ELSE  ChangeExchangeRate.SetParameter("Currency Code","Currency Factor",WORKDATE);// End of the added lines.IF ChangeExchangeRate.RUNMODAL = ACTION::OK THEN BEGIN  VALIDATE("Currency Factor",ChangeExchangeRate.GetParameter);  CurrForm.UPDATE;END;CLEAR(ChangeExchangeRate);...

  11. Endre koden i funksjonen UpdateCurrencyFactor i tabellen Salgshode (36) som følger:Eksisterende kode

    ...IF "Currency Code" <>'' THEN BEGIN// Delete the following lines.  IF ("Document Type" IN ["Document Type"::Quote,"Document Type"::"Blanket Order"]) AND     ("Posting Date" = 0D)  THEN    CurrencyDate := WORKDATE  ELSE    CurrencyDate := "Posting Date";// End of the deleted lines.  "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");END ELSE  "Currency Factor" := 0;...

    Ny kode

    ...IF "Currency Code" <> '' THEN BEGIN// Add the following lines.  IF "Posting Date" <> 0D THEN    CurrencyDate := "Posting Date"  ELSE    CurrencyDate := WORKDATE;// End of the added lines.  "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");END ELSE  "Currency Factor" := 0;...

  12. Endre koden i funksjonen GetDate i tabellen Salgslinje (37) som følger:Eksisterende kode

    ...// Delete the following lines.IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND   (SalesHeader."Posting Date" = 0D)THEN  EXIT(WORKDATE);EXIT(SalesHeader."Posting Date");// End of the deleted lines....

    Ny kode

    ...// Add the following lines.IF SalesHeader."Posting Date" <> 0D THEN  EXIT(SalesHeader."Posting Date");EXIT(WORKDATE);// End of the added lines....

  13. Endre koden i funksjonen UpdateCurrencyFactor i tabellen Bestillingshode (38) som følger:Eksisterende kode

    ...IF "Currency Code" <> '' THEN BEGIN// Delete the following lines.  IF ("Document Type" IN ["Document Type"::Quote,"Document Type"::"Blanket Order"]) AND     ("Posting Date" = 0D)  THEN    CurrencyDate := WORKDATE  ELSE    CurrencyDate := "Posting Date";// End of the deleted lines.  "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");END ELSE  "Currency Factor" := 0;...

    Ny kode

    ...IF "Currency Code"<>'' THEN BEGIN// Add the following lines.  IF "Posting Date" <> 0D THEN    CurrencyDate := "Posting Date"  ELSE    CurrencyDate := WORKDATE;// End of the added lines.  "Currency Factor" := CurrExchRate.ExchangeRate(CurrencyDate,"Currency Code");END ELSE  "Currency Factor" := 0;...

  14. Endre koden i funksjonen GetDate i tabellen Bestillingslinje (39) som følger:Eksisterende kode

    ...// Delete the following lines.IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND   (PurchHeader."Posting Date" = 0D)THEN  EXIT(WORKDATE);EXIT(PurchHeader."Posting Date")// End of the deleted lines....

    Ny kode

    ...// Add the following lines.IF PurchHeader."Posting Date"<>0D THEN  EXIT(PurchHeader."Posting Date");EXIT(WORKDATE);// End of the added lines....

  15. Endre koden i RoundAmount -funksjonen i Mva-Post kodeenheten (80) som følger:Eksisterende kode

    ...IF SalesHeader."Currency Code" <>'' THEN BEGIN// Delete the following lines.  IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND     (SalesHeader."Posting Date" = 0D)  THEN// End of the deleted lines.    UseDate := WORKDATE  ELSE    UseDate := SalesHeader."Posting Date";       ...

    Ny kode

    ...IF SalesHeader."Currency Code" <>'' THEN BEGIN// Add the following line.  IF (SalesHeader."Posting Date" = 0D) THEN// End of the added line.    UseDate := WORKDATE  ELSE    UseDate := SalesHeader."Posting Date";...

  16. Endre koden i RoundAmount -funksjonen i den innkjøp-Post kodeenhet (90) som følger:Eksisterende kode

    ...IF PurchHeader."Currency Code" <>'' THEN BEGIN// Delete the following lines.  IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND     (PurchHeader."Posting Date" = 0D)  THEN// End of the deleted lines.    Usedate := WORKDATE  ELSE    Usedate := PurchHeader."Posting Date";...

    Ny kode

    ...IF PurchHeader."Currency Code"<> '' THEN BEGIN// Add the following line.  IF (PurchHeader."Posting Date" = 0D) THEN// End of the added line.    Usedate := WORKDATE  ELSE    Usedate := PurchHeader."Posting Date";...

  17. Endre koden i UpdateHeaderInfo -funksjonen i skjemaet Ordrestatistikk (402) som følger:Eksisterende kode

    ...IF "Prices Including VAT" THEN  TotalSalesLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]ELSE  TotalSalesLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];IF "Currency Code" <> '' THEN// Delete the following lines.       IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND     ("Posting Date" = 0D)  THEN// End of the deleted lines.    UseDate := WORKDATE  ELSE    UseDate := "Posting Date";         ...

    Ny kode

    ...IF "Prices Including VAT" THEN  TotalSalesLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]ELSE  TotalSalesLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];IF "Currency Code" <>'' THEN// Add the following line.      IF "Posting Date" = 0D THEN// End of the added line.    UseDate := WORKDATE  ELSE    UseDate := "Posting Date";...

  18. Endre koden i UpdateHeaderInfo -funksjonen i Kjøpsstatistikk-bestilling -skjemaet (403) som følger:Eksisterende kode

    ...IF "Prices Including VAT" THEN  TotalPurchLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]ELSE  TotalPurchLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];IF "Currency Code" <> '' THEN BEGIN// Delete the following lines.        IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND     ("Posting Date" = 0D)  THEN// End of the deleted lines.    UseDate := WORKDATE  ELSE    UseDate := "Posting Date";...

    Ny kode

    ...IF "Prices Including VAT" THEN  TotalPurchLineLCY[IndexNo].Amount := TotalAmount2[IndexNo]ELSE  TotalPurchLineLCY[IndexNo].Amount := TotalAmount1[IndexNo];IF "Currency Code" <> '' THEN BEGIN// Add the following line.        IF "Posting Date" = 0D THEN// End of the added line.    UseDate := WORKDATE  ELSE    UseDate := "Posting Date";...

  19. Endre koden i CalculateInvoiceDiscount -funksjonen i kodeenhet for Rabatt av mva-beregning (60) som følger:Eksisterende kode

    ...// Delete the following lines.  IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND   (SalesHeader."Posting Date" = 0D)THEN// End of the deleted lines.  CurrencyDate := WORKDATEELSE  CurrencyDate := SalesHeader."Posting Date";...

    Ny kode

    ...// Add the following line.    IF SalesHeader."Posting Date" = 0D THEN// End of the added line.  CurrencyDate := WORKDATEELSE  CurrencyDate := SalesHeader."Posting Date";...

  20. Endre koden i CalculateInvoiceDiscount -funksjonen i den innkjøp-Calc.Discount kodeenhet (70) som følger:Eksisterende kode

    ...// Delete the following lines.  IF ("Document Type" IN ["Document Type"::"Blanket Order","Document Type"::Quote]) AND   (PurchHeader."Posting Date" = 0D)THEN// End of the deleted lines.  CurrencyDate := WORKDATEELSE  CurrencyDate := PurchHeader."Posting Date";...

    Ny kode

    ...// Add the following line.   IF PurchHeader."Posting Date" = 0D THEN// End of the added line.  CurrencyDate := WORKDATEELSE  CurrencyDate := PurchHeader."Posting Date";...

Forutsetninger

Du må ha én av de følgende programmene installert for å bruke denne hurtigreparasjonen:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

  • Microsoft Dynamics NAV 2009 R2

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".

Referanser

VSTF DynamicsNAV SE: 237796, 245981, 254036

Obs! Dette er en "RASKT PUBLISERE" artikkel opprettet direkte fra innenfor organisasjonen Microsoft Kundestøtte. Informasjonen i dette dokumentet tilbys som-er som svar på nye problemer. Som et resultat av hastigheten i å gjøre den tilgjengelig materialene kan inkludere typografiske feil, og den kunne bli revidert når som helst uten varsel. Se Vilkårene for Bruk for andre hensyn.

Facebook LinkedIn E-post
ABONNER PÅ RSS-FEEDER

Trenger du mer hjelp?

Vil du ha flere alternativer?

Utforsk abonnementsfordeler, bla gjennom opplæringskurs, finn ut hvordan du sikrer enheten og mer.

Abonnementsfordeler for Microsoft 365

Microsoft 365-opplæring

Microsoft Sikkerhet

Tilgjengelighetssenter