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);