Pflichtfelder werden nicht überprüft, wenn eine SEPA in belgischen Version von Microsoft Dynamics NAV 2009 erstellen

Hotfix-Informationen

Ein unterstützter Hotfix ist inzwischen von Microsoft erhältlich. Allerdings ist es lediglich zur Behebung dieses Problems. Wenden Sie es nur auf Systeme an, bei denen dieses spezielle Problem auftritt. Dieser Hotfix wird möglicherweise noch getestet. Wenn Ihr System durch dieses Problem nicht schwerwiegend beeinträchtigt ist, empfehlen wir, dass Sie warten auf das nächste Servicepack für Microsoft Dynamics NAV 2009 oder die nächste Microsoft Dynamics NAV-Version, die diesen Hotfix enthält.

Hinweis In besonderen Fällen bestimmt Gebühren fallen normalerweise Support aufrufen Wenn Experte Support für Microsoft Dynamics und zugehörige Produkte storniert werden können, dass ein bestimmtes Update Ihr Problem behebt. Die normalen Supportkosten gilt für zusätzliche Supportfragen und Probleme, die nicht für das betreffende Update qualifizieren.

Ändern von Code

Hinweis Testen Sie Programmcodeverbesserungen generell erst in einem Testsytem, bevor Sie sie im Produktionssystem verwenden.
o dieses Problem beheben, gehen Sie folgendermaßen vor:

1. Ändern Sie den Code der Eigenschaften in der Codeunit SEPA Raten überprüfen (2000004) wie folgt:
   Vorhandener Code 1

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

   Neuer Code 1

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

   Vorhandener Code 2

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

   Neuer Code 2

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

2. Fügen Sie die folgende globale Variable überprüfen SEPA Raten Codeunit (2000004):

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

3. Ändern Sie den Code in der Funktion CheckForOnlyOneBankAcc in Codeunit SEPA Raten überprüfen (2000004) wie folgt:
   Vorhandener code

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

   Neuer 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.
       }
     }
   ...