Mandatory fields are not checked when you create a SEPA file in the Belgian version of Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Change the code of the Properties in the Check SEPA Payments codeunit (2000004) as follows:
   Existing code 1

   ...
                       CheckExportProtocol(Rec);
                       ExportProtocolChecked := TRUE;
                     END;
                     CheckOwnBankAccount(Rec);
                     CheckBenBAN(Rec);
                     CheckCurrencyEuro(Rec);
   ...
   

   Replacement code 1

   ...
                       CheckExportProtocol(Rec);
                       ExportProtocolChecked := TRUE;
                     END;
   
   // Add the following line.
                       CheckCustVendName(Rec);
   
                     CheckOwnBankAccount(Rec);
                     CheckBenBAN(Rec);
                     CheckCurrencyEuro(Rec);
   ...
   

   Existing code 2

   ...
                       END;
                   UNTIL NEXT = 0;
     
                 CheckForOnlyOneBankAcc;
                 CheckPaymJnlLine.ShowErrorLog;
               END;
   ...
   

   Replacement code 2

   ...
                       END;
                   UNTIL NEXT = 0;
   
   // Add the following line.  
                   CheckCompanyName;
   
                 CheckForOnlyOneBankAcc;
                 CheckPaymJnlLine.ShowErrorLog;
               END;
   ...
   

2. Add the following global variable in the Check SEPA Payments codeunit (2000004):

    Text007@1010013 : TextConst 'ENU=Company name cannot be blank.';

3. Change the code in the CheckForOnlyOneBankAcc function in the Check SEPA Payments codeunit (2000004) as follows:
   Existing code

   ...
             END;
         END;
   
   // Delete the following line.  
           BEGIN
   
         END.
       }
     }
   ...
   

   Replacement code

   ...
             END;
         END;
   
   // Add the following lines.  
           LOCAL PROCEDURE CheckCompanyName@1010007();
           VAR
             CompanyInfo@1010000 : Record 79;
           BEGIN
             CompanyInfo.GET;
             IF DELCHR(CompanyInfo.Name) = '' THEN
               CheckPaymJnlLine.InsertErrorLog(Text007);
           END;
       
           LOCAL PROCEDURE CheckCustVendName@1010008(VAR PmtJnlLine@1010000 : Record 2000001);
           VAR
             Vendor@1010001 : Record 23;
             Customer@1010002 : Record 18;
           BEGIN
             CASE PmtJnlLine."Account Type" OF
               PmtJnlLine."Account Type"::Vendor:
                 IF Vendor.GET(PmtJnlLine."Account No.") THEN
                   IF DELCHR(Vendor.Name) = '' THEN
                     CheckPaymJnlLine.InsertErrorLog(STRSUBSTNO(Text001,Vendor.FIELDCAPTION(Name),Vendor.TABLECAPTION,
                       Vendor."No.",PmtJnlLine.TABLECAPTION,PmtJnlLine.FIELDCAPTION("Line No."),PmtJnlLine."Line No."));
               PmtJnlLine."Account Type"::Customer: 
                 IF Customer.GET(PmtJnlLine."Account No.") THEN
                   IF DELCHR(Customer.Name) = '' THEN
                     CheckPaymJnlLine.InsertErrorLog(STRSUBSTNO(Text001,Customer.FIELDCAPTION(Name),Customer.TABLECAPTION,
                       Customer."No.",PmtJnlLine.TABLECAPTION,PmtJnlLine.FIELDCAPTION("Line No."),PmtJnlLine."Line No."));
             END;
           END;
       
           BEGIN
   // End of the lines.
   
         END.
       }
     }
   ...
   

Prerequisites

• The Belgian version of Microsoft Dynamics NAV 2009 R2
• The Belgian version of Microsoft Dynamics NAV 2009 Service Pack 1

Removal information