From 388b89efa95ecf96ba9cbce7a87b3cf4c0ffa62a Mon Sep 17 00:00:00 2001 From: david Date: Thu, 9 Jan 2014 16:59:14 +0000 Subject: [PATCH] =?UTF-8?q?Tarea=20#1297=20->=20En=20la=20exportaci=C3=B3n?= =?UTF-8?q?=20a=20fichero=20SEPA,=20no=20hacer=20obligatorio=20el=20campo?= =?UTF-8?q?=20BIC/SWITCH=20ni=20para=20la=20empresa=20ni=20para=20los=20cl?= =?UTF-8?q?ientes?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@206 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2 --- .../Controller/uBancaElectronicaController.pas | 10 ++++++---- .../Banca electronica/Utiles/CVBNorma19SEPA.pas | 5 +++-- 2 files changed, 9 insertions(+), 6 deletions(-) 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