The "Payment Discount %" field is zero in the sales order if you create the sales order from the customer card in Microsoft Dynamics NAV

Installation information

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements.

Note Before you install this hotfix, verify that all Microsoft Navision client users are logged off the system. This includes Microsoft Navision Application Services (NAS) client users. You should be the only client user who is logged on when you implement this hotfix.

To implement this hotfix, you must have a developer license.

We recommend that the user account in the Windows Logins window or in the Database Logins window be assigned the "SUPER" role ID. If the user account cannot be assigned the "SUPER" role ID, you must verify that the user account has the following permissions:

• The Modify permission for the object that you will be changing.
• The Execute permission for the System Object ID 5210 object and for the System Object ID 9015 object.

Note You do not have to have rights to the data stores unless you have to perform data repair.

Code changes

Note Always test code fixes in a controlled environment before you apply the fixes to your production computers.

To install this codefix, change the code in the Sales Header table (36) and in the Purchase Header table (38) as follows.

Note The following steps indicate changes that you have to make for the Sales Header table (36). Same changes have to be made for the Purchase Header table (38).

1. Add a new global variable:
   
   Name: UpdateDocumentDate
   Data type: Boolean
2. In the "Bill-to Customer No. - OnValidate()" function, change the code as follows.
   
   

   Existing code 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
   …

   Replacement code 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
   …

   Existing code 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
   …

   Replacement code 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. In the "Payment Terms Code - OnValidate()" function, change the code as follows.
   
   

   Existing code

   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;
   …

   Replacement code

   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. In the "Document Date - OnValidate()" function, change the code as follows.
   
   

   Existing code

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

   Replacement code

   IF xRec."Document Date" <> "Document Date" THEN
     UpdateDocumentDate := TRUE;
   VALIDATE("Payment Terms Code");
   VALIDATE("Prepmt. Payment Terms Code");
   

5. In the "Prepmt. Payment Terms Code - OnValidate()" function, change the code as follows.
   
   

   Existing code

   …
     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;

   Replacement code

   …
     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;

Prerequisites

To install this codefix, you must have one of the following products installed:

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

Restart information

You do not have to restart the computer after you apply this codefix.