Los campos obligatorios no se comprueban cuando se crea un archivo SEPA en la versión de Microsoft Dynamics NAV 2009 belga

Información de la revisión

Ahora hay una revisión compatible de Microsoft. Sin embargo, sólo se diseñó para corregir el problema que se describe en este artículo. Aplíquela sólo a sistemas que experimenten este problema específico. Esta revisión puede ser sometida a comprobaciones adicionales. Por lo tanto, si no se ve muy afectado por este problema, recomendamos que espere al próximo service pack de Microsoft Dynamics NAV 2009 o la próxima versión de Microsoft Dynamics NAV que contenga esta revisión.

Nota: En casos especiales, los costos derivados normalmente de las llamadas pueden cancelarse si un profesional de soporte técnico de Microsoft Dynamics y productos relacionados de soporte determina que una actualización específica resolverá el problema. Los costos habituales de soporte se aplicarán a las preguntas de soporte técnico adicionales y problemas que no guarden relación con la actualización en cuestión.

Cambios de código

Nota: Siempre pruebe correcciones de código en un entorno controlado antes de aplicar las revisiones a los equipos de producción.
o resolver este problema, siga estos pasos:

1. Cambie el código de las propiedades en la codeunit comprobar pagos SEPA (2000004) como sigue:
   Código existente 1

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

   Código nuevo 1

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

   Código existente 2

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

   Código nuevo 2

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

2. Agregue la siguiente variable global en la codeunit comprobar pagos SEPA (2000004):

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

3. Cambie el código en la función CheckForOnlyOneBankAcc de la codeunit comprobar pagos SEPA (2000004) como sigue:
   Código existente

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

   Código de sustitución

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