Feltet "Kontantrabat %" er nul i salgsordren, hvis du opretter salgsordren fra kundekortet i Microsoft Dynamics NAV

Gælder for
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

HURTIGE UDGIVELSESARTIKLER INDEHOLDER OPLYSNINGER DIREKTE FRA MICROSOFT-SUPPORTORGANISATIONEN. DE OPLYSNINGER, DER ER INDEHOLDT HERI, OPRETTES SOM SVAR PÅ NYE ELLER UNIKKE EMNER ELLER ER BEREGNET TIL AT SUPPLERE ANDRE VIDENSBASEOPLYSNINGER.

Denne artikel gælder for Microsoft Dynamics NAV for alle lande og landestandarder.

Symptomer

Overvej følgende scenarie. Der er en betalingstermkode for kunden i Microsoft Dynamics NAV 2009. Du opretter en salgsordre ud fra debitorkortet. I dette scenarie er feltet "Kontantrabat %" i hovedet på salgsordren nul. Hvis du bogfører salgsordren senere, beregnes der desuden ingen kontantrabat.

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.

Hvis du vil installere dette kodefix, skal du ændre koden i tabellen Salgshoved (36) og i tabellen Købshoved (38) på følgende måde.

Bemærk! Følgende trin angiver de ændringer, du skal foretage for tabellen Salgshoved (36). Der skal foretages samme ændringer for tabellen Købshoved (38).

  1. Tilføj en ny global variabel:

    Navn: UpdateDocumentDate
    Datatype: Boolesk værdi

  2. I feltet "Faktureringsnr. - OnValidate()" skal du ændre koden på følgende måde.

    Eksisterende kode 1

    …
    IF NOT SkipBillToContact THEN
      "Bill-to Contact" := Cust.Contact;
    "Payment Terms Code" := Cust."Payment Terms Code";
    IF "Document Type" = "Document Type"::"Credit Memo" THEN BEGIN
    …
    

    Erstatningskode 1

    …
    IF NOT SkipBillToContact THEN
      "Bill-to Contact" := Cust.Contact;
    "Payment Terms Code" := Cust."Payment Terms Code";
    "Prepmt. Payment Terms Code" := Cust."Payment Terms Code";
    IF "Document Type" = "Document Type"::"Credit Memo" THEN BEGIN
    …
    

    Eksisterende kode 2

    …
      DATABASE::"Customer Template","Bill-to Customer Template Code");
    VALIDATE("Payment Terms Code");
    VALIDATE("Payment Method Code");
    VALIDATE("Currency Code");
    IF (xRec."Sell-to Customer No." = "Sell-to Customer No.") AND
    …
    

    Erstatningskode 2

    …
      DATABASE::"Customer Template","Bill-to Customer Template Code");
    VALIDATE("Payment Terms Code");
    VALIDATE("Prepmt. Payment Terms Code");
    VALIDATE("Payment Method Code");
    VALIDATE("Currency Code");
    IF (xRec."Sell-to Customer No." = "Sell-to Customer No.") AND
    …
    
  3. I funktionen "Betalingsvilkårskode - OnValidate()" skal du ændre koden på følgende måde.

    Eksisterende kode

    IF ("Payment Terms Code" <> '') AND ("Document Date" <> 0D) THEN BEGIN
      PaymentTerms.GET("Payment Terms Code");
      IF (("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
          NOT PaymentTerms."Calc. Pmt. Disc. on Cr. Memos")
      THEN BEGIN
        VALIDATE("Due Date","Document Date");
        VALIDATE("Pmt. Discount Date",0D);
        VALIDATE("Payment Discount %",0);
      END ELSE BEGIN
        "Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
        "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
      IF xRec."Document Date"="Document Date" THEN
         VALIDATE("Payment Discount %",PaymentTerms."Discount %")
      END;
    END ELSE BEGIN
      VALIDATE("Due Date","Document Date");
    IF xRec."Document Date"="Document Date" THEN BEGIN
      VALIDATE("Pmt. Discount Date",0D);
      VALIDATE("Payment Discount %",0);
    END;
    …
    

    Erstatningskode

    IF ("Payment Terms Code" <> '') AND ("Document Date" <> 0D) THEN BEGIN
      PaymentTerms.GET("Payment Terms Code");
      IF (("Document Type" IN ["Document Type"::"Return Order","Document Type"::"Credit Memo"]) AND
          NOT PaymentTerms."Calc. Pmt. Disc. on Cr. Memos")
      THEN BEGIN
        VALIDATE("Due Date","Document Date");
        VALIDATE("Pmt. Discount Date",0D);
        VALIDATE("Payment Discount %",0);
      END ELSE BEGIN
        "Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
        "Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
        IF NOT UpdateDocumentDate THEN
         VALIDATE("Payment Discount %",PaymentTerms."Discount %")
      END;
    END ELSE BEGIN
      VALIDATE("Due Date","Document Date");
    IF NOT UpdateDocumentDate THEN BEGIN
      VALIDATE("Pmt. Discount Date",0D);
      VALIDATE("Payment Discount %",0);
    END;
    …
    
  4. I funktionen "Dokumentdato - OnValidate()" skal du ændre koden på følgende måde.

    Eksisterende kode

    VALIDATE("Payment Terms Code");
    VALIDATE("Prepmt. Payment Terms Code");
    
    

    Erstatningskode

    IF xRec."Document Date" <> "Document Date" THEN
      UpdateDocumentDate := TRUE;
    VALIDATE("Payment Terms Code");
    VALIDATE("Prepmt. Payment Terms Code");
    
    
  5. I "Prepmt. Betalingsvilkårskode – OnValidate()" skal du ændre koden på følgende måde.

    Eksisterende kode

    …
      END ELSE BEGIN
        "Prepayment Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
        "Prepmt. Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
        VALIDATE("Prepmt. Payment Discount %",PaymentTerms."Discount %")
      END;
    END ELSE BEGIN
      VALIDATE("Prepayment Due Date","Document Date");
      VALIDATE("Prepmt. Pmt. Discount Date",0D);
      VALIDATE("Prepmt. Payment Discount %",0);
    END;
    

    Erstatningskode

    …
      END ELSE BEGIN
        "Prepayment Due Date" := CALCDATE(PaymentTerms."Due Date Calculation","Document Date");
        "Prepmt. Pmt. Discount Date" := CALCDATE(PaymentTerms."Discount Date Calculation","Document Date");
        IF NOT UpdateDocumentDate THEN
          VALIDATE("Prepmt. Payment Discount %",PaymentTerms."Discount %")
      END;
    END ELSE BEGIN
      VALIDATE("Prepayment Due Date","Document Date");
      IF NOT UpdateDocumentDate THEN BEGIN
        VALIDATE("Prepmt. Pmt. Discount Date",0D);
        VALIDATE("Prepmt. Payment Discount %",0);
      END;
    END;
    

Forudsætninger

Hvis du vil installere dette codefix, skal du have et af følgende produkter installeret:

  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV SP1

Oplysninger om genstart

Du behøver ikke at genstarte computeren, når du har installeret denne koderettelse.

Status

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

Flere oplysninger

MICROSOFT OG/ELLER MICROSOFTS LEVERANDØRER GØR INGEN REPRÆSENTATIONER ELLER GARANTIER FOR EGNETHEDEN, PÅLIDELIGHEDEN ELLER NØJAGTIGHEDEN AF DE OPLYSNINGER, DER ER INDEHOLDT I DOKUMENTERNE OG DEN RELATEREDE GRAFIK, DER UDGIVES PÅ DETTE WEBSTED ("MATERIALERNE") TIL NOGET FORMÅL.

MATERIALERNE KAN INDEHOLDE TEKNISKE UNØJAGTIGHEDER ELLER TYPOGRAFISKE FEJL OG KAN TIL ENHVER TID REVIDERES UDEN VARSEL. I DET OMFANG DET ER TILLADT I HENHOLD TIL GÆLDENDE LOVGIVNING, FRASKRIVER MICROSOFT OG/ELLER MICROSOFTS LEVERANDØRER SIG OG UDELUKKER ALLE REPRÆSENTATIONER, GARANTIER OG BETINGELSER, UANSET OM DE ER UDTRYKKELIGE, UNDERFORSTÅEDE ELLER LOVFÆSTEDE, HERUNDER, MEN IKKE BEGRÆNSET TIL REPRÆSENTATIONER, GARANTIER ELLER BETINGELSER FOR TITEL, IKKE-KRÆNKELSE, TILFREDSSTILLENDE TILSTAND ELLER KVALITET, SALGBARHED OG EGNETHED TIL ET BESTEMT FORMÅL, MED HENSYN TIL MATERIALERNE.