diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj index ed082a3..5144848 100644 --- a/Source/Cliente/FactuGES.dproj +++ b/Source/Cliente/FactuGES.dproj @@ -53,7 +53,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4480FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.4.8.0FactuGESFactuGES4.4.8.0FactuGES.dprFalse +FalseTrueFalseC:\Archivos de programa\Borland\Delphi7\Bin\TrueFalse4490FalseFalseFalseFalseFalse30821252Rodax Software S.L.4.4.9.0FactuGESFactuGES4.4.9.0FactuGES.dprFalse diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res index 5f0a638..3f86e5b 100644 Binary files a/Source/Cliente/FactuGES.res and b/Source/Cliente/FactuGES.res differ diff --git a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas index 1e7bce0..2d0bd3b 100644 --- a/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas +++ b/Source/Modulos/Banca electronica/Controller/uBancaElectronicaController.pas @@ -460,6 +460,7 @@ begin Acreedor.Pais := 'ES'; Acreedor.Sufijo := AEmpresa.DatosBancarios.SUFIJO_ACREEDOR; Acreedor.CuentaIBAN := AEmpresa.DatosBancarios.IBAN; + Acreedor.CodigoBIC := AEmpresa.DatosBancarios.SWIFT; GenerarCabeceraAcreedor; diff --git a/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas b/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas index c038ccf..e2e9e2a 100644 --- a/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas +++ b/Source/Modulos/Banca electronica/Utiles/CVBNorma19SEPAXML.pas @@ -30,6 +30,7 @@ type Direccion3 : string; Pais : string; CuentaIBAN : string; + CodigoBIC : string; Sufijo : string; NIFCIF : string; end; @@ -251,7 +252,7 @@ begin FDDPayInfo.ReqdColltnDt := FechaCobro; FDDPayInfo.CdtrNm := Acreedor.Nombre; FDDPayInfo.CdtrAcct.IBAN := Acreedor.CuentaIBAN; - FDDPayInfo.CdtrAgt.BIC := ''; + FDDPayInfo.CdtrAgt.BIC := Acreedor.CodigoBIC; FDDPayInfo.CdtrAgt.OthrID := FIN_INSTN_NOTPROVIDED; FDDPayInfo.CdtrSchmeIdIdPrvtIdOthrId := IdentificadorAcreedorSEPA(); FDDInit.AppendPmtInfEntry(FDDPayInfo);