From a01273651c47405f02a3f03b5abe95c5833468cc Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Tue, 18 Oct 2016 15:33:09 +0000
Subject: [PATCH] =?UTF-8?q?SEPA=20->=20Arreglo=20de=20la=20generaci=C3=B3n?=
 =?UTF-8?q?=20de=20ficheros=20SEPA=20XML=20para=20el=20Banco=20Santander.?=
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@258 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
---
 Source/Cliente/FactuGES.dproj                 |   2 +-
 Source/Cliente/FactuGES.res                   | Bin 171984 -> 172156 bytes
 .../uBancaElectronicaController.pas           |   1 +
 .../Utiles/CVBNorma19SEPAXML.pas              |   3 ++-
 4 files changed, 4 insertions(+), 2 deletions(-)

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 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.4.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.4.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index 5f0a638111d8707d881b694f26a3d92eaf94569d..3f86e5bf99c849425ef2510f6879e0622b2eff49 100644
GIT binary patch
delta 488
zcmY+9y-EW?6otPTlek%fY?*Q)_}`?k5fOum1Qcx2CyPoFG#a9fRZ=MA0fcRmO`8X>
z6)i0-t?hh=K)kcFF?eBi=5T)Q+0Qq3^6vH?)r(FIyPoIf_!~tI&jW=+BW-Srd>Sdx
z<nxyM$iPB^eEL~P;ro^wJCIJ0&sfqj6pIPB42ua8ZiT8WDwPcBvwi?s%4LiC6>zE5
zEE+$<61`rcbWBkgXv7E8sV7It3yREtXrROIq26B0N<HZ>>HD$9)HO-}XA<s3x}d(o
zAkx*1P2m;CG`Z%IBRO}R(-GX}UcR^7SbO*y=`FPr{zQ7WyBfPrMO`Nl=b`A@JjA{_
w4RPAB>2qC06ag3FYsuZ=O190$YR{64rtCGzvt|ah#1~Ik80kQ|JdO0pFGG$*u>b%7

delta 318
zcmex!fa}73u7(!IElezP>kS0Bco^V-k%5OnK!AaPkwJnXgB3)>c`OVJObikd5V;d<
z3=GV0UI!-w0}F$K0z_^F2Ll5uf(JB>jlsYGD#ypbz>eUlGQ=}*FgQ3sBsH8E7&sX`
zJRrP|5C#S=hJ*yD#wiR8+zbs3P?a1YhcYmHU}RuW0Mh^e3ji^Y0|W*P2oHT=oc?Go
zlZiS9(0M@j1MRX0s{uKe1?V|c5HQ_#9+NVo&h*52O!3p-%wy7Ew3seBpUHaqh51Yg
KK(^rmCT{=?=_--{

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