From e7e45f1323ffe109076b1042df74f10b5985796a Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Fri, 22 Aug 2008 14:52:35 +0000
Subject: [PATCH] =?UTF-8?q?-=20#12=20->=20Enviar=20documentos=20por=20corr?=
 =?UTF-8?q?eo=20electr=C3=B3nico.=20Adaptaci=C3=B3n=20de=20los=20m=C3=B3du?=
 =?UTF-8?q?los=20(sin=20terminar)=20-=20En=20los=20controladores,=20cambia?=
 =?UTF-8?q?r=20TObservador=20por=20TControllerBase=20-=20Limpieza=20de=20c?=
 =?UTF-8?q?=C3=B3digo=20y=20warnings.?=
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.Tecsitel_FactuGES2/trunk@528 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Usuarios/Model/schUsuariosClient_Intf.pas |  24 +-
 Source/Base/Base.dproj                        | 102 ++--
 Source/Base/Base.res                          | Bin 384 -> 4748 bytes
 Source/Base/Utiles/uIntegerListUtils.pas      |  12 +-
 Source/Base/Utiles/uSistemaFunc.pas           |   1 -
 Source/GUIBase/uDialogElegirEMail.dfm         |   7 +-
 Source/GUIBase/uDialogElegirEMail.pas         |   4 +-
 Source/GUIBase/uEditorPreview.pas             |  21 +-
 .../uAlbaranesClienteController.pas           |  31 +-
 .../uAlbaranesClienteReportController.pas     |  45 +-
 .../Data/uDataModuleAlbaranesCliente.pas      |  34 +-
 .../uIDataModuleAlbaranesClienteReport.pas    |   5 +-
 .../Reports/uRptAlbaranesCliente_Server.dfm   |  18 +-
 .../Reports/uRptAlbaranesCliente_Server.pas   |  42 +-
 .../Servidor/srvAlbaranesCliente_Impl.pas     |  29 +-
 .../Views/uEditorAlbaranesClienteReport.dfm   |   2 +
 .../Views/uEditorAlbaranesClienteReport.pas   |  11 +-
 .../uAlbaranesProveedorController.pas         |   4 +-
 .../Servidor/srvAlbaranesProveedor_Impl.pas   |  16 -
 .../Controller/uClientesController.pas        |  27 +-
 .../Controller/uEmpleadosController.pas       |  30 +-
 .../uEtiquetasContactosReportController.pas   |  42 +-
 .../uFichasEmpleadoReportController.pas       |  42 +-
 .../Controller/uProveedoresController.pas     |  28 +-
 .../Contactos/Data/uDataModuleContactos.pas   |  16 +-
 .../Contactos/Data/uDataModuleEmpleados.pas   |  15 +-
 .../uIDataModuleEtiquetasContactosReport.pas  |   4 +-
 .../Data/uIDataModuleFichasEmpleadoReport.pas |   4 +-
 .../Reports/uRptEtiquetasContacto_Server.pas  |  21 +-
 .../Reports/uRptFichasEmpleado_Server.pas     |  25 +-
 .../Contactos/Servidor/srvContactos_Impl.pas  |  12 +-
 .../View/uIEditorFacturasClientePreview.pas   |   3 -
 .../Controller/uFacturasClienteController.pas |  32 +-
 .../uFacturasClienteReportController.pas      |  16 +-
 .../Data/uDataModuleFacturasCliente.pas       |  32 +-
 .../uIDataModuleFacturasClienteReport.pas     |   5 +-
 .../Reports/uRptFacturasCliente_Server.dfm    |  14 +
 .../Reports/uRptFacturasCliente_Server.pas    |  42 +-
 .../Servidor/srvFacturasCliente_Impl.pas      |  24 +-
 .../Views/FacturasCliente_view.dproj          |  14 +-
 .../Views/uEditorFacturasClienteReport.dfm    |  20 +
 .../Views/uEditorFacturasClienteReport.pas    |  17 +-
 .../uFacturasProveedorController.pas          |   4 +-
 .../Servidor/srvFacturasProveedor_Impl.pas    |  17 -
 .../uPedidosProveedorController.pas           |  36 +-
 .../uPedidosProveedorReportController.pas     |  43 +-
 .../Data/uDataModulePedidosProveedor.pas      |  34 +-
 .../uIDataModulePedidosProveedorReport.pas    |   7 +-
 .../Reports/uRptPedidosProveedor_Server.dfm   |  14 +
 .../Reports/uRptPedidosProveedor_Server.pas   |  46 +-
 .../Servidor/srvPedidosProveedor_Impl.pas     |  32 +-
 .../Views/uEditorPedidosProveedorReport.dfm   |   2 +
 .../Views/uEditorPedidosProveedorReport.pas   |  13 +-
 .../uPresupuestosClienteController.pas        |  38 +-
 .../uPresupuestosClienteReportController.pas  |  40 +-
 .../Data/uDataModulePresupuestosCliente.pas   |  29 +-
 .../uIDataModulePresupuestosClienteReport.pas |   6 +-
 .../uRptPresupuestosCliente_Server.pas        |  28 +-
 .../Reports/uRptWordPresupuestoCliente.pas    |  21 +-
 .../Servidor/srvPresupuestosCliente_Impl.pas  |  10 +-
 .../uEditorPresupuestosClienteReport.dfm      |   2 +
 .../uEditorPresupuestosClienteReport.pas      |  15 +-
 .../Controller/uRecibosClienteController.pas  |  35 +-
 .../uRecibosClienteReportController.pas       |  46 +-
 .../Data/uDataModuleRecibosCliente.pas        |  22 +-
 .../Data/uIDataModuleRecibosClienteReport.pas |   4 +-
 .../Reports/uRptRecibosCliente_Server.pas     |  23 +-
 .../Servidor/srvRecibosCliente_Impl.pas       |   6 +-
 .../uRecibosProveedorController.pas           |   4 +-
 .../Servidor/srvRecibosProveedor_Impl.pas     |  20 +-
 .../Controller/uRemesasClienteController.pas  |   4 +-
 .../Servidor/srvRemesasCliente_Impl.pas       |  16 -
 .../uRemesasProveedorController.pas           |   4 +-
 .../Servidor/srvRemesasProveedor_Impl.pas     |  24 -
 Source/Servicios/FactuGES.RODL                | 103 ++--
 Source/Servicios/FactuGES_Intf.pas            | 439 +++++++++-----
 Source/Servicios/FactuGES_Invk.pas            | 312 ++++------
 Source/Servicios/RODLFILE.res                 | Bin 26882 -> 26590 bytes
 Source/Servidor/FactuGES_Server.RES           | Bin 23204 -> 23204 bytes
 Source/Servidor/FactuGES_Server.dpr           |   4 +-
 Source/Servidor/FactuGES_Server.dproj         | 572 +++++++++---------
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 82 files changed, 1597 insertions(+), 1373 deletions(-)

diff --git a/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas b/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
index 560506b1..f6c87fa1 100644
--- a/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
+++ b/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
@@ -9,12 +9,12 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_USUARIOS = '{190ECFD6-8BF8-463A-A069-134DC883028F}';
-  RID_USUARIOS_EVENTOS = '{CA759DA6-3907-41E0-8214-9BC7C8630DE0}';
-  RID_USUARIOS_LOGON = '{243F3788-11A9-45F4-B185-AA2D73BE1D71}';
-  RID_PERMISOS = '{F3432FFB-2820-4EB5-89C6-0D64DB88682D}';
-  RID_PERMISOSEX = '{05E24A98-1A49-4D0F-A11E-49B4B37F7489}';
-  RID_PERFILES = '{6C36D997-1C57-4896-A3CE-4B74F465AC38}';
+  RID_USUARIOS = '{2287F1C0-E6D4-49D4-AB4C-12163784F52F}';
+  RID_USUARIOS_EVENTOS = '{30A9A653-7C94-4C9E-9826-57923A79A57B}';
+  RID_USUARIOS_LOGON = '{6663D7AD-00A8-471A-9DD6-0A354F14D25B}';
+  RID_PERMISOS = '{271B422A-6E39-420F-85DE-835F1D690B83}';
+  RID_PERMISOSEX = '{603236F6-99D3-4AD9-8B2B-FE07776B6E4F}';
+  RID_PERFILES = '{59A02969-8C95-4F46-BE34-51B288BCF8C9}';
 
   { Data table names }
   nme_USUARIOS = 'USUARIOS';
@@ -129,7 +129,7 @@ const
 type
   { IUSUARIOS }
   IUSUARIOS = interface(IDAStronglyTypedDataTable)
-  ['{4039ABB1-B663-4DFA-8549-14CA71056FD6}']
+  ['{2813C411-0CBD-437C-83F3-857491E279DC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -296,7 +296,7 @@ type
 
   { IUSUARIOS_EVENTOS }
   IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
-  ['{6E1A8BC6-48E1-4831-A571-4DCF7C3A8DA6}']
+  ['{EB6F65EF-39D6-4820-9797-B25FD4C792B3}']
     { Property getters and setters }
     function GetAPLICACIONValue: String;
     procedure SetAPLICACIONValue(const aValue: String);
@@ -427,7 +427,7 @@ type
 
   { IUSUARIOS_LOGON }
   IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
-  ['{9343561D-EEC6-478D-891D-E1BE34EB2FD4}']
+  ['{F1859EC8-B46A-4505-A1D0-FC3502A3CCC5}']
     { Property getters and setters }
     function GetLOGONIDValue: String;
     procedure SetLOGONIDValue(const aValue: String);
@@ -510,7 +510,7 @@ type
 
   { IPERMISOS }
   IPERMISOS = interface(IDAStronglyTypedDataTable)
-  ['{BDFA2EDF-FEA0-4089-AD25-8D484E9CC6CA}']
+  ['{290DD780-7C7C-4A2E-891E-3A29A6505859}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -581,7 +581,7 @@ type
 
   { IPERMISOSEX }
   IPERMISOSEX = interface(IDAStronglyTypedDataTable)
-  ['{5CF900FA-631D-4FC6-99AF-F173251A0378}']
+  ['{8F86DA9F-7DF3-4B17-84F5-0876E21F625D}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -664,7 +664,7 @@ type
 
   { IPERFILES }
   IPERFILES = interface(IDAStronglyTypedDataTable)
-  ['{2738B3A7-8644-46C1-AD68-CFA62CE0809E}']
+  ['{A7B5EBFD-F995-4F8D-8723-7397501F897D}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index c79cff37..33ccbea1 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -53,6 +53,57 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
+    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxExportD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
@@ -77,56 +128,12 @@
       <Form>dmBase</Form>
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
-    <DCCReference Include="Utiles\adortl.dcp" />
     <DCCReference Include="Utiles\ClassRegistry\uClassRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uEditorRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uInformeRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClassRegistry\uViewRegistryUtils.pas" />
     <DCCReference Include="Utiles\ClipboardUtils.pas" />
     <DCCReference Include="Utiles\Ctltortf.pas" />
-    <DCCReference Include="Utiles\cxDataD11.dcp" />
-    <DCCReference Include="Utiles\cxEditorsD11.dcp" />
-    <DCCReference Include="Utiles\cxExportD11.dcp" />
-    <DCCReference Include="Utiles\cxExtEditorsD11.dcp" />
-    <DCCReference Include="Utiles\cxGridD11.dcp" />
-    <DCCReference Include="Utiles\cxIntl6D11.dcp" />
-    <DCCReference Include="Utiles\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="Utiles\cxLibraryD11.dcp" />
-    <DCCReference Include="Utiles\cxPageControlD11.dcp" />
-    <DCCReference Include="Utiles\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="Utiles\dbrtl.dcp" />
-    <DCCReference Include="Utiles\dclIndyCore.dcp" />
-    <DCCReference Include="Utiles\designide.dcp" />
-    <DCCReference Include="Utiles\dsnap.dcp" />
-    <DCCReference Include="Utiles\dxGDIPlusD11.dcp" />
-    <DCCReference Include="Utiles\dxPSCoreD11.dcp" />
-    <DCCReference Include="Utiles\dxThemeD11.dcp" />
-    <DCCReference Include="Utiles\GUISDK_D11.dcp" />
-    <DCCReference Include="Utiles\IndyCore.dcp" />
-    <DCCReference Include="Utiles\IndyProtocols.dcp" />
-    <DCCReference Include="Utiles\IndySystem.dcp" />
-    <DCCReference Include="Utiles\Jcl.dcp" />
-    <DCCReference Include="Utiles\JclVcl.dcp" />
-    <DCCReference Include="Utiles\JSDialog100.dcp" />
-    <DCCReference Include="Utiles\JvCmpD11R.dcp" />
-    <DCCReference Include="Utiles\JvCoreD11R.dcp" />
-    <DCCReference Include="Utiles\JvCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvDlgsD11R.dcp" />
-    <DCCReference Include="Utiles\JvMMD11R.dcp" />
-    <DCCReference Include="Utiles\JvNetD11R.dcp" />
-    <DCCReference Include="Utiles\JvPageCompsD11R.dcp" />
-    <DCCReference Include="Utiles\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="Utiles\JvSystemD11R.dcp" />
-    <DCCReference Include="Utiles\pckMD5.dcp" />
-    <DCCReference Include="Utiles\pckUCDataConnector.dcp" />
-    <DCCReference Include="Utiles\pckUserControl_RT.dcp" />
-    <DCCReference Include="Utiles\PngComponentsD10.dcp" />
-    <DCCReference Include="Utiles\PNG_D10.dcp" />
-    <DCCReference Include="Utiles\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="Utiles\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="Utiles\rtl.dcp" />
-    <DCCReference Include="Utiles\TB2k_D10.dcp" />
-    <DCCReference Include="Utiles\tbx_d10.dcp" />
     <DCCReference Include="Utiles\uAppInfoUtils.pas" />
     <DCCReference Include="Utiles\uCalculosUtils.pas" />
     <DCCReference Include="Utiles\uDataTableUtils.pas" />
@@ -145,13 +152,6 @@
     <DCCReference Include="Utiles\uRTFUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
     <DCCReference Include="Utiles\uStringsUtils.pas" />
-    <DCCReference Include="Utiles\vcl.dcp" />
-    <DCCReference Include="Utiles\vclactnband.dcp" />
-    <DCCReference Include="Utiles\vcldb.dcp" />
-    <DCCReference Include="Utiles\vcljpg.dcp" />
-    <DCCReference Include="Utiles\VclSmp.dcp" />
-    <DCCReference Include="Utiles\vclx.dcp" />
-    <DCCReference Include="Utiles\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 8b251f312bcccec5485024f6fe8d80e1cdf25746..1641339fcc482e7e3492d1b45813a86619622c33 100644
GIT binary patch
literal 4748
zcmbW5&ub)A5XUPdpe&2#;C*uNAUVhgd+&(4um@dnom`vXF9g}ZuHJ;se=<3UNdFJg
zbCw+UD9j$byGIXV`~6hC>h4S?F|k9X-j90q{Z_qtZ<;nUJCO8!h?<w4U-ol;S2jC7
zx4(byej2@_#)0HWvg0i^wC4Xli+W*aXJ^(njceK|Kb@c3qFNX>p${kR>3GhM`oH*q
zk=UsjOCIgA_4!`B+Gb&`I84R)bT4dy-BQV<-SyFz?R8ILEQ(+JB$u{sEXE@j@B*7W
zT;iZH#|OJ<&DO$RCkM6VbK3(B(k{nbdv1lpc;E$xz9as|v3uE1V{hw2w~g3eD0an7
z{BT%G%irdMe*|oDJmgvJ<ltI;x5J<Oc>aA2`9B<Z5Toyra?r{a4$fnJHGXo6Pmcq8
z{JGCD500t1h4|yI?-f&xoj9;YT&Ch&JLO*X#NC3sCI0Xmc<f_vh`jn-1E!?th$%QM
znzGM|)$vl3f7;nE+9qR}|A?C$H3K&BFdq9?uxrIqHIne#5?8G@da2ybWLGKA686M2
z*LJMMMk4<U`dzFC9}HrSxLfOGll{P#??xir)$c2}C;ql+y-&Wa(LP{PgPk1E1@{uR
zIMCNz;u9;r(axhQvEx%?i#p<Vn=Z!SK%f10?4_`0@RY8lXRM3(t(nFSzJ$4kJr6&x
ze)~B%biu*TY$HDstHD=|UGxJceYiUQQa0Gu(p3og@%ZJ><6Xi*?M~Q;)@Sbfwf3uf
zVaWkbU<NjR3%=~AdoZbkXp`f@b0%GBT^$^V5e(n|#O(?P)hBbF)4n%2cw6U#adPM!
zz(!`V|Bfl{aH0)Y&w;SK7R4<z{p;Gwz1D%l86L3ZFZQ&=pB$<&esXT|OZ?=AGaWoe
z{>jU=;sL{BlYemIZXv%qZ{SZw{-TCU+;!nH6KDDIJumU+9{E0zXW4>7T)y|>$DQlv
zRJe?TjSp{c!DqeayAnSMTtZZT;>LN7J0Rls+5m@q)MbyB*eL%Eu@(+$Cw}Pd@q7N|
z%Q0*AHpCP^b9v`@jx-l_FD>khpW2W8(OU2&V5TrnoAY-m_hlcV?zq3;7{2gF{J#Hc
z6R+o~mVenX?>@W0@_DVzyOFs(5464CY{!q9ChoF#_*eXi@4gFuV8?vhl=_w5$iKL0
zEV0nMBcN08xtRmsgJrqjh@s#|{?*ssnsG)mH*wa6{efF0JFWHok@kA5%b661{B38=
zCcgJ|*ZFTpV$8<-&+AWpa)Q8*`wL&hMeNQ^v6I7$HSdLZhZ^&+6<@Uw_Zsml9^v3W
zVvPDBKHh;i=RU4J_ta3E;)M<P+=2X7;VbzliQZ=IHV#+fr#{!(ukt%UJMS8=332qg
z7jD)rSbpCW+^j*cd6LUEe8#9n&v!NEJM(@?SHvB$=h@|)fjw|&qD?NQ5A&R>n>Y+L
zKLZ0UQ+*km9FO-b?U4gmn-62iwzH6&*duKGo~aUV)bYDla8wWZ9+^7p-F<8lP@i!m
z@vhbD_${F}h>^T;C(?(b*OJDk?{dEXB?nuehoON3HAb!7Mr7-ls!84-5V-jJu<OVP
zzHjp+hnwo*3NQE$JTA(agu~silV5T`du+GJgWGi_7mAy`Nk8fLt~%GF$;XXcE-ri?
zyIglyyzA`K-);4Eem2MZm07RBza@W3UP)d`Rz=RFk-I);`s{$L%yyBNX0OTjo5Gk0
zs}g44uXg*l%xo^{`#0=kd*2?}Cz22Bv2;Gu?;3o~(D#gk1OKYQSCAb$(&vu@_pvWO
z>gbu<_$}mU=Yd9!?TOX;|B-#B)+0x#9q*yqJiqS!`49d=7ztk$O+9=1i;?K_|J<8T
z?0b7=-`Z3A#vV$4XJ5(lQ~TOZHUFdA%oWvK5zg&_IKXIbughQBA8XAsd#=@|TFLXC
zy(^m((;DnQmDQ<zX+PK(Lfu@ox#mOnbZjSDl}IBqv$qwK+2@))5$ba>Katmw!@c`|
G?EMQ&4NnpP

delta 11
ScmeBCZD5|Duvteife`=|>;pCc

diff --git a/Source/Base/Utiles/uIntegerListUtils.pas b/Source/Base/Utiles/uIntegerListUtils.pas
index b5caef0a..9ea34290 100644
--- a/Source/Base/Utiles/uIntegerListUtils.pas
+++ b/Source/Base/Utiles/uIntegerListUtils.pas
@@ -3,7 +3,7 @@ unit uIntegerListUtils;
 interface
 
 uses
-  Classes;
+  Classes, FactuGES_Intf;
 
 type
   TIntegerList = class(TList)
@@ -14,6 +14,7 @@ type
     procedure Add(Value: integer); reintroduce;
     function Find(Value: integer; var Index: Integer): Boolean;
     property Integers[index: integer]: integer read GetInteger write SetInteger; default;
+    function ToIntegerArray : TIntegerArray;
   end;
 
 implementation
@@ -28,6 +29,15 @@ begin
   Items[index] := Pointer(Value);
 end;
 
+function TIntegerList.ToIntegerArray: TIntegerArray;
+var
+  i : Integer;
+begin
+  Result := TIntegerArray.Create;
+  for i := 0 to Count - 1 do
+    Result.Add(Integers[i]);
+end;
+
 procedure TIntegerList.Add(Value: integer);
 var
   Index: integer;
diff --git a/Source/Base/Utiles/uSistemaFunc.pas b/Source/Base/Utiles/uSistemaFunc.pas
index 8f9e2ea7..9f2cd958 100644
--- a/Source/Base/Utiles/uSistemaFunc.pas
+++ b/Source/Base/Utiles/uSistemaFunc.pas
@@ -157,7 +157,6 @@ function DarFicheroPDFTemporal(const AFileName : String) : String;
 var
   Cadena : String;
   RutaTmp : string;
-  Buf: array [0..MAX_PATH] of Char;
 begin
   if not EsCadenaVacia(AFileName) then
   begin
diff --git a/Source/GUIBase/uDialogElegirEMail.dfm b/Source/GUIBase/uDialogElegirEMail.dfm
index f8de2b42..635c8c84 100644
--- a/Source/GUIBase/uDialogElegirEMail.dfm
+++ b/Source/GUIBase/uDialogElegirEMail.dfm
@@ -12,21 +12,22 @@ inherited fDialogElegirEMail: TfDialogElegirEMail
   inherited pnlBotones: TFlowPanel
     Top = 164
     Width = 533
+    ExplicitTop = 164
+    ExplicitWidth = 533
     inherited Button1: TButton
       Left = 437
-      TabOrder = 1
       ExplicitLeft = 437
     end
     inherited Button2: TButton
       Left = 347
-      TabOrder = 0
       ExplicitLeft = 347
     end
   end
   inherited FlowPanel1: TFlowPanel
     Width = 533
     Height = 164
-    ExplicitTop = -6
+    ExplicitWidth = 533
+    ExplicitHeight = 164
     inherited lblInstruccion: TLabel
       Width = 411
       Caption = 'Indique la direcci'#243'n de correo electr'#243'nico del destinatario:'
diff --git a/Source/GUIBase/uDialogElegirEMail.pas b/Source/GUIBase/uDialogElegirEMail.pas
index 6cc2597f..61efd5d4 100644
--- a/Source/GUIBase/uDialogElegirEMail.pas
+++ b/Source/GUIBase/uDialogElegirEMail.pas
@@ -110,7 +110,7 @@ procedure TfDialogElegirEMail.FormCloseQuery(Sender: TObject;
   var CanClose: Boolean);
 begin
   inherited;
-  if rbEdit.Checked and EsCadenaVacia(edtEMail.Text) then
+  if (ModalResult = mrOk) and rbEdit.Checked and EsCadenaVacia(edtEMail.Text) then
   begin
     ShowErrorMessage('Elegir dirección de correo electrónico', 'Debe indicar una dirección de correo electrónico.');
     edtEMail.SetFocus;
@@ -131,8 +131,6 @@ begin
 end;
 
 procedure TfDialogElegirEMail.FormShow(Sender: TObject);
-var
-  I: Integer;
 begin
   inherited;
   cbEMail.Items.Clear;
diff --git a/Source/GUIBase/uEditorPreview.pas b/Source/GUIBase/uEditorPreview.pas
index aa78b189..98f31618 100644
--- a/Source/GUIBase/uEditorPreview.pas
+++ b/Source/GUIBase/uEditorPreview.pas
@@ -11,7 +11,8 @@ uses
   pngimage, frxExportImage, frxExportPDF, frxDCtrl, frxDMPExport,
   frxGradient, frxChBox, frxCross, frxRich, frxOLE, frxBarcode,
   ExtCtrls, JvComponentBase, TBXStatusBars, JvExComCtrls, JvStatusBar,
-  frxExportMail, frxExportXLS, frxExportText, frxExportRTF, uControllerBase;
+  frxExportMail, frxExportXLS, frxExportText, frxExportRTF, uControllerBase,
+  uIntegerListUtils;
 
 type
   IEditorPreview = interface(IEditorBase)
@@ -33,9 +34,9 @@ type
     property Controller : IControllerBase read GetController
       write SetController;
 
-    function GetListaID : String;
-    procedure SetListaID (const Value : String);
-    property ListaID : String read GetListaID
+    function GetListaID : TIntegerList;
+    procedure SetListaID (const Value : TIntegerList);
+    property ListaID : TIntegerList read GetListaID
       write SetListaID;
   end;
 
@@ -144,7 +145,7 @@ type
     FPreview : TfrViewPreview;
     FTitle : TCaption;
     FController : IControllerBase;
-    FListaID : String;
+    FListaID : TIntegerList;
     procedure OnPageChanged(Sender: TfrxPreview; PageNo: Integer);
     procedure UpdateZoom;
   protected
@@ -154,11 +155,11 @@ type
     procedure PonerTitulos(const ATitulo: String = ''); override;
     function GetController : IControllerBase;
     procedure SetController (const Value : IControllerBase);
-    procedure SetListaID (const Value : String);
-    function GetListaID : String;
+    procedure SetListaID (const Value : TIntegerList);
+    function GetListaID : TIntegerList;
   public
     constructor Create(AOwner: TComponent); override;
-    property ListaID : String read GetListaID
+    property ListaID : TIntegerList read GetListaID
       write SetListaID;
     property Controller : IControllerBase read GetController
       write SetController;
@@ -186,7 +187,7 @@ begin
   Result := FController;
 end;
 
-function TfEditorPreview.GetListaID: String;
+function TfEditorPreview.GetListaID: TIntegerList;
 begin
   Result := FListaID;
 end;
@@ -454,7 +455,7 @@ begin
   FController := Value;
 end;
 
-procedure TfEditorPreview.SetListaID(const Value: String);
+procedure TfEditorPreview.SetListaID(const Value: TIntegerList);
 begin
   FListaID := Value;
 end;
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas
index ab01640c..04254e57 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteController.pas	
@@ -9,7 +9,7 @@ uses
   uDetallesAlbaranClienteController, uBizAlbaranesCliente, uBizDireccionesContacto;
 
 type
-  IAlbaranesClienteController = interface(IObservador)
+  IAlbaranesClienteController = interface(IControllerBase)
   ['{E83F4950-400E-446B-8EB0-1609FF8FEA77}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -61,7 +61,7 @@ type
       DoPost: Boolean = True) : Boolean;
   end;
 
-  TAlbaranesClienteController = class(TObservador, IAlbaranesClienteController)
+  TAlbaranesClienteController = class(TControllerBase, IAlbaranesClienteController)
   protected
     FDataModule : IDataModuleAlbaranesCliente;
     FClienteController : IClientesController;
@@ -152,7 +152,7 @@ uses
 // Pedidos no estará en TECSITEL  
 //  uPedidosClienteController, uBizPedidosCliente, uBizDetallesPedidoCliente, schPedidosClienteClient_Intf,
 
-  uDialogUtils, Windows, Forms, Dialogs, uGUIBase;
+  uDialogUtils, Windows, Forms, Dialogs, uGUIBase, uIntegerListUtils;
 
 
 
@@ -933,11 +933,11 @@ end;
 procedure TAlbaranesClienteController.Preview(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
 var
   AReportController : IAlbaranesClienteReportController;
-  ID_Albaranes: TStringList;
+  ID_Albaranes: TIntegerList;
 
 begin
   AReportController := TAlbaranesClienteReportController.Create;
-  ID_Albaranes := TStringList.Create;
+  ID_Albaranes := TIntegerList.Create;
 
   try
 
@@ -949,32 +949,31 @@ begin
        First;
        while not EOF do
        begin
-         ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+         ID_Albaranes.Add(AAlbaran.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+     ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Preview(ID_Albaranes.CommaText);
+    AReportController.Preview(ID_Albaranes);
 
   finally
     AReportController := NIL;
-    ID_Albaranes.Free;
+    FreeANDNIL(ID_Albaranes);
   end;
 end;
 
 procedure TAlbaranesClienteController.Print(AAlbaran: IBizAlbaranCliente; AllItems: Boolean = false);
 var
   AReportController : IAlbaranesClienteReportController;
-  ID_Albaranes: TStringList;
+  ID_Albaranes: TIntegerList;
 
 begin
   AReportController := TAlbaranesClienteReportController.Create;
-  ID_Albaranes := TStringList.Create;
-
+  ID_Albaranes := TIntegerList.Create;
   try
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
@@ -984,20 +983,20 @@ begin
        First;
        while not EOF do
        begin
-         ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+         ID_Albaranes.Add(AAlbaran.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Albaranes.Add(IntToStr(AAlbaran.ID));
+     ID_Albaranes.Add(AAlbaran.ID);
 
-    AReportController.Print(ID_Albaranes.CommaText);
+    AReportController.Print(ID_Albaranes);
 
   finally
     AReportController := NIL;
-    ID_Albaranes.Free;
+    FreeANDNIL(ID_Albaranes);
   end;
 end;
 
diff --git a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas
index 25fb32dc..2d2914fc 100644
--- a/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
+++ b/Source/Modulos/Albaranes de cliente/Controller/uAlbaranesClienteReportController.pas	
@@ -5,13 +5,13 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleAlbaranesClienteReport,
   uClientesController, uAlbaranesClienteController, uDetallesAlbaranClienteController,
-  uBizAlbaranesCliente;
+  uBizAlbaranesCliente, uIntegerListUtils;
 
 type
   IAlbaranesClienteReportController = interface(IControllerBase)
   ['{4BCC7A93-3322-494C-A3FA-118F4B62CB15}']
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     procedure EtiquetasPreview(const AID : integer; Const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; Const withRefCliente: Boolean);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;    
@@ -26,8 +26,8 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
     procedure EtiquetasPreview(const AID : integer; const withRefCliente: Boolean);
     procedure EtiquetasPrint(const AID : integer; const withRefCliente: Boolean);
@@ -140,7 +140,7 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Preview(const AListaID : String);
+procedure TAlbaranesClienteReportController.Preview(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
@@ -148,19 +148,21 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AListaID); //Lista de seleccionados (Array de integers)
+    AStream := FDataModule.GetRptAlbaranes(AListaID);
     try
       CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
       if Assigned(AEditor) then
-        with AEditor do
-        begin
+      begin
+        try
           AEditor.Controller := Self;
           AEditor.ListaID := AListaID;
-          Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-          LoadFromStream(AStream);
-          Preview;
-          Release;
+          AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Preview;
+        finally
+          AEditor.Release;
         end;
+      end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;
@@ -170,7 +172,7 @@ begin
   end;
 end;
 
-procedure TAlbaranesClienteReportController.Print(const AListaID : String);
+procedure TAlbaranesClienteReportController.Print(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorAlbaranesClientePreview;
@@ -178,18 +180,21 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AListaID);
+    AStream := FDataModule.GetRptAlbaranes(AListaID);
     try
       CreateEditor('EditorAlbaranesClientePreview', IEditorAlbaranesClientePreview, AEditor);
       if Assigned(AEditor) then
-        with AEditor do
-        begin
+      begin
+        try
           AEditor.Controller := Self;
           AEditor.ListaID := AListaID;
-          LoadFromStream(AStream);
-          Print;
-          Release;
+          AEditor.Title := 'Albarán - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Print;
+        finally
+          AEditor.Release;
         end;
+      end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;
diff --git a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas
index 1f95e9b0..d81788e9 100644
--- a/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Data/uDataModuleAlbaranesCliente.pas	
@@ -9,7 +9,7 @@ uses
 
   uIDataModuleAlbaranesCliente, uBizAlbaranesCliente, uBizDetallesAlbaranCliente,
   uIDataModuleAlbaranesClienteReport, uDataModuleBase, uDABin2DataStreamer, uDAMemDataTable,
-  uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter;
+  uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uIntegerListUtils;
 
 type
   TDataModuleAlbaranesCliente = class(TDataModuleBase, IDataModuleAlbaranesCliente, IDataModuleAlbaranesClienteReport)
@@ -34,9 +34,10 @@ type
     function NewItem : IBizAlbaranCliente;
 
     // Report
-    function GetReport(const AID: String): Binary;
+    function GetRptAlbaranes(const ListaID: TIntegerList): Binary;
     function GetRptWordAlbaran(const AID: Integer): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
+    function GetRptPDFAlbaran(const AID: Integer): Binary;
   end;
 
 implementation
@@ -60,15 +61,36 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModuleAlbaranesCliente.GetReport(const AID: String): Binary;
+function TDataModuleAlbaranesCliente.GetRptAlbaranes(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReport(AID);
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
+  finally
+    FreeAndNil(AParam);
+  end;
+end;
+
+function TDataModuleAlbaranesCliente.GetRptPDFAlbaran(
+  const AID: Integer): Binary;
+var
+  AParam : TIntegerArray;
+begin
+  AParam := TIntegerArray.Create;
+  try
+    AParam.Add(AID);
+    Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInforme(AParam);
+  finally
+    FreeAndNil(AParam);
+  end;
 end;
 
 function TDataModuleAlbaranesCliente.GetRptWordAlbaran(
   const AID: Integer): Binary;
 begin
-  Result := (RORemoteService as IsrvAlbaranesCliente).GenerateReportEnWord(AID)
+  Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEnWord(AID)
 end;
 
 function TDataModuleAlbaranesCliente.NewItem: IBizAlbaranCliente;
@@ -96,7 +118,7 @@ end;
 
 function TDataModuleAlbaranesCliente.GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;
 begin
-  Result := (RORemoteService as IsrvAlbaranesCliente).GenerateEtiquetas(AID, withRefCliente)
+  Result := (RORemoteService as IsrvAlbaranesCliente).GenerarInformeEtiquetas(AID, withRefCliente)
 end;
 
 function TDataModuleAlbaranesCliente.GetItem(const ID: Integer): IBizAlbaranCliente;
diff --git a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas
index 082ab23d..5e95c8c4 100644
--- a/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas	
+++ b/Source/Modulos/Albaranes de cliente/Model/Data/uIDataModuleAlbaranesClienteReport.pas	
@@ -3,13 +3,14 @@ unit uIDataModuleAlbaranesClienteReport;
 interface
 
 uses
-  uROTypes;
+  uROTypes, uIntegerListUtils;
 
 type
   IDataModuleAlbaranesClienteReport = interface
   ['{42C55204-5AB9-403E-8385-1A62B02D8234}']
-    function GetReport(const AID: String): Binary;
+    function GetRptAlbaranes(const AListaID: TIntegerList): Binary;
     function GetRptWordAlbaran(const AID: Integer): Binary;
+    function GetRptPDFAlbaran(const AID: Integer): Binary;
     function GetEtiquetas(const AID: Integer; withRefCliente: Boolean): Binary;    
   end;
 
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm
index da303328..f45e7f9a 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.dfm	
@@ -1,8 +1,8 @@
 object RptAlbaranesCliente: TRptAlbaranesCliente
   OldCreateOrder = True
   OnCreate = DataModuleCreate
-  Height = 490
-  Width = 447
+  Height = 471
+  Width = 448
   object DADSCabecera: TDADataSource
     DataSet = tbl_Cabecera.Dataset
     DataTable = tbl_Cabecera
@@ -1131,4 +1131,18 @@ object RptAlbaranesCliente: TRptAlbaranesCliente
     Left = 344
     Top = 128
   end
+  object frxPDFExport1: TfrxPDFExport
+    ShowDialog = False
+    UseFileCache = True
+    ShowProgress = False
+    PrintOptimized = True
+    Outline = False
+    Author = 'FactuGES'
+    Subject = 'FactuGES'
+    Background = False
+    Creator = 'FactuGES'
+    HTMLTags = True
+    Left = 344
+    Top = 304
+  end
 end
diff --git a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas
index a2f9b748..cdbbd58b 100644
--- a/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas	
+++ b/Source/Modulos/Albaranes de cliente/Reports/uRptAlbaranesCliente_Server.pas	
@@ -8,7 +8,7 @@ uses
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
   uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
-  uDAMemDataTable;
+  uDAMemDataTable, frxExportPDF, FactuGES_Intf;
 
 type
   TRptAlbaranesCliente = class(TDataModule)
@@ -61,14 +61,16 @@ type
     tbl_Detalles: TDAMemDataTable;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
+    frxPDFExport1: TfrxPDFExport;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;
     //Genera cada uno de los albaranes a imprimir
-    procedure GenerarAlbaran(const AID: integer); overload;
+    procedure _GenerarAlbaran(const AID: Integer);
   public
-    function GenerarAlbaran(const AID : String): Binary; overload;
+    function GenerarAlbaran(const AListaID : TIntegerArray): Binary;
     function GenerarEtiquetas(const AID : Integer; withRefCliente: Boolean): Binary;
+    function GenerarAlbaranEnPDF(const ListaID : TIntegerArray): Binary;
   end;
 
 implementation
@@ -98,30 +100,44 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;
 end;
 
-function TRptAlbaranesCliente.GenerarAlbaran(const AID: String): Binary;
+function TRptAlbaranesCliente.GenerarAlbaran(const AListaID : TIntegerArray): Binary;
 var
-  ID_Albaranes: TStringList;
   i: Integer;
 begin
   Result := Binary.Create;
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
 
   try
-    ID_Albaranes := TStringList.Create;
-    ID_Albaranes.CommaText := AID;
-
     //Vamos generando todos y cada uno de los albaranes recibidos
-    for i := 0 to ID_Albaranes.Count - 1 do
-        GenerarAlbaran(StrToInt(ID_Albaranes.Strings[i]));
-
+    for i := 0 to AListaID.Count - 1 do
+        _GenerarAlbaran(AListaID.Items[i]);
     frxReport.PreviewPages.SaveToStream(Result);
-
   finally
     //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
   end;
 end;
 
-procedure TRptAlbaranesCliente.GenerarAlbaran(const AID: integer);
+function TRptAlbaranesCliente.GenerarAlbaranEnPDF(
+  const ListaID: TIntegerArray): Binary;
+var
+  i: Integer;
+begin
+  Result := Binary.Create;
+  //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
+
+  try
+    //Vamos generando todos y cada uno de los presupuestos recibidos
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarAlbaran(ListaID.Items[i]);
+
+    frxPDFExport1.Stream := Result;
+    frxReport.Export(frxPDFExport1)
+  finally
+    //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
+  end;
+end;
+
+procedure TRptAlbaranesCliente._GenerarAlbaran(const AID: Integer);
 var
   AStream: TMemoryStream;
   dsMaster: IDADataset;
diff --git a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas
index 54b707be..f238a8ad 100644
--- a/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas	
+++ b/Source/Modulos/Albaranes de cliente/Servidor/srvAlbaranesCliente_Impl.pas	
@@ -30,12 +30,12 @@ type
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
     procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset; const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DARemoteServiceCreate(Sender: TObject);
-  private
   protected
     { IsrvAlbaranesCliente methods }
-    function GenerateReport(const ID: String): Binary;
-    function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;    
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -78,7 +78,20 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvAlbaranesCliente.GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+function TsrvAlbaranesCliente.GenerarInformeEnPDF(
+  const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptAlbaranesCliente;
+begin
+  AReportGenerator := TRptAlbaranesCliente.Create(nil);
+  try
+    Result := AReportGenerator.GenerarAlbaranEnPDF(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvAlbaranesCliente.GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
 //var
 //  AReportGenerator : TRptAlbaranesCliente;
 begin
@@ -92,19 +105,19 @@ begin
 }
 end;
 
-function TsrvAlbaranesCliente.GenerateReport(const ID: String): Binary;
+function TsrvAlbaranesCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptAlbaranesCliente;
 begin
   AReportGenerator := TRptAlbaranesCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarAlbaran(ID);
+    Result := AReportGenerator.GenerarAlbaran(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
-function TsrvAlbaranesCliente.GenerateReportEnWord(const ID: Integer): Binary;
+function TsrvAlbaranesCliente.GenerarInformeEnWord(const ID: Integer): Binary;
 var
   AReportGenerator : TRptWordAlbaranCliente;
   AFicheroTMP : TFileName;
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm
index a5d30fbd..3926992a 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.dfm	
@@ -1,5 +1,7 @@
 inherited fEditorAlbaranesClientePreview: TfEditorAlbaranesClientePreview
   Caption = 'Previsualizar el albar'#225'n de cliente'
+  ExplicitWidth = 320
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited TBXDock: TTBXDock
diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas
index 54c48378..c1bd7d02 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesClienteReport.pas	
@@ -31,21 +31,14 @@ uses
 procedure TfEditorAlbaranesClientePreview.actExportarRTFExecute(
   Sender: TObject);
 var
-  AListaID : TStringList;
   I: Integer;
 begin
   // inherited; <- No llamar al padre
   if not Assigned(Controller) then
     raise Exception.Create('No se ha asignado el controlador necesario');
 
-  AListaID := TStringList.Create;
-  try
-    AListaID.CommaText := Self.ListaID;
-    for I := 0 to AListaID.Count - 1 do
-      (Controller as IAlbaranesClienteReportController).ExportToWord(StrToInt(AListaID[I]));
-  finally
-    FreeAndNIL(AListaID);
-  end;
+  for I := 0 to ListaID.Count - 1 do
+    (Controller as IAlbaranesClienteReportController).ExportToWord(ListaID[I]);
 end;
 
 end.
diff --git a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas
index 438fab99..7c9f6657 100644
--- a/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Controller/uAlbaranesProveedorController.pas	
@@ -10,7 +10,7 @@ uses
   uBizDireccionesContacto, uBizInventario;
 
 type
-  IAlbaranesProveedorController = interface(IObservador)
+  IAlbaranesProveedorController = interface(IControllerBase)
   ['{E2FA2312-EDBD-4E80-B3D7-A8784F6A4E39}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -56,7 +56,7 @@ type
     procedure Print(AAlbaran : IBizAlbaranProveedor; AllItems: Boolean = false);
   end;
 
-  TAlbaranesProveedorController = class(TObservador, IAlbaranesProveedorController)
+  TAlbaranesProveedorController = class(TControllerBase, IAlbaranesProveedorController)
   protected
     FDataModule : IDataModuleAlbaranesProveedor;
     FProveedorController : IProveedoresController;
diff --git a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas
index 2f826c39..3fffff9b 100644
--- a/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas	
+++ b/Source/Modulos/Albaranes de proveedor/Servidor/srvAlbaranesProveedor_Impl.pas	
@@ -31,9 +31,6 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
-  protected
-    { IsrvAlbaranesProveedor methods }
-    function GenerateReport(const ID: String): Binary;
   end;
 
 implementation
@@ -78,19 +75,6 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvAlbaranesProveedor.GenerateReport(const ID: String): Binary;
-//var
-//  AReportGenerator : TRptAlbaranesProveedor;
-begin
-{  AReportGenerator := TRptAlbaranesProveedor.Create(nil);
-  try
-    Result := AReportGenerator.GenerarAlbaran(ID);
-  finally
-    FreeAndNIL(AReportGenerator);
-  end;
-}
-end;
-
 initialization
   TROClassFactory.Create('srvAlbaranesProveedor', Create_srvAlbaranesProveedor, TsrvAlbaranesProveedor_Invoker);
 
diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas
index d55b0978..8b98983f 100644
--- a/Source/Modulos/Contactos/Controller/uClientesController.pas
+++ b/Source/Modulos/Contactos/Controller/uClientesController.pas
@@ -53,7 +53,7 @@ uses
   Forms, Classes, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
   uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
   uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase,
-  Dialogs;
+  Dialogs, uIntegerListUtils;
 
 { TClientesController }
 
@@ -220,10 +220,10 @@ end;
 procedure TClientesController.Preview(ACliente: IBizCliente; AllItems: Boolean);
 var
   AReportController : IEtiquetasContactosReportController;
-  ListaID: TStringList;
+  ListaID: TIntegerList;
 begin
   AReportController := TEtiquetasContactosReportController.Create;
-  ListaID := TStringList.Create;
+  ListaID := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -234,31 +234,30 @@ begin
        First;
        while not EOF do
        begin
-         ListaID.Add(IntToStr(ACliente.ID));
+         ListaID.Add(ACliente.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ListaID.Add(IntToStr(ACliente.ID));
-
-    AReportController.Preview(ListaID.CommaText);
+     ListaID.Add(ACliente.ID);
 
+    AReportController.Preview(ListaID);
   finally
     AReportController := NIL;
-    ListaID.Free;
+    FreeANDNIL(ListaID);
   end;
 end;
 
 procedure TClientesController.Print(ACliente: IBizCliente; AllItems: Boolean);
 var
   AReportController : IEtiquetasContactosReportController;
-  ListaID: TStringList;
+  ListaID: TIntegerList;
 
 begin
   AReportController := TEtiquetasContactosReportController.Create;
-  ListaID := TStringList.Create;
+  ListaID := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -269,20 +268,20 @@ begin
        First;
        while not EOF do
        begin
-         ListaID.Add(IntToStr(ACliente.ID));
+         ListaID.Add(ACliente.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ListaID.Add(IntToStr(ACliente.ID));
+     ListaID.Add(ACliente.ID);
 
-    AReportController.Print(ListaID.CommaText);
+    AReportController.Print(ListaID);
 
   finally
     AReportController := NIL;
-    ListaID.Free;
+    FreeANDNil(ListaID);
   end;
 end;
 
diff --git a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas
index 6e941bca..255e95bc 100644
--- a/Source/Modulos/Contactos/Controller/uEmpleadosController.pas
+++ b/Source/Modulos/Contactos/Controller/uEmpleadosController.pas
@@ -48,7 +48,7 @@ implementation
 uses
   Windows, SysUtils, cxControls, Dialogs, uDataModuleEmpleados, uEditorRegistryUtils,
   uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uFichasEmpleadoReportController,
-  uEditorGridBase;
+  uEditorGridBase, uIntegerListUtils;
 
 { TEmpleadoController }
 
@@ -186,13 +186,11 @@ end;
 procedure TEmpleadosController.Preview(AEmpleado: IBizEmpleado; AllItems: Boolean);
 var
   AReportController : IFichasEmpleadoReportController;
-  ID_Fichas: TStringList;
-
+  ID_Fichas: TIntegerList;
 begin
   AReportController := TFichasEmpleadoReportController.Create;
-  ID_Fichas := TStringList.Create;
+  ID_Fichas := TIntegerList.Create;
   try
-
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
    begin
@@ -201,31 +199,30 @@ begin
        First;
        while not EOF do
        begin
-         ID_Fichas.Add(IntToStr(AEmpleado.ID));
+         ID_Fichas.Add(AEmpleado.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Fichas.Add(IntToStr(AEmpleado.ID));
-
-   AReportController.Preview(ID_Fichas.CommaText);
+     ID_Fichas.Add(AEmpleado.ID);
 
+   AReportController.Preview(ID_Fichas);
   finally
     AReportController := NIL;
-    ID_Fichas.Free;
+    FreeANDNil(ID_Fichas);
   end;
 end;
 
 procedure TEmpleadosController.Print(AEmpleado: IBizEmpleado; AllItems: Boolean);
 var
   AReportController : IFichasEmpleadoReportController;
-  ID_Fichas: TStringList;
+  ID_Fichas: TIntegerList;
 
 begin
   AReportController := TFichasEmpleadoReportController.Create;
-  ID_Fichas := TStringList.Create;
+  ID_Fichas := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -236,20 +233,19 @@ begin
        First;
        while not EOF do
        begin
-         ID_Fichas.Add(IntToStr(AEmpleado.ID));
+         ID_Fichas.Add(AEmpleado.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Fichas.Add(IntToStr(AEmpleado.ID));
-
-    AReportController.Print(ID_Fichas.CommaText);
+     ID_Fichas.Add(AEmpleado.ID);
 
+    AReportController.Print(ID_Fichas);
   finally
     AReportController := NIL;
-    ID_Fichas.Free;
+    FreeANDNIL(ID_Fichas);
   end;
 end;
 
diff --git a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
index dd50d9c4..4dcd3cb8 100644
--- a/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uEtiquetasContactosReportController.pas
@@ -4,13 +4,13 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleEtiquetasContactosReport,
-  uEmpleadosController;
+  uEmpleadosController, uIntegerListUtils;
 
 type
   IEtiquetasContactosReportController = interface(IControllerBase)
   ['{76BB35E3-554E-4D30-8D3E-54E488EF82E2}']
-    procedure Preview(const AContactosID : String);
-    procedure Print(const AContactosID : String);
+    procedure Preview(const ListaID : TIntegerList);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
   TEtiquetasContactosReportController = class(TControllerBase, IEtiquetasContactosReportController)
@@ -21,8 +21,8 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AContactosID : String);
-    procedure Print(const AContactosID : String);
+    procedure Preview(const ListaID : TIntegerList);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
 
@@ -51,7 +51,7 @@ begin
   inherited;
 end;
 
-procedure TEtiquetasContactosReportController.Preview(const AContactosID : String);
+procedure TEtiquetasContactosReportController.Preview(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorEtiquetasContactosPreview;
@@ -59,15 +59,19 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AContactosID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorEtiquetasContactosPreview', IEditorEtiquetasContactosPreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        LoadFromStream(AStream);
-        Preview;
-        Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := ListaID;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Preview;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
@@ -78,7 +82,7 @@ begin
   end;
 end;
 
-procedure TEtiquetasContactosReportController.Print(const AContactosID : String);
+procedure TEtiquetasContactosReportController.Print(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorEtiquetasContactosPreview;
@@ -86,15 +90,19 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AContactosID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorEtiquetasContactosPreview', IEditorEtiquetasContactosPreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        LoadFromStream(AStream);
-        Print;
-        Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := ListaID;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Print;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
diff --git a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
index 86330cc3..e72eab1b 100644
--- a/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
+++ b/Source/Modulos/Contactos/Controller/uFichasEmpleadoReportController.pas
@@ -4,13 +4,13 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFichasEmpleadoReport,
-  uEmpleadosController;
+  uEmpleadosController, uIntegerListUtils;
 
 type
   IFichasEmpleadoReportController = interface(IControllerBase)
   ['{8E43F55F-7D5A-4778-8523-7C105EAEB1AB}']
-    procedure Preview(const AFichaID : String);
-    procedure Print(const AFichaID : String);
+    procedure Preview(const ListaID : TIntegerList);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
   TFichasEmpleadoReportController = class(TControllerBase, IFichasEmpleadoReportController)
@@ -21,8 +21,8 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AFichaID : String);
-    procedure Print(const AFichaID : String);
+    procedure Preview(const ListaID : TIntegerList);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
 
@@ -51,7 +51,7 @@ begin
   inherited;
 end;
 
-procedure TFichasEmpleadoReportController.Preview(const AFichaID : String);
+procedure TFichasEmpleadoReportController.Preview(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorFichasEmpleadoPreview;
@@ -59,15 +59,19 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AFichaID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorFichasEmpleadoPreview', IEditorFichasEmpleadoPreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        LoadFromStream(AStream);
-        Preview;
-        Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := ListaID;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Preview;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
@@ -78,7 +82,7 @@ begin
   end;
 end;
 
-procedure TFichasEmpleadoReportController.Print(const AFichaID : String);
+procedure TFichasEmpleadoReportController.Print(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorFichasEmpleadoPreview;
@@ -87,15 +91,19 @@ begin
 
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(AFichaID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorFichasEmpleadoPreview', IEditorFichasEmpleadoPreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        LoadFromStream(AStream);
-        Print;
-        Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := ListaID;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Print;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas
index e3b51f52..b04cd057 100644
--- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas
+++ b/Source/Modulos/Contactos/Controller/uProveedoresController.pas
@@ -51,7 +51,7 @@ uses
   SysUtils, cxControls, Dialogs, uDataModuleProveedores, uEditorRegistryUtils,
   uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
   uIEditorElegirProveedores, Controls, uIEditorElegirDireccionEntrega,
-  uEditorGridBase, uDAInterfaces;
+  uEditorGridBase, uDAInterfaces, uIntegerListUtils;
 
 { TProveedoresController }
 
@@ -232,11 +232,11 @@ end;
 procedure TProveedoresController.Preview(AProveedor: IBizProveedor; AllItems: Boolean);
 var
   AReportController : IEtiquetasContactosReportController;
-  ListaID: TStringList;
+  ListaID: TIntegerList;
 
 begin
   AReportController := TEtiquetasContactosReportController.Create;
-  ListaID := TStringList.Create;
+  ListaID := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -247,34 +247,32 @@ begin
        First;
        while not EOF do
        begin
-         ListaID.Add(IntToStr(AProveedor.ID));
+         ListaID.Add(AProveedor.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ListaID.Add(IntToStr(AProveedor.ID));
-
-    AReportController.Preview(ListaID.CommaText);
+     ListaID.Add(AProveedor.ID);
 
+    AReportController.Preview(ListaID);
   finally
     AReportController := NIL;
-    ListaID.Free;
+    FreeANDNil(ListaID);
   end;
 end;
 
 procedure TProveedoresController.Print(AProveedor: IBizProveedor; AllItems: Boolean);
 var
   AReportController : IEtiquetasContactosReportController;
-  ListaID: TStringList;
+  ListaID: TIntegerList;
 
 begin
   AReportController := TEtiquetasContactosReportController.Create;
-  ListaID := TStringList.Create;
+  ListaID := TIntegerList.Create;
 
   try
-
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
    begin
@@ -283,20 +281,20 @@ begin
        First;
        while not EOF do
        begin
-         ListaID.Add(IntToStr(AProveedor.ID));
+         ListaID.Add(AProveedor.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ListaID.Add(IntToStr(AProveedor.ID));
+     ListaID.Add(AProveedor.ID);
 
-    AReportController.Print(ListaID.CommaText);
+    AReportController.Print(ListaID);
 
   finally
     AReportController := NIL;
-    ListaID.Free;
+    FreeANDNil(ListaID);
   end;
 end;
 
diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
index c4c319ad..a52112bb 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.pas
@@ -11,7 +11,8 @@ uses
   uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
   uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
   uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
-  uDAMemDataTable, uDataModuleBase, uBizContactosPersonal;
+  uDAMemDataTable, uDataModuleBase, uBizContactosPersonal,
+  uIntegerListUtils;
 
 type
   TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@@ -35,7 +36,7 @@ type
     function _GetPersonal: IBizContactoPersonal;
 
     // Report
-    function GetReport(const AContactosID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation
@@ -59,9 +60,16 @@ begin
   //
 end;
 
-function TDataModuleContactos.GetReport(const AContactosID: String): Binary;
+function TDataModuleContactos.GetReport(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvContactos).GenerateEtiquetasReport(AContactosID);
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvContactos).GenerarInformeEtiquetas(AParam);
+  finally
+    FreeANDNIL(AParam);
+  end;
 end;
 
 function TDataModuleContactos._GetDatosBancarios: IBizContactosDatosBancarios;
diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
index 5bd37134..24befbc7 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
+++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.pas
@@ -9,7 +9,7 @@ uses
   uROClient, uROBinMessage, uROWinInetHttpChannel, uBizGruposEmpleado, uROTypes,
   uIDataModuleEmpleados, uBizContactos, uDADesigntimeCall, uIDataModuleFichasEmpleadoReport,
   uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
-  uDARemoteDataAdapter;
+  uDARemoteDataAdapter, uIntegerListUtils;
 
 type
   TDataModuleEmpleados = class(TDataModuleContactos, IDataModuleEmpleados, IDataModuleFichasEmpleadoReport)
@@ -27,7 +27,7 @@ type
     function DarListaContratosEmpleado : TStringList;
 
     // Report
-    function GetReport(const AFichaID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 
@@ -105,9 +105,16 @@ begin
   end;
 end;
 
-function TDataModuleEmpleados.GetReport(const AFichaID: String): Binary;
+function TDataModuleEmpleados.GetReport(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvContactos).GenerateFichaEmpleadoReport(AFichaID);
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvContactos).GenerarInformeFichaEmpleado(AParam)
+  finally
+    FreeANDNil(AParam);
+  end;
 end;
 
 function TDataModuleEmpleados.NewItem: IBizEmpleado;
diff --git a/Source/Modulos/Contactos/Model/Data/uIDataModuleEtiquetasContactosReport.pas b/Source/Modulos/Contactos/Model/Data/uIDataModuleEtiquetasContactosReport.pas
index 6b276848..5bf48d6c 100644
--- a/Source/Modulos/Contactos/Model/Data/uIDataModuleEtiquetasContactosReport.pas
+++ b/Source/Modulos/Contactos/Model/Data/uIDataModuleEtiquetasContactosReport.pas
@@ -3,12 +3,12 @@ unit uIDataModuleEtiquetasContactosReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleEtiquetasContactosReport = interface
   ['{26E68DED-5BD9-4227-B07F-9644BED7AE7B}']
-    function GetReport(const AClientesID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation
diff --git a/Source/Modulos/Contactos/Model/Data/uIDataModuleFichasEmpleadoReport.pas b/Source/Modulos/Contactos/Model/Data/uIDataModuleFichasEmpleadoReport.pas
index 0cdf5a00..2be48122 100644
--- a/Source/Modulos/Contactos/Model/Data/uIDataModuleFichasEmpleadoReport.pas
+++ b/Source/Modulos/Contactos/Model/Data/uIDataModuleFichasEmpleadoReport.pas
@@ -3,12 +3,12 @@ unit uIDataModuleFichasEmpleadoReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleFichasEmpleadoReport = interface
   ['{45EEB949-2AC0-459F-88B0-235444B005E4}']
-    function GetReport(const AFichaID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation
diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
index 84d92c92..b82986d0 100644
--- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
+++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
@@ -7,7 +7,8 @@ uses
   Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
-  uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
+  uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable,
+  FactuGES_Intf;
 
 type
   TRptEtiquetasContacto = class(TDataModule)
@@ -29,7 +30,7 @@ type
   private
     FConnection: IDAConnection;
   public
-    function GenerarInforme(const AID : String): Binary; overload;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary; overload;
   end;
 
 implementation
@@ -56,10 +57,12 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;
 end;
 
-function TRptEtiquetasContacto.GenerarInforme(const AID: String): Binary;
+function TRptEtiquetasContacto.GenerarInforme(const ListaID: TIntegerArray): Binary;
 var
   AStream: TMemoryStream;
   dsMaster: IDADataset;
+  i : Integer;
+  AWhereStr : String;
 
 begin
   Result := Binary.Create;
@@ -69,7 +72,17 @@ begin
   AStream := TMemoryStream.Create;
   try
     dsMaster := schReport.NewDataset(FConnection, ds_InformeContactos, [], [], False); //, ['ID'], ['611, 751']); //AID]);
-    dsMaster.Where.AddText(fld_ContactosID + ' in (' + AID + ')');
+    AWhereStr := fld_ContactosID + ' in (';
+    for i := 0 to ListaID.Count - 1 do
+    begin
+      if i > 0 then
+        AWhereStr := AWhereStr + ', ';
+      AWhereStr := AWhereStr + IntToStr(ListaID.Items[i]);
+    end;
+
+    AWhereStr := AWhereStr + ')';
+    dsMaster.Where.AddText(AWhereStr);
+
     dsMaster.Open;
 
     AStream.Clear;
diff --git a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas
index ede5e01a..5b78434f 100644
--- a/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas
+++ b/Source/Modulos/Contactos/Reports/uRptFichasEmpleado_Server.pas
@@ -7,7 +7,8 @@ uses
   Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
-  uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable;
+  uDAInterfaces, uDADataStreamer, uDABin2DataStreamer, uDAMemDataTable,
+  FactuGES_Intf;
 
 type
   TRptFichasEmpleado = class(TDataModule)
@@ -29,9 +30,9 @@ type
   private
     FConnection: IDAConnection;
     //Genera cada uno de los albaranes a imprimir
-    procedure GenerarFicha(const ID: integer); overload;
+    procedure _GenerarFicha(const ID: Integer);
   public
-    function GenerarFicha(const AFichaID : String): Binary; overload;
+    function GenerarFicha(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -58,31 +59,25 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;
 end;
 
-function TRptFichasEmpleado.GenerarFicha(const AFichaID: String): Binary;
+function TRptFichasEmpleado.GenerarFicha(const ListaID: TIntegerArray): Binary;
 var
-  ID_Fichas: TStringList;
   i: Integer;
-
 begin
   Result := Binary.Create;
-  FConnection.BeginTransaction;
 
+  //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
   try
-    ID_Fichas := TStringList.Create;
-    ID_Fichas.CommaText := AFichaID;
-
     //Vamos generando todos y cada uno de las fichas de empleado
-    for i := 0 to ID_Fichas.Count - 1 do
-        GenerarFicha(StrToInt(ID_Fichas.Strings[i]));
+    for i := 0 to ListaID.Count - 1 do
+      _GenerarFicha(ListaID.Items[i]);
 
     frxReport.PreviewPages.SaveToStream(Result);
-
   finally
-    FConnection.RollbackTransaction;
+    //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
   end;
 end;
 
-procedure TRptFichasEmpleado.GenerarFicha(const ID: integer);
+procedure TRptFichasEmpleado._GenerarFicha(const ID: Integer);
 var
   AStream: TMemoryStream;
   dsMaster: IDADataset;
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
index d6b8cb5b..e629e66d 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
@@ -40,8 +40,8 @@ type
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
   public
-    function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
-    function GenerateEtiquetasReport(const ContactosID: String): Binary;
+    function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
     function DarListaContratosEmpleados: String;
     function DarListaDescripcionesProveedores: String;
   end;
@@ -137,25 +137,25 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvContactos.GenerateEtiquetasReport(const ContactosID: String): Binary;
+function TsrvContactos.GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptEtiquetasContacto;
 begin
   AReportGenerator := TRptEtiquetasContacto.Create(nil);
   try
-    Result := AReportGenerator.GenerarInforme(ContactosID);
+    Result := AReportGenerator.GenerarInforme(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
-function TsrvContactos.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
+function TsrvContactos.GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptFichasEmpleado;
 begin
   AReportGenerator := TRptFichasEmpleado.Create(nil);
   try
-    Result := AReportGenerator.GenerarFicha(EmpleadoID);
+    Result := AReportGenerator.GenerarFicha(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
diff --git a/Source/Modulos/Facturas de cliente/Controller/View/uIEditorFacturasClientePreview.pas b/Source/Modulos/Facturas de cliente/Controller/View/uIEditorFacturasClientePreview.pas
index 6b7abc2a..97fe3df0 100644
--- a/Source/Modulos/Facturas de cliente/Controller/View/uIEditorFacturasClientePreview.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/View/uIEditorFacturasClientePreview.pas	
@@ -8,9 +8,6 @@ uses
 type
   IEditorFacturasClientePreview = interface(IEditorPreview)
   ['{0B893ED1-261A-4358-814E-18D7FD768E14}']
-{    function PreviewGetController : IFacturasClienteReportController;
-    procedure PreviewSetController (const Value : IFacturasClienteReportController);
-    property PreviewController : IFacturasClienteReportController read PreviewGetController write PreviewSetController;}
   end;
 
 
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index d929108d..c3fb70af 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -9,7 +9,7 @@ uses
   uBizFacturasCliente;
 
 type
-  IFacturasClienteController = interface(IObservador)
+  IFacturasClienteController = interface(IControllerBase)
   ['{CAD20B4E-6D0B-4A1C-9306-B195824B6CAD}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -50,7 +50,7 @@ type
     function ExtraerSeleccionados(ARecibosCliente: IBizFacturaCliente) : IBizFacturaCliente;
   end;
 
-  TFacturasClienteController = class(TObservador, IFacturasClienteController)
+  TFacturasClienteController = class(TControllerBase, IFacturasClienteController)
   private
     FDataModule : IDataModuleFacturasCliente;
     FClienteController : IClientesController;
@@ -118,7 +118,7 @@ uses
   uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
   uBizDetallesAlbaranCliente, uFacturasClienteReportController,
   DateUtils, Forms, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
-  uRecibosClienteController, uBizRecibosCliente;
+  uRecibosClienteController, uBizRecibosCliente, uIntegerListUtils;
 
 
 {procedure CopiarArticulosPedido(AOrigen: IBizDetallesPedidoCliente;
@@ -518,8 +518,6 @@ end;
 
 function TFacturasClienteController.ValidarFactura(AFactura: IBizFacturaCliente): Boolean;
 begin
-  Result := False;
-  
   if not Assigned(AFactura) then
     raise Exception.Create ('Factura no asignada');
 
@@ -895,11 +893,11 @@ end;
 procedure TFacturasClienteController.Preview(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
 var
   AReportController : IFacturasClienteReportController;
-  ID_Facturas: TStringList;
+  ID_Facturas: TIntegerList;
 
 begin
   AReportController := TFacturasClienteReportController.Create;
-  ID_Facturas := TStringList.Create;
+  ID_Facturas := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -910,31 +908,31 @@ begin
        First;
        while not EOF do
        begin
-         ID_Facturas.Add(IntToStr(AFactura.ID));
+         ID_Facturas.Add(AFactura.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Facturas.Add(IntToStr(AFactura.ID));
+     ID_Facturas.Add(AFactura.ID);
 
-    AReportController.Preview(ID_Facturas.CommaText);
+    AReportController.Preview(ID_Facturas);
 
   finally
     AReportController := NIL;
-    ID_Facturas.Free;
+    FreeANDNIL(ID_Facturas);
   end;
 end;
 
 procedure TFacturasClienteController.Print(AFactura: IBizFacturaCliente; AllItems: Boolean = false);
 var
   AReportController : IFacturasClienteReportController;
-  ID_Facturas: TStringList;
+  ID_Facturas: TIntegerList;
 
 begin
   AReportController := TFacturasClienteReportController.Create;
-  ID_Facturas := TStringList.Create;
+  ID_Facturas := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -945,20 +943,20 @@ begin
        First;
        while not EOF do
        begin
-         ID_Facturas.Add(IntToStr(AFactura.ID));
+         ID_Facturas.Add(AFactura.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Facturas.Add(IntToStr(AFactura.ID));
+     ID_Facturas.Add(AFactura.ID);
 
-    AReportController.Print(ID_Facturas.CommaText);
+    AReportController.Print(ID_Facturas);
 
   finally
     AReportController := NIL;
-    ID_Facturas.Free;
+    FreeANDNIL(ID_Facturas);
   end;
 end;
 
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas
index e9cb0f2a..f0d323a5 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteReportController.pas	
@@ -5,13 +5,13 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleFacturasClienteReport,
   uClientesController, uDetallesFacturaClienteController,
-  uBizFacturasCliente;
+  uBizFacturasCliente, uIntegerListUtils;
 
 type
   IFacturasClienteReportController = interface(IControllerBase)
   ['{A0F41767-4FF6-4BAE-9FC9-894DD721D756}']
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
@@ -24,8 +24,8 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
@@ -83,7 +83,7 @@ begin
   end;
 end;
 
-procedure TFacturasClienteReportController.Preview(const AListaID : String);
+procedure TFacturasClienteReportController.Preview(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorFacturasClientePreview;
@@ -98,7 +98,6 @@ begin
       with AEditor do
       begin
         AEditor.Controller := Self;
-        AEditor.ListaID := AListaID;
         LoadFromStream(AStream);
         Preview;
         Release;
@@ -112,7 +111,7 @@ begin
   end;
 end;
 
-procedure TFacturasClienteReportController.Print(const AListaID : String);
+procedure TFacturasClienteReportController.Print(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorFacturasClientePreview;
@@ -127,7 +126,6 @@ begin
       with AEditor do
       begin
         AEditor.Controller := Self;
-        AEditor.ListaID := AListaID;
         LoadFromStream(AStream);
         Print;
         Release;
diff --git a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas
index 5df32f51..45fa2b5a 100644
--- a/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.pas	
@@ -10,7 +10,7 @@ uses
   uIDataModuleFacturasCliente, uBizFacturasCliente, uBizDetallesFacturaCliente,
   uDADesigntimeCall, uIDataModuleFacturasClienteReport, uDataModuleBase,
   uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
-  uDARemoteDataAdapter;
+  uDARemoteDataAdapter, uIntegerListUtils;
 
 type
   TDataModuleFacturasCliente = class(TDataModuleBase, IDataModuleFacturasCliente, IDataModuleFacturasClienteReport)
@@ -30,8 +30,9 @@ type
     function NewItem : IBizFacturaCliente;
 
     // Report
-    function GetRptFacturas(const AListaID: String): Binary;
+    function GetRptFacturas(const AListaID: TIntegerList): Binary;
     function GetRptWordFactura(const AID: Integer): Binary;
+    function GetRptPDFFactura(const AID: Integer): Binary;    
   end;
 
 implementation
@@ -51,15 +52,36 @@ begin
 end;
 
 function TDataModuleFacturasCliente.GetRptFacturas(
-  const AListaID: String): Binary;
+  const AListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvFacturasCliente).GenerateReport(AListaID)
+  AParam := AListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvFacturasCliente).GenerarInforme(AParam);
+  finally
+    FreeANDNIL(AParam);
+  end;
+end;
+
+function TDataModuleFacturasCliente.GetRptPDFFactura(
+  const AID: Integer): Binary;
+var
+  AParam : TIntegerArray;
+begin
+  AParam := TIntegerArray.Create;
+  try
+    AParam.Add(AID);
+    Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnPDF(AParam);
+  finally
+    FreeANDNIL(AParam);
+  end;
 end;
 
 function TDataModuleFacturasCliente.GetRptWordFactura(
   const AID: Integer): Binary;
 begin
-  Result := (RORemoteService as IsrvFacturasCliente).GenerateReportEnWord(AID)
+  Result := (RORemoteService as IsrvFacturasCliente).GenerarInformeEnWord(AID)
 end;
 
 function TDataModuleFacturasCliente.NewItem: IBizFacturaCliente;
diff --git a/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas b/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas
index 22cf8317..cf5e8433 100644
--- a/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas	
+++ b/Source/Modulos/Facturas de cliente/Model/Data/uIDataModuleFacturasClienteReport.pas	
@@ -3,13 +3,14 @@ unit uIDataModuleFacturasClienteReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleFacturasClienteReport = interface
   ['{D241A912-78C6-4C65-AEBF-8DDEFE35F511}']
-    function GetRptFacturas(const AListaID: String): Binary;
+    function GetRptFacturas(const AListaID: TIntegerList): Binary;
     function GetRptWordFactura(const AID: Integer): Binary;
+    function GetRptPDFFactura(const AID: Integer): Binary;
   end;
 
 implementation
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm
index 20372a5c..1aa38d9d 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.dfm	
@@ -1465,4 +1465,18 @@ object RptFacturasCliente: TRptFacturasCliente
     Left = 216
     Top = 408
   end
+  object frxPDFExport1: TfrxPDFExport
+    ShowDialog = False
+    UseFileCache = True
+    ShowProgress = False
+    PrintOptimized = True
+    Outline = False
+    Author = 'FactuGES'
+    Subject = 'FactuGES'
+    Background = False
+    Creator = 'FactuGES'
+    HTMLTags = True
+    Left = 424
+    Top = 288
+  end
 end
diff --git a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas
index 428f62f0..4addcff8 100644
--- a/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas	
+++ b/Source/Modulos/Facturas de cliente/Reports/uRptFacturasCliente_Server.pas	
@@ -8,7 +8,7 @@ uses
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
   uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
-  uDAMemDataTable;
+  uDAMemDataTable, FactuGES_Intf, frxExportPDF;
 
 type
   TRptFacturasCliente = class(TDataModule)
@@ -80,13 +80,15 @@ type
     vencimientosFECHA_VENCIMIENTO: TDateField;
     vencimientosIMPORTE_TOTAL: TIBBCDField;
     schReport: TDASchema;
+    frxPDFExport1: TfrxPDFExport;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;
     //Genera cada una de las facturas a imprimir
-    procedure GenerarFactura(const ID: integer); overload;
+    procedure _GenerarFactura(const ID: Integer);
   public
-    function GenerarFactura(const AFacturaID : String): Binary; overload;
+    function GenerarFactura(const ListaID : TIntegerArray): Binary;
+    function GenerarFacturaEnPDF(const ListaID : TIntegerArray): Binary;     
   end;
 
 implementation
@@ -115,31 +117,45 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;  
 end;
 
-function TRptFacturasCliente.GenerarFactura(const AFacturaID: String): Binary;
+function TRptFacturasCliente.GenerarFactura(const ListaID: TIntegerArray): Binary;
 var
-  ID_Facturas: TStringList;
   i: Integer;
-
 begin
   Result := Binary.Create;
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
 
   try
-    ID_Facturas := TStringList.Create;
-    ID_Facturas.CommaText := AFacturaID;
-
     //Vamos generando todos y cada una de las facturas recibidas
-    for i := 0 to ID_Facturas.Count - 1 do
-        GenerarFactura(StrToInt(ID_Facturas.Strings[i]));
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarFactura(ListaID.Items[i]);
 
     frxReport.PreviewPages.SaveToStream(Result);
-
   finally
     //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
   end;
 end;
 
-procedure TRptFacturasCliente.GenerarFactura(const ID: integer);
+function TRptFacturasCliente.GenerarFacturaEnPDF(
+  const ListaID: TIntegerArray): Binary;
+var
+  i: Integer;
+begin
+  Result := Binary.Create;
+  //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
+
+  try
+    //Vamos generando todos y cada una de las facturas recibidas
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarFactura(ListaID.Items[i]);
+
+    frxPDFExport1.Stream := Result;
+    frxReport.Export(frxPDFExport1)
+  finally
+    //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
+  end;
+end;
+
+procedure TRptFacturasCliente._GenerarFactura(const ID: Integer);
 //var
 //  AStream: TMemoryStream;
 //  dsMaster: IDADataset;
diff --git a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas
index 180d8a39..13d31475 100644
--- a/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas	
+++ b/Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.pas	
@@ -35,8 +35,9 @@ type
   private
   protected
     { IsrvFacturasCliente methods }
-    function GenerateReport(const FacturaID: String): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;    
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;    
   end;
 
 implementation
@@ -83,19 +84,32 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvFacturasCliente.GenerateReport(const FacturaID: String): Binary;
+function TsrvFacturasCliente.GenerarInformeEnPDF(
+  const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptFacturasCliente;
 begin
   AReportGenerator := TRptFacturasCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarFactura(FacturaID);
+    Result := AReportGenerator.GenerarFacturaEnPDF(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
 end;
 
-function TsrvFacturasCliente.GenerateReportEnWord(const ID: Integer): Binary;
+function TsrvFacturasCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptFacturasCliente;
+begin
+  AReportGenerator := TRptFacturasCliente.Create(nil);
+  try
+    Result := AReportGenerator.GenerarFactura(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvFacturasCliente.GenerarInformeEnWord(const ID: Integer): Binary;
 var
   AReportGenerator : TRptWordFacturaCliente;
   AFicheroTMP : TFileName;
diff --git a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj
index c5c52675..4234aba7 100644
--- a/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
+++ b/Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj	
@@ -48,13 +48,13 @@
     <DelphiCompile Include="FacturasCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
-    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
-    <DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
-    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="..\..\Lib\PreCli_FacCli_relation.dcp" />
+    <DCCReference Include="..\AlbCli_FacCli_relation.dcp" />
+    <DCCReference Include="..\Articulos_view.dcp" />
+    <DCCReference Include="..\Contactos_view.dcp" />
+    <DCCReference Include="..\FacturasCliente_controller.dcp" />
+    <DCCReference Include="..\FacturasCliente_model.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\PreCli_FacCli_relation.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
       <Form>fEditorElegirArticulosFacturaCliente</Form>
       <DesignClass>TForm</DesignClass>
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm
index 6473d20c..e307b4b0 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.dfm	
@@ -1,8 +1,24 @@
 inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
   Caption = 'Previsualizar la factura'
+  ClientWidth = 622
+  ExplicitWidth = 630
+  ExplicitHeight = 492
   PixelsPerInch = 96
   TextHeight = 13
+  inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 622
+    ExplicitWidth = 622
+    inherited Image1: TImage
+      Left = 595
+      ExplicitLeft = 595
+    end
+  end
   inherited TBXDock: TTBXDock
+    Width = 622
+    ExplicitWidth = 622
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 622
+    end
     inherited TBXToolbar1: TTBXToolbar
       ExplicitWidth = 540
       object TBXItem58: TTBXItem [1]
@@ -11,4 +27,8 @@ inherited fEditorFacturasClientePreview: TfEditorFacturasClientePreview
       end
     end
   end
+  inherited StatusBar: TJvStatusBar
+    Width = 622
+    ExplicitWidth = 622
+  end
 end
diff --git a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas
index 5e52b371..0aa892a3 100644
--- a/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uEditorFacturasClienteReport.pas	
@@ -7,7 +7,7 @@ uses
   Dialogs, uEditorPreview,
 {  frxExportImage, frxExportPDF, frxDCtrl, frxClass, frxDMPExport, frxGradient,
   frxChBox, frxCross, frxRich, frxChart, frxOLE, frxBarcode,
-}  
+}
   JvAppStorage, JvAppRegistryStorage, JvComponentBase,
   JvFormPlacement, ImgList, PngImageList, StdActns, ActnList, ComCtrls,
   TB2ExtItems, TBXExtItems, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage,
@@ -32,25 +32,18 @@ implementation
 {$R *.dfm}
 
 uses
-  uFacturasClienteReportController;
+  uFacturasClienteReportController, uIntegerListUtils;
 
 procedure TfEditorFacturasClientePreview.actExportarRTFExecute(Sender: TObject);
 var
-  AListaID : TStringList;
   I: Integer;
 begin
   // inherited; <- No llamar al padre
   if not Assigned(Controller) then
     raise Exception.Create('No se ha asignado el controlador necesario');
-  
-	AListaID := TStringList.Create;
-	try
-	  AListaID.CommaText := Self.ListaID;
-	  for I := 0 to AListaID.Count - 1 do
-		(Controller as IFacturasClienteReportController).ExportToWord(StrToInt(AListaID[I]));
-	finally
-	  FreeAndNIL(AListaID);
-	end;
+
+  for I := 0 to ListaID.Count - 1 do
+		(Controller as IFacturasClienteReportController).ExportToWord(ListaID[I]);
 end;
 
 end.
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 6c934174..9defccf2 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -9,7 +9,7 @@ uses
   uBizAlbaranesProveedor;
 
 type
-  IFacturasProveedorController = interface(IObservador)
+  IFacturasProveedorController = interface(IControllerBase)
   ['{3868267C-E61A-4B79-AF61-648B2D627F56}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -49,7 +49,7 @@ type
     function ExtraerSeleccionados(ARecibosProveedor: IBizFacturaProveedor) : IBizFacturaProveedor;
   end;
 
-  TFacturasProveedorController = class(TObservador, IFacturasProveedorController)
+  TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
   private
     FDataModule : IDataModuleFacturasProveedor;
     FProveedorController : IProveedoresController;
diff --git a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas
index 3c2350ea..210bce0c 100644
--- a/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas	
+++ b/Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.pas	
@@ -33,9 +33,6 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
-  protected
-    { IsrvFacturasProveedor methods }
-    function GenerateReport(const FacturaID: String): Binary;
   end;
 
 implementation
@@ -80,20 +77,6 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvFacturasProveedor.GenerateReport(const FacturaID: String): Binary;
-//var
-//  AReportGenerator : TRptFacturasProveedor;
-begin
-{  AReportGenerator := TRptFacturasProveedor.Create(nil);
-  try
-    Result := AReportGenerator.GenerarFactura(FacturaID);
-  finally
-    FreeAndNIL(AReportGenerator);
-  end;
-}
-end;
-
-
 initialization
   TROClassFactory.Create('srvFacturasProveedor', Create_srvFacturasProveedor, TsrvFacturasProveedor_Invoker);
 
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas
index b75a85da..7ec2459b 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorController.pas	
@@ -9,7 +9,7 @@ uses
   uDetallesPedidoProveedorController, uBizPedidosProveedor;
 
 type
-  IPedidosProveedorController = interface(IObservador)
+  IPedidosProveedorController = interface(IControllerBase)
   ['{404FFA2F-D683-447D-91E6-C9A7322934D8}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -51,7 +51,7 @@ type
 
   end;
 
-  TPedidosProveedorController = class(TObservador, IPedidosProveedorController)
+  TPedidosProveedorController = class(TControllerBase, IPedidosProveedorController)
   protected
     FDataModule : IDataModulePedidosProveedor;
     FProveedorController : IProveedoresController;
@@ -121,8 +121,8 @@ uses
   uBizDetallesPedidoProveedor, uBizContactos, uDataTableUtils, uDataModuleUsuarios,
   schPedidosProveedorClient_Intf, uDAInterfaces, uPedidosProveedorReportController,
   uDateUtils, uIEditorPedidoProveedor, uIEditorElegirPedidosProveedor,
-  Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes,
-  uIEditorSituacionPedidoProveedor, Variants;
+  Dialogs, uIEditorDireccionEntregaPedidoProveedor, Classes, uIEditorSituacionPedidoProveedor,
+  Variants, uIntegerListUtils;
 
 { TPedidosProveedorController }
 
@@ -741,14 +741,13 @@ end;
 procedure TPedidosProveedorController.Preview(APedido: IBizPedidoProveedor; AllItems: Boolean = false);
 var
   AReportController : IPedidosProveedorReportController;
-  ID_Pedidos: TStringList;
+  ID_Pedidos: TIntegerList;
 
 begin
   AReportController := TPedidosProveedorReportController.Create;
-  ID_Pedidos := TStringList.Create;
+  ID_Pedidos := TIntegerList.Create;
 
   try
-
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
    begin
@@ -757,31 +756,29 @@ begin
        First;
        while not EOF do
        begin
-         ID_Pedidos.Add(IntToStr(APedido.ID));
+         ID_Pedidos.Add(APedido.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Pedidos.Add(IntToStr(APedido.ID));
-
-    AReportController.Preview(ID_Pedidos.CommaText);
+     ID_Pedidos.Add(APedido.ID);
 
+    AReportController.Preview(ID_Pedidos);
   finally
     AReportController := NIL;
-    ID_Pedidos.Free;
+    FreeANDNIL(ID_Pedidos)
   end;
 end;
 
 procedure TPedidosProveedorController.Print(APedido: IBizPedidoProveedor; AllItems: Boolean = false);
 var
   AReportController : IPedidosProveedorReportController;
-  ID_Pedidos: TStringList;
-
+  ID_Pedidos: TIntegerList;
 begin
   AReportController := TPedidosProveedorReportController.Create;
-  ID_Pedidos := TStringList.Create;
+  ID_Pedidos := TIntegerList.Create;
 
   try
    //Si deseamos previsualizar todos los items del objeto albaran
@@ -792,20 +789,19 @@ begin
        First;
        while not EOF do
        begin
-         ID_Pedidos.Add(IntToStr(APedido.ID));
+         ID_Pedidos.Add(APedido.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Pedidos.Add(IntToStr(APedido.ID));
-
-    AReportController.Print(ID_Pedidos.CommaText);
+     ID_Pedidos.Add(APedido.ID);
 
+    AReportController.Print(ID_Pedidos);
   finally
     AReportController := NIL;
-    ID_Pedidos.Free;
+    FreeANDNIL(ID_Pedidos)
   end;
 end;
 
diff --git a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas
index 773fc853..8fc3c29f 100644
--- a/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Controller/uPedidosProveedorReportController.pas	
@@ -5,13 +5,13 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePedidosProveedorReport,
   uClientesController, uPedidosProveedorController, uDetallesPedidoProveedorController,
-  uBizPedidosProveedor;
+  uBizPedidosProveedor, uIntegerListUtils;
 
 type
   IPedidosProveedorReportController = interface(IControllerBase)
   ['{D0686358-251C-43C4-9927-6112F2F4D3B8}']
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
@@ -23,8 +23,8 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
   end;
 
@@ -82,7 +82,7 @@ begin
   end;
 end;
 
-procedure TPedidosProveedorReportController.Preview(const AListaID : String);
+procedure TPedidosProveedorReportController.Preview(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorPedidosProveedorPreview;
@@ -94,14 +94,16 @@ begin
     try
       CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        AEditor.Controller := Self;
-        AEditor.ListaID := AListaID;
-        Title := 'Pedido a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-        LoadFromStream(AStream);
-        Preview;
-        Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := AListaID;
+          AEditor.Title := 'Pedido a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Preview;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
@@ -112,7 +114,7 @@ begin
   end;
 end;
 
-procedure TPedidosProveedorReportController.Print(const AListaID : String);
+procedure TPedidosProveedorReportController.Print(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorPedidosProveedorPreview;
@@ -124,11 +126,16 @@ begin
     try
       CreateEditor('EditorPedidosProveedorPreview', IEditorPedidosProveedorPreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        LoadFromStream(AStream);
-        Print;
-        Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := AListaID;
+          AEditor.Title := 'Pedido a proveedor - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Print;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
diff --git a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas
index 9518163c..9080b075 100644
--- a/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Data/uDataModulePedidosProveedor.pas	
@@ -10,7 +10,8 @@ uses
   uROTypes, uDataModuleBase,
   uIDataModulePedidosProveedor, uIDataModulePedidosProveedorReport,
   uBizPedidosProveedor, uBizDetallesPedidoProveedor, uDARemoteDataAdapter,
-  uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
+  uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable,
+  uIntegerListUtils;
 
 type
   TDataModulePedidosProveedor = class(TDataModuleBase, IDataModulePedidosProveedor,
@@ -39,8 +40,10 @@ type
     function GetArticulosPendientes(const IDPedido: Integer): IBizDetallesPedidoProveedorPend;
 
     // Report
-    function GetReport(const AID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
     function GetRptWordPedido(const AID: Integer): Binary;
+    function GetRptPDFPedido(const AID: Integer): Binary;
+
   end;
 
 implementation
@@ -64,15 +67,36 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-function TDataModulePedidosProveedor.GetReport(const AID: String): Binary;
+function TDataModulePedidosProveedor.GetReport(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvPedidosProveedor).GenerateReport(AID)
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvPedidosProveedor).GenerarInforme(AParam)
+  finally
+    FreeANDNil(AParam);
+  end;
+end;
+
+function TDataModulePedidosProveedor.GetRptPDFPedido(
+  const AID: Integer): Binary;
+var
+  AParam : TIntegerArray;
+begin
+  AParam := TIntegerArray.Create;
+  try
+    AParam.Add(AID);
+    Result := (RORemoteService as IsrvPedidosProveedor).GenerarInformeEnPDF(AParam)
+  finally
+    FreeANDNil(AParam);
+  end;
 end;
 
 function TDataModulePedidosProveedor.GetRptWordPedido(
   const AID: Integer): Binary;
 begin
-  Result := (RORemoteService as IsrvPedidosProveedor).GenerateReportEnWord(AID)
+  Result := (RORemoteService as IsrvPedidosProveedor).GenerarInformeEnWord(AID);
 end;
 
 function TDataModulePedidosProveedor.NewItem: IBizPedidoProveedor;
diff --git a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas
index a974f4b5..cbe6c507 100644
--- a/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Model/Data/uIDataModulePedidosProveedorReport.pas	
@@ -3,13 +3,14 @@ unit uIDataModulePedidosProveedorReport;
 interface
 
 uses
-  uROTypes;
+  uROTypes, uIntegerListUtils;
 
 type
   IDataModulePedidosProveedorReport = interface
   ['{F2FFF4EA-B43D-4AAB-8A76-35A322B61A80}']
-    function GetReport(const AID: String): Binary;
-    function GetRptWordPedido(const AID: Integer): Binary;    
+    function GetReport(const ListaID: TIntegerList): Binary;
+    function GetRptWordPedido(const AID: Integer): Binary;
+    function GetRptPDFPedido(const AID: Integer): Binary;        
   end;
 
 implementation
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm
index c26ecbed..56741436 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.dfm	
@@ -789,4 +789,18 @@ object RptPedidosProveedor: TRptPedidosProveedor
     Left = 360
     Top = 136
   end
+  object frxPDFExport1: TfrxPDFExport
+    ShowDialog = False
+    UseFileCache = True
+    ShowProgress = False
+    PrintOptimized = True
+    Outline = False
+    Author = 'FactuGES'
+    Subject = 'FactuGES'
+    Background = False
+    Creator = 'FactuGES'
+    HTMLTags = True
+    Left = 440
+    Top = 296
+  end
 end
diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
index 7d7fc348..54bcce6f 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas	
@@ -8,7 +8,7 @@ uses
   uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
   uDAInterfaces, uDADataStreamer, IBCustomDataSet, IBQuery, IBDatabase,
-  uDAMemDataTable;
+  uDAMemDataTable, frxExportPDF, FactuGES_Intf;
 
 type
   TRptPedidosProveedor = class(TDataModule)
@@ -61,12 +61,14 @@ type
     cabeceraENTREGAR_A: TIBStringField;
     schReport: TDASchema;
     DataDictionary: TDADataDictionary;
+    frxPDFExport1: TfrxPDFExport;
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;
-    procedure GenerarPedido(const ID : Integer); overload;
+    procedure _GenerarPedido(const ID : Integer);
   public
-    function GenerarPedido(const AID : String): Binary; overload;
+    function GenerarPedido(const ListaID : TIntegerArray): Binary;
+    function GenerarPedidoEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -94,31 +96,24 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;  
 end;
 
-function TRptPedidosProveedor.GenerarPedido(const AID: String): Binary;
+function TRptPedidosProveedor.GenerarPedido(const ListaID : TIntegerArray): Binary;
 var
-  ID_Pedidos: TStringList;
   i: Integer;
-
 begin
   Result := Binary.Create;
+
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
-
   try
-    ID_Pedidos := TStringList.Create;
-    ID_Pedidos.CommaText := AID;
-
     //Vamos generando todos y cada uno de los albaranes recibidos
-    for i := 0 to ID_Pedidos.Count - 1 do
-        GenerarPedido(StrToInt(ID_Pedidos.Strings[i]));
-
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarPedido(ListaID.Items[i]);
     frxReport.PreviewPages.SaveToStream(Result);
-
   finally
     //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
   end;
 end;
 
-procedure TRptPedidosProveedor.GenerarPedido(const ID: Integer);
+procedure TRptPedidosProveedor._GenerarPedido(const ID: Integer);
 var
   AStream: TMemoryStream;
   dsMaster: IDADataset;
@@ -146,4 +141,25 @@ begin
   end;
 end;
 
+function TRptPedidosProveedor.GenerarPedidoEnPDF(
+  const ListaID: TIntegerArray): Binary;
+var
+  i: Integer;
+begin
+  Result := Binary.Create;
+
+  //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
+  try
+    //Vamos generando todos y cada uno de los albaranes recibidos
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarPedido(ListaID.Items[i]);
+
+    frxPDFExport1.Stream := Result;
+    frxReport.Export(frxPDFExport1)
+  finally
+    //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
+  end;
+end;
+
+
 end.
diff --git a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas
index c6ca6b65..ba477b0e 100644
--- a/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Servidor/srvPedidosProveedor_Impl.pas	
@@ -31,10 +31,13 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
+  private
+    function GenerarInformeEnWord(const ID: Integer): Binary;
   protected
     { IsrvPedidosProveedor methods }
-    function GenerateReport(const ID: String): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;    
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerateInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -82,20 +85,32 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvPedidosProveedor.GenerateReport(const ID: String): Binary;
+function TsrvPedidosProveedor.GenerarInforme(const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptPedidosProveedor;
 begin
   AReportGenerator := TRptPedidosProveedor.Create(nil);
   try
-    Result := AReportGenerator.GenerarPedido(ID);
+    Result := AReportGenerator.GenerarPedido(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
-
 end;
 
-function TsrvPedidosProveedor.GenerateReportEnWord(const ID: Integer): Binary;
+function TsrvPedidosProveedor.GenerarInformeEnPDF(
+  const ListaID: TIntegerArray): Binary;
+var
+  AReportGenerator : TRptPedidosProveedor;
+begin
+  AReportGenerator := TRptPedidosProveedor.Create(nil);
+  try
+    Result := AReportGenerator.GenerarPedidoEnPDF(ListaID);
+  finally
+    FreeAndNIL(AReportGenerator);
+  end;
+end;
+
+function TsrvPedidosProveedor.GenerarInformeEnWord(const ID: Integer): Binary;
 var
   AReportGenerator : TRptWordPedidoProveedor;
   AFicheroTMP : TFileName;
@@ -114,6 +129,11 @@ begin
   end;
 end;
 
+function TsrvPedidosProveedor.GenerateInformeEnWord(const ID: Integer): Binary;
+begin
+
+end;
+
 initialization
   TROClassFactory.Create('srvPedidosProveedor', Create_srvPedidosProveedor, TsrvPedidosProveedor_Invoker);
 
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm
index 1067e87f..2e66d0b3 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.dfm	
@@ -1,5 +1,7 @@
 inherited fEditorPedidosProveedorPreview: TfEditorPedidosProveedorPreview
   Caption = 'Previsualizar el pedidos proveedor'
+  ExplicitWidth = 320
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited TBXDock: TTBXDock
diff --git a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas
index 6c9bd24a..6c7fb801 100644
--- a/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Views/uEditorPedidosProveedorReport.pas	
@@ -33,21 +33,14 @@ uses
 procedure TfEditorPedidosProveedorPreview.actExportarRTFExecute(
   Sender: TObject);
 var
-  AListaID : TStringList;
   I: Integer;
 begin
   // inherited; <- No llamar al padre
   if not Assigned(Controller) then
     raise Exception.Create('No se ha asignado el controlador necesario');
-  
-	AListaID := TStringList.Create;
-	try
-	  AListaID.CommaText := Self.ListaID;
-	  for I := 0 to AListaID.Count - 1 do
-		(Controller as IPedidosProveedorReportController).ExportToWord(StrToInt(AListaID[I]));
-	finally
-	  FreeAndNIL(AListaID);
-	end;
+
+  for I := 0 to ListaID.Count - 1 do
+		(Controller as IPedidosProveedorReportController).ExportToWord(ListaID[I]);
 end;
 
 end.
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index e995c5b9..811f965b 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -10,7 +10,7 @@ uses
   uBizDetallesPresupuestoCliente;
 
 type
-  IPresupuestosClienteController = interface(IObservador)
+  IPresupuestosClienteController = interface(IControllerBase)
   ['{21ED0332-F0E0-468D-8D53-8CA362757191}']
     function GetClienteController: IClientesController;
     procedure SetClienteController(const Value: IClientesController);
@@ -56,7 +56,7 @@ type
     function CambiarSituacion(APresupuesto : IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
   end;
 
-  TPresupuestosClienteController = class(TObservador, IPresupuestosClienteController)
+  TPresupuestosClienteController = class(TControllerBase, IPresupuestosClienteController)
   protected
     FDataModule : IDataModulePresupuestosCliente;
     FClienteController : IClientesController;
@@ -129,7 +129,7 @@ uses
   schPresupuestosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorPresupuestoCliente,
   uIEditorElegirPresupuestosCliente, uIEditorDireccionEntregaPresupuestoCliente,
   schContactosClient_Intf, uPresupuestosClienteReportController,
-  uSistemaFunc, uEMailUtils, uDialogElegirEMail;
+  uSistemaFunc, uEMailUtils, uDialogElegirEMail, uIntegerListUtils;
 
 { TPresupuestosClienteController }
 
@@ -205,13 +205,10 @@ begin
   end;
 end;
 
-function TPresupuestosClienteController.CambiarSituacion(APresupuesto: IBizPresupuestoCliente; Situacion: String; FechaDecision: TDateTime;
-  AllItems: Boolean): Boolean;
-//En el caso de cambiar almenos un elemento del conjunto se devuelve true
-
+function TPresupuestosClienteController.CambiarSituacion(APresupuesto: IBizPresupuestoCliente;
+  Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
+  // En el caso de cambiar almenos un elemento del conjunto se devuelve true
 begin
-  Result := False;
-
   if not Assigned(APresupuesto) then
     raise Exception.Create ('APresupuesto no asignado');
 
@@ -864,12 +861,11 @@ end;
 procedure TPresupuestosClienteController.Preview(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false);
 var
   AReportController : IPresupuestosClienteReportController;
-  ID_Presupuestos: TStringList;
-
+  ID_Presupuestos: TIntegerList;
 begin
   AReportController := TPresupuestosClienteReportController.Create;
   try
-   ID_Presupuestos := TStringList.Create;
+   ID_Presupuestos := TIntegerList.Create;
 
    //Si deseamos previsualizar todos los items del objeto presupuesto
    if AllItems then
@@ -879,17 +875,16 @@ begin
        First;
        while not EOF do
        begin
-         ID_Presupuestos.Add(IntToStr(APresupuesto.ID));
+         ID_Presupuestos.Add(APresupuesto.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Presupuestos.Add(IntToStr(APresupuesto.ID));
-
-    AReportController.Preview(ID_Presupuestos.CommaText);
+     ID_Presupuestos.Add(APresupuesto.ID);
 
+    AReportController.Preview(ID_Presupuestos);
   finally
     AReportController := NIL;
     FreeAndNil(ID_Presupuestos);
@@ -899,10 +894,10 @@ end;
 procedure TPresupuestosClienteController.Print(APresupuesto: IBizPresupuestoCliente; AllItems: Boolean = false);
 var
   AReportController : IPresupuestosClienteReportController;
-  ID_Presupuestos: TStringList;
+  ID_Presupuestos: TIntegerList;
 begin
   AReportController := TPresupuestosClienteReportController.Create;
-  ID_Presupuestos := TStringList.Create;
+  ID_Presupuestos := TIntegerList.Create;
   try
    //Si deseamos imprimimos todos los items del objeto presupuesto
    if AllItems then
@@ -912,16 +907,16 @@ begin
        First;
        while not EOF do
        begin
-         ID_Presupuestos.Add(IntToStr(APresupuesto.ID));
+         ID_Presupuestos.Add(APresupuesto.ID);
          Next;
        end;
      end;
    end
    //Solo imprimimos el item seleccionado
    else
-     ID_Presupuestos.Add(IntToStr(APresupuesto.ID));
+     ID_Presupuestos.Add(APresupuesto.ID);
 
-   AReportController.Print(ID_Presupuestos.CommaText);
+   AReportController.Print(ID_Presupuestos);
 
   finally
     AReportController := NIL;
@@ -934,7 +929,6 @@ function TPresupuestosClienteController.GenerarCertificados(
 var
   AReportController : IPresupuestosClienteReportController;
   ID_Presupuestos: TStringList;
-  AFile : String;
   ATitulo : String;
   AComentario : String;
   ARuta : String;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas
index de4487eb..20c10aff 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteReportController.pas	
@@ -5,13 +5,13 @@ interface
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModulePresupuestosClienteReport,
   uClientesController, uPresupuestosClienteController, uDetallesPresupuestoClienteController,
-  uBizPresupuestosCliente;
+  uBizPresupuestosCliente, uIntegerListUtils;
 
 type
   IPresupuestosClienteReportController = interface(IControllerBase)
   ['{41AE4B36-6114-4DDE-8BCF-288AA0E12449}']
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
     function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;    
     function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
@@ -25,8 +25,8 @@ type
     constructor Create; override;
     destructor Destroy; override;
 
-    procedure Preview(const AListaID : String);
-    procedure Print(const AListaID : String);
+    procedure Preview(const AListaID : TIntegerList);
+    procedure Print(const AListaID : TIntegerList);
     function ExportToWord(const AID: Integer; const AFileName : String = ''): Boolean;
     function ExportToPDF(const AID: Integer; const AFileName : String = ''): Boolean;
     function GenerarCertificados(const AID: Integer; const AFileName : String): Boolean;
@@ -64,17 +64,14 @@ function TPresupuestosClienteReportController.ExportToPDF(const AID: Integer;
   const AFileName: String): Boolean;
 var
   AStream: Binary;
-  ID_Presupuestos: TStringList;
 begin
   Result := False;
   if EsCadenaVacia(AFileName) then
     Exit;
 
-  ID_Presupuestos := TStringList.Create;
   ShowHourglassCursor;
   try
-    ID_Presupuestos.Add(IntToStr(AID));
-    AStream := FDataModule.GetRptPDFPresupuesto(ID_Presupuestos.CommaText);
+    AStream := FDataModule.GetRptPDFPresupuesto(AID);
     try
       AStream.SaveToFile(AFileName);
       Result := True;
@@ -135,7 +132,7 @@ begin
   end;
 end;
 
-procedure TPresupuestosClienteReportController.Preview(const AListaID : String);
+procedure TPresupuestosClienteReportController.Preview(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorPresupuestosClientePreview;
@@ -147,15 +144,17 @@ begin
     try
       CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
       if Assigned(AEditor) then
-        with AEditor do
-        begin
+      begin
+        try
           AEditor.Controller := Self;
           AEditor.ListaID := AListaID;
-          Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
-          LoadFromStream(AStream);
-          Preview;
-          Release;
+          AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Preview;
+        finally
+          AEditor.Release;
         end;
+      end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;
@@ -165,7 +164,7 @@ begin
   end;
 end;
 
-procedure TPresupuestosClienteReportController.Print(const AListaID : String);
+procedure TPresupuestosClienteReportController.Print(const AListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorPresupuestosClientePreview;
@@ -177,14 +176,17 @@ begin
     try
       CreateEditor('EditorPresupuestosClientePreview', IEditorPresupuestosClientePreview, AEditor);
       if Assigned(AEditor) then
-        with AEditor do
-        begin
+      begin
+        try
           AEditor.Controller := Self;
           AEditor.ListaID := AListaID;
+          AEditor.Title := 'Presupuesto - ' + AppFactuGES.EmpresaActiva.NOMBRE;
           AEditor.LoadFromStream(AStream);
           AEditor.Print;
+        finally
           AEditor.Release;
         end;
+      end;
     finally
       FreeAndNil(AStream);
       AEditor := Nil;
diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
index 6bad516e..81535c5c 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas	
@@ -11,7 +11,7 @@ uses
   uIDataModulePresupuestosCliente, uBizPresupuestosCliente, uBizDetallesPresupuestoCliente,
   uIDataModulePresupuestosClienteReport, uDataModuleBase, uDAInterfaces,
   uRODynamicRequest, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
-  uDAMemDataTable;
+  uDAMemDataTable, uIntegerListUtils;
 
 type
   TDataModulePresupuestosCliente = class(TDataModuleBase, IDataModulePresupuestosCliente, IDataModulePresupuestosClienteReport)
@@ -36,10 +36,10 @@ type
     function NewItem : IBizPresupuestoCliente;
 
     // Report
-    function GetRptPresupuestos(const AListaID: String): Binary;
+    function GetRptPresupuestos(const AListaID: TIntegerList): Binary;
     function GetRptWordPresupuesto(const AID: Integer): Binary;
     function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
-    function GetRptPDFPresupuesto(const AListaID: String): Binary;
+    function GetRptPDFPresupuesto(const AID: Integer): Binary;
   end;
 
 implementation
@@ -64,14 +64,29 @@ begin
 end;
 
 function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(
-  const AListaID: String): Binary;
+  const AID: Integer): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AListaID)
+  AParam := TIntegerArray.Create;
+  try
+    AParam.Add(AID);
+    Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInformeEnPDF(AParam)
+  finally
+    FreeANDNIL(AParam)
+  end;
 end;
 
-function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: String): Binary;
+function TDataModulePresupuestosCliente.GetRptPresupuestos(const AListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AListaID)
+  AParam := AListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvPresupuestosCliente).GenerarInforme(AParam)
+  finally
+    FreeANDNIL(AParam)
+  end;
 end;
 
 function TDataModulePresupuestosCliente.GetRptWordCertificadoTrabajos(
diff --git a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas
index 53e7e8de..cd527d71 100644
--- a/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Model/Data/uIDataModulePresupuestosClienteReport.pas	
@@ -3,15 +3,15 @@ unit uIDataModulePresupuestosClienteReport;
 interface
 
 uses
-  uROTypes;
+  uROTypes, uIntegerListUtils;
 
 type
   IDataModulePresupuestosClienteReport = interface
   ['{70CEBB06-376F-4363-B80F-DDA4324E0F85}']
-    function GetRptPresupuestos(const AListaID: String): Binary;
+    function GetRptPresupuestos(const AListaID: TIntegerList): Binary;
     function GetRptWordPresupuesto(const AID: Integer): Binary;
     function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
-    function GetRptPDFPresupuesto(const AListaID: String): Binary;        
+    function GetRptPDFPresupuesto(const AID: Integer): Binary;
   end;
 
 implementation
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
index 5c2e2f65..29089f09 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas	
@@ -8,7 +8,7 @@ uses
   uDADataTable, uDACDSDataTable, DB, uDAClasses, uDABINAdapter, uROTypes,
   uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer,
   frxGradient, frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDAEngine,
-  IBSQL, IBDatabase, IBCustomDataSet, IBQuery, frxExportPDF;
+  IBSQL, IBDatabase, IBCustomDataSet, IBQuery, frxExportPDF, FactuGES_Intf;
 
 type
   TRptPresupuestosCliente = class(TDataModule)
@@ -83,8 +83,8 @@ type
     FConnection: IDAConnection;
     procedure _GenerarPresupuesto(const AID : Integer);
   public
-    function GenerarPresupuesto(const ListaID : String): Binary; overload;
-    function GenerarPDF(const ListaID : String): Binary; overload;
+    function GenerarPresupuesto(const ListaID : TIntegerArray): Binary;
+    function GenerarPresupuestoEnPDF(const ListaID : TIntegerArray): Binary;
   end;
 
 implementation
@@ -108,22 +108,17 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;
 end;
 
-function TRptPresupuestosCliente.GenerarPDF(const ListaID: String): Binary;
+function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary;
 var
-  ID_Presupuestos: TStringList;
   i: Integer;
-
 begin
   Result := Binary.Create;
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
 
   try
-    ID_Presupuestos := TStringList.Create;
-    ID_Presupuestos.CommaText := ListaID;
-
     //Vamos generando todos y cada uno de los presupuestos recibidos
-    for i := 0 to ID_Presupuestos.Count - 1 do
-        _GenerarPresupuesto(StrToInt(ID_Presupuestos.Strings[i]));
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarPresupuesto(ListaID.Items[i]);
 
     frxPDFExport1.Stream := Result;
     frxReport.Export(frxPDFExport1)
@@ -132,22 +127,17 @@ begin
   end;
 end;
 
-function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: String): Binary;
+function TRptPresupuestosCliente.GenerarPresupuesto(const ListaID: TIntegerArray): Binary;
 var
-  ID_Presupuestos: TStringList;
   i: Integer;
-
 begin
   Result := Binary.Create;
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
 
   try
-    ID_Presupuestos := TStringList.Create;
-    ID_Presupuestos.CommaText := ListaID;
-
     //Vamos generando todos y cada uno de los presupuestos recibidos
-    for i := 0 to ID_Presupuestos.Count - 1 do
-        _GenerarPresupuesto(StrToInt(ID_Presupuestos.Strings[i]));
+    for i := 0 to ListaID.Count - 1 do
+        _GenerarPresupuesto(ListaID.Items[i]);
 
     frxReport.PreviewPages.SaveToStream(Result);
   finally
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas
index 6645c360..cd776b9b 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptWordPresupuestoCliente.pas	
@@ -91,10 +91,7 @@ end;
 function TRptWordPresupuestoCliente.Exportar(Codigo, Fichero: String): Boolean;
 begin
   if EsCadenaVacia(Fichero) then
-  begin
-    Result := False;
     RaiseError('Falta indicar el fichero donde se exportará el listado.');
-  end;
 
   FNombreFichero := Fichero;
   FCodigoPresupuesto := Codigo;
@@ -148,6 +145,7 @@ var
   iContador : Integer;
   TotalConceptos : Double;
 begin
+  TotalConceptos := 0;
   numRows := 2;
   numCols := 1;
   mergeSplit := False;
@@ -194,14 +192,15 @@ end;
 function TRptWordPresupuestoCliente.RellenarCabecera: boolean;
 var
   NombreFichero,
-  Texto,
-  FicheroTemporal : String;
+  Texto : String;
+{  FicheroTemporal : String;
   LinkToFile, SaveWithDocument, _Range : OleVariant;
   Imagen : InlineShape;
-  What, Which, Count, Name : OleVariant;
+  ovRange : OleVariant;
+  Which, Name : OleVariant;}
+  What, Count : OleVariant;
   ovBookMarkName : OleVariant;
   TempRange : Word2000.Range;
-  ovRange : OleVariant;
 begin
 
   //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
@@ -364,11 +363,10 @@ end;
 function TRptWordPresupuestoCliente.RellenarPortada: boolean;
 var
   NombreFichero,
-  Texto,
-  FicheroTemporal : string;
+  Texto : String;
+  {FicheroTemporal : string;
   LinkToFile, SaveWithDocument, _Range : OleVariant;
-  Imagen : InlineShape;
-
+  Imagen : InlineShape;}
 begin
 
   //PARA DIBUJAR EL LOGOTIPO MULTIEMPRESA
@@ -418,6 +416,7 @@ var
   Tabla : Table;
   Estilo : OleVariant;
 begin
+  TotalConceptos := 0;
   numRows := 2;
   numCols := 1;
   mergeSplit := False;
diff --git a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas
index bdb4c310..8641a0fa 100644
--- a/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Servidor/srvPresupuestosCliente_Impl.pas	
@@ -33,9 +33,9 @@ type
     procedure DARemoteServiceCreate(Sender: TObject);
   protected
     { IsrvPresupuestosCliente methods }
-    function GenerarInforme(const ListaID: String): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
     function GenerarInformeEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: String): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
     function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
   end;
 
@@ -101,7 +101,7 @@ begin
   end;
 end;
 
-function TsrvPresupuestosCliente.GenerarInforme(const ListaID: String): Binary;
+function TsrvPresupuestosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptPresupuestosCliente;
 begin
@@ -114,13 +114,13 @@ begin
 end;
 
 function TsrvPresupuestosCliente.GenerarInformeEnPDF(
-  const ListaID: String): Binary;
+  const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptPresupuestosCliente;
 begin
   AReportGenerator := TRptPresupuestosCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarPDF(ListaID);
+    Result := AReportGenerator.GenerarPresupuestoEnPDF(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm
index bc2b72a2..f8558264 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.dfm	
@@ -1,5 +1,7 @@
 inherited fEditorPresupuestosClientePreview: TfEditorPresupuestosClientePreview
   Caption = 'Previsualizar el pedidos proveedor'
+  ExplicitWidth = 320
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas
index 6d83ea61..297f36ed 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosClienteReport.pas	
@@ -24,26 +24,19 @@ implementation
 {$R *.dfm}
 
 uses
-  uPresupuestosClienteReportController;
+  uPresupuestosClienteReportController, uIntegerListUtils;
 
 procedure TfEditorPresupuestosClientePreview.actExportarRTFExecute(
   Sender: TObject);
 var
-  AListaID : TStringList;
   I: Integer;
 begin
   // inherited; <- No llamar al padre
   if not Assigned(Controller) then
     raise Exception.Create('No se ha asignado el controlador necesario');
-  
-	AListaID := TStringList.Create;
-	try
-	  AListaID.CommaText := Self.ListaID;
-	  for I := 0 to AListaID.Count - 1 do
-		(Controller as IPresupuestosClienteReportController).ExportToWord(StrToInt(AListaID[I]));
-	finally
-	  FreeAndNIL(AListaID);
-	end;
+
+  for I := 0 to ListaID.Count - 1 do
+		(Controller as IPresupuestosClienteReportController).ExportToWord(ListaID[I]);
 end;
 
 end.
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas
index a8ac2456..1f6ae318 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteController.pas	
@@ -31,7 +31,7 @@ uses
   uBizRecibosCliente, uIDataModuleRecibosCliente;
 
 type
-  IRecibosClienteController = interface(IObservador)
+  IRecibosClienteController = interface(IControllerBase)
   ['{CBC8BDB8-FBE0-4D54-B2F1-A9330E8339EB}']
 
     function GetPagosController: IPagosClienteController;
@@ -78,7 +78,7 @@ type
     procedure Print(ARecibosCliente : IBizRecibosCliente; AllItems: Boolean = false);
   end;
 
-  TRecibosClienteController = class(TObservador, IRecibosClienteController)
+  TRecibosClienteController = class(TControllerBase, IRecibosClienteController)
   private
     function ImporteTotalModificado(ARecibosCliente: IBizRecibosCliente;
       var ImporteRestante: Currency): Boolean;
@@ -147,7 +147,7 @@ uses
   Forms, uNumUtils, cxControls, DB, uEditorRegistryUtils, Dialogs,
   uDAInterfaces, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
   uDateUtils, uROTypes, DateUtils, Controls, Windows, Variants,
-  uRecibosClienteReportController, uBizContactos, uDADelta,
+  uRecibosClienteReportController, uBizContactos, uDADelta, uIntegerListUtils,
   schRecibosClienteClient_Intf, uIEditorRecibosCliente, uIEditorReciboCliente,
   uIEditorElegirRecibosCliente, uDataModuleRecibosCliente, uIEditorFechaPago;
 
@@ -829,14 +829,13 @@ end;
 procedure TRecibosClienteController.Preview(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
 var
   AReportController : IRecibosClienteReportController;
-  ID_Recibos: TStringList;
+  ID_Recibos: TIntegerList;
 
 begin
   AReportController := TRecibosClienteReportController.Create;
-  ID_Recibos := TStringList.Create;
+  ID_Recibos := TIntegerList.Create;
 
   try
-
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
    begin
@@ -845,34 +844,32 @@ begin
        First;
        while not EOF do
        begin
-         ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
+         ID_Recibos.Add(ARecibosCliente.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
-
-    AReportController.Preview(ID_Recibos.CommaText);
+     ID_Recibos.Add(ARecibosCliente.ID);
 
+    AReportController.Preview(ID_Recibos);
   finally
     AReportController := NIL;
-    ID_Recibos.Free;
+    FreeANDNil(ID_Recibos);
   end;
 end;
 
 procedure TRecibosClienteController.Print(ARecibosCliente: IBizRecibosCliente; AllItems: Boolean = false);
 var
   AReportController : IRecibosClienteReportController;
-  ID_Recibos: TStringList;
+  ID_Recibos: TIntegerList;
 
 begin
   AReportController := TRecibosClienteReportController.Create;
-  ID_Recibos := TStringList.Create;
+  ID_Recibos := TIntegerList.Create;
 
   try
-
    //Si deseamos previsualizar todos los items del objeto albaran
    if AllItems then
    begin
@@ -881,22 +878,20 @@ begin
        First;
        while not EOF do
        begin
-         ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
+         ID_Recibos.Add(ARecibosCliente.ID);
          Next;
        end;
      end;
    end
    //Solo previsualizamos el item seleccionado
    else
-     ID_Recibos.Add(IntToStr(ARecibosCliente.ID));
-
-    AReportController.Print(ID_Recibos.CommaText);
+     ID_Recibos.Add(ARecibosCliente.ID);
 
+    AReportController.Print(ID_Recibos);
   finally
     AReportController := NIL;
-    ID_Recibos.Free;
+    FreeANDNil(ID_Recibos);
   end;
 end;
 
 end.
-
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas
index 9d5c09b2..80578877 100644
--- a/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas	
+++ b/Source/Modulos/Recibos de cliente/Controller/uRecibosClienteReportController.pas	
@@ -4,16 +4,16 @@ interface
 
 uses
   Classes, SysUtils, uDADataTable, uControllerBase, uIDataModuleRecibosClienteReport,
-  uBizRecibosCliente;
+  uBizRecibosCliente, uIntegerListUtils;
 
 type
-  IRecibosClienteReportController = interface
+  IRecibosClienteReportController = interface(IControllerBase)
   ['{3837DFA3-0A38-4BB2-B0DB-D0615249EA49}']
-    procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    procedure Preview(const ListaID : TIntegerList);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
-  TRecibosClienteReportController = class(TInterfacedObject, IRecibosClienteReportController)
+  TRecibosClienteReportController = class(TControllerBase, IRecibosClienteReportController)
   private
     FDataModule : IDataModuleRecibosClienteReport;
     function CreateEditor(const AName: String; const IID: TGUID; out Intf): Boolean;
@@ -21,8 +21,8 @@ type
     constructor Create;
     destructor Destroy; override;
 
-    procedure Preview(const ID : String);
-    procedure Print(const ID : String);
+    procedure Preview(const ListaID : TIntegerList);
+    procedure Print(const ListaID : TIntegerList);
   end;
 
 
@@ -52,7 +52,7 @@ begin
   inherited;
 end;
 
-procedure TRecibosClienteReportController.Preview(const ID : String);
+procedure TRecibosClienteReportController.Preview(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorRecibosClientePreview;
@@ -60,15 +60,19 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(ID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        AEditor.LoadFromStream(AStream);
-        AEditor.Preview;
-        AEditor.Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := ListaID;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Preview;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
@@ -79,7 +83,7 @@ begin
   end;
 end;
 
-procedure TRecibosClienteReportController.Print(const ID : String);
+procedure TRecibosClienteReportController.Print(const ListaID : TIntegerList);
 var
   AStream: Binary;
   AEditor : IEditorRecibosClientePreview;
@@ -87,15 +91,19 @@ begin
   AEditor := NIL;
   ShowHourglassCursor;
   try
-    AStream := FDataModule.GetReport(ID);
+    AStream := FDataModule.GetReport(ListaID);
     try
       CreateEditor('EditorRecibosClientePreview', IEditorRecibosClientePreview, AEditor);
       if Assigned(AEditor) then
-      with AEditor do
       begin
-        AEditor.LoadFromStream(AStream);
-        AEditor.Print;
-        AEditor.Release;
+        try
+          AEditor.Controller := Self;
+          AEditor.ListaID := ListaID;
+          AEditor.LoadFromStream(AStream);
+          AEditor.Print;
+        finally
+          AEditor.Release;
+        end;
       end;
     finally
       FreeAndNil(AStream);
diff --git a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas
index c41a8a91..4f13fcbf 100644
--- a/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas	
+++ b/Source/Modulos/Recibos de cliente/Data/uDataModuleRecibosCliente.pas	
@@ -10,9 +10,9 @@
   -----------------------------------------------------------------------------
   Web:  www.rodax-software.com
 ===============================================================================
-  Fecha primera versión: 
+  Fecha primera versión:
   Versión actual: 1.0.0
-  Fecha versión actual: 
+  Fecha versión actual:
 ===============================================================================
   Modificaciones:
 
@@ -33,7 +33,8 @@ uses
 
   uIDataModuleRecibosCliente, uIDataModuleRecibosClienteReport,
   uBizRecibosCliente, uBizPagosCliente, uBizRecibosCliCompensados, uDAInterfaces,
-  uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDARemoteDataAdapter;
+  uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer, uDARemoteDataAdapter,
+  uIntegerListUtils;
 
 type
   TDataModuleRecibosCliente = class(TDataModuleBase, IDataModuleRecibosCliente, IDataModuleRecibosClienteReport)
@@ -54,7 +55,7 @@ type
     function GetItems: IBizRecibosCliente;
     function GetItem(const ID : Integer) : IBizRecibosCliente;
     function NewItem : IBizRecibosCliente;
-    function GetReport(const ID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation
@@ -62,15 +63,22 @@ implementation
 {$R *.DFM}
 
 uses
-  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, 
+  FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
   schRecibosClienteClient_Intf;
 
 { TDataModuleRecibosCliente }
 
 
-function TDataModuleRecibosCliente.GetReport(const ID: String): Binary;
+function TDataModuleRecibosCliente.GetReport(const ListaID: TIntegerList): Binary;
+var
+  AParam : TIntegerArray;
 begin
-  Result := (RORemoteService as IsrvRecibosCliente).GenerateReport(ID);
+  AParam := ListaID.ToIntegerArray;
+  try
+    Result := (RORemoteService as IsrvRecibosCliente).GenerarInforme(AParam);
+  finally
+    FreeANDNIL(AParam);
+  end;
 end;
 
 procedure TDataModuleRecibosCliente.DAClientDataModuleCreate(Sender: TObject);
diff --git a/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas b/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas
index 71d7a21e..a8df345f 100644
--- a/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas	
+++ b/Source/Modulos/Recibos de cliente/Model/Data/uIDataModuleRecibosClienteReport.pas	
@@ -3,12 +3,12 @@ unit uIDataModuleRecibosClienteReport;
 interface
 
 uses
-  SysUtils, Classes, uROTypes;
+  SysUtils, Classes, uROTypes, uIntegerListUtils;
 
 type
   IDataModuleRecibosClienteReport = interface
   ['{FBADD967-0008-4ED5-9CCD-5BFE4F527D52}']
-    function GetReport(const ID: String): Binary;
+    function GetReport(const ListaID: TIntegerList): Binary;
   end;
 
 implementation
diff --git a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas
index b795aeb0..309c2187 100644
--- a/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas	
+++ b/Source/Modulos/Recibos de cliente/Reports/uRptRecibosCliente_Server.pas	
@@ -7,7 +7,7 @@ uses
   Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
   uDADataTable, uDAMemDataTable, DB, uDAClasses, frxChart, frxGradient,
   frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
-  uDAInterfaces, uDADataStreamer;
+  uDAInterfaces, uDADataStreamer, FactuGES_Intf;
 
 type
   TRptRecibosCliente = class(TDataModule)
@@ -31,9 +31,9 @@ type
     procedure DataModuleCreate(Sender: TObject);
   private
     FConnection: IDAConnection;
-    procedure GenerarRecibo(const ID : Integer); overload;
+    procedure _GenerarRecibo(const ID : Integer);
   public
-    function GenerarRecibo(const ID : String): Binary; overload;
+    function GenerarRecibo(const ListaID : TIntegerArray): Binary; 
   end;
 
 implementation
@@ -60,31 +60,24 @@ begin
   frxReport.EngineOptions.NewSilentMode := simReThrow;
 end;
 
-function TRptRecibosCliente.GenerarRecibo(const ID: String): Binary;
+function TRptRecibosCliente.GenerarRecibo(const ListaID: TIntegerArray): Binary;
 var
-  ID_Recibos: TStringList;
   i: Integer;
-
 begin
   Result := Binary.Create;
+
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
-
   try
-    ID_Recibos := TStringList.Create;
-    ID_Recibos.CommaText := ID;
-
     //Vamos generando todos y cada uno de los albaranes recibidos
-    for i := 0 to ID_Recibos.Count - 1 do
-        GenerarRecibo(StrToInt(ID_Recibos.Strings[i]));
-
+    for i := 0 to ListaID.Count - 1 do
+      _GenerarRecibo(ListaID.Items[i]);
     frxReport.PreviewPages.SaveToStream(Result);
-
   finally
     //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
   end;
 end;
 
-procedure TRptRecibosCliente.GenerarRecibo(const ID: Integer);
+procedure TRptRecibosCliente._GenerarRecibo(const ID: Integer);
 var
   dsMaster: IDADataset;
   dsCompensados : IDADataset;
diff --git a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas
index 6db31840..075055dc 100644
--- a/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas	
+++ b/Source/Modulos/Recibos de cliente/Servidor/srvRecibosCliente_Impl.pas	
@@ -33,7 +33,7 @@ type
   private
   protected
     { IsrvRecibosProveedor methods }
-    function GenerateReport(const ID: String): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
   end;
 
 implementation
@@ -76,13 +76,13 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvRecibosCliente.GenerateReport(const ID: String): Binary;
+function TsrvRecibosCliente.GenerarInforme(const ListaID: TIntegerArray): Binary;
 var
   AReportGenerator : TRptRecibosCliente;
 begin
   AReportGenerator := TRptRecibosCliente.Create(nil);
   try
-    Result := AReportGenerator.GenerarRecibo(ID);
+    Result := AReportGenerator.GenerarRecibo(ListaID);
   finally
     FreeAndNIL(AReportGenerator);
   end;
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index aafd13bc..d8a22a78 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
@@ -31,7 +31,7 @@ uses
   uBizRecibosProveedor, uIDataModuleRecibosProveedor;
 
 type
-  IRecibosProveedorController = interface(IObservador)
+  IRecibosProveedorController = interface(IControllerBase)
   ['{763DF610-3540-42BE-A09A-35AABFAF2DA1}']
 
     function GetPagosController: IPagosProveedorController;
@@ -73,7 +73,7 @@ type
     procedure Print(ARecibosProveedor : IBizRecibosProveedor);
   end;
 
-  TRecibosProveedorController = class(TObservador, IRecibosProveedorController)
+  TRecibosProveedorController = class(TControllerBase, IRecibosProveedorController)
   private
     function ImporteTotalModificado(ARecibosProveedor: IBizRecibosProveedor;
       var ImporteRestante: Currency): Boolean;
diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas
index 0ba79204..2c8345ab 100644
--- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas	
+++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.pas	
@@ -10,7 +10,7 @@ unit srvRecibosProveedor_Impl;
 interface
 
 uses
-  {vcl:} Classes, SysUtils, 
+  {vcl:} Classes, SysUtils,
   {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
   {Ancestor Implementation:} DataAbstractService_Impl,
   {Used RODLs:} DataAbstract4_Intf,
@@ -31,9 +31,6 @@ type
       const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DARemoteServiceCreate(Sender: TObject);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject; var aConnectionName: string);
-  protected
-    { IsrvRecibosProveedor methods }
-    function GenerateReport(const ID: Integer): Binary;
   end;
 
 implementation
@@ -64,7 +61,7 @@ begin
       filtrando DataSet por ID_EMPRESA. }
 {    FiltrarAccesoUsuario(Session, Connection, schRecibosProveedor, DataSet, fld_RecibosProveedorID_EMPRESA);
   end;
-}  
+}
 end;
 
 procedure TsrvRecibosProveedor.DARemoteServiceCreate(Sender: TObject);
@@ -78,19 +75,6 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvRecibosProveedor.GenerateReport(const ID: Integer): Binary;
-//var
-//  AReportGenerator : TRptRecibosProveedor;
-begin
-//  AReportGenerator := TRptRecibosProveedor.Create(nil);
-//  try
-//    Result := AReportGenerator.GenerarRecibo(ID);
-//  finally
-//    FreeAndNIL(AReportGenerator);
-//  end;
-  Result := NIL;
-end;
-
 initialization
   TROClassFactory.Create('srvRecibosProveedor', Create_srvRecibosProveedor, TsrvRecibosProveedor_Invoker);
 
diff --git a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas
index 8a453991..f1733b1a 100644
--- a/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas	
+++ b/Source/Modulos/Remesas de cliente/Controller/uRemesasClienteController.pas	
@@ -9,7 +9,7 @@ uses
   uBizContactos, uRecibosClienteController;
 
 type
-  IRemesasClienteController = interface(IObservador)
+  IRemesasClienteController = interface(IControllerBase)
   ['{F5D925C6-255C-4374-9A71-DFC0FBB7FA96}']
     function Buscar(const ID: Integer): IBizRemesaCliente;
     function BuscarTodos: IBizRemesaCliente; overload;
@@ -37,7 +37,7 @@ type
     function ExtraerSeleccionados(ARemesasCliente: IBizRemesaCliente) : IBizRemesaCliente;
   end;
 
-  TRemesasClienteController = class(TObservador, IRemesasClienteController)
+  TRemesasClienteController = class(TControllerBase, IRemesasClienteController)
   protected
     FDataModule : IDataModuleRemesasCliente;
     FRecibosClienteController: IRecibosClienteController;
diff --git a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas
index bc6edc92..fd436761 100644
--- a/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas	
+++ b/Source/Modulos/Remesas de cliente/Servidor/srvRemesasCliente_Impl.pas	
@@ -31,9 +31,6 @@ type
       const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
-  protected
-    { IsrvRemesasCliente methods }
-    function GenerateReport(const ID: String): Binary;
   end;
 
 implementation
@@ -80,19 +77,6 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvRemesasCliente.GenerateReport(const ID: String): Binary;
-//var
-//  AReportGenerator : TRptRemesasCliente;
-begin
-{  AReportGenerator := TRptRemesasCliente.Create(nil);
-  try
-    Result := AReportGenerator.GenerarRemesa(ID);
-  finally
-    FreeAndNIL(AReportGenerator);
-  end;
-}  
-end;
-
 initialization
   TROClassFactory.Create('srvRemesasCliente', Create_srvRemesasCliente, TsrvRemesasCliente_Invoker);
 
diff --git a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas
index dfe6e72c..8ed4c158 100644
--- a/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas	
+++ b/Source/Modulos/Remesas de proveedor/Controller/uRemesasProveedorController.pas	
@@ -9,7 +9,7 @@ uses
   uBizContactos, uRecibosProveedorController;
 
 type
-  IRemesasProveedorController = interface(IObservador)
+  IRemesasProveedorController = interface(IControllerBase)
   ['{C14143FE-0806-4E64-93E2-A2C0170BBD41}']
     function Buscar(const ID: Integer): IBizRemesaProveedor;
     function BuscarTodos: IBizRemesaProveedor; overload;
@@ -37,7 +37,7 @@ type
     function ExtraerSeleccionados(ARemesasProveedor: IBizRemesaProveedor) : IBizRemesaProveedor;
   end;
 
-  TRemesasProveedorController = class(TObservador, IRemesasProveedorController)
+  TRemesasProveedorController = class(TControllerBase, IRemesasProveedorController)
   protected
     FDataModule : IDataModuleRemesasProveedor;
     FRecibosProveedorController: IRecibosProveedorController;
diff --git a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas
index b9ab33ac..52c67ed2 100644
--- a/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas	
+++ b/Source/Modulos/Remesas de proveedor/Servidor/srvRemesasProveedor_Impl.pas	
@@ -31,11 +31,6 @@ type
       const IncludeSchema: Boolean; const MaxRecords: Integer);
     procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
       var aConnectionName: string);
-  private
-  protected
-    { IsrvRemesasProveedor methods }
-    function GetNextAutoInc(const GeneratorName: String): Integer;
-    function GenerateReport(const ID: String): Binary;
   end;
 
 implementation
@@ -81,25 +76,6 @@ begin
   ConnectionName := dmServer.ConnectionName;
 end;
 
-function TsrvRemesasProveedor.GenerateReport(const ID: String): Binary;
-//var
-//  AReportGenerator : TRptRemesasProveedor;
-begin
-{
-  AReportGenerator := TRptRemesasProveedor.Create(nil);
-  try
-    Result := AReportGenerator.GenerarRemesa(ID);
-  finally
-    FreeAndNIL(AReportGenerator);
-  end;
-}  
-end;
-
-function TsrvRemesasProveedor.GetNextAutoInc(const GeneratorName: String): Integer;
-begin
-  Result := uDatabaseUtils.GetNextAutoInc(GeneratorName)
-end;
-
 initialization
   TROClassFactory.Create('srvRemesasProveedor', Create_srvRemesasProveedor, TsrvRemesasProveedor_Invoker);
 
diff --git a/Source/Servicios/FactuGES.RODL b/Source/Servicios/FactuGES.RODL
index e0440ead..987c4329 100644
--- a/Source/Servicios/FactuGES.RODL
+++ b/Source/Servicios/FactuGES.RODL
@@ -9,19 +9,19 @@
 <Interfaces>
 <Interface Name="Default" UID="{28CCDC07-A3A4-4917-89B4-64423DC70C9D}">
 <Operations>
-<Operation Name="GenerateFichaEmpleadoReport" UID="{CCD0007A-F1FF-46C2-8BB8-09981EAE4FB7}">
+<Operation Name="GenerarInformeFichaEmpleado" UID="{CCD0007A-F1FF-46C2-8BB8-09981EAE4FB7}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="EmpleadoID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
-<Operation Name="GenerateEtiquetasReport" UID="{910E5F58-7F8E-4D4C-A6A8-2FAD54689219}">
+<Operation Name="GenerarInformeEtiquetas" UID="{910E5F58-7F8E-4D4C-A6A8-2FAD54689219}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="ContactosID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -178,11 +178,11 @@
 <Interfaces>
 <Interface Name="Default" UID="{3B68252A-EE6A-4D37-B250-93F2DB940DDF}">
 <Operations>
-<Operation Name="GenerateReport" UID="{84D34140-D9D3-42FE-AD5E-A619EC50268F}">
+<Operation Name="GenerarInforme" UID="{84D34140-D9D3-42FE-AD5E-A619EC50268F}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="ID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -194,14 +194,6 @@
 <Interfaces>
 <Interface Name="Default" UID="{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}">
 <Operations>
-<Operation Name="GenerateReport" UID="{04293024-D9C5-4C05-A44F-3F59BF66D0AF}">
-<Parameters>
-<Parameter Name="Result" DataType="Binary" Flag="Result">
-</Parameter>
-<Parameter Name="ID" DataType="Integer" Flag="In" >
-</Parameter>
-</Parameters>
-</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -210,14 +202,6 @@
 <Interfaces>
 <Interface Name="Default" UID="{33F414D0-0D0B-4384-96CB-D94BC97A0C39}">
 <Operations>
-<Operation Name="GenerateReport" UID="{2A2969AB-0C86-43B0-85B0-242F965119F3}">
-<Parameters>
-<Parameter Name="Result" DataType="Binary" Flag="Result">
-</Parameter>
-<Parameter Name="ID" DataType="String" Flag="In" >
-</Parameter>
-</Parameters>
-</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -226,14 +210,6 @@
 <Interfaces>
 <Interface Name="Default" UID="{6540A037-9847-4650-89BB-7B349C6004DF}">
 <Operations>
-<Operation Name="GenerateReport" UID="{0FEBE165-89EA-4325-84DE-A7024649D749}">
-<Parameters>
-<Parameter Name="Result" DataType="Binary" Flag="Result">
-</Parameter>
-<Parameter Name="ID" DataType="String" Flag="In" >
-</Parameter>
-</Parameters>
-</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -242,15 +218,15 @@
 <Interfaces>
 <Interface Name="Default" UID="{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}">
 <Operations>
-<Operation Name="GenerateReport" UID="{8410D113-BEA9-4A0A-B5C7-BE0AFF66DA02}">
+<Operation Name="GenerarInforme" UID="{8410D113-BEA9-4A0A-B5C7-BE0AFF66DA02}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="FacturaID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
-<Operation Name="GenerateReportEnWord" UID="{04A25AE7-9AC6-474F-9A4A-04D8292959E6}">
+<Operation Name="GenerarInformeEnWord" UID="{04A25AE7-9AC6-474F-9A4A-04D8292959E6}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
@@ -258,6 +234,14 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="GenerarInformeEnPDF" UID="{F2F894D3-6C63-4931-999B-79D3C9C5EAFC}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -266,14 +250,6 @@
 <Interfaces>
 <Interface Name="Default" UID="{7655160C-7023-452E-BB0E-C97E29B915E7}">
 <Operations>
-<Operation Name="GenerateReport" UID="{B1B95D4E-DC3A-41AF-BC71-D8F99D5B793F}">
-<Parameters>
-<Parameter Name="Result" DataType="Binary" Flag="Result">
-</Parameter>
-<Parameter Name="FacturaID" DataType="String" Flag="In" >
-</Parameter>
-</Parameters>
-</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -286,7 +262,7 @@
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="ListaID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -310,7 +286,7 @@
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="ListaID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
@@ -322,15 +298,15 @@
 <Interfaces>
 <Interface Name="Default" UID="{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}">
 <Operations>
-<Operation Name="GenerateReport" UID="{F038EDC3-4754-4A6D-B705-B75E994E7A95}">
+<Operation Name="GenerarInforme" UID="{F038EDC3-4754-4A6D-B705-B75E994E7A95}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="ID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
-<Operation Name="GenerateReportEnWord" UID="{05C0363D-B517-42CB-831E-E32337E9A20D}">
+<Operation Name="GenerarInformeEnWord" UID="{05C0363D-B517-42CB-831E-E32337E9A20D}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
@@ -338,6 +314,14 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="GenerarInformeEnPDF" UID="{30ACCA85-C55A-4F13-8644-A15C1D84E39D}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -346,15 +330,15 @@
 <Interfaces>
 <Interface Name="Default" UID="{6E910718-9AB0-47BB-9875-B0DE66A68D7A}">
 <Operations>
-<Operation Name="GenerateReport" UID="{8CB6A25E-C350-4F63-B567-22D9A850BD87}">
+<Operation Name="GenerarInforme" UID="{8CB6A25E-C350-4F63-B567-22D9A850BD87}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
-<Parameter Name="ID" DataType="String" Flag="In" >
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
 </Parameter>
 </Parameters>
 </Operation>
-<Operation Name="GenerateEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
+<Operation Name="GenerarInformeEtiquetas" UID="{260CD213-F125-422B-9BD1-401729460DF0}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
@@ -364,7 +348,7 @@
 </Parameter>
 </Parameters>
 </Operation>
-<Operation Name="GenerateReportEnWord" UID="{FFBAE6B2-0F77-4F2F-A630-9A09AD7A2379}">
+<Operation Name="GenerarInformeEnWord" UID="{FFBAE6B2-0F77-4F2F-A630-9A09AD7A2379}">
 <Parameters>
 <Parameter Name="Result" DataType="Binary" Flag="Result">
 </Parameter>
@@ -372,6 +356,14 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="GenerarInformeEnPDF" UID="{83F24406-D1B9-43DE-97E9-42A899433DD4}">
+<Parameters>
+<Parameter Name="Result" DataType="Binary" Flag="Result">
+</Parameter>
+<Parameter Name="ListaID" DataType="TIntegerArray" Flag="In" >
+</Parameter>
+</Parameters>
+</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -380,14 +372,6 @@
 <Interfaces>
 <Interface Name="Default" UID="{66B71884-5CE4-4574-B825-60CDA956B628}">
 <Operations>
-<Operation Name="GenerateReport" UID="{C735D3BE-A3FE-49FA-8874-C5E4A7E01EB2}">
-<Parameters>
-<Parameter Name="Result" DataType="Binary" Flag="Result">
-</Parameter>
-<Parameter Name="ID" DataType="String" Flag="In" >
-</Parameter>
-</Parameters>
-</Operation>
 </Operations>
 </Interface>
 </Interfaces>
@@ -497,6 +481,9 @@
 <Array Name="TRdxEmpresasArray" UID="{CA344218-3432-40B8-8FB7-F5BB30406098}">
 <ElementType DataType="Integer" />
 </Array>
+<Array Name="TIntegerArray" UID="{975ADCF3-6E99-4221-8B22-CD0F5FACD1FE}">
+<ElementType DataType="Integer" />
+</Array>
 </Arrays>
 <Uses>
 <Use Name="DataAbstract4" UID="{1E2905B4-36C9-4EAA-9BB9-DF3D3C9BBE75}" Rodl="$(Data Abstract for Delphi)\Source\DataAbstract4.RODL" AbsoluteRodl="C:\Archivos de programa\RemObjects Software\Data Abstract for Delphi\Source\DataAbstract4.RODL">
diff --git a/Source/Servicios/FactuGES_Intf.pas b/Source/Servicios/FactuGES_Intf.pas
index 462593c3..79350b72 100644
--- a/Source/Servicios/FactuGES_Intf.pas
+++ b/Source/Servicios/FactuGES_Intf.pas
@@ -84,6 +84,7 @@ type
   IsrvProvinciasPoblaciones = interface;
 
   TRdxEmpresasArray = class;
+  TIntegerArray = class;
 
   TRdxLoginInfo = class;
 
@@ -159,11 +160,45 @@ type
     property InnerArray: TRdxEmpresasArray_Integer read fItems;
   end;
 
+  { TIntegerArray }
+  TIntegerArray_Integer = array of Integer;
+  TIntegerArray = class(TROArray)
+  private
+    fCount: Integer;
+    fItems : TIntegerArray_Integer;
+  protected
+    procedure Grow; virtual;
+    function GetItems(aIndex: integer): Integer;
+    procedure SetItems(aIndex: integer; const Value: Integer);
+    function GetCount: integer; override;
+  public
+    class function GetItemType: PTypeInfo; override;
+    class function GetItemSize: integer; override;
+
+    function GetItemRef(aIndex: integer): pointer; override;
+    procedure Clear; override;
+    procedure Delete(aIndex: integer); override;
+    procedure Resize(ElementCount: integer); override;
+
+    procedure Assign(iSource:TPersistent); override;
+    procedure ReadComplex(ASerializer: TObject); override;
+    procedure WriteComplex(ASerializer: TObject); override;
+    function Add(const Value:Integer): integer;
+    function GetIndex(const aPropertyName : string;
+                      const aPropertyValue : Variant;
+                      StartFrom : integer = 0;
+                      Options : TROSearchOptions = [soIgnoreCase]) : integer; override;
+
+    property Count : integer read GetCount;
+    property Items[Index: integer]:Integer read GetItems write SetItems; default;
+    property InnerArray: TIntegerArray_Integer read fItems;
+  end;
+
   { IsrvContactos }
   IsrvContactos = interface(IDataAbstractService)
     ['{28CCDC07-A3A4-4917-89B4-64423DC70C9D}']
-    function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
-    function GenerateEtiquetasReport(const ContactosID: String): Binary;
+    function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
     function DarListaDescripcionesProveedores: String;
     function DarListaContratosEmpleados: String;
   end;
@@ -178,8 +213,8 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
-    function GenerateEtiquetasReport(const ContactosID: String): Binary;
+    function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
     function DarListaDescripcionesProveedores: String;
     function DarListaContratosEmpleados: String;
   end;
@@ -384,7 +419,7 @@ type
   { IsrvRecibosCliente }
   IsrvRecibosCliente = interface(IDataAbstractService)
     ['{3B68252A-EE6A-4D37-B250-93F2DB940DDF}']
-    function GenerateReport(const ID: String): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvRecibosCliente }
@@ -397,13 +432,12 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: String): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvRecibosProveedor }
   IsrvRecibosProveedor = interface(IDataAbstractService)
     ['{22580F16-8FFC-4FE0-BCDD-5533D5DB1F55}']
-    function GenerateReport(const ID: Integer): Binary;
   end;
 
   { CosrvRecibosProveedor }
@@ -416,13 +450,11 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: Integer): Binary;
   end;
 
   { IsrvRemesasCliente }
   IsrvRemesasCliente = interface(IDataAbstractService)
     ['{33F414D0-0D0B-4384-96CB-D94BC97A0C39}']
-    function GenerateReport(const ID: String): Binary;
   end;
 
   { CosrvRemesasCliente }
@@ -435,13 +467,11 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: String): Binary;
   end;
 
   { IsrvRemesasProveedor }
   IsrvRemesasProveedor = interface(IDataAbstractService)
     ['{6540A037-9847-4650-89BB-7B349C6004DF}']
-    function GenerateReport(const ID: String): Binary;
   end;
 
   { CosrvRemesasProveedor }
@@ -454,14 +484,14 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: String): Binary;
   end;
 
   { IsrvFacturasCliente }
   IsrvFacturasCliente = interface(IDataAbstractService)
     ['{56B4FFF0-AB1B-46B2-BA16-ABD5360F6311}']
-    function GenerateReport(const FacturaID: String): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvFacturasCliente }
@@ -474,14 +504,14 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const FacturaID: String): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvFacturasProveedor }
   IsrvFacturasProveedor = interface(IDataAbstractService)
     ['{7655160C-7023-452E-BB0E-C97E29B915E7}']
-    function GenerateReport(const FacturaID: String): Binary;
   end;
 
   { CosrvFacturasProveedor }
@@ -494,16 +524,15 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const FacturaID: String): Binary;
   end;
 
   { IsrvPresupuestosCliente }
   IsrvPresupuestosCliente = interface(IDataAbstractService)
     ['{8A06D5A7-8461-4F6E-8A8B-EC49C84C45D1}']
-    function GenerarInforme(const ListaID: String): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
     function GenerarInformeEnWord(const ID: Integer): Binary;
     function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: String): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvPresupuestosCliente }
@@ -516,17 +545,18 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerarInforme(const ListaID: String): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
     function GenerarInformeEnWord(const ID: Integer): Binary;
     function GenerarCertificadoTrabajosEnWord(const ID: Integer): Binary;
-    function GenerarInformeEnPDF(const ListaID: String): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvPedidosProveedor }
   IsrvPedidosProveedor = interface(IDataAbstractService)
     ['{3DCC03E4-E9CE-4798-99D4-7170C9CF815B}']
-    function GenerateReport(const ID: String): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvPedidosProveedor }
@@ -539,16 +569,18 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: String): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvAlbaranesCliente }
   IsrvAlbaranesCliente = interface(IDataAbstractService)
     ['{6E910718-9AB0-47BB-9875-B0DE66A68D7A}']
-    function GenerateReport(const ID: String): Binary;
-    function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { CosrvAlbaranesCliente }
@@ -561,15 +593,15 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: String): Binary;
-    function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
-    function GenerateReportEnWord(const ID: Integer): Binary;
+    function GenerarInforme(const ListaID: TIntegerArray): Binary;
+    function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+    function GenerarInformeEnWord(const ID: Integer): Binary;
+    function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
   end;
 
   { IsrvAlbaranesProveedor }
   IsrvAlbaranesProveedor = interface(IDataAbstractService)
     ['{66B71884-5CE4-4574-B825-60CDA956B628}']
-    function GenerateReport(const ID: String): Binary;
   end;
 
   { CosrvAlbaranesProveedor }
@@ -582,7 +614,6 @@ type
   protected
     function __GetInterfaceName:string; override;
 
-    function GenerateReport(const ID: String): Binary;
   end;
 
   { IsrvReferencias }
@@ -819,6 +850,138 @@ begin
       WriteInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, fItems[i], i);
 end;
 
+{ TIntegerArray }
+
+procedure TIntegerArray.Assign(iSource: TPersistent);
+var lSource:TIntegerArray;
+    i:integer;
+begin
+  if (iSource is TIntegerArray) then begin
+    lSource := TIntegerArray(iSource);
+    Clear();
+    Resize(lSource.Count);
+
+    for i := 0 to Count-1 do begin
+      Items[i] := lSource.Items[i];
+    end;
+  end
+  else begin
+    inherited Assign(iSource);
+  end;
+end;
+
+class function TIntegerArray.GetItemType: PTypeInfo;
+begin
+  result := TypeInfo(Integer);
+end;
+
+class function TIntegerArray.GetItemSize: integer;
+begin
+  result := SizeOf(Integer);
+end;
+
+function TIntegerArray.GetItems(aIndex: integer): Integer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := fItems[aIndex];
+end;
+
+function TIntegerArray.GetItemRef(aIndex: integer): pointer;
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  result := @fItems[aIndex];
+end;
+
+procedure TIntegerArray.Clear;
+begin
+  SetLength(fItems, 0);
+  FCount := 0;
+end;
+
+procedure TIntegerArray.Delete(aIndex: integer);
+var i: integer;
+begin
+  if (aIndex>=Count) then RaiseError(err_InvalidIndex, [aIndex]);
+
+  if (aIndex<Count-1) then
+    for i := aIndex to Count-2 do fItems[i] := fItems[i+1];
+
+  SetLength(fItems, Count-1);
+  Dec(FCount);
+end;
+
+procedure TIntegerArray.SetItems(aIndex: integer; const Value: Integer);
+begin
+  if (aIndex < 0) or (aIndex >= Count) then RaiseError(err_ArrayIndexOutOfBounds,[aIndex]);
+  if fItems[aIndex] <> Value then begin
+    fItems[aIndex] := Value;
+  end;
+end;
+
+procedure TIntegerArray.Resize(ElementCount: integer);
+begin
+  if fCount = ElementCount then Exit;
+  SetLength(fItems, ElementCount);
+  FCount := ElementCount;
+end;
+
+function TIntegerArray.GetCount: integer;
+begin
+  result := FCount;
+end;
+
+procedure TIntegerArray.Grow;
+var
+  Delta, Capacity: Integer;
+begin
+  Capacity := Length(fItems);
+  if Capacity > 64 then
+    Delta := Capacity div 4
+  else
+    if Capacity > 8 then
+      Delta := 16
+   else
+      Delta := 4;
+  SetLength(fItems, Capacity + Delta);
+end;
+
+function TIntegerArray.Add(const Value: Integer): integer;
+begin
+  Result := Count;
+  if Length(fItems) = Result then
+    Grow;
+  fItems[result] := Value;
+  Inc(fCount);
+end;
+
+function TIntegerArray.GetIndex(const aPropertyName: string;
+  const aPropertyValue: Variant; StartFrom: integer;
+  Options: TROSearchOptions): integer;
+begin
+  result := -1;
+end;
+
+procedure TIntegerArray.ReadComplex(ASerializer: TObject);
+var
+  lval: Integer;
+  i: integer;
+begin
+  for i := 0 to Count-1 do begin
+    with TROSerializer(ASerializer) do
+      ReadInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, lval, i);
+    Items[i] := lval;
+  end;
+end;
+
+procedure TIntegerArray.WriteComplex(ASerializer: TObject);
+var
+  i: integer;
+begin
+  for i := 0 to Count-1 do
+    with TROSerializer(ASerializer) do
+      WriteInteger(GetArrayElementName(GetItemType, GetItemRef(i)), otSLong, fItems[i], i);
+end;
+
 { TRdxLoginInfo }
 
 procedure TRdxLoginInfo.Assign(iSource: TPersistent); 
@@ -970,12 +1133,12 @@ begin
   result := 'srvContactos';
 end;
 
-function TsrvContactos_Proxy.GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary;
+function TsrvContactos_Proxy.GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateFichaEmpleadoReport');
-    __Message.Write('EmpleadoID', TypeInfo(String), EmpleadoID, []);
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeFichaEmpleado');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -987,12 +1150,12 @@ begin
   end
 end;
 
-function TsrvContactos_Proxy.GenerateEtiquetasReport(const ContactosID: String): Binary;
+function TsrvContactos_Proxy.GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateEtiquetasReport');
-    __Message.Write('ContactosID', TypeInfo(String), ContactosID, []);
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEtiquetas');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1266,12 +1429,12 @@ begin
   result := 'srvRecibosCliente';
 end;
 
-function TsrvRecibosCliente_Proxy.GenerateReport(const ID: String): Binary;
+function TsrvRecibosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(String), ID, []);
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1290,30 +1453,11 @@ begin
   result := TsrvRecibosProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
-{ TsrvRecibosProveedor_Proxy }
-
 function TsrvRecibosProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvRecibosProveedor';
 end;
 
-function TsrvRecibosProveedor_Proxy.GenerateReport(const ID: Integer): Binary;
-begin
-  try
-    result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(Integer), ID, []);
-    __Message.Finalize;
-
-    __TransportChannel.Dispatch(__Message);
-
-    __Message.Read('Result', TypeInfo(Binary), result, []);
-  finally
-    __Message.UnsetAttributes(__TransportChannel);
-    __Message.FreeStream;
-  end
-end;
-
 { CosrvRemesasCliente }
 
 class function CosrvRemesasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasCliente;
@@ -1321,30 +1465,11 @@ begin
   result := TsrvRemesasCliente_Proxy.Create(aMessage, aTransportChannel);
 end;
 
-{ TsrvRemesasCliente_Proxy }
-
 function TsrvRemesasCliente_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvRemesasCliente';
 end;
 
-function TsrvRemesasCliente_Proxy.GenerateReport(const ID: String): Binary;
-begin
-  try
-    result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(String), ID, []);
-    __Message.Finalize;
-
-    __TransportChannel.Dispatch(__Message);
-
-    __Message.Read('Result', TypeInfo(Binary), result, []);
-  finally
-    __Message.UnsetAttributes(__TransportChannel);
-    __Message.FreeStream;
-  end
-end;
-
 { CosrvRemesasProveedor }
 
 class function CosrvRemesasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvRemesasProveedor;
@@ -1352,30 +1477,11 @@ begin
   result := TsrvRemesasProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
-{ TsrvRemesasProveedor_Proxy }
-
 function TsrvRemesasProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvRemesasProveedor';
 end;
 
-function TsrvRemesasProveedor_Proxy.GenerateReport(const ID: String): Binary;
-begin
-  try
-    result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(String), ID, []);
-    __Message.Finalize;
-
-    __TransportChannel.Dispatch(__Message);
-
-    __Message.Read('Result', TypeInfo(Binary), result, []);
-  finally
-    __Message.UnsetAttributes(__TransportChannel);
-    __Message.FreeStream;
-  end
-end;
-
 { CosrvFacturasCliente }
 
 class function CosrvFacturasCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasCliente;
@@ -1390,12 +1496,12 @@ begin
   result := 'srvFacturasCliente';
 end;
 
-function TsrvFacturasCliente_Proxy.GenerateReport(const FacturaID: String): Binary;
+function TsrvFacturasCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('FacturaID', TypeInfo(String), FacturaID, []);
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1407,11 +1513,11 @@ begin
   end
 end;
 
-function TsrvFacturasCliente_Proxy.GenerateReportEnWord(const ID: Integer): Binary;
+function TsrvFacturasCliente_Proxy.GenerarInformeEnWord(const ID: Integer): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReportEnWord');
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
     __Message.Write('ID', TypeInfo(Integer), ID, []);
     __Message.Finalize;
 
@@ -1424,6 +1530,23 @@ begin
   end
 end;
 
+function TsrvFacturasCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvFacturasProveedor }
 
 class function CosrvFacturasProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvFacturasProveedor;
@@ -1431,30 +1554,11 @@ begin
   result := TsrvFacturasProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
-{ TsrvFacturasProveedor_Proxy }
-
 function TsrvFacturasProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvFacturasProveedor';
 end;
 
-function TsrvFacturasProveedor_Proxy.GenerateReport(const FacturaID: String): Binary;
-begin
-  try
-    result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('FacturaID', TypeInfo(String), FacturaID, []);
-    __Message.Finalize;
-
-    __TransportChannel.Dispatch(__Message);
-
-    __Message.Read('Result', TypeInfo(Binary), result, []);
-  finally
-    __Message.UnsetAttributes(__TransportChannel);
-    __Message.FreeStream;
-  end
-end;
-
 { CosrvPresupuestosCliente }
 
 class function CosrvPresupuestosCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvPresupuestosCliente;
@@ -1469,12 +1573,12 @@ begin
   result := 'srvPresupuestosCliente';
 end;
 
-function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: String): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
-    __Message.Write('ListaID', TypeInfo(String), ListaID, []);
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1520,12 +1624,12 @@ begin
   end
 end;
 
-function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: String): Binary;
+function TsrvPresupuestosCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
     __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
-    __Message.Write('ListaID', TypeInfo(String), ListaID, []);
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1551,12 +1655,12 @@ begin
   result := 'srvPedidosProveedor';
 end;
 
-function TsrvPedidosProveedor_Proxy.GenerateReport(const ID: String): Binary;
+function TsrvPedidosProveedor_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(String), ID, []);
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1568,11 +1672,11 @@ begin
   end
 end;
 
-function TsrvPedidosProveedor_Proxy.GenerateReportEnWord(const ID: Integer): Binary;
+function TsrvPedidosProveedor_Proxy.GenerarInformeEnWord(const ID: Integer): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReportEnWord');
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
     __Message.Write('ID', TypeInfo(Integer), ID, []);
     __Message.Finalize;
 
@@ -1585,6 +1689,23 @@ begin
   end
 end;
 
+function TsrvPedidosProveedor_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvAlbaranesCliente }
 
 class function CosrvAlbaranesCliente.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesCliente;
@@ -1599,12 +1720,12 @@ begin
   result := 'srvAlbaranesCliente';
 end;
 
-function TsrvAlbaranesCliente_Proxy.GenerateReport(const ID: String): Binary;
+function TsrvAlbaranesCliente_Proxy.GenerarInforme(const ListaID: TIntegerArray): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(String), ID, []);
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInforme');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
     __Message.Finalize;
 
     __TransportChannel.Dispatch(__Message);
@@ -1616,11 +1737,11 @@ begin
   end
 end;
 
-function TsrvAlbaranesCliente_Proxy.GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
+function TsrvAlbaranesCliente_Proxy.GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateEtiquetas');
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEtiquetas');
     __Message.Write('ID', TypeInfo(Integer), ID, []);
     __Message.Write('withRefCliente', TypeInfo(Boolean), withRefCliente, []);
     __Message.Finalize;
@@ -1634,11 +1755,11 @@ begin
   end
 end;
 
-function TsrvAlbaranesCliente_Proxy.GenerateReportEnWord(const ID: Integer): Binary;
+function TsrvAlbaranesCliente_Proxy.GenerarInformeEnWord(const ID: Integer): Binary;
 begin
   try
     result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReportEnWord');
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnWord');
     __Message.Write('ID', TypeInfo(Integer), ID, []);
     __Message.Finalize;
 
@@ -1651,6 +1772,23 @@ begin
   end
 end;
 
+function TsrvAlbaranesCliente_Proxy.GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary;
+begin
+  try
+    result := nil;
+    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerarInformeEnPDF');
+    __Message.Write('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+    __Message.Finalize;
+
+    __TransportChannel.Dispatch(__Message);
+
+    __Message.Read('Result', TypeInfo(Binary), result, []);
+  finally
+    __Message.UnsetAttributes(__TransportChannel);
+    __Message.FreeStream;
+  end
+end;
+
 { CosrvAlbaranesProveedor }
 
 class function CosrvAlbaranesProveedor.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvAlbaranesProveedor;
@@ -1658,30 +1796,11 @@ begin
   result := TsrvAlbaranesProveedor_Proxy.Create(aMessage, aTransportChannel);
 end;
 
-{ TsrvAlbaranesProveedor_Proxy }
-
 function TsrvAlbaranesProveedor_Proxy.__GetInterfaceName:string;
 begin
   result := 'srvAlbaranesProveedor';
 end;
 
-function TsrvAlbaranesProveedor_Proxy.GenerateReport(const ID: String): Binary;
-begin
-  try
-    result := nil;
-    __Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'GenerateReport');
-    __Message.Write('ID', TypeInfo(String), ID, []);
-    __Message.Finalize;
-
-    __TransportChannel.Dispatch(__Message);
-
-    __Message.Read('Result', TypeInfo(Binary), result, []);
-  finally
-    __Message.UnsetAttributes(__TransportChannel);
-    __Message.FreeStream;
-  end
-end;
-
 { CosrvReferencias }
 
 class function CosrvReferencias.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvReferencias;
@@ -1817,6 +1936,7 @@ end;
 initialization
   RegisterROClass(TRdxLoginInfo);
   RegisterROClass(TRdxEmpresasArray);
+  RegisterROClass(TIntegerArray);
   RegisterProxyClass(IsrvContactos_IID, TsrvContactos_Proxy);
   RegisterProxyClass(IsrvLogin_IID, TsrvLogin_Proxy);
   RegisterProxyClass(IsrvInventario_IID, TsrvInventario_Proxy);
@@ -1849,6 +1969,7 @@ initialization
 finalization
   UnregisterROClass(TRdxLoginInfo);
   UnregisterROClass(TRdxEmpresasArray);
+  UnregisterROClass(TIntegerArray);
   UnregisterProxyClass(IsrvContactos_IID);
   UnregisterProxyClass(IsrvLogin_IID);
   UnregisterProxyClass(IsrvInventario_IID);
diff --git a/Source/Servicios/FactuGES_Invk.pas b/Source/Servicios/FactuGES_Invk.pas
index 1b567cb9..4443a349 100644
--- a/Source/Servicios/FactuGES_Invk.pas
+++ b/Source/Servicios/FactuGES_Invk.pas
@@ -24,8 +24,8 @@ type
   private
   protected
   published
-    procedure Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-    procedure Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeFichaEmpleado(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaDescripcionesProveedores(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_DarListaContratosEmpleados(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
@@ -105,43 +105,40 @@ type
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvRecibosProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvRemesasCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvRemesasProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvFacturasCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-    procedure Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvFacturasProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvPresupuestosCliente_Invoker = class(TDataAbstractService_Invoker)
@@ -158,24 +155,25 @@ type
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-    procedure Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvAlbaranesCliente_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-    procedure Invoke_GenerateEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-    procedure Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvAlbaranesProveedor_Invoker = class(TDataAbstractService_Invoker)
   private
   protected
   published
-    procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
   end;
 
   TsrvReferencias_Invoker = class(TDataAbstractService_Invoker)
@@ -219,20 +217,21 @@ uses
 
 { TsrvContactos_Invoker }
 
-procedure TsrvContactos_Invoker.Invoke_GenerateFichaEmpleadoReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateFichaEmpleadoReport(const EmpleadoID: String): Binary; }
+procedure TsrvContactos_Invoker.Invoke_GenerarInformeFichaEmpleado(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeFichaEmpleado(const ListaID: TIntegerArray): Binary; }
 var
-  EmpleadoID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('EmpleadoID', TypeInfo(String), EmpleadoID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvContactos).GenerateFichaEmpleadoReport(EmpleadoID);
+    lResult := (__Instance as IsrvContactos).GenerarInformeFichaEmpleado(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'GenerateFichaEmpleadoReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'GenerarInformeFichaEmpleadoResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -240,6 +239,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -247,20 +247,21 @@ begin
   end;
 end;
 
-procedure TsrvContactos_Invoker.Invoke_GenerateEtiquetasReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateEtiquetasReport(const ContactosID: String): Binary; }
+procedure TsrvContactos_Invoker.Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEtiquetas(const ListaID: TIntegerArray): Binary; }
 var
-  ContactosID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ContactosID', TypeInfo(String), ContactosID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvContactos).GenerateEtiquetasReport(ContactosID);
+    lResult := (__Instance as IsrvContactos).GenerarInformeEtiquetas(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'GenerateEtiquetasReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvContactos', 'GenerarInformeEtiquetasResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -268,6 +269,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -429,110 +431,21 @@ end;
 
 { TsrvRecibosCliente_Invoker }
 
-procedure TsrvRecibosCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: String): Binary; }
+procedure TsrvRecibosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
-  ID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ID', TypeInfo(String), ID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvRecibosCliente).GenerateReport(ID);
+    lResult := (__Instance as IsrvRecibosCliente).GenerarInforme(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRecibosCliente', 'GenerateReportResponse');
-    __Message.Write('Result', TypeInfo(Binary), lResult, []);
-    __Message.Finalize;
-    __Message.UnsetAttributes(__Transport);
-
-  finally
-    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
-    try
-      __lObjectDisposer.Add(lResult);
-    finally
-      __lObjectDisposer.Free();
-    end;
-  end;
-end;
-
-{ TsrvRecibosProveedor_Invoker }
-
-procedure TsrvRecibosProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: Integer): Binary; }
-var
-  ID: Integer;
-  lResult: Binary;
-  __lObjectDisposer: TROObjectDisposer;
-begin
-  lResult := nil;
-  try
-    __Message.Read('ID', TypeInfo(Integer), ID, []);
-
-    lResult := (__Instance as IsrvRecibosProveedor).GenerateReport(ID);
-
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRecibosProveedor', 'GenerateReportResponse');
-    __Message.Write('Result', TypeInfo(Binary), lResult, []);
-    __Message.Finalize;
-    __Message.UnsetAttributes(__Transport);
-
-  finally
-    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
-    try
-      __lObjectDisposer.Add(lResult);
-    finally
-      __lObjectDisposer.Free();
-    end;
-  end;
-end;
-
-{ TsrvRemesasCliente_Invoker }
-
-procedure TsrvRemesasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: String): Binary; }
-var
-  ID: String;
-  lResult: Binary;
-  __lObjectDisposer: TROObjectDisposer;
-begin
-  lResult := nil;
-  try
-    __Message.Read('ID', TypeInfo(String), ID, []);
-
-    lResult := (__Instance as IsrvRemesasCliente).GenerateReport(ID);
-
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasCliente', 'GenerateReportResponse');
-    __Message.Write('Result', TypeInfo(Binary), lResult, []);
-    __Message.Finalize;
-    __Message.UnsetAttributes(__Transport);
-
-  finally
-    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
-    try
-      __lObjectDisposer.Add(lResult);
-    finally
-      __lObjectDisposer.Free();
-    end;
-  end;
-end;
-
-{ TsrvRemesasProveedor_Invoker }
-
-procedure TsrvRemesasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: String): Binary; }
-var
-  ID: String;
-  lResult: Binary;
-  __lObjectDisposer: TROObjectDisposer;
-begin
-  lResult := nil;
-  try
-    __Message.Read('ID', TypeInfo(String), ID, []);
-
-    lResult := (__Instance as IsrvRemesasProveedor).GenerateReport(ID);
-
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRemesasProveedor', 'GenerateReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvRecibosCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -540,6 +453,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -549,20 +463,21 @@ end;
 
 { TsrvFacturasCliente_Invoker }
 
-procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const FacturaID: String): Binary; }
+procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
-  FacturaID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('FacturaID', TypeInfo(String), FacturaID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvFacturasCliente).GenerateReport(FacturaID);
+    lResult := (__Instance as IsrvFacturasCliente).GenerarInforme(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -570,6 +485,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -577,8 +493,8 @@ begin
   end;
 end;
 
-procedure TsrvFacturasCliente_Invoker.Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReportEnWord(const ID: Integer): Binary; }
+procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnWord(const ID: Integer): Binary; }
 var
   ID: Integer;
   lResult: Binary;
@@ -588,9 +504,9 @@ begin
   try
     __Message.Read('ID', TypeInfo(Integer), ID, []);
 
-    lResult := (__Instance as IsrvFacturasCliente).GenerateReportEnWord(ID);
+    lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnWord(ID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerateReportEnWordResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnWordResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -605,22 +521,21 @@ begin
   end;
 end;
 
-{ TsrvFacturasProveedor_Invoker }
-
-procedure TsrvFacturasProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const FacturaID: String): Binary; }
+procedure TsrvFacturasCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
 var
-  FacturaID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('FacturaID', TypeInfo(String), FacturaID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvFacturasProveedor).GenerateReport(FacturaID);
+    lResult := (__Instance as IsrvFacturasCliente).GenerarInformeEnPDF(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasProveedor', 'GenerateReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvFacturasCliente', 'GenerarInformeEnPDFResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -628,6 +543,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -638,15 +554,16 @@ end;
 { TsrvPresupuestosCliente_Invoker }
 
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInforme(const ListaID: String): Binary; }
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
-  ListaID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ListaID', TypeInfo(String), ListaID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
     lResult := (__Instance as IsrvPresupuestosCliente).GenerarInforme(ListaID);
 
@@ -658,6 +575,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -722,15 +640,16 @@ begin
 end;
 
 procedure TsrvPresupuestosCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerarInformeEnPDF(const ListaID: String): Binary; }
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
 var
-  ListaID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ListaID', TypeInfo(String), ListaID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
     lResult := (__Instance as IsrvPresupuestosCliente).GenerarInformeEnPDF(ListaID);
 
@@ -742,6 +661,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -751,20 +671,21 @@ end;
 
 { TsrvPedidosProveedor_Invoker }
 
-procedure TsrvPedidosProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: String): Binary; }
+procedure TsrvPedidosProveedor_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
-  ID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ID', TypeInfo(String), ID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvPedidosProveedor).GenerateReport(ID);
+    lResult := (__Instance as IsrvPedidosProveedor).GenerarInforme(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerateReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -772,6 +693,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -779,8 +701,8 @@ begin
   end;
 end;
 
-procedure TsrvPedidosProveedor_Invoker.Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReportEnWord(const ID: Integer): Binary; }
+procedure TsrvPedidosProveedor_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnWord(const ID: Integer): Binary; }
 var
   ID: Integer;
   lResult: Binary;
@@ -790,9 +712,9 @@ begin
   try
     __Message.Read('ID', TypeInfo(Integer), ID, []);
 
-    lResult := (__Instance as IsrvPedidosProveedor).GenerateReportEnWord(ID);
+    lResult := (__Instance as IsrvPedidosProveedor).GenerarInformeEnWord(ID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerateReportEnWordResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerarInformeEnWordResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -807,22 +729,53 @@ begin
   end;
 end;
 
+procedure TsrvPedidosProveedor_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
+var
+  ListaID: FactuGES_Intf.TIntegerArray;
+  lResult: Binary;
+  __lObjectDisposer: TROObjectDisposer;
+begin
+  ListaID := nil;
+  lResult := nil;
+  try
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
+
+    lResult := (__Instance as IsrvPedidosProveedor).GenerarInformeEnPDF(ListaID);
+
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvPedidosProveedor', 'GenerarInformeEnPDFResponse');
+    __Message.Write('Result', TypeInfo(Binary), lResult, []);
+    __Message.Finalize;
+    __Message.UnsetAttributes(__Transport);
+
+  finally
+    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
+    try
+      __lObjectDisposer.Add(ListaID);
+      __lObjectDisposer.Add(lResult);
+    finally
+      __lObjectDisposer.Free();
+    end;
+  end;
+end;
+
 { TsrvAlbaranesCliente_Invoker }
 
-procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: String): Binary; }
+procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInforme(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInforme(const ListaID: TIntegerArray): Binary; }
 var
-  ID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ID', TypeInfo(String), ID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvAlbaranesCliente).GenerateReport(ID);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInforme(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -830,6 +783,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
@@ -837,8 +791,8 @@ begin
   end;
 end;
 
-procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; }
+procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEtiquetas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEtiquetas(const ID: Integer; const withRefCliente: Boolean): Binary; }
 var
   ID: Integer;
   withRefCliente: Boolean;
@@ -850,9 +804,9 @@ begin
     __Message.Read('ID', TypeInfo(Integer), ID, []);
     __Message.Read('withRefCliente', TypeInfo(Boolean), withRefCliente, []);
 
-    lResult := (__Instance as IsrvAlbaranesCliente).GenerateEtiquetas(ID, withRefCliente);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEtiquetas(ID, withRefCliente);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateEtiquetasResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEtiquetasResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -867,8 +821,8 @@ begin
   end;
 end;
 
-procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerateReportEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReportEnWord(const ID: Integer): Binary; }
+procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEnWord(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnWord(const ID: Integer): Binary; }
 var
   ID: Integer;
   lResult: Binary;
@@ -878,9 +832,9 @@ begin
   try
     __Message.Read('ID', TypeInfo(Integer), ID, []);
 
-    lResult := (__Instance as IsrvAlbaranesCliente).GenerateReportEnWord(ID);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEnWord(ID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerateReportEnWordResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEnWordResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -895,22 +849,21 @@ begin
   end;
 end;
 
-{ TsrvAlbaranesProveedor_Invoker }
-
-procedure TsrvAlbaranesProveedor_Invoker.Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
-{ function GenerateReport(const ID: String): Binary; }
+procedure TsrvAlbaranesCliente_Invoker.Invoke_GenerarInformeEnPDF(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function GenerarInformeEnPDF(const ListaID: TIntegerArray): Binary; }
 var
-  ID: String;
+  ListaID: FactuGES_Intf.TIntegerArray;
   lResult: Binary;
   __lObjectDisposer: TROObjectDisposer;
 begin
+  ListaID := nil;
   lResult := nil;
   try
-    __Message.Read('ID', TypeInfo(String), ID, []);
+    __Message.Read('ListaID', TypeInfo(FactuGES_Intf.TIntegerArray), ListaID, []);
 
-    lResult := (__Instance as IsrvAlbaranesProveedor).GenerateReport(ID);
+    lResult := (__Instance as IsrvAlbaranesCliente).GenerarInformeEnPDF(ListaID);
 
-    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesProveedor', 'GenerateReportResponse');
+    __Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvAlbaranesCliente', 'GenerarInformeEnPDFResponse');
     __Message.Write('Result', TypeInfo(Binary), lResult, []);
     __Message.Finalize;
     __Message.UnsetAttributes(__Transport);
@@ -918,6 +871,7 @@ begin
   finally
     __lObjectDisposer := TROObjectDisposer.Create(__Instance);
     try
+      __lObjectDisposer.Add(ListaID);
       __lObjectDisposer.Add(lResult);
     finally
       __lObjectDisposer.Free();
diff --git a/Source/Servicios/RODLFILE.res b/Source/Servicios/RODLFILE.res
index 9d234091488be0e97737a07b0f0e7c76ba3be3d4..1ab66901a5c1c6a65281ab7902ae87587d3d884d 100644
GIT binary patch
delta 686
zcmaiyKS(1%6vl}LG=-er>46YMqFgszc4u}olbq;e{^)A3Qm_!Ypc@q~iLSXKT&2CD
zzRE(duoDYOEp`ebh<3tpYGtLZt!~T}!M(G4%$x7M-}~NMy$b!g2yOH<tj`_B($Nmj
zDddV?-qi~;^I4T&{NZM2i%^bk!;bvaJnj@q?wsqvZnzhUk+1MQ8gBb5QKf~YpKd9;
z3>#em-)|<Z%69iwJDd!*LJDubE%>1?2eae^j>a8WqfM}4AJt<2Z4~yB*H!UaDnMML
zflK}wcE8=hMdL@G4xU6uuQoMhL}FwM8zaK7ff!?HlwcAICM?A@w1o@7L}&e{K1Jnz
z078KVR4(~VLw&}dB&mK^X}{=qXw9KI+CCiTLU3v!VObmzZD2%gLJ&7BVMt08W)col
z`C#0s;n%jq&cE9>)mBy+7?})J9XlAUXP{V{gv4zmjWk09ONCfMy+kIbj1i2bB>!WG
zz-{KZYTM)3Lnln<T4?QbxaVcdv7QM>_Q!s)gvF)MFN;ykFK!x$rcDzG8P}HPLK<4Z
Nel7}`Oa#v7?Pp@<@U8#=

delta 724
zcmaJ;J!lj`7-a)Wj3QBDA>{O21VI_t-TB!aFHz=KFBph|XuHIX37FiOOb|&E1WVz}
zC&+a+Hg<6ftCZSU2ntqWZ6n6U+9Bp{PvLBaVZQg?y!XDZAA(08gHC<q_2PCYCr`M-
zF3m6IX1RT@$nUgn6z$fkgNKvdvEEZt!|5=Bxf(v^3gedUuNN*~+Xp_Ybq}l7ip%F+
zYpst&Tk&Z5;?&l}s4Mn?7jYLlGe_Y<cosGr3-ExvgZA-p*qu2@dZ4g=v#F=Ujff;1
zM+rfiD~gDUC=!HNge~RLGNvP8;mqY77@x4vVPo)w?hF-6M8X*t5=AOwh+r9^jQS%X
ziRFyOF}K)@ZS<W1`;Rkgq=^|t88^a<CH_XVK_c~b8R0r5d_ZgkUZtO^4jyOSL)JI7
zzMA)|!qxaW|FM^-e*OS_YrGwrNXC*=O$^csdlRv+NUAhOI<uT>DpQUvY-h{={N-CO
ze@#KK7j&*RRqkH;Jkn2nOMa=GG*q=LzxQe|tN&P>zIFs&+JR`BSN>uIu6%m+c2E(2
vHhaYPLvyJVQ;nr>6I+7_w*qBZN|2(4h}1-}k;y>03+46M?<e8S-E+SI$*l1`

diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index b801702f1a59488d9383046d6c722a31a97b0c6f..e005e95bc702d25126e3c84c73d158b14bef0c40 100644
GIT binary patch
delta 21
ccmZ3om2t^d#tmUn?8XdM3`PtFlVhXY0a7jod;kCd

delta 21
ccmZ3om2t^d#tmUn>;?>03?>XFlVhXY0a7mpe*gdg

diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index d7a128f2..0806a0ec 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -99,7 +99,6 @@ uses
   uBizObrasServer in '..\Modulos\Obras\Model\uBizObrasServer.pas',
   schObrasClient_Intf in '..\Modulos\Obras\Model\schObrasClient_Intf.pas',
   schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
-  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
   schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
   uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
   srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas',
@@ -128,7 +127,8 @@ uses
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
   schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas',
   schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
-  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas';
+  schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
+  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 2cebb2ad..c94b6d40 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,290 +1,290 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-	<PropertyGroup>
-		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
-		<MainSource>FactuGES_Server.dpr</MainSource>
-		<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
-		<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
-		<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
-		<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
-		<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
-	</PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
-		<Version>7.0</Version>
-		<DCC_DebugInformation>False</DCC_DebugInformation>
-		<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
-		<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
-		<DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
-		<DCC_Define>RELEASE</DCC_Define>
-	</PropertyGroup>
-	<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
-		<Version>7.0</Version>
-		<DCC_MapFile>3</DCC_MapFile>
-		<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
-		<DCC_Define>DEBUG;</DCC_Define>
-		<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
-		<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
-		<DCC_DebugVN>True</DCC_DebugVN>
-		<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-		<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-		<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-		<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
-	</PropertyGroup>
-	<ProjectExtensions>
-		<Borland.Personality>Delphi.Personality</Borland.Personality>
-		<Borland.ProjectType/>
-		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">4</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 21 de agosto de 2008 18:49</VersionInfoKeys></VersionInfoKeys><Excluded_Packages/><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
-	</ProjectExtensions>
-	<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
-	<ItemGroup>
-		<DelphiCompile Include="FactuGES_Server.dpr">
-			<MainSource>MainSource</MainSource>
-		</DelphiCompile>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas"/>
-		<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
-			<Form>srvEmpresas</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
-		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
-		<DCCReference Include="..\Base\schBase_Intf.pas"/>
-		<DCCReference Include="..\Base\Utiles\uSistemaFunc.pas"/>
-		<DCCReference Include="..\Base\Utiles\uStringsUtils.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
-			<Form>RptAlbaranesCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
-			<Form>RptWordAlbaranCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
-			<Form>srvAlbaranesCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
-		<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
-			<Form>srvAlbaranesProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
-			<Form>srvAlmacenes</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas"/>
-		<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
-			<Form>srvArticulos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
-			<Form>RptEtiquetasContacto</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
-			<Form>RptFichasEmpleado</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
-			<Form>srvContactos</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
-			<Form>srvFabricantes</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
-			<Form>RptFacturasCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
-			<Form>RptWordFacturaCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
-			<Form>srvFacturasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
-			<Form>srvFacturasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
-			<Form>srvHistoricoMovimientos</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
-			<Form>srvInventario</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas"/>
-		<DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
-			<Form>RptPedidosProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
-			<Form>RptWordPedidoProveedor</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
-			<Form>srvPedidosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
-			<Form>RptPresupuestosCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
-			<Form>RptWordCertificadoTrabajo</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
-			<Form>RptWordPresupuestoCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
-			<Form>srvPresupuestosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
-			<Form>RptRecibosCliente</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
-			<Form>srvRecibosCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
-			<Form>srvRecibosProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
-			<Form>srvReferencias</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
-			<Form>srvRemesasCliente</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
-		<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
-			<Form>srvRemesasProveedor</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
-		<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
-			<Form>srvUnidadesMedida</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
-		<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
-		<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
-			<Form>srvConfiguracion</Form>
-			<DesignClass>TDataAbstractService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConexionBD.pas">
-			<Form>frConexionBD</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConfGeneral.pas">
-			<Form>frConfGeneral</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uConfiguracion.pas">
-			<Form>fConfiguracion</Form>
-			<DesignClass>TForm</DesignClass>
-		</DCCReference>
-		<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
-			<Form>FrameConfiguracion</Form>
-			<DesignClass>TFrame</DesignClass>
-		</DCCReference>
-		<DCCReference Include="srvLogin_Impl.pas">
-			<Form>srvLogin</Form>
-			<DesignClass>TDARemoteService</DesignClass>
-		</DCCReference>
-		<DCCReference Include="uAcercaDe.pas">
-			<Form>fAcercaDe</Form>
-		</DCCReference>
-		<DCCReference Include="uDataModuleServer.pas">
-			<Form>dmServer</Form>
-			<DesignClass>TDataModule</DesignClass>
-		</DCCReference>
-		<DCCReference Include="uServerMainForm.pas">
-			<Form>fServerForm</Form>
-		</DCCReference>
-		<DCCReference Include="Utiles\AHWord97.pas"/>
-		<DCCReference Include="Utiles\RegExpr.pas"/>
-		<DCCReference Include="Utiles\uBusinessUtils.pas"/>
-		<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
-		<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
-		<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
-		<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
-		<DCCReference Include="Utiles\uServerAppUtils.pas"/>
-		<DCCReference Include="Utiles\uSesionesUtils.pas"/>
-	</ItemGroup>
+  <PropertyGroup>
+    <ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
+    <MainSource>FactuGES_Server.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
+    <DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_MapFile>3</DCC_MapFile>
+    <DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
+    <DCC_Define>DEBUG;</DCC_Define>
+    <DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
+    <DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
+    <DCC_DebugVN>True</DCC_DebugVN>
+    <DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+    <DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+    <DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+    <DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType />
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">4</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"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.2.4.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.2.4.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 21 de agosto de 2008 18:49</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="FactuGES_Server.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Model\uBizEmpresasServer.pas" />
+    <DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
+      <Form>srvEmpresas</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
+    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
+    <DCCReference Include="..\Base\schBase_Intf.pas" />
+    <DCCReference Include="..\Base\Utiles\uSistemaFunc.pas" />
+    <DCCReference Include="..\Base\Utiles\uStringsUtils.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
+      <Form>RptAlbaranesCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptWordAlbaranCliente.pas">
+      <Form>RptWordAlbaranCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
+      <Form>srvAlbaranesCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
+    <DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
+      <Form>srvAlbaranesProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
+      <Form>srvAlmacenes</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Model\uBizArticulosServer.pas" />
+    <DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas">
+      <Form>srvArticulos</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas">
+      <Form>RptEtiquetasContacto</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Reports\uRptFichasEmpleado_Server.pas">
+      <Form>RptFichasEmpleado</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
+      <Form>srvContactos</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas">
+      <Form>srvFabricantes</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
+      <Form>RptFacturasCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptWordFacturaCliente.pas">
+      <Form>RptWordFacturaCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
+      <Form>srvFacturasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
+      <Form>srvFacturasProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
+    <DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
+      <Form>srvHistoricoMovimientos</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
+      <Form>srvInventario</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Obras\Model\schObrasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Obras\Model\uBizObrasServer.pas" />
+    <DCCReference Include="..\Modulos\Obras\Servidor\srvObras_Impl.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas">
+      <Form>RptPedidosProveedor</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas">
+      <Form>RptWordPedidoProveedor</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
+      <Form>srvPedidosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
+      <Form>RptPresupuestosCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordCertificadoTrabajo_Server.pas">
+      <Form>RptWordCertificadoTrabajo</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas">
+      <Form>RptWordPresupuestoCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
+      <Form>srvPresupuestosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas">
+      <Form>RptRecibosCliente</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
+      <Form>srvRecibosCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
+      <Form>srvRecibosProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Referencias\Model\schReferenciasServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Referencias\Servidor\srvReferencias_Impl.pas">
+      <Form>srvReferencias</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
+    <DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
+      <Form>srvRemesasCliente</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
+    <DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
+      <Form>srvRemesasProveedor</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
+    <DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
+      <Form>srvUnidadesMedida</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
+    <DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
+      <Form>srvConfiguracion</Form>
+      <DesignClass>TDataAbstractService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConexionBD.pas">
+      <Form>frConexionBD</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConfGeneral.pas">
+      <Form>frConfGeneral</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uConfiguracion.pas">
+      <Form>fConfiguracion</Form>
+      <DesignClass>TForm</DesignClass>
+    </DCCReference>
+    <DCCReference Include="Configuracion\uFrameConfiguracion.pas">
+      <Form>FrameConfiguracion</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="srvLogin_Impl.pas">
+      <Form>srvLogin</Form>
+      <DesignClass>TDARemoteService</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uAcercaDe.pas">
+      <Form>fAcercaDe</Form>
+    </DCCReference>
+    <DCCReference Include="uDataModuleServer.pas">
+      <Form>dmServer</Form>
+      <DesignClass>TDataModule</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uServerMainForm.pas">
+      <Form>fServerForm</Form>
+    </DCCReference>
+    <DCCReference Include="Utiles\AHWord97.pas" />
+    <DCCReference Include="Utiles\RegExpr.pas" />
+    <DCCReference Include="Utiles\uBusinessUtils.pas" />
+    <DCCReference Include="Utiles\uDatabaseUtils.pas" />
+    <DCCReference Include="Utiles\uReferenciasUtils.pas" />
+    <DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
+    <DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
+    <DCCReference Include="Utiles\uServerAppUtils.pas" />
+    <DCCReference Include="Utiles\uSesionesUtils.pas" />
+  </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
 [Exception Log]
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index eef92151..2d9852af 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.2.4.0\0"
               VALUE "ProductVersion", "1.2.4.0\0"
-              VALUE "CompileDate", "viernes, 22 de agosto de 2008 10:44\0"
+              VALUE "CompileDate", "viernes, 22 de agosto de 2008 13:20\0"
          END
     END
     BLOCK "VarFileInfo"