From c6c05b02126537173f2321584f3011f5e8551e66 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 4 Mar 2014 16:37:31 +0000
Subject: [PATCH] =?UTF-8?q?Versi=C3=B3n=202.0.6?=
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@1101 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Database/scripts/factuges.sql                 |   5 +-
 Source/Cliente/FactuGES.dproj                 |   2 +-
 Source/Cliente/FactuGES.rc                    |   8 +-
 Source/Cliente/FactuGES.res                   | Bin 171984 -> 171984 bytes
 .../FacturasCliente_Group.groupproj           |  26 +-
 .../Model/schFacturasClienteClient_Intf.pas   |   8 +-
 .../Views/uViewFacturaCliente.dfm             |  20 +-
 .../Views/uViewFacturaCliente.pas             |  14 +-
 .../uFacturasProveedorController.pas          |   1 +
 .../FacturasProveedor_Group.groupproj         |  16 +-
 .../Views/uViewFacturaProveedor.pas           |   9 +-
 .../uIDialogListaPresupuestosEnvioEMail.pas   |   3 +
 .../uPresupuestosClienteController.pas        |  22 +-
 .../uDialogListaPresupuestosEnvioEMail.dfm    |  10 +-
 .../uDialogListaPresupuestosEnvioEMail.pas    |  19 +-
 .../Views/uEditorPresupuestosCliente.pas      |  12 +-
 .../uRecibosProveedorController.pas           |  19 +-
 .../Data/uDataModuleRecibosProveedor.dfm      |   5 +
 .../Model/schRecibosProveedorClient_Intf.pas  |  67 +-
 .../Model/schRecibosProveedorServer_Intf.pas  |  59 +-
 .../RecibosProveedor_Group.groupproj          |  36 +-
 .../Servidor/srvRecibosProveedor_Impl.dfm     |  67 +-
 .../Views/uEditorReciboProveedor.dfm          |  72 +-
 .../Views/uEditorReciboProveedor.pas          |   5 +-
 .../Views/uViewReciboProveedor.dfm            |  78 ++-
 .../Views/uViewReciboProveedor.pas            |  89 ++-
 Source/Servidor/FactuGES_Server.RES           | Bin 23344 -> 23340 bytes
 Source/Servidor/FactuGES_Server.dpr           |   6 +-
 Source/Servidor/FactuGES_Server.dproj         | 660 +++++++++---------
 Source/Servidor/FactuGES_Server.rc            |  10 +-
 30 files changed, 847 insertions(+), 501 deletions(-)

diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index c25c43be..815d4e2e 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -1131,7 +1131,8 @@ CREATE TABLE RECIBOS_PROVEEDOR (
     FECHA_MODIFICACION    DATE,
     USUARIO               TIPO_USUARIO,
     ID_REMESA             TIPO_ID,
-    ID_RECIBO_COMPENSADO  INTEGER
+    ID_RECIBO_COMPENSADO  INTEGER,
+    DATOS_BANCARIOS       VARCHAR(255) COLLATE ES_ES
 );
 
 CREATE TABLE REFERENCIAS (
@@ -3336,6 +3337,7 @@ CREATE VIEW V_RECIBOS_PROVEEDOR(
     FORMA_PAGO_FACTURA,
     IMPORTE_FACTURA,
     ID_EMPRESA,
+    DATOS_BANCARIOS_FACTURA,
     DATOS_BANCARIOS,
     ID_PROVEEDOR,
     NOMBRE_PROVEEDOR,
@@ -3363,6 +3365,7 @@ SELECT RECIBOS_PROVEEDOR.ID,
        FACTURAS_PROVEEDOR.REFERENCIA_PROVEEDOR, FACTURAS_PROVEEDOR.FECHA_FACTURA,
        FORMAS_PAGO.DESCRIPCION, FACTURAS_PROVEEDOR.IMPORTE_TOTAL,
        FACTURAS_PROVEEDOR.ID_EMPRESA, FACTURAS_PROVEEDOR.DATOS_BANCARIOS,
+       RECIBOS_PROVEEDOR.DATOS_BANCARIOS,
 
        CONTACTOS.ID as ID_PROVEEDOR, CONTACTOS.NOMBRE, CONTACTOS.NIF_CIF,
 
diff --git a/Source/Cliente/FactuGES.dproj b/Source/Cliente/FactuGES.dproj
index 4a82c399..459d7f68 100644
--- a/Source/Cliente/FactuGES.dproj
+++ b/Source/Cliente/FactuGES.dproj
@@ -53,7 +53,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>
   <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
   <ItemGroup>
diff --git a/Source/Cliente/FactuGES.rc b/Source/Cliente/FactuGES.rc
index a0d22c5b..941cf2b4 100644
--- a/Source/Cliente/FactuGES.rc
+++ b/Source/Cliente/FactuGES.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Factuges.ico"
 1 VERSIONINFO
-FILEVERSION 2,0,5,0
-PRODUCTVERSION 2,0,5,0
+FILEVERSION 2,0,6,0
+PRODUCTVERSION 2,0,6,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.0.5.0\0"
+              VALUE "FileVersion", "2.0.6.0\0"
               VALUE "InternalName", "FactuGES\0"
               VALUE "ProductName", "FactuGES\0"
-              VALUE "ProductVersion", "2.0.5.0\0"
+              VALUE "ProductVersion", "2.0.6.0\0"
          END
     END
     BLOCK "VarFileInfo"
diff --git a/Source/Cliente/FactuGES.res b/Source/Cliente/FactuGES.res
index c08ac4e9f2d92640bf75d678c8082d9bad9a1e9f..b78f703777248c9a69696fa601fe5575e7080d89 100644
GIT binary patch
delta 42
wcmcbxpX<VYu7(!IElgtbIN2B&7?^;VZMytCrjv|j(_hYGnhm5{=QDW&03Kis2><{9

delta 42
wcmcbxpX<VYu7(!IElgtbI9VAO7?^;Vb-MgKrjv}O(_hYGnhm5{=QDW&03IC;1poj5

diff --git a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj
index 6061b7ea..0457d268 100644
--- a/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj	
+++ b/Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj	
@@ -19,6 +19,7 @@
     <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
     <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
     <Projects Include="..\Gestor de informes\Controller\GestorInformes_controller.dproj" />
     <Projects Include="..\Gestor de informes\Data\GestorInformes_data.dproj" />
     <Projects Include="..\Gestor de informes\Model\GestorInformes_model.dproj" />
@@ -27,6 +28,7 @@
     <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
     <Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
+    <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
     <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
     <Projects Include="..\Relaciones\Presupuestos de cliente - Facturas de cliente\PreCli_FacCli_relation.dproj" />
     <Projects Include="Controller\FacturasCliente_controller.dproj" />
@@ -311,14 +313,32 @@
   <Target Name="PedidosProveedor_view:Make">
     <MSBuild Projects="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasProveedor_view">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="RecibosProveedor_view">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_view:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_view:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_model;Articulos_data;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;PreCli_FacCli_relation;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;AlbaranesCliente_view;PresupuestosCliente_controller;GestorInformes_view;AlbaranesCliente_controller;GestorInformes_plugin;FactuGES;FactuGES_Server;PresupuestosCliente_view;PedidosProveedor_view;FacturasProveedor_view;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_model:Clean;Articulos_data:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PreCli_FacCli_relation:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;GestorInformes_view:Clean;AlbaranesCliente_controller:Clean;GestorInformes_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;PresupuestosCliente_view:Clean;PedidosProveedor_view:Clean;FacturasProveedor_view:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_model:Make;Articulos_data:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PreCli_FacCli_relation:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;GestorInformes_view:Make;AlbaranesCliente_controller:Make;GestorInformes_plugin:Make;FactuGES:Make;FactuGES_Server:Make;PresupuestosCliente_view:Make;PedidosProveedor_view:Make;FacturasProveedor_view:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas
index c8b1759f..c9294d5c 100644
--- a/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas	
+++ b/Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas	
@@ -3,7 +3,7 @@ unit schFacturasClienteClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -161,7 +161,7 @@ type
   end;
 
   { TListaAnosFacturasDataTableRules }
-  TListaAnosFacturasDataTableRules = class(TDADataTableRules, IListaAnosFacturas)
+  TListaAnosFacturasDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosFacturas)
   private
   protected
     { Property getters and setters }
@@ -435,7 +435,7 @@ type
   end;
 
   { TFacturasClienteDataTableRules }
-  TFacturasClienteDataTableRules = class(TDADataTableRules, IFacturasCliente)
+  TFacturasClienteDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente)
   private
     f_OBSERVACIONES: IROStrings;
     procedure OBSERVACIONES_OnChange(Sender: TObject);
@@ -795,7 +795,7 @@ type
   end;
 
   { TFacturasCliente_DetallesDataTableRules }
-  TFacturasCliente_DetallesDataTableRules = class(TDADataTableRules, IFacturasCliente_Detalles)
+  TFacturasCliente_DetallesDataTableRules = class(TIntfObjectDADataTableRules, IFacturasCliente_Detalles)
   private
   protected
     { Property getters and setters }
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm
index 1daa7633..5ff3fc45 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm	
@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 616
-  Height = 474
+  Width = 451
+  Height = 304
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,19 +9,17 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 616
-    Height = 474
+    Width = 451
+    Height = 304
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 451
-    ExplicitHeight = 304
     DesignSize = (
-      616
-      474)
+      451
+      304)
     object Label1: TLabel
       Left = 354
       Top = 193
@@ -201,7 +199,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Width = 339
     end
     object bElegirClienteFinal: TButton
-      Left = 560
+      Left = 410
       Top = 225
       Width = 23
       Height = 25
@@ -229,8 +227,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitWidth = 224
-          Width = 224
         end
         inherited edtNIFCIF: TcxDBTextEdit
           Left = 171
@@ -249,8 +245,6 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitWidth = 121
-          Width = 121
         end
         inherited Button4: TButton
           Left = 251
diff --git a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas
index 39a238e6..b7e0dfbf 100644
--- a/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas	
+++ b/Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas	
@@ -229,7 +229,8 @@ begin
       end;
     finally
       FreeANDNIL(ALista);
-      FreeANDNIL(AListaIBAN);      
+      FreeANDNIL(AListaIBAN);
+      FreeANDNIL(AListaCliente);
     end;
   finally
     AController := NIL;
@@ -274,6 +275,17 @@ begin
     else
       ACadena := 'Elija el cliente al que se le realizará la factura.';
     //ViewDatosYSeleccionClienteFacturaCliente1.MsgElegirCliente := ACadena;
+
+
+{Ojo hay que tener en cuenta cuando se cambia de cliente
+    if (FFactura.EsNuevo) then
+       if (cbCuentaBancaria.Properties.Items.Count > 0) then
+       begin
+          cbCuentaBancaria.ItemIndex := 1;
+          cbCuentaBancaria.EditValue := cbCuentaBancaria.Properties.Items.ValueFromIndex[1];
+       end;
+}
+
   end
   else begin
     DADataSource.DataTable := NIL;
diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 01297a8c..35c4c372 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -1035,6 +1035,7 @@ begin
       ARecibos.ID_FACTURA := AFactura.ID;
       ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i);
       ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA;
+      ARecibos.DATOS_BANCARIOS := AFactura.DATOS_BANCARIOS;
 
       if AFormaPago.Plazos.RecordCount < 1 then
       begin
diff --git a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj
index 351e67c3..e1ce4679 100644
--- a/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj	
+++ b/Source/Modulos/Facturas de proveedor/FacturasProveedor_Group.groupproj	
@@ -23,6 +23,7 @@
     <Projects Include="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" />
     <Projects Include="..\Recibos de proveedor\Data\RecibosProveedor_data.dproj" />
     <Projects Include="..\Recibos de proveedor\Model\RecibosProveedor_model.dproj" />
+    <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
     <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
     <Projects Include="..\Relaciones\Albaranes de proveedor - Facturas de proveedor\AlbProv_FacProv_relation.dproj" />
     <Projects Include="..\Relaciones\Pedidos de proveedor - Albaranes de proveedor\PedProv_AlbProv_relation.dproj" />
@@ -301,14 +302,23 @@
   <Target Name="RecibosProveedor_controller:Make">
     <MSBuild Projects="..\Recibos de proveedor\Controller\RecibosProveedor_controller.dproj" Targets="Make" />
   </Target>
+  <Target Name="RecibosProveedor_view">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="RecibosProveedor_view:Clean">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="RecibosProveedor_view:Make">
+    <MSBuild Projects="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;FacturasProveedor_view;FacturasProveedor_plugin;FactuGES;FactuGES_Server;AlbProv_FacProv_relation;AlbaranesProveedor_view;PedProv_AlbProv_relation;PedidosProveedor_view;PedidosProveedor_controller;AlbaranesProveedor_controller;Articulos_controller;AlbCli_FacCli_relation;FacturasCliente_view;PedProv_FacProv_relation;PreCli_FacCli_relation;PedidosProveedor_data;Contactos_controller;GestorInformes_view;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbProv_FacProv_relation:Clean;AlbaranesProveedor_view:Clean;PedProv_AlbProv_relation:Clean;PedidosProveedor_view:Clean;PedidosProveedor_controller:Clean;AlbaranesProveedor_controller:Clean;Articulos_controller:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;PedProv_FacProv_relation:Clean;PreCli_FacCli_relation:Clean;PedidosProveedor_data:Clean;Contactos_controller:Clean;GestorInformes_view:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbProv_FacProv_relation:Make;AlbaranesProveedor_view:Make;PedProv_AlbProv_relation:Make;PedidosProveedor_view:Make;PedidosProveedor_controller:Make;AlbaranesProveedor_controller:Make;Articulos_controller:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;PedProv_FacProv_relation:Make;PreCli_FacCli_relation:Make;PedidosProveedor_data:Make;Contactos_controller:Make;GestorInformes_view:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas
index 9cebee5d..0cb09009 100644
--- a/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas	
+++ b/Source/Modulos/Facturas de proveedor/Views/uViewFacturaProveedor.pas	
@@ -160,12 +160,14 @@ end;
 procedure TfrViewFacturaProveedor.RellenarCuentasBancarias;
 var
   AController : IEmpresasController;
+  ALista : TStringList;
   AListaIBAN : TStringList;
   AListaProveedor : TStringList;
   i : integer;
 begin
   AController := TEmpresasController.Create;
   try
+    ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);
     AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
     AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FFactura.ID_PROVEEDOR);
 
@@ -176,6 +178,9 @@ begin
         try
           Clear;
           Add('');
+          for i := 0 to ALista.Count - 1 do
+            Add(ALista.Names[i]);
+          
           if AListaIBAN.Count > 0 then
           begin
             for i := 0 to AListaIBAN.Count - 1 do
@@ -194,7 +199,9 @@ begin
         end;
       end;
     finally
-      FreeANDNIL(AListaIBAN);      
+      FreeANDNIL(ALista);
+      FreeANDNIL(AListaIBAN);
+      FreeANDNIL(AListaProveedor);
     end;
   finally
     AController := NIL;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas b/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas
index ff7071b3..a81aa2c1 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/View/uIDialogListaPresupuestosEnvioEMail.pas	
@@ -10,7 +10,10 @@ type
   ['{5B086ADA-7877-4469-ACBE-4C8E4F4BF184}']
     function GetPresupuestos: IBizPresupuestoCliente;
     procedure SetPresupuestos(const Value: IBizPresupuestoCliente);
+    function GetVerSello: Integer;
+    procedure SetVerSello(const Value: Integer);
     property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos;
+    property VerSello: Integer read GetVerSello write SetVerSello;
     function ShowModal : Integer;
     procedure Release;    
   end;
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index e456572d..6fbfd24c 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -65,9 +65,9 @@ type
     function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente;
             const AEnviarDirectamente: Boolean = True;
             const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
-            const ATextoEMail: String = ''): Boolean;
-    function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente): Boolean;
-    function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente): Boolean;
+            const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
+    function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
+    function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
 
     procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
 
@@ -148,9 +148,9 @@ type
     function EnviarPresupuestoPorEMail(APresupuesto : IBizPresupuestoCliente;
             const AEnviarDirectamente: Boolean = True;
             const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
-            const ATextoEMail: String = ''): Boolean;
-    function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente): Boolean;
-    function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente): Boolean;
+            const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
+    function EnviarEmailPresupuestos(APresupuestos : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
+    function GenerarEmailPresupuesto(APresupuesto : IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
 
     procedure BorrarBonificacion(APresupuesto : IBizPresupuestoCliente);
 
@@ -703,7 +703,7 @@ begin
   end;
 end;
 
-function TPresupuestosClienteController.EnviarEmailPresupuestos(APresupuestos: IBizPresupuestoCliente): Boolean;
+function TPresupuestosClienteController.EnviarEmailPresupuestos(APresupuestos: IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
 var
   ADialog : IDialogListaPresupuestosEnvioEMail;
   ARespuesta : Integer;
@@ -739,7 +739,7 @@ end;
 function TPresupuestosClienteController.EnviarPresupuestoPorEMail(APresupuesto: IBizPresupuestoCliente;
             const AEnviarDirectamente: Boolean = True;
             const ADireccionEMail: String = ''; const AAsuntoEMail: String = '';
-            const ATextoEMail: String = ''): Boolean;
+            const ATextoEMail: String = ''; Const AVerSello: Integer = 1): Boolean;
 var
   AReportController : IPresupuestosClienteReportController;
   AFicheroTMP : TFileName;
@@ -777,7 +777,7 @@ begin
   ShowHourglassCursor;
   AReportController := TPresupuestosClienteReportController.Create;
   try
-    AReportController.ExportToPDF(APresupuesto.ID, AFicheroTMP);
+    AReportController.ExportToPDF(APresupuesto.ID, AFicheroTMP, AVerSello);
     Result := EnviarEMailMAPI('Presupuesto ' + APresupuesto.REFERENCIA, '', AFicheroTMP, '', '', APresupuesto.Cliente.NOMBRE, AEMail, AEnviarDirectamente);
   finally
     DeleteFile(AFicheroTMP);
@@ -1174,7 +1174,7 @@ begin
   end;
 end;
 
-function TPresupuestosClienteController.GenerarEmailPresupuesto(APresupuesto: IBizPresupuestoCliente): Boolean;
+function TPresupuestosClienteController.GenerarEmailPresupuesto(APresupuesto: IBizPresupuestoCliente; Const AVerSello: Integer = 1): Boolean;
 begin
   if not Assigned(APresupuesto) then
     raise Exception.Create ('Presupuesto no asignadas (GenerarEmailPresupuesto)');
@@ -1185,7 +1185,7 @@ begin
   ShowHourglassCursor;
   try
     RecuperarCliente(APresupuesto);
-    EnviarPresupuestoPorEMail(APresupuesto, False);
+    EnviarPresupuestoPorEMail(APresupuesto, False, '', '', '', AVerSello);
   finally
     HideHourglassCursor;
   end;
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm
index 060cb21b..d9c3ddc9 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.dfm	
@@ -20,7 +20,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
     Top = 390
     Width = 665
     ExplicitTop = 390
-    ExplicitWidth = 735
+    ExplicitWidth = 665
     inherited btnAceptar: TButton
       Left = 488
       Top = 6
@@ -38,7 +38,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
   end
   inherited pnlHeader: TPanel
     Width = 665
-    ExplicitWidth = 735
+    ExplicitWidth = 665
     inherited lblInstruccion: TLabel
       Width = 615
       Caption = 'Enviar presupuestos por correo electr'#243'nico'
@@ -52,14 +52,14 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
         'supuestos elegidos en formato PDF. S'#243'lo se tendr'#225'n en cuenta los' +
         ' clientes que tengan relleno su e-mail administrativo.'
       WordWrap = True
-      ExplicitWidth = 639
+      ExplicitWidth = 587
       ExplicitHeight = 26
     end
   end
   inherited pnlCuerpo: TPanel
     Width = 665
     Height = 322
-    ExplicitWidth = 735
+    ExplicitWidth = 665
     ExplicitHeight = 322
   end
   inherited ListView1: TListView
@@ -84,7 +84,7 @@ inherited fDialogListaPresupuestosEnvioEMail: TfDialogListaPresupuestosEnvioEMai
       end>
     ExplicitLeft = 0
     ExplicitTop = 66
-    ExplicitWidth = 735
+    ExplicitWidth = 665
     ExplicitHeight = 322
   end
   inherited ActionList1: TActionList
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas
index 3e6f1c70..e0b3b71e 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uDialogListaPresupuestosEnvioEMail.pas	
@@ -15,16 +15,20 @@ type
     procedure actAceptarExecute(Sender: TObject);
   private
     FPresupuestos : IBizPresupuestoCliente;
+    FVerSello: Integer;
     FController : IPresupuestosClienteController;
   protected
     function GetPresupuestos: IBizPresupuestoCliente;
     procedure SetPresupuestos(const Value: IBizPresupuestoCliente);
+    function GetVerSello: Integer;
+    procedure SetVerSello(const Value: Integer);
 
     procedure RellenarLista;
     procedure BorrarLista;
   public
     constructor Create(AOwner: TComponent); override;
     property Presupuestos: IBizPresupuestoCliente read GetPresupuestos write SetPresupuestos;
+    property VerSello: Integer read GetVerSello write SetVerSello;    
   end;
 
 implementation
@@ -52,7 +56,7 @@ begin
       begin
         if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_1) then
         begin
-          if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_1) then
+          if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_1, 'Presupuesto', '', VerSello) then
           begin
             ListView1.Items[i].SubItems[2] := 'Correo generado';
             ModalResult := mrOk;
@@ -66,7 +70,7 @@ begin
         else
         if not EsCadenaVacia(FPresupuestos.Cliente.EMAIL_2) then
         begin
-          if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_2) then
+          if FController.EnviarPresupuestoPorEMail(FPresupuestos, True, FPresupuestos.Cliente.EMAIL_2, 'Presupuesto', '', VerSello) then
           begin
             ListView1.Items[i].SubItems[2] := 'Correo generado';
             ModalResult := mrOk;
@@ -114,6 +118,7 @@ constructor TfDialogListaPresupuestosEnvioEMail.Create(AOwner: TComponent);
 begin
   inherited;
   ModalResult := mrCancel;
+  FVerSello := 1;
   FController := TPresupuestosClienteController.Create;
 end;
 
@@ -122,6 +127,11 @@ begin
   Result := FPresupuestos;
 end;
 
+function TfDialogListaPresupuestosEnvioEMail.GetVerSello: Integer;
+begin
+  Result := FVerSello;
+end;
+
 procedure TfDialogListaPresupuestosEnvioEMail.RellenarLista;
 var
   i : Integer;
@@ -176,4 +186,9 @@ begin
     BorrarLista;
 end;
 
+procedure TfDialogListaPresupuestosEnvioEMail.SetVerSello(const Value: Integer);
+begin
+  FVerSello := Value;
+end;
+
 end.
diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas
index 096f7c21..26c4984c 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestosCliente.pas	
@@ -223,12 +223,20 @@ end;
 procedure TfEditorPresupuestosCliente.actEnviarEMailExecute(Sender: TObject);
 var
   APresupuestos : IBizPresupuestoCliente;
+  AVerSello: Integer;
+  bEnviar: Boolean;
 
 begin
   inherited;
 
+  //Preguntamos si desea que en los presupuestos se vea el Sello de Paco u Oscar,
+  //solo para empresa Tecsitel
+  if (AppFactuGES.EmpresaActiva.ID = 1) then
+     if not ElegirOpcionesImpresionPresupuestoCliente(AVerSello) then
+        exit;
+
   if ViewGrid.NumSeleccionados = 1 then
-    FController.GenerarEmailPresupuesto(FPresupuestos)
+    FController.GenerarEmailPresupuesto(FPresupuestos, AVerSello)
 //    FController.EnviarPresupuestoPorEMail(FPresupuestos)
   else begin
     ShowHourglassCursor;
@@ -237,7 +245,7 @@ begin
       APresupuestos := (Controller as IPresupuestosClienteController).ExtraerSeleccionados(Presupuestos) as IBizPresupuestoCliente;
 
       if Assigned(APresupuestos) then
-         FController.EnviarEmailPresupuestos(APresupuestos);
+         FController.EnviarEmailPresupuestos(APresupuestos, AVerSello);
 //            RefrescarInterno;
     finally
       APresupuestos := NIL;
diff --git a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas
index 0b3c275c..7b88d603 100644
--- a/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
+++ b/Source/Modulos/Recibos de proveedor/Controller/uRecibosProveedorController.pas	
@@ -37,6 +37,8 @@ type
     function GetPagosController: IPagosProveedorController;
     procedure SetPagosController(const Value: IPagosProveedorController);
     property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
+    function GetProveedorController: IProveedoresController;
+    property ProveedorController: IProveedoresController read GetProveedorController;
 
     procedure Anadir(ARecibosProveedor : IBizRecibosProveedor);
     function AnadirPago(ARecibosProveedor : IBizRecibosProveedor; FechaPago: String =''): Boolean;
@@ -90,11 +92,13 @@ type
   protected
     FDataModule : IDataModuleRecibosProveedor;
     FPagosController : IPagosProveedorController;
-    FClienteController : IProveedoresController;
+    FProveedorController : IProveedoresController;
 
     function GetPagosController: IPagosProveedorController;
     procedure SetPagosController(const Value: IPagosProveedorController);
 
+    function GetProveedorController: IProveedoresController;
+
   	function _Vacio : IBizRecibosProveedor;
 
     function ValidarReciboProveedor(ARecibosProveedor: IBizRecibosProveedor): Boolean;
@@ -103,6 +107,8 @@ type
 
   public
     property PagosController: IPagosProveedorController read GetPagosController write SetPagosController;
+    property ProveedorController: IProveedoresController read GetProveedorController;
+
     constructor Create; override;
     destructor Destroy; override;
 
@@ -245,7 +251,7 @@ begin
   inherited;
   AsignarDataModule;
   FPagosController := TPagosProveedorController.Create;
-  FClienteController := TProveedoresController.Create;
+  FProveedorController := TProveedoresController.Create;
 //  FPagosController.addObservador(Self);   //PETA NO SE PORQUE
 end;
 
@@ -488,7 +494,7 @@ destructor TRecibosProveedorController.Destroy;
 begin
   FDataModule := NIL;
   FPagosController := NIL;
-  FClienteController := NIL;
+  FProveedorController := NIL;
   inherited;
 end;
 
@@ -686,7 +692,7 @@ end;
 procedure TRecibosProveedorController.RecuperarCliente(
   AReciboProveedor: IBizRecibosProveedor);
 begin
-  AReciboProveedor._Proveedor := (FClienteController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor);
+  AReciboProveedor._Proveedor := (FProveedorController.Buscar(AReciboProveedor.ID_PROVEEDOR) as IBizProveedor);
 end;
 
 function TRecibosProveedorController.GetPagosController: IPagosProveedorController;
@@ -694,6 +700,11 @@ begin
   Result := FPagosController;
 end;
 
+function TRecibosProveedorController.GetProveedorController: IProveedoresController;
+begin
+  Result := FProveedorController;
+end;
+
 procedure TRecibosProveedorController.SetPagosController(const Value: IPagosProveedorController);
 begin
   FPagosController := Value;
diff --git a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm
index 2ec5a4b7..77dd28aa 100644
--- a/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Data/uDataModuleRecibosProveedor.dfm	
@@ -403,6 +403,11 @@ inherited DataModuleRecibosProveedor: TDataModuleRecibosProveedor
         DataType = datInteger
         DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
       end
+      item
+        Name = 'DATOS_BANCARIOS_FACTURA'
+        DataType = datString
+        Size = 255
+      end
       item
         Name = 'DATOS_BANCARIOS'
         DataType = datString
diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas
index 5c753e70..8487f91d 100644
--- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas	
+++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorClient_Intf.pas	
@@ -3,16 +3,16 @@ unit schRecibosProveedorClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 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_ListaAnosRecibos = '{E517AD0B-3117-47E6-BDE0-C6F56CA71A1D}';
-  RID_RecibosCompensadosProv = '{9EAB41F6-5853-4683-A0E3-F66C12232C03}';
-  RID_RecibosProveedor = '{2344F4F7-8139-44E1-B225-3E581F4B9FB2}';
-  RID_PagosProveedor = '{873FD5ED-817D-4AF3-81CF-5D3290B15090}';
+  RID_ListaAnosRecibos = '{F3340670-6908-41EB-9A56-A0889A17B0EE}';
+  RID_RecibosCompensadosProv = '{E3E62EB4-5556-44A8-99C4-013EA2373D58}';
+  RID_RecibosProveedor = '{643C6FA4-C971-4D12-A1CE-4D1FFF54183B}';
+  RID_PagosProveedor = '{F6275C5E-F7BE-454A-9113-8AB468D2F7AC}';
 
   { Data table names }
   nme_ListaAnosRecibos = 'ListaAnosRecibos';
@@ -108,6 +108,7 @@ const
   fld_RecibosProveedorFORMA_PAGO_FACTURA = 'FORMA_PAGO_FACTURA';
   fld_RecibosProveedorIMPORTE_FACTURA = 'IMPORTE_FACTURA';
   fld_RecibosProveedorID_EMPRESA = 'ID_EMPRESA';
+  fld_RecibosProveedorDATOS_BANCARIOS_FACTURA = 'DATOS_BANCARIOS_FACTURA';
   fld_RecibosProveedorDATOS_BANCARIOS = 'DATOS_BANCARIOS';
   fld_RecibosProveedorID_PROVEEDOR = 'ID_PROVEEDOR';
   fld_RecibosProveedorNOMBRE_PROVEEDOR = 'NOMBRE_PROVEEDOR';
@@ -138,13 +139,14 @@ const
   idx_RecibosProveedorFORMA_PAGO_FACTURA = 18;
   idx_RecibosProveedorIMPORTE_FACTURA = 19;
   idx_RecibosProveedorID_EMPRESA = 20;
-  idx_RecibosProveedorDATOS_BANCARIOS = 21;
-  idx_RecibosProveedorID_PROVEEDOR = 22;
-  idx_RecibosProveedorNOMBRE_PROVEEDOR = 23;
-  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 24;
-  idx_RecibosProveedorFECHA_ALTA = 25;
-  idx_RecibosProveedorFECHA_MODIFICACION = 26;
-  idx_RecibosProveedorUSUARIO = 27;
+  idx_RecibosProveedorDATOS_BANCARIOS_FACTURA = 21;
+  idx_RecibosProveedorDATOS_BANCARIOS = 22;
+  idx_RecibosProveedorID_PROVEEDOR = 23;
+  idx_RecibosProveedorNOMBRE_PROVEEDOR = 24;
+  idx_RecibosProveedorNIF_CIF_PROVEEDOR = 25;
+  idx_RecibosProveedorFECHA_ALTA = 26;
+  idx_RecibosProveedorFECHA_MODIFICACION = 27;
+  idx_RecibosProveedorUSUARIO = 28;
 
   { PagosProveedor fields }
   fld_PagosProveedorID = 'ID';
@@ -177,7 +179,7 @@ const
 type
   { IListaAnosRecibos }
   IListaAnosRecibos = interface(IDAStronglyTypedDataTable)
-  ['{738763D4-26C6-4F0D-BB6E-D638C380B114}']
+  ['{59463B0B-E289-4B8F-A18B-C31E4C76E34B}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -212,7 +214,7 @@ type
 
   { IRecibosCompensadosProv }
   IRecibosCompensadosProv = interface(IDAStronglyTypedDataTable)
-  ['{43B7C892-1530-424B-B6B0-380E0A018456}']
+  ['{E5864951-5BE9-4929-A2A9-4CE1B2A23A01}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -571,7 +573,7 @@ type
 
   { IRecibosProveedor }
   IRecibosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{A7B468FD-DB65-4615-A6C5-1E2807D62ABE}']
+  ['{B4198E89-9A06-4D57-A05C-BC64EA058528}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -657,6 +659,10 @@ type
     procedure SetID_EMPRESAValue(const aValue: Integer);
     function GetID_EMPRESAIsNull: Boolean;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean);
+    function GetDATOS_BANCARIOS_FACTURAValue: String;
+    procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
+    function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean;
+    procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
     function GetDATOS_BANCARIOSValue: String;
     procedure SetDATOS_BANCARIOSValue(const aValue: String);
     function GetDATOS_BANCARIOSIsNull: Boolean;
@@ -730,6 +736,8 @@ type
     property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property DATOS_BANCARIOS_FACTURA: String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
+    property DATOS_BANCARIOS_FACTURAIsNull: Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
     property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
     property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -835,6 +843,10 @@ type
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     function GetID_EMPRESAIsNull: Boolean; virtual;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetDATOS_BANCARIOS_FACTURAValue: String; virtual;
+    procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String); virtual;
+    function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
+    procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetDATOS_BANCARIOSValue: String; virtual;
     procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
     function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
@@ -907,6 +919,8 @@ type
     property IMPORTE_FACTURAIsNull: Boolean read GetIMPORTE_FACTURAIsNull write SetIMPORTE_FACTURAIsNull;
     property ID_EMPRESA: Integer read GetID_EMPRESAValue write SetID_EMPRESAValue;
     property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
+    property DATOS_BANCARIOS_FACTURA: String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
+    property DATOS_BANCARIOS_FACTURAIsNull: Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
     property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
     property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
     property ID_PROVEEDOR: Integer read GetID_PROVEEDORValue write SetID_PROVEEDORValue;
@@ -930,7 +944,7 @@ type
 
   { IPagosProveedor }
   IPagosProveedor = interface(IDAStronglyTypedDataTable)
-  ['{6A3FB0F1-D6B5-49C4-A298-F046CF5DA655}']
+  ['{F3378247-D165-4514-93AF-C95E3EBFA6C7}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2184,6 +2198,27 @@ begin
     DataTable.Fields[idx_RecibosProveedorID_EMPRESA].AsVariant := Null;
 end;
 
+function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOS_FACTURAValue: String;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsString;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
+begin
+  DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsString := aValue;
+end;
+
+function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOS_FACTURAIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].IsNull;
+end;
+
+procedure TRecibosProveedorDataTableRules.SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS_FACTURA].AsVariant := Null;
+end;
+
 function TRecibosProveedorDataTableRules.GetDATOS_BANCARIOSValue: String;
 begin
   result := DataTable.Fields[idx_RecibosProveedorDATOS_BANCARIOS].AsString;
diff --git a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas
index 50f8a457..db5e486f 100644
--- a/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas	
+++ b/Source/Modulos/Recibos de proveedor/Model/schRecibosProveedorServer_Intf.pas	
@@ -9,15 +9,15 @@ const
   { Delta 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_ListaAnosRecibosDelta = '{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}';
-  RID_RecibosCompensadosProvDelta = '{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}';
-  RID_RecibosProveedorDelta = '{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}';
-  RID_PagosProveedorDelta = '{E48CD2E0-5DD4-41AF-97DE-F945B013E452}';
+  RID_ListaAnosRecibosDelta = '{1F24C3BC-C859-4BD8-B179-B9BBBFD4D21B}';
+  RID_RecibosCompensadosProvDelta = '{9D1EDAFA-0389-4262-B4D8-7A977362C752}';
+  RID_RecibosProveedorDelta = '{F8505DBE-F3D0-485D-9EA0-E392B211F0DB}';
+  RID_PagosProveedorDelta = '{56A87944-9E91-4853-8C3D-E700832370FD}';
 
 type
   { IListaAnosRecibosDelta }
   IListaAnosRecibosDelta = interface(IListaAnosRecibos)
-  ['{7319675D-5CEC-4118-8CA5-D1D9A3E862B7}']
+  ['{1F24C3BC-C859-4BD8-B179-B9BBBFD4D21B}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { IRecibosCompensadosProvDelta }
   IRecibosCompensadosProvDelta = interface(IRecibosCompensadosProv)
-  ['{96E9C110-BDAA-4E8E-B142-2F74CCFDBC74}']
+  ['{9D1EDAFA-0389-4262-B4D8-7A977362C752}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -409,7 +409,7 @@ type
 
   { IRecibosProveedorDelta }
   IRecibosProveedorDelta = interface(IRecibosProveedor)
-  ['{AB79EADA-4BE6-4E51-BFEA-C4F1C20E8059}']
+  ['{F8505DBE-F3D0-485D-9EA0-E392B211F0DB}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBO_COMPENSADOValue : Integer;
@@ -432,6 +432,7 @@ type
     function GetOldFORMA_PAGO_FACTURAValue : String;
     function GetOldIMPORTE_FACTURAValue : Currency;
     function GetOldID_EMPRESAValue : Integer;
+    function GetOldDATOS_BANCARIOS_FACTURAValue : String;
     function GetOldDATOS_BANCARIOSValue : String;
     function GetOldID_PROVEEDORValue : Integer;
     function GetOldNOMBRE_PROVEEDORValue : String;
@@ -462,6 +463,7 @@ type
     property OldFORMA_PAGO_FACTURA : String read GetOldFORMA_PAGO_FACTURAValue;
     property OldIMPORTE_FACTURA : Currency read GetOldIMPORTE_FACTURAValue;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
+    property OldDATOS_BANCARIOS_FACTURA : String read GetOldDATOS_BANCARIOS_FACTURAValue;
     property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
     property OldID_PROVEEDOR : Integer read GetOldID_PROVEEDORValue;
     property OldNOMBRE_PROVEEDOR : String read GetOldNOMBRE_PROVEEDORValue;
@@ -602,6 +604,12 @@ type
     function GetOldID_EMPRESAIsNull: Boolean; virtual;
     procedure SetID_EMPRESAValue(const aValue: Integer); virtual;
     procedure SetID_EMPRESAIsNull(const aValue: Boolean); virtual;
+    function GetDATOS_BANCARIOS_FACTURAValue: String; virtual;
+    function GetDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
+    function GetOldDATOS_BANCARIOS_FACTURAValue: String; virtual;
+    function GetOldDATOS_BANCARIOS_FACTURAIsNull: Boolean; virtual;
+    procedure SetDATOS_BANCARIOS_FACTURAValue(const aValue: String); virtual;
+    procedure SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean); virtual;
     function GetDATOS_BANCARIOSValue: String; virtual;
     function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
     function GetOldDATOS_BANCARIOSValue: String; virtual;
@@ -730,6 +738,10 @@ type
     property ID_EMPRESAIsNull : Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
     property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
     property OldID_EMPRESAIsNull : Boolean read GetOldID_EMPRESAIsNull;
+    property DATOS_BANCARIOS_FACTURA : String read GetDATOS_BANCARIOS_FACTURAValue write SetDATOS_BANCARIOS_FACTURAValue;
+    property DATOS_BANCARIOS_FACTURAIsNull : Boolean read GetDATOS_BANCARIOS_FACTURAIsNull write SetDATOS_BANCARIOS_FACTURAIsNull;
+    property OldDATOS_BANCARIOS_FACTURA : String read GetOldDATOS_BANCARIOS_FACTURAValue;
+    property OldDATOS_BANCARIOS_FACTURAIsNull : Boolean read GetOldDATOS_BANCARIOS_FACTURAIsNull;
     property DATOS_BANCARIOS : String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
     property DATOS_BANCARIOSIsNull : Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
     property OldDATOS_BANCARIOS : String read GetOldDATOS_BANCARIOSValue;
@@ -767,7 +779,7 @@ type
 
   { IPagosProveedorDelta }
   IPagosProveedorDelta = interface(IPagosProveedor)
-  ['{E48CD2E0-5DD4-41AF-97DE-F945B013E452}']
+  ['{56A87944-9E91-4853-8C3D-E700832370FD}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_RECIBOValue : Integer;
@@ -2521,6 +2533,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorID_EMPRESA] := Null;
 end;
 
+function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOS_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOS_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA]);
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOS_FACTURAValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA];
+end;
+
+function TRecibosProveedorBusinessProcessorRules.GetOldDATOS_BANCARIOS_FACTURAIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA]);
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOS_FACTURAValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA] := aValue;
+end;
+
+procedure TRecibosProveedorBusinessProcessorRules.SetDATOS_BANCARIOS_FACTURAIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS_FACTURA] := Null;
+end;
+
 function TRecibosProveedorBusinessProcessorRules.GetDATOS_BANCARIOSValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_RecibosProveedorDATOS_BANCARIOS];
diff --git a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj
index dd2f46a5..a6fef1fc 100644
--- a/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj	
+++ b/Source/Modulos/Recibos de proveedor/RecibosProveedor_Group.groupproj	
@@ -9,6 +9,9 @@
     <Projects Include="..\..\Cliente\FactuGES.dproj" />
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
+    <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
+    <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
+    <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
     <Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
     <Projects Include="Controller\RecibosProveedor_controller.dproj" />
     <Projects Include="Data\RecibosProveedor_data.dproj" />
@@ -121,14 +124,41 @@
   <Target Name="RecibosCliente_view:Make">
     <MSBuild Projects="..\Recibos de cliente\Views\RecibosCliente_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacturasCliente_view">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasCliente_view:Clean">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasCliente_view:Make">
+    <MSBuild Projects="..\Facturas de cliente\Views\FacturasCliente_view.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasProveedor_controller">
+    <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_controller:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_controller:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="FacturasProveedor_view">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Clean">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacturasProveedor_view:Make">
+    <MSBuild Projects="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;RecibosProveedor_model;RecibosProveedor_data;RecibosProveedor_controller;RecibosProveedor_view;RecibosProveedor_plugin;FactuGES;FactuGES_Server;RecibosCliente_view;FacturasCliente_view;FacturasProveedor_controller;FacturasProveedor_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;RecibosProveedor_model:Clean;RecibosProveedor_data:Clean;RecibosProveedor_controller:Clean;RecibosProveedor_view:Clean;RecibosProveedor_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;RecibosCliente_view:Clean;FacturasCliente_view:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;RecibosProveedor_model:Make;RecibosProveedor_data:Make;RecibosProveedor_controller:Make;RecibosProveedor_view:Make;RecibosProveedor_plugin:Make;FactuGES:Make;FactuGES_Server:Make;RecibosCliente_view:Make;FacturasCliente_view:Make;FacturasProveedor_controller:Make;FacturasProveedor_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>
\ No newline at end of file
diff --git a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm
index 716cfb2d..80f06cb4 100644
--- a/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Servidor/srvRecibosProveedor_Impl.dfm	
@@ -410,6 +410,10 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               item
                 DatasetField = 'USUARIO'
                 TableField = 'USUARIO'
+              end
+              item
+                DatasetField = 'DATOS_BANCARIOS_FACTURA'
+                TableField = 'DATOS_BANCARIOS_FACTURA'
               end>
           end>
         Name = 'RecibosProveedor'
@@ -530,6 +534,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datInteger
             DictionaryEntry = 'RecibosProveedor_ID_EMPRESA'
           end
+          item
+            Name = 'DATOS_BANCARIOS_FACTURA'
+            DataType = datString
+            Size = 255
+          end
           item
             Name = 'DATOS_BANCARIOS'
             DataType = datString
@@ -708,72 +717,67 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datAutoInc
             GeneratorName = 'GEN_RECIBOS_PROVEEDOR_ID'
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_FACTURA'
             DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'REFERENCIA'
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'REFERENCIA_PROVEEDOR'
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_EMISION'
             DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'DESCRIPCION'
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'OBSERVACIONES'
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'IMPORTE'
-            DataType = datFloat
+            DataType = datCurrency
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'OTROS_GASTOS'
-            DataType = datFloat
+            DataType = datCurrency
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'USUARIO'
             DataType = datString
-            Size = 20
+            Size = 30
+            Value = ''
+          end
+          item
+            Name = 'DATOS_BANCARIOS'
+            DataType = datString
+            Size = 255
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -782,10 +786,11 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             SQL = 
               'INSERT'#10'  INTO RECIBOS_PROVEEDOR'#10'    (ID, ID_FACTURA, REFERENCIA,' +
               ' REFERENCIA_PROVEEDOR, FECHA_EMISION, FECHA_VENCIMIENTO, DESCRIP' +
-              'CION, OBSERVACIONES,'#10'    IMPORTE, OTROS_GASTOS, USUARIO)'#10'  VALUE' +
-              'S'#10'    (:ID, :ID_FACTURA, :REFERENCIA, :REFERENCIA_PROVEEDOR, :FE' +
-              'CHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, :OBSERVACIONES,'#10' ' +
-              '   :IMPORTE, :OTROS_GASTOS, :USUARIO)'
+              'CION, OBSERVACIONES,'#10'    IMPORTE, OTROS_GASTOS, USUARIO, DATOS_B' +
+              'ANCARIOS)'#10'  VALUES'#10'    (:ID, :ID_FACTURA, :REFERENCIA, :REFERENC' +
+              'IA_PROVEEDOR, :FECHA_EMISION, :FECHA_VENCIMIENTO, :DESCRIPCION, ' +
+              ':OBSERVACIONES,'#10'    :IMPORTE, :OTROS_GASTOS, :USUARIO, :DATOS_BA' +
+              'NCARIOS)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -816,64 +821,59 @@ object srvRecibosProveedor: TsrvRecibosProveedor
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_EMISION'
             DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_VENCIMIENTO'
             DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'DESCRIPCION'
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'OBSERVACIONES'
             DataType = datString
             Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_REMESA'
             DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'IMPORTE'
-            DataType = datFloat
+            DataType = datCurrency
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'OTROS_GASTOS'
-            DataType = datFloat
+            DataType = datCurrency
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'USUARIO'
             DataType = datString
-            Size = 20
+            Size = 30
+            Value = ''
+          end
+          item
+            Name = 'DATOS_BANCARIOS'
+            DataType = datString
+            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'OLD_ID'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -885,7 +885,8 @@ object srvRecibosProveedor: TsrvRecibosProveedor
               'VENCIMIENTO = :FECHA_VENCIMIENTO,'#10'    DESCRIPCION = :DESCRIPCION' +
               ','#10'    OBSERVACIONES = :OBSERVACIONES,'#10'    ID_REMESA = :ID_REMESA' +
               ','#10'    IMPORTE = :IMPORTE,'#10'    OTROS_GASTOS = :OTROS_GASTOS,'#10'    ' +
-              'USUARIO = :USUARIO'#10'  WHERE'#10'    (ID = :OLD_ID)'
+              'USUARIO = :USUARIO,'#10'    DATOS_BANCARIOS = :DATOS_BANCARIOS'#10'  WHE' +
+              'RE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm
index 4a1ecbf1..36f2736a 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.dfm	
@@ -40,6 +40,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
     inherited lblDesbloquear: TcxLabel
       Left = 593
       ExplicitLeft = 593
+      AnchorX = 638
+      AnchorY = 14
     end
   end
   inherited TBXDock: TTBXDock
@@ -55,6 +57,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
   inherited pgPaginas: TPageControl
     Width = 685
     Height = 353
+    ActivePage = pagPagos
     ExplicitWidth = 685
     ExplicitHeight = 353
     inherited pagGeneral: TTabSheet
@@ -91,12 +94,16 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 50
+            Width = 50
           end
           inherited eSituacion: TcxDBTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 216
+            Width = 216
           end
           inherited edtFechaVencimiento: TcxDBDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -111,53 +118,55 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 274
+            Width = 274
           end
           inherited eFechaEmision: TcxDBTextEdit
-            Left = 355
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
             ExplicitWidth = 200
             Width = 200
           end
           inherited eFormaPago: TcxDBTextEdit
-            Left = 355
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
             ExplicitWidth = 200
             Width = 200
           end
           inherited eImporteTotal: TcxDBCurrencyEdit
-            Left = 355
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             Style.IsFontAssigned = True
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
             ExplicitWidth = 200
             Width = 200
           end
           inherited eNombreCliente: TcxDBTextEdit
-            Left = 355
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
           end
           inherited eNifCif: TcxDBTextEdit
-            Left = 355
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
             ExplicitWidth = 255
             Width = 255
           end
@@ -166,6 +175,8 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 113
+            Width = 113
           end
           inherited edtFechaEmision: TcxDBDateEdit
             Style.LookAndFeel.SkinName = ''
@@ -184,12 +195,12 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             Width = 129
           end
           inherited rReferenciaFacturaProv: TcxDBTextEdit
-            Left = 355
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
             ExplicitWidth = 200
             Width = 200
           end
@@ -198,17 +209,35 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 216
+            Width = 216
           end
-          inherited eCuenta: TcxDBTextEdit
-            Left = 355
+          inherited eCuentaFactura: TcxDBTextEdit
+            Left = 338
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 355
+            ExplicitLeft = 338
             ExplicitWidth = 83
             Width = 83
           end
+          inherited eCuentaRecibo: TcxDBTextEdit
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 300
+            Width = 300
+          end
+          inherited cbCuentaBancaria: TcxDBComboBox
+            Style.LookAndFeel.SkinName = ''
+            StyleDisabled.LookAndFeel.SkinName = ''
+            StyleFocused.LookAndFeel.SkinName = ''
+            StyleHot.LookAndFeel.SkinName = ''
+            ExplicitWidth = 158
+            Width = 158
+          end
         end
       end
     end
@@ -274,6 +303,7 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
     object pagCompensados: TTabSheet
       Caption = 'Compensados'
       ImageIndex = 2
+      TabVisible = False
       inline frViewRecibosProvCompensados1: TfrViewRecibosProvCompensados
         Left = 0
         Top = 0
@@ -308,6 +338,18 @@ inherited fEditorReciboProveedor: TfEditorReciboProveedor
         inherited ToolBar1: TToolBar
           Width = 677
           ExplicitWidth = 677
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
           inherited ToolButton3: TToolButton
             Top = 0
             ExplicitTop = 0
diff --git a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas
index 3d83454c..a436e2e5 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uEditorReciboProveedor.pas	
@@ -297,9 +297,10 @@ procedure TfEditorReciboProveedor.SetController(const Value: IRecibosProveedorCo
 begin
   FController := Value;
   if Assigned(FController) then
+  begin
      frViewRecibosProvCompensados1.Controller := FController;
-
-//    (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
+     (ViewRecibo as IViewReciboProveedor).Controller := (FController as IRecibosProveedorController);
+  end;
 end;
 
 procedure TfEditorReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm
index 962ca605..c3f5dfc6 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.dfm	
@@ -14,7 +14,6 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
     LookAndFeel = dxLayoutOfficeLookAndFeel1
-    ExplicitWidth = 618
     DesignSize = (
       748
       342)
@@ -50,7 +49,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
     end
     object eSituacion: TcxDBTextEdit
       Left = 136
-      Top = 138
+      Top = 165
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'SITUACION'
       DataBinding.DataSource = DADataSource
@@ -75,7 +74,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 4
+      TabOrder = 5
       Width = 216
     end
     object edtFechaVencimiento: TcxDBDateEdit
@@ -106,7 +105,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
     end
     object memObservaciones: TcxDBMemo
       Left = 22
-      Top = 267
+      Top = 294
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
@@ -122,12 +121,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 7
+      TabOrder = 8
       Height = 49
       Width = 274
     end
     object eFechaEmision: TcxDBTextEdit
-      Left = 426
+      Left = 409
       Top = 57
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_FACTURA'
@@ -153,11 +152,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 9
+      TabOrder = 10
       Width = 20
     end
     object eFormaPago: TcxDBTextEdit
-      Left = 426
+      Left = 409
       Top = 84
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FORMA_PAGO_FACTURA'
@@ -183,11 +182,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 10
+      TabOrder = 11
       Width = 42
     end
     object eImporteTotal: TcxDBCurrencyEdit
-      Left = 426
+      Left = 409
       Top = 138
       AutoSize = False
       DataBinding.DataField = 'IMPORTE_FACTURA'
@@ -218,12 +217,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 12
+      TabOrder = 13
       Height = 21
       Width = 182
     end
     object eNombreCliente: TcxDBTextEdit
-      Left = 426
+      Left = 409
       Top = 221
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NOMBRE_PROVEEDOR'
@@ -249,11 +248,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 14
+      TabOrder = 15
       Width = 300
     end
     object eNifCif: TcxDBTextEdit
-      Left = 426
+      Left = 409
       Top = 194
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'NIF_CIF_PROVEEDOR'
@@ -279,12 +278,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 13
+      TabOrder = 14
       Width = 147
     end
     object eRemesa: TcxDBTextEdit
       Left = 136
-      Top = 165
+      Top = 192
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataSource = DADataSource
       Enabled = False
@@ -308,7 +307,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 5
+      TabOrder = 6
       Width = 113
     end
     object edtFechaEmision: TcxDBDateEdit
@@ -370,7 +369,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       Width = 100
     end
     object rReferenciaFacturaProv: TcxDBTextEdit
-      Left = 426
+      Left = 409
       Top = 30
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_FACTURA_PROV'
@@ -396,12 +395,12 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 8
+      TabOrder = 9
       Width = 157
     end
     object rRefReciboCompensado: TcxDBTextEdit
       Left = 136
-      Top = 216
+      Top = 243
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA_REC_COMPENSADO'
       DataBinding.DataSource = DADataSource
@@ -426,14 +425,14 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 6
+      TabOrder = 7
       Width = 216
     end
-    object eCuenta: TcxDBTextEdit
-      Left = 426
+    object eCuentaFactura: TcxDBTextEdit
+      Left = 409
       Top = 111
       Anchors = [akLeft, akTop, akRight]
-      DataBinding.DataField = 'DATOS_BANCARIOS'
+      DataBinding.DataField = 'DATOS_BANCARIOS_FACTURA'
       DataBinding.DataSource = DADataSource
       Enabled = False
       Properties.ReadOnly = False
@@ -456,9 +455,31 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 11
+      TabOrder = 12
       Width = 150
     end
+    object cbCuentaBancaria: TcxDBComboBox
+      Left = 136
+      Top = 138
+      DataBinding.DataField = 'DATOS_BANCARIOS'
+      DataBinding.DataSource = DADataSource
+      Properties.DropDownListStyle = lsFixedList
+      Properties.DropDownRows = 12
+      Properties.ImmediatePost = True
+      Properties.ImmediateUpdateText = True
+      Properties.PostPopupValueOnTab = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.SkinName = ''
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.SkinName = ''
+      StyleFocused.LookAndFeel.SkinName = ''
+      StyleHot.LookAndFeel.SkinName = ''
+      TabOrder = 4
+      Width = 158
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -499,6 +520,11 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
             Control = edtFechaVencimiento
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item13: TdxLayoutItem
+            Caption = 'Cuenta bancaria:'
+            Control = cbCuentaBancaria
+            ControlOptions.ShowBorder = False
+          end
           object dxLayoutControl1Item2: TdxLayoutItem
             AutoAligns = [aaVertical]
             AlignHorz = ahClient
@@ -561,7 +587,7 @@ inherited frViewReciboProveedor: TfrViewReciboProveedor
           end
           object dxLayoutControl1Item6: TdxLayoutItem
             Caption = 'Cuenta bancaria:'
-            Control = eCuenta
+            Control = eCuentaFactura
             ControlOptions.ShowBorder = False
           end
           object dxLayoutControl1Item9: TdxLayoutItem
diff --git a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas
index 654dec57..fd021b06 100644
--- a/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas	
+++ b/Source/Modulos/Recibos de proveedor/Views/uViewReciboProveedor.pas	
@@ -4,10 +4,11 @@ interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, uViewBase, uBizRecibosProveedor, DB, uDADataTable, dxLayoutControl,
+  Dialogs, uViewBase, uBizRecibosProveedor, uRecibosProveedorController,
+  DB, uDADataTable, dxLayoutControl,
   cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
   cxCalendar, cxContainer, cxEdit, cxTextEdit, dxLayoutLookAndFeels, ExtCtrls,
-  uDAInterfaces;
+  uDAInterfaces, cxGraphics;
 
 type
   IViewReciboProveedor = interface(IViewBase)
@@ -15,6 +16,10 @@ type
     function GetRecibo: IBizRecibosProveedor;
     procedure SetRecibo(const Value: IBizRecibosProveedor);
     property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
+    function GetController : IRecibosProveedorController;
+    procedure SetController (const Value : IRecibosProveedorController);
+    property Controller : IRecibosProveedorController read GetController write SetController;
+
   end;
 
 
@@ -60,32 +65,106 @@ type
     dxLayoutControl1Item4: TdxLayoutItem;
     rRefReciboCompensado: TcxDBTextEdit;
     dxLayoutControl1Item6: TdxLayoutItem;
-    eCuenta: TcxDBTextEdit;
+    eCuentaFactura: TcxDBTextEdit;
+    dxLayoutControl1Item13: TdxLayoutItem;
+    cbCuentaBancaria: TcxDBComboBox;
   private
     FRecibo : IBizRecibosProveedor;
+    FController : IRecibosProveedorController;
     function GetRecibo: IBizRecibosProveedor;
     procedure SetRecibo(const Value: IBizRecibosProveedor);
+    function GetController : IRecibosProveedorController;
+    procedure SetController (const Value : IRecibosProveedorController);
+
+  protected
+    procedure RellenarCuentasBancarias;
   public
     property Recibo: IBizRecibosProveedor read GetRecibo write SetRecibo;
+    property Controller : IRecibosProveedorController read GetController write SetController;
   end;
 
 var
   frViewReciboProveedor: TfrViewReciboProveedor;
 
 implementation
-
 {$R *.dfm}
-
 { TfrViewReciboProveedor }
+uses
+  uEmpresasController, uFactuGES_App;
+
+function TfrViewReciboProveedor.GetController: IRecibosProveedorController;
+begin
+  Result := FController;
+end;
 
 function TfrViewReciboProveedor.GetRecibo: IBizRecibosProveedor;
 begin
   Result := FRecibo;
 end;
 
+procedure TfrViewReciboProveedor.RellenarCuentasBancarias;
+var
+  AController : IEmpresasController;
+  ALista : TStringList;
+  AListaIBAN : TStringList;
+  AListaProveedor : TStringList;
+  i : integer;
+begin
+  AController := TEmpresasController.Create;
+  try
+    ALista := AController.DarListaCuentasBancarias(AppFactuGES.EmpresaActiva);  
+    AListaIBAN := AController.DarListaCuentasBancariasIBAN(AppFactuGES.EmpresaActiva);
+    AListaProveedor := Controller.ProveedorController.DarListaCuentasBancarias(FRecibo.ID_PROVEEDOR);
+
+    try
+      with cbCuentaBancaria.Properties.Items do
+      begin
+        BeginUpdate;
+        try
+          Clear;
+          Add('');
+          for i := 0 to ALista.Count - 1 do
+            Add(ALista.Names[i]);
+
+          if AListaIBAN.Count > 0 then
+          begin
+            for i := 0 to AListaIBAN.Count - 1 do
+              Add(AListaIBAN.Names[i]);
+          end;
+
+          if AListaProveedor.Count > 0 then
+          begin
+            Add('--------------');
+            for i := 0 to AListaProveedor.Count - 1 do
+              Add(AListaProveedor.Names[i]);
+          end;
+
+        finally
+          EndUpdate;
+        end;
+      end;
+    finally
+      FreeANDNIL(ALista);
+      FreeANDNIL(AListaIBAN);
+      FreeANDNIL(AListaProveedor);
+    end;
+  finally
+    AController := NIL;
+  end;
+
+end;
+
+procedure TfrViewReciboProveedor.SetController(const Value: IRecibosProveedorController);
+begin
+  FController := Value;
+end;
+
 procedure TfrViewReciboProveedor.SetRecibo(const Value: IBizRecibosProveedor);
 begin
   FRecibo := Value;
+
+  RellenarCuentasBancarias;
+
   if Assigned(FRecibo) then
     DADataSource.DataTable := FRecibo.DataTable
   else
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 8e02e02c8197eb51309bd37ed976376f6d29934b..e04ec771edf2f5007faaaa78b6eb99e21e51d4b7 100644
GIT binary patch
delta 123
zcmdn6jd9I3#tnBO7!4-hjgSYDe<Mse*%%lYn1GmVvUQ{^<AlkPk;;rYlWQZ}8O<iM
zMwN4$G3YTE0OeB{lqR=F=^7d^m@p^+d8t4$mm!g%h@pxhA1-19RBH%UVaQ<4U<G7b
JPJS8X4glc091H*e

delta 127
zcmZ3pjd24I-HBi{nS3`w9!UO;Fy&-rU|?VZV%Evlk+O_aCPzjpGZsv)jcjK$oy;0l
z&TYz|$6x@I&tOoQ+#aQCYRF*0pumvAkP0NzfMgOw5s)lm$cKv>0o5Bam;m`8(u%=|
K!Fcl1D0cu{&m7kP

diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index cd2dcc3c..176abd94 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -111,8 +111,6 @@ uses
   schObrasServer_Intf in '..\Modulos\Obras\Model\schObrasServer_Intf.pas',
   schRecibosClienteClient_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas',
   schRecibosClienteServer_Intf in '..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas',
-  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
-  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas',
   uRptFacturasProveedor_Server in '..\Modulos\Facturas de proveedor\Reports\uRptFacturasProveedor_Server.pas' {RptFacturasProveedor: TDataModule},
   uRptRecibosProveedor_Server in '..\Modulos\Recibos de proveedor\Reports\uRptRecibosProveedor_Server.pas' {RptRecibosProveedor: TDataModule},
   schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas',
@@ -135,7 +133,9 @@ uses
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
   schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
-  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas';
+  schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas',
+  schRecibosProveedorClient_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas',
+  schRecibosProveedorServer_Intf in '..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index db2e71b7..19180dee 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -1,334 +1,334 @@
-<?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_D11R;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>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
-    <DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
-    <DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
-    <DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(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">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">viernes, 24 de enero de 2014 18:50</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
-    </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">
-      <Form>srvProvinciasPoblaciones_Impl</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
-      <Form>srvUsuarios</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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\Reports\uRptAlbaranesProveedor_Server.pas">
-      <Form>RptAlbaranesProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
-      <Form>RptWordAlbaranProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <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\Reports\uRptFacturasProveedor_Server.pas">
-      <Form>RptFacturasProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <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">
-      <Form>srvFamilias</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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">
-      <Form>srvFormasPago</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
-      <Form>srvGestorDocumentos</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
-      <Form>srvGestorInformes</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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">
-      <Form>srvObras</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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\Reports\uRptRecibosProveedor_Server.pas">
-      <Form>RptRecibosProveedor</Form>
-      <DesignClass>TDataModule</DesignClass>
-    </DCCReference>
-    <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">
-      <Form>srvTiposIVA</Form>
-      <DesignClass>TDataAbstractService</DesignClass>
-    </DCCReference>
-    <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\MidasSpeedFix.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_D11R;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>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
+		<DCC_ResourcePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
+		<DCC_ObjPath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
+		<DCC_IncludePath>C:\jcl\lib\d11\debug;C:\JCL\lib\d11\debug;$(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">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 04 de marzo de 2014 11:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
+					</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">
+			<Form>srvProvinciasPoblaciones_Impl</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
+		<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas">
+			<Form>srvUsuarios</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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\Reports\uRptAlbaranesProveedor_Server.pas">
+			<Form>RptAlbaranesProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Albaranes de proveedor\Reports\uRptWordAlbaranProveedor.pas">
+			<Form>RptWordAlbaranProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<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\Reports\uRptFacturasProveedor_Server.pas">
+			<Form>RptFacturasProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<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">
+			<Form>srvFamilias</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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">
+			<Form>srvFormasPago</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas">
+			<Form>srvGestorDocumentos</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<DCCReference Include="..\Modulos\Gestor de informes\Servidor\srvGestorInformes_Impl.pas">
+			<Form>srvGestorInformes</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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">
+			<Form>srvObras</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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\Reports\uRptRecibosProveedor_Server.pas">
+			<Form>RptRecibosProveedor</Form>
+			<DesignClass>TDataModule</DesignClass>
+		</DCCReference>
+		<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">
+			<Form>srvTiposIVA</Form>
+			<DesignClass>TDataAbstractService</DesignClass>
+		</DCCReference>
+		<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\MidasSpeedFix.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 25f71cf0..ad6138be 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -1,7 +1,7 @@
 MAINICON ICON "C:\Codigo tecsitel\Resources\Iconos\Servidor.ico"
 1 VERSIONINFO
-FILEVERSION 2,0,5,0
-PRODUCTVERSION 2,0,5,0
+FILEVERSION 2,0,6,0
+PRODUCTVERSION 2,0,6,0
 FILEFLAGSMASK 0x3FL
 FILEFLAGS 0x00L
 FILEOS 0x40004L
@@ -13,10 +13,10 @@ BEGIN
          BLOCK "0C0A04E4"
          BEGIN
               VALUE "CompanyName", "Rodax Software S.L.\0"
-              VALUE "FileVersion", "2.0.5.0\0"
+              VALUE "FileVersion", "2.0.6.0\0"
               VALUE "ProductName", "FactuGES Servidor\0"
-              VALUE "ProductVersion", "2.0.5.0\0"
-              VALUE "CompileDate", "martes, 18 de febrero de 2014 14:23\0"
+              VALUE "ProductVersion", "2.0.6.0\0"
+              VALUE "CompileDate", "martes, 04 de marzo de 2014 17:19\0"
          END
     END
     BLOCK "VarFileInfo"