diff --git a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas index 18d02e8..731d077 100644 --- a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas +++ b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas @@ -498,8 +498,9 @@ begin if AEmpresa.DatosBancarios.IBANIsNull then AMensaje := AMensaje + '- Falta el código IBAN' + #13 + #10; - if AEmpresa.DatosBancarios.SWIFTIsNull then - AMensaje := AMensaje + '- Falta el código BIC/SWIFT' + #13 + #10; + // No obligar a tener código BIC/SWIFT + {if AEmpresa.DatosBancarios.SWIFTIsNull then + AMensaje := AMensaje + '- Falta el código BIC/SWIFT' + #13 + #10;} if AEmpresa.DatosBancarios.SUFIJO_ACREEDORIsNull then AMensaje := AMensaje + '- Falta el sufijo del acreedor' + #13 + #10; @@ -539,8 +540,9 @@ begin if ACliente.DatosBancarios.IBANIsNull then AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código IBAN' + #13 + #10; - if ACliente.DatosBancarios.SWIFTIsNull then - AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código BIC/SWIFT' + #13 + #10; + // No obligar a tener código BIC/SWIFT + {if ACliente.DatosBancarios.SWIFTIsNull then + AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código BIC/SWIFT' + #13 + #10;} ACliente := NIL; ARemesa.Recibos.Next; diff --git a/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPA.pas b/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPA.pas index ec6688d..34e1d35 100644 --- a/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPA.pas +++ b/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPA.pas @@ -638,11 +638,12 @@ begin bError := True; end; - if EsCadenaVacia(Deudor.CodigoBIC) then + // No obligar a tener código BIC/SWIFT + {if EsCadenaVacia(Deudor.CodigoBIC) then begin Deudor.CodigoBIC := _INDICA_; bError := True; - end; + end;} if bError then