Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tarea #1297 -> En la exportación a fichero SEPA, no hacer obligatorio el campo BIC/SWITCH ni para la empresa ni para los clientes

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@206 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
This commit is contained in:
David Arranz 2014-01-09 16:59:14 +00:00
parent 1dbfbd1fca
commit 388b89efa9
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas
View File

@ -498,8 +498,9 @@ begin
if AEmpresa.DatosBancarios.IBANIsNull then if AEmpresa.DatosBancarios.IBANIsNull then
AMensaje := AMensaje + '- Falta el código IBAN' + #13 + #10; AMensaje := AMensaje + '- Falta el código IBAN' + #13 + #10;
if AEmpresa.DatosBancarios.SWIFTIsNull then // No obligar a tener código BIC/SWIFT
AMensaje := AMensaje + '- Falta el código BIC/SWIFT' + #13 + #10; {if AEmpresa.DatosBancarios.SWIFTIsNull then
AMensaje := AMensaje + '- Falta el código BIC/SWIFT' + #13 + #10;}
if AEmpresa.DatosBancarios.SUFIJO_ACREEDORIsNull then if AEmpresa.DatosBancarios.SUFIJO_ACREEDORIsNull then
AMensaje := AMensaje + '- Falta el sufijo del acreedor' + #13 + #10; AMensaje := AMensaje + '- Falta el sufijo del acreedor' + #13 + #10;
@ -539,8 +540,9 @@ begin
if ACliente.DatosBancarios.IBANIsNull then if ACliente.DatosBancarios.IBANIsNull then
AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código IBAN' + #13 + #10; AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código IBAN' + #13 + #10;
if ACliente.DatosBancarios.SWIFTIsNull then // No obligar a tener código BIC/SWIFT
AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código BIC/SWIFT' + #13 + #10; {if ACliente.DatosBancarios.SWIFTIsNull then
AMensaje := AMensaje + '- Cliente ' + ACliente.NOMBRE + ': falta el código BIC/SWIFT' + #13 + #10;}
ACliente := NIL; ACliente := NIL;
ARemesa.Recibos.Next; ARemesa.Recibos.Next;

5
Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPA.pas
View File

@ -638,11 +638,12 @@ begin
bError := True; bError := True;
end; end;
if EsCadenaVacia(Deudor.CodigoBIC) then // No obligar a tener código BIC/SWIFT
{if EsCadenaVacia(Deudor.CodigoBIC) then
begin begin
Deudor.CodigoBIC := _INDICA_; Deudor.CodigoBIC := _INDICA_;
bError := True; bError := True;
end; end;}
if bError then if bError then