Documentos relacionados de vendedor

git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@132 f33bb606-9f5c-448d-9c99-757f00063c96

Database/scripts/factuges.sql

@@ -4331,7 +4331,8 @@ CREATE VIEW V_PEDIDOS_CLIENTE(
     FORMA_PAGO,
     REF_TIENDA_WEB,
     FECHA_PREVISTA_ENVIO,
-    DATOS_BANCARIOS)
+    DATOS_BANCARIOS,
+    ID_VENDEDOR)
 AS
 SELECT
   PEDIDOS_CLIENTE.ID,
@@ -4369,12 +4370,14 @@ SELECT
   FORMAS_PAGO.DESCRIPCION,
   PEDIDOS_CLIENTE.REF_TIENDA_WEB,
   PEDIDOS_CLIENTE.FECHA_PREVISTA_ENVIO,
-  PEDIDOS_CLIENTE.DATOS_BANCARIOS
+  PEDIDOS_CLIENTE.DATOS_BANCARIOS,
+  clientes_datos.id_agente
 FROM
   V_PED_CLI_SITUACION
   INNER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = V_PED_CLI_SITUACION.ID_PEDIDO)
   INNER JOIN CONTACTOS ON (PEDIDOS_CLIENTE.ID_CLIENTE = CONTACTOS.ID)
   LEFT OUTER JOIN FORMAS_PAGO ON (FORMAS_PAGO.ID = PEDIDOS_CLIENTE.ID_FORMA_PAGO)
+  left join clientes_datos on (clientes_datos.id_cliente = contactos.id)
 ;
 
 /**************************************************/

Source/ApplicationBase/uPlugins_Intf.pas

@@ -3,6 +3,8 @@ unit uPlugins_Intf;
 interface
 
 const
+  MODULENAME_CONTACTOS = 'Contactos_plugin.bpl';
+  
   MODULENAME_PRESUPUESTOS_CLIENTE = 'PresupuestosCliente_plugin.bpl';
   MODULENAME_PEDIDOS_CLIENTE = 'PedidosCliente_plugin.bpl';
   MODULENAME_ALBARANES_CLIENTE = 'AlbaranesCliente_plugin.bpl';
@@ -16,6 +18,12 @@ const
   MODULENAME_COMISIONES = 'Comisiones_plugin.bpl';
 
 type
+  IMCContactos = interface(IInterface)
+    ['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
+    procedure VerClientesVendedor(const ID_Vendedor: Integer;
+      const ANombreVendedor : String = '');
+  end;
+
   IMCPresupuestosCliente = interface(IInterface)
     ['{D09E6FFF-50C7-48E2-8380-4CB57B74BB93}']
     procedure VerPresupuestos(const ID_Cliente: Integer;
@@ -26,6 +34,8 @@ type
   ['{6ACDE97F-AC9A-406C-8ADC-3B730D01CB89}']
     procedure VerPedidos(const ID_Cliente: Integer;
       const ANombreCliente : String = '');
+    procedure VerPedidosVendedor(const ID_Vendedor: Integer;
+      const ANombreVendedor : String = '');
   end;
 
   IMCAlbaranesCliente = interface(IInterface)

Source/Base/Base.dproj

@@ -53,58 +53,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Inventario\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\designide.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\SpTBXLib_d11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\tb2k_d11.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Inventario\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servidor\adortl.dcp" />
+    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
+    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExportD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxGridD11.dcp" />
+    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
+    <DCCReference Include="..\Servidor\designide.dcp" />
+    <DCCReference Include="..\Servidor\dsnap.dcp" />
+    <DCCReference Include="..\Servidor\dxCoreD11.dcp" />
+    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Servidor\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Servidor\IndyCore.dcp" />
+    <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
+    <DCCReference Include="..\Servidor\IndySystem.dcp" />
+    <DCCReference Include="..\Servidor\Jcl.dcp" />
+    <DCCReference Include="..\Servidor\JclVcl.dcp" />
+    <DCCReference Include="..\Servidor\JSDialog100.dcp" />
+    <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Servidor\pckMD5.dcp" />
+    <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\Servidor\SpTBXLib_d11.dcp" />
+    <DCCReference Include="..\Servidor\tb2k_d11.dcp" />
+    <DCCReference Include="..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\Servidor\vclactnband.dcp" />
+    <DCCReference Include="..\Servidor\vcldb.dcp" />
+    <DCCReference Include="..\Servidor\vcljpg.dcp" />
+    <DCCReference Include="..\Servidor\VclSmp.dcp" />
+    <DCCReference Include="..\Servidor\vclx.dcp" />
+    <DCCReference Include="..\Servidor\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Cliente/FactuGES.dpr

@@ -1,7 +1,6 @@
 program FactuGES;
 
 uses
-  ExceptionLog,
   Forms,
   Windows,
   SysUtils,

Source/Cliente/FactuGES.dproj

@@ -54,7 +54,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">1</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">1.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">1.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>
+<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">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">1.0.7.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">1.0.7.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>

Source/Cliente/uBootStrap.pas

@@ -27,7 +27,7 @@ begin
 //    LoadModule('Fabricantes_plugin.bpl');
 //    LoadModule('UnidadesMedida_plugin.bpl');
 
-    LoadModule('Contactos_plugin.bpl');
+    LoadModule(MODULENAME_CONTACTOS);
 
     LoadModule('Almacenes_plugin.bpl');
 //    LoadModule('Obras_plugin.bpl');

Source/Modulos/Albaranes de cliente/AlbaranesCliente_Group.groupproj

@@ -19,6 +19,7 @@
     <Projects Include="..\Facturas de cliente\Views\FacturasCliente_view.dproj" />
     <Projects Include="..\Facturas de proveedor\Views\FacturasProveedor_view.dproj" />
     <Projects Include="..\Pedidos a proveedor\Views\PedidosProveedor_view.dproj" />
+    <Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
     <Projects Include="..\Recibos de cliente\Views\RecibosCliente_view.dproj" />
     <Projects Include="..\Recibos de proveedor\Views\RecibosProveedor_view.dproj" />
@@ -281,14 +282,23 @@
   <Target Name="FacturasCliente_controller:Make">
     <MSBuild Projects="..\Facturas de cliente\Controller\FacturasCliente_controller.dproj" Targets="Make" />
   </Target>
+  <Target Name="PedidosCliente_view">
+    <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="PedidosCliente_view:Clean">
+    <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedidosCliente_view:Make">
+    <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_view;Articulos_controller;Articulos_view;AlbaranesCliente_model;AlbaranesCliente_data;AlbaranesCliente_controller;AlbCli_FacCli_relation;AlbaranesCliente_view;AlbaranesCliente_plugin;FactuGES;FactuGES_Server;AlbaranesProveedor_view;AlbProv_FacProv_relation;Contactos_controller;FacturasProveedor_view;PedidosProveedor_view;PresupuestosCliente_view;RecibosCliente_view;RecibosProveedor_view;RemesasCliente_view;RemesasProveedor_view;FacturasCliente_view;FacturasCliente_data;FacturasCliente_controller;PedidosCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;AlbaranesCliente_model:Clean;AlbaranesCliente_data:Clean;AlbaranesCliente_controller:Clean;AlbCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;AlbaranesCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesProveedor_view:Clean;AlbProv_FacProv_relation:Clean;Contactos_controller:Clean;FacturasProveedor_view:Clean;PedidosProveedor_view:Clean;PresupuestosCliente_view:Clean;RecibosCliente_view:Clean;RecibosProveedor_view:Clean;RemesasCliente_view:Clean;RemesasProveedor_view:Clean;FacturasCliente_view:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;PedidosCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;AlbaranesCliente_model:Make;AlbaranesCliente_data:Make;AlbaranesCliente_controller:Make;AlbCli_FacCli_relation:Make;AlbaranesCliente_view:Make;AlbaranesCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesProveedor_view:Make;AlbProv_FacProv_relation:Make;Contactos_controller:Make;FacturasProveedor_view:Make;PedidosProveedor_view:Make;PresupuestosCliente_view:Make;RecibosCliente_view:Make;RecibosProveedor_view:Make;RemesasCliente_view:Make;RemesasProveedor_view:Make;FacturasCliente_view:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;PedidosCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Comisiones/Model/schComisionesClient_Intf.pas

@@ -3,7 +3,7 @@ unit schComisionesClient_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
@@ -95,7 +95,7 @@ type
   end;
 
   { TListaAnosComisionesDataTableRules }
-  TListaAnosComisionesDataTableRules = class(TDADataTableRules, IListaAnosComisiones)
+  TListaAnosComisionesDataTableRules = class(TIntfObjectDADataTableRules, IListaAnosComisiones)
   private
   protected
     { Property getters and setters }
@@ -208,7 +208,7 @@ type
   end;
 
   { TFacturasComisionDataTableRules }
-  TFacturasComisionDataTableRules = class(TDADataTableRules, IFacturasComision)
+  TFacturasComisionDataTableRules = class(TIntfObjectDADataTableRules, IFacturasComision)
   private
   protected
     { Property getters and setters }
@@ -369,7 +369,7 @@ type
   end;
 
   { TComisionesDataTableRules }
-  TComisionesDataTableRules = class(TDADataTableRules, IComisiones)
+  TComisionesDataTableRules = class(TIntfObjectDADataTableRules, IComisiones)
   private
   protected
     { Property getters and setters }

Source/Modulos/Contactos/Contactos_Group.groupproj

@@ -10,7 +10,9 @@
     <Projects Include="..\..\GUIBase\GUIBase.dproj" />
     <Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
     <Projects Include="..\Albaranes de cliente\Plugin\AlbaranesCliente_plugin.dproj" />
+    <Projects Include="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" />
     <Projects Include="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" />
+    <Projects Include="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" />
     <Projects Include="Controller\Contactos_controller.dproj" />
     <Projects Include="Data\Contactos_data.dproj" />
     <Projects Include="Model\Contactos_model.dproj" />
@@ -131,14 +133,32 @@
   <Target Name="PedidosCliente_plugin:Make">
     <MSBuild Projects="..\Pedidos de cliente\Plugin\PedidosCliente_plugin.dproj" Targets="Make" />
   </Target>
+  <Target Name="PedidosCliente_controller">
+    <MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="PedidosCliente_controller:Clean">
+    <MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedidosCliente_controller:Make">
+    <MSBuild Projects="..\Pedidos de cliente\Controller\PedidosCliente_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="PedidosCliente_view">
+    <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="PedidosCliente_view:Clean">
+    <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="PedidosCliente_view:Make">
+    <MSBuild Projects="..\Pedidos de cliente\Views\PedidosCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_plugin;PedidosCliente_plugin" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;FactuGES;FactuGES_Server;AlbaranesCliente_plugin;PedidosCliente_plugin;PedidosCliente_controller;PedidosCliente_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;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_plugin:Clean;PedidosCliente_plugin:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;AlbaranesCliente_plugin:Clean;PedidosCliente_plugin:Clean;PedidosCliente_controller:Clean;PedidosCliente_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;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_plugin:Make;PedidosCliente_plugin:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;FactuGES:Make;FactuGES_Server:Make;AlbaranesCliente_plugin:Make;PedidosCliente_plugin:Make;PedidosCliente_controller:Make;PedidosCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contactos/Controller/uClientesController.pas

@@ -11,6 +11,7 @@ uses
 type
   IClientesController = interface(IContactosController)
   ['{AAC3C51A-37F7-4961-B39F-FBC6B6A2B0F1}']
+    function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
     function BuscarTodosTiendaWeb: IBizCliente;
     function BuscarEtiquetadosFelicitacion: IBizCliente;
     function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
@@ -23,6 +24,8 @@ type
     procedure VerAlbaranesDeCliente(ACliente : IBizCliente);
     procedure VerFacturasDeCliente(ACliente : IBizCliente);
     procedure VerRecibosDeCliente(ACliente : IBizCliente);
+    procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = '';
+      const AHeaderText: String = ''); overload;
     function DarListaCuentasBancarias(const IdCliente: Integer): TStringList;
   end;
 
@@ -38,11 +41,14 @@ type
 
     function Buscar(const ID: Integer): IBizContacto; override;
     function BuscarTodos: IBizContacto; override;
+    function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
     function BuscarTodosTiendaWeb: IBizCliente;
     function BuscarEtiquetadosFelicitacion: IBizCliente;
     function Nuevo : IBizContacto; override;
     procedure Ver(AContacto : IBizContacto); override;
-    procedure VerTodos(AContactos: IBizContacto); override;
+    procedure VerTodos(AContactos: IBizContacto); overload; override;
+    procedure VerTodos(AContactos: IBizContacto; const AVerModal : Boolean = False; const AWindowCaption: String = '';
+      const AHeaderText: String = ''); overload;
     function ElegirContacto(AContactos : IBizContacto;
       AMensaje: String; AMultiSelect: Boolean): IBizContacto; override;
     function TieneDatosBancarios(ACliente: IBizCliente) : Boolean;
@@ -63,9 +69,9 @@ implementation
 
 uses
   Forms, Windows, SysUtils, Controls, cxControls, uDialogUtils, uDataModuleClientes, uEditorRegistryUtils,
-  uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
+  uDataTableUtils, uDADataTable, uDAInterfaces, DB, schContactosClient_Intf, uEtiquetasContactosReportController,
   uIEditorElegirClientes, uIEditorElegirDireccionEntrega, uEditorGridBase, uModuleController,
-  Dialogs, uIntegerListUtils, uFactuGES_App,
+  Dialogs, uIntegerListUtils, uFactuGES_App, uStringsUtils,
   uPlugins_Intf;
 
 { TClientesController }
@@ -94,6 +100,29 @@ begin
   FiltrarEmpresa(Result);
 end;
 
+function TClientesController.BuscarTodosVendedor(const ID_Vendedor: Integer): IBizCliente;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := (BuscarTodos as IBizCliente);
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // ID_VENDEDOR
+      Condicion := NewBinaryExpression(NewField('', fld_ClientesID_AGENTE), NewConstant(ID_VENDEDOR, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 constructor TClientesController.Create;
 begin
   inherited;
@@ -517,6 +546,38 @@ begin
     end;
 end;
 
+procedure TClientesController.VerTodos(AContactos: IBizContacto;
+  const AVerModal: Boolean; const AWindowCaption, AHeaderText: String);
+var
+  AEditor : IEditorClientes;
+begin
+  AEditor := NIL;
+
+  CreateEditor('EditorClientes', IEditorClientes, AEditor);
+  if Assigned(AEditor) then
+  try
+     if not EsCadenaVacia(AWindowCaption) then
+        AEditor.WindowCaption := AWindowCaption;
+
+     if not EsCadenaVacia(AHeaderText) then
+        AEditor.HeaderText := AHeaderText;
+
+     AEditor.Contactos := AContactos;
+     AEditor.Controller := Self;
+     AEditor.MultiSelect := True;
+
+     if AVerModal then
+        AEditor.ShowModal
+     else
+        AEditor.ShowEmbedded;
+
+  finally
+    if AVerModal then
+       AEditor.Release;
+    AEditor := NIL;
+  end;
+end;
+
 procedure TClientesController.VerTodos(AContactos: IBizContacto);
 var
   AEditor : IEditorClientes;

Source/Modulos/Contactos/Controller/uVendedoresController.pas

@@ -18,6 +18,8 @@ type
     function DarListaVendedores : TStringList;
     function BuscarTodos: IBizContacto; overload;
     function BuscarTodos(const CadenaIDs: String): IBizContacto; overload;
+    procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
+    procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
   end;
 
   TVendedoresController = class(TContactosController, IVendedoresController)
@@ -37,14 +39,16 @@ type
 
     function Eliminar(AVendedor: IBizContacto; AllItems: Boolean = false): Boolean; overload;
     function EsEliminable(AVendedor: IBizContacto): Boolean;
+    procedure VerPedidosDeVendedor(AVendedor : IBizVendedor);
+    procedure VerClientesDeVendedor(AVendedor : IBizVendedor);
   end;
 
 implementation
 
 uses
   Windows, SysUtils, Controls, cxControls, Dialogs, uDataModuleVendedores, uEditorRegistryUtils,
-  uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, 
+  uDataTableUtils, uDADataTable, DB, schContactosClient_Intf, uModuleController, 
-  uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores;
+  uEditorGridBase, uDAInterfaces, uIEditorElegirVendedores, uPlugins_Intf, uFactuGES_App;
 
 { TVendedorController }
 
@@ -246,6 +250,48 @@ begin
     end;
 end;
 
+procedure TVendedoresController.VerClientesDeVendedor(AVendedor: IBizVendedor);
+var
+  AModule : TModuleController;
+  APlugin : IMCContactos;
+begin
+  if not Assigned(AVendedor) then
+    raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)');
+
+  if not AVendedor.DataTable.Active then
+    AVendedor.DataTable.Active := True;
+
+  AModule := AppFactuGES.GetModule(MODULENAME_CONTACTOS);
+  if Assigned(AModule) then
+    try
+      if Supports(AModule, IMCContactos, APlugin) then
+        APlugin.VerClientesVendedor(AVendedor.ID, AVendedor.NOMBRE);
+    finally
+      APlugin := NIL;
+    end;
+end;
+
+procedure TVendedoresController.VerPedidosDeVendedor(AVendedor: IBizVendedor);
+var
+  AModule : TModuleController;
+  APlugin : IMCPedidosCliente;
+begin
+  if not Assigned(AVendedor) then
+    raise Exception.Create ('Vendedor no asignado (VerPedidosDeVendedor)');
+
+  if not AVendedor.DataTable.Active then
+    AVendedor.DataTable.Active := True;
+
+  AModule := AppFactuGES.GetModule(MODULENAME_PEDIDOS_CLIENTE);
+  if Assigned(AModule) then
+    try
+      if Supports(AModule, IMCPedidosCliente, APlugin) then
+        APlugin.VerPedidosVendedor(AVendedor.ID, AVendedor.NOMBRE);
+    finally
+      APlugin := NIL;
+    end;
+end;
+
 procedure TVendedoresController.VerTodos(AContactos: IBizContacto);
 var
   AEditor : IEditorVendedores;

Source/Modulos/Contactos/Plugin/uPluginContactos.pas

@@ -4,14 +4,9 @@ interface
 
 uses
   uModuleController, uInterfaces, uHostManager, Menus, Classes, ActnList,
-  ImgList, Controls, PngImageList;
+  ImgList, Controls, PngImageList, uPlugins_Intf;
 
 type
-  IMCContactos = interface(IInterface)
-    ['{BAEDC5D8-2FE8-4907-8027-C60861829BA9}']
-
-  end;
-  
   TPluginContactos = class(TModuleController, IMCContactos)
     actClientes: TAction;
     actProveedores: TAction;
@@ -47,6 +42,8 @@ type
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure VerClientesVendedor(const ID_Vendedor: Integer;
+      const ANombreVendedor : String = '');
   end;
 
 implementation
@@ -55,11 +52,10 @@ implementation
 
 uses
   Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
-  uClientesController, uProveedoresController, uEmpleadosController,
+  uClientesController, uProveedoresController, uEmpleadosController, cxControls,
-  uVendedoresController,
+  uVendedoresController, uGruposClienteController, uBizGruposCliente,
-  uGruposClienteController, uBizGruposCliente, uGruposProveedorController,
+  uGruposProveedorController, uBizGruposProveedor, uGruposEmpleadoController,
-  uBizGruposProveedor, uGruposEmpleadoController, uBizGruposEmpleado,
+  uBizGruposEmpleado, uContactosViewRegister, uBizContactos, uFactuGES_App;
-  uContactosViewRegister, uBizContactos, uFactuGES_App;
 
 function GetModule : TModuleController;
 begin
@@ -160,6 +156,7 @@ end;
 constructor TPluginContactos.Create(AOwner: TComponent);
 begin
   inherited;
+  ModuleName := MODULENAME_CONTACTOS;
   uContactosViewRegister.RegisterViews;
 end;
 
@@ -169,6 +166,29 @@ begin
   inherited;
 end;
 
+procedure TPluginContactos.VerClientesVendedor(const ID_Vendedor: Integer;
+  const ANombreVendedor: String);
+var
+  AClientesController : IClientesController;
+  AClientesVendedor : IBizCliente;
+  AText : String;
+begin
+  AText := Format('Lista de clientes del vendedor %s', [ANombreVendedor]);
+  AClientesController := TClientesController.Create;
+  try
+    ShowHourglassCursor;
+    try
+      AClientesVendedor := AClientesController.BuscarTodosVendedor(ID_Vendedor);
+    finally
+      HideHourglassCursor;
+    end;
+    AClientesController.VerTodos(AClientesVendedor, True, AText);
+  finally
+    AClientesVendedor := NIL;
+    AClientesController := NIL;
+  end;
+end;
+
 initialization
   uHostManager.RegisterModuleClass(TPluginContactos);
 

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -49,63 +49,63 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\bdertl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ccpackD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\ccpackD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cfpack_d11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cfpack_d11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\Contactos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\Contactos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxExportD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxGridD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\cxPageControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dclcxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dclcxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxComnD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxLayoutControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxPSCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxPScxCommonD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSLnksD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxPSLnksD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\FormasPago_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\FormasPago_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\GUISDK_D11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JSDialog100.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JvCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JvGlobusD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\SpTBXLib_d11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\SpTBXLib_d11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d11.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\tb2k_d11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\TiposIVA_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\TiposIVA_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\vcljpg.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclshlctrls.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\vclshlctrls.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\vclx.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
+    <DCCReference Include="..\..\Pedidos de cliente\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>

Source/Modulos/Contactos/Views/uEditorClientes.dfm

@@ -224,9 +224,6 @@ inherited fEditorClientes: TfEditorClientes
         BuiltInReportLink = True
       end
     end
-    inherited dxPSEngineController1: TdxPSEngineController
-      Active = True
-    end
     inherited cxViewGridPopupMenu: TcxGridPopupMenu
       PopupMenus = <
         item
@@ -263,10 +260,6 @@ inherited fEditorClientes: TfEditorClientes
       Enabled = True
       Visible = True
     end
-    inherited actExportarExcel: TAction
-      Enabled = False
-      Visible = False
-    end
     object actDocumentosPedidos: TAction
       Category = 'Acciones'
       Caption = 'Pedidos'

Source/Modulos/Contactos/Views/uEditorClientes.pas

@@ -121,6 +121,9 @@ constructor TfEditorClientes.Create(AOwner: TComponent);
 begin
   inherited;
   ViewGrid := frViewClientes1;
+
+  FHeaderText := 'Lista de clientes - ';
+  FWindowCaption := FHeaderText;
 end;
 
 procedure TfEditorClientes.EliminarInterno;
@@ -227,7 +230,7 @@ procedure TfEditorClientes.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;
 begin
-  FTitulo := 'Lista de clientes - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+  FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
   inherited PonerTitulos(FTitulo);
 end;
 

Source/Modulos/Contactos/Views/uEditorContacto.dfm

@@ -7,6 +7,7 @@ inherited fEditorContacto: TfEditorContacto
   ClientWidth = 632
   Scaled = False
   ExplicitWidth = 640
+  ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -109,6 +110,18 @@ inherited fEditorContacto: TfEditorContacto
         inherited ToolBar1: TToolBar
           Width = 618
           ExplicitWidth = 618
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
@@ -140,6 +153,18 @@ inherited fEditorContacto: TfEditorContacto
         inherited ToolBar1: TToolBar
           Width = 618
           ExplicitWidth = 618
+          inherited ToolButton1: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton4: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton2: TToolButton
+            ExplicitWidth = 113
+          end
+          inherited ToolButton7: TToolButton
+            ExplicitWidth = 113
+          end
         end
       end
     end
@@ -167,15 +192,15 @@ inherited fEditorContacto: TfEditorContacto
   end
   inherited StatusBarImages: TPngImageList [7]
   end
-  inherited JvFormStorage: TJvFormStorage
+  inherited LargeImages: TPngImageList [8]
+    Top = 112
+  end
+  inherited SmallImages: TPngImageList [9]
+    Top = 112
+  end
+  inherited JvFormStorage: TJvFormStorage [10]
     Top = 144
   end
-  inherited LargeImages: TPngImageList [9]
-    Top = 112
-  end
-  inherited SmallImages: TPngImageList [10]
-    Top = 112
-  end
   inherited EditorActionList: TActionList [11]
     Top = 128
     inherited actGuardarCerrar: TAction

Source/Modulos/Contactos/Views/uEditorVendedores.dfm

@@ -57,7 +57,25 @@ inherited fEditorVendedores: TfEditorVendedores
     Width = 786
     ExplicitWidth = 786
     inherited tbxMain: TSpTBXToolbar
-      ExplicitWidth = 474
+      ExplicitWidth = 641
+      object SpTBXSubmenuItem1: TSpTBXSubmenuItem [13]
+        Caption = 'Documentos relacionados'
+        DisplayMode = nbdmImageAndText
+        ImageIndex = 23
+        Images = SmallImages
+        OnClick = actDocumentosPedidosExecute
+        DropdownCombo = True
+        object SpTBXItem3: TSpTBXItem
+          Action = ActClientes
+          DisplayMode = nbdmImageAndText
+          Images = SmallImages
+        end
+        object SpTBXItem2: TSpTBXItem
+          Action = actDocumentosPedidos
+          DisplayMode = nbdmImageAndText
+          Images = SmallImages
+        end
+      end
     end
     inherited tbxMenu: TSpTBXToolbar
       ExplicitWidth = 786
@@ -103,6 +121,7 @@ inherited fEditorVendedores: TfEditorVendedores
       Width = 786
       ExplicitWidth = 786
       inherited TBXDockablePanel1: TSpTBXDockablePanel
+        Width = 786
         ExplicitWidth = 786
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 786
@@ -145,8 +164,8 @@ inherited fEditorVendedores: TfEditorVendedores
           end
         end
         inherited TBXAlignmentPanel1: TSpTBXDockablePanel
-          Width = 786
+          Width = 776
-          ExplicitWidth = 786
+          ExplicitWidth = 776
           inherited tbxBotones: TSpTBXToolbar
             Width = 776
             ExplicitWidth = 776
@@ -156,14 +175,15 @@ inherited fEditorVendedores: TfEditorVendedores
     end
     inherited pnlAgrupaciones: TSpTBXDockablePanel
       Top = 357
+      Width = 786
       ExplicitTop = 357
       ExplicitWidth = 786
       inherited TBXAlignmentPanel1: TSpTBXDockablePanel
         Width = 786
         ExplicitWidth = 786
         inherited TBXToolbar1: TSpTBXToolbar
-          Width = 776
+          Width = 786
-          ExplicitWidth = 776
+          ExplicitWidth = 786
         end
       end
     end
@@ -173,6 +193,9 @@ inherited fEditorVendedores: TfEditorVendedores
         BuiltInReportLink = True
       end
     end
+    inherited dxPSEngineController1: TdxPSEngineController
+      Active = True
+    end
     inherited cxViewGridPopupMenu: TcxGridPopupMenu
       PopupMenus = <
         item
@@ -186,9 +209,19 @@ inherited fEditorVendedores: TfEditorVendedores
     inherited actNuevo: TAction
       ImageIndex = 22
     end
-    inherited actExportarExcel: TAction
+    object actDocumentosPedidos: TAction
-      Enabled = False
+      Category = 'Acciones'
-      Visible = False
+      Caption = 'Pedidos'
+      ImageIndex = 24
+      OnExecute = actDocumentosPedidosExecute
+      OnUpdate = actDocumentosPedidosUpdate
+    end
+    object ActClientes: TAction
+      Category = 'Acciones'
+      Caption = 'Clientes'
+      ImageIndex = 25
+      OnExecute = ActClientesExecute
+      OnUpdate = ActClientesUpdate
     end
   end
   inherited SmallImages: TPngImageList [5]
@@ -715,6 +748,151 @@ inherited fEditorVendedores: TfEditorVendedores
           49454E44AE426082}
         Name = 'PngImage22'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD2520000018E4944415478DA
+          6364C002966C3EF19F010F88F1B56084B119CF4E6443516C9CFF8B116440B48F
+          398AA6BFFFFE31FCF9F38F61CDAEB30CBD5316329CDF399D116E8051DE4FB0A2
+          7393D8190E9FFFC520127C8201D90098E6DF7FFE326CDC778141469483A1B07E
+          26D810B801FF7F7F6498942600D7943FFF3F866610BDF5D025B00B50BC6098F9
+          8AE1CFD7070C971799A1385B3FE73B8AE6DF7F41F45F8603A76F81E5BB27CD87
+          18A01B778AE1EFB7070CD7D68431A07B2779EA0F14CD20F69FBFFF184E5CBA87
+          30402B6415C3DFAFF7196E6E2F67C0E69DA8BECF289A7FFDFECB70EEFA438401
+          EA9E9D0CEF2F7530BC7AFA9E01977744435FC03583BC74F9F613840120A78280
+          AD211B033EEF78D4BD046BFE0D34E4C683E71003906D21C63B76A58F197E010D
+          B9F7E4157603B07907E42290A173DA0A192C0A1F805DF0F8E55BEC0660F30E48
+          33C8D0B55B5E3218E7DC0587C5F337EF310DC0E59D3F5F6E317CBEB70E6C8058
+          E829B81A8206C0BC03032003163ECF84F3FF337EC76F00CC3BC8A06001AA1EC6
+          FFFFF1E65C820000241257B48E5A5E7D0000000049454E44AE426082}
+        Name = 'PngImage23'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD25200000A4D694343505068
+          6F746F73686F70204943432070726F66696C65000078DA9D53775893F7163EDF
+          F7650F5642D8F0B1976C81002223AC08C81059A21092006184101240C585880A
+          561415119C4855C482D50A489D88E2A028B867418A885A8B555C38EE1FDCA7B5
+          7D7AEFEDEDFBD7FBBCE79CE7FCCE79CF0F8011122691E6A26A003952853C3AD8
+          1F8F4F48C4C9BD80021548E0042010E6CBC26705C50000F00379787E74B03FFC
+          01AF6F00020070D52E2412C7E1FF83BA50265700209100E02212E70B01905200
+          C82E54C81400C81800B053B3640A009400006C797C422200AA0D00ECF4493E05
+          00D8A993DC1700D8A21CA908008D0100992847240240BB00605581522C02C0C2
+          00A0AC40222E04C0AE018059B632470280BD0500768E58900F4060008099422C
+          CC0020380200431E13CD03204C03A030D2BFE0A95F7085B8480100C0CB95CD97
+          4BD23314B895D01A77F2F0E0E221E2C26CB142611729106609E4229C979B2313
+          48E7034CCE0C00001AF9D1C1FE383F90E7E6E4E1E666E76CEFF4C5A2FE6BF06F
+          223E21F1DFFEBC8C020400104ECFEFDA5FE5E5D60370C701B075BF6BA95B00DA
+          560068DFF95D33DB09A05A0AD07AF98B7938FC401E9EA150C83C1D1C0A0B0BED
+          2562A1BD30E38B3EFF33E16FE08B7EF6FC401EFEDB7AF000719A4099ADC0A383
+          FD71616E76AE528EE7CB0442316EF7E723FEC7857FFD8E29D1E234B15C2C158A
+          F15889B850224DC779B952914421C995E212E97F32F11F96FD0993770D00AC86
+          4FC04EB607B5CB6CC07EEE01028B0E58D27600407EF32D8C1A0B910010673432
+          79F7000093BFF98F402B0100CD97A4E30000BCE8185CA894174CC608000044A0
+          812AB041070CC114ACC00E9CC11DBCC01702610644400C24C03C104206E4801C
+          0AA11896411954C03AD804B5B0031AA0119AE110B4C131380DE7E0125C81EB70
+          170660189EC218BC86090441C8081361213A8811628ED822CE0817998E042261
+          48349280A420E988145122C5C872A402A9426A915D4823F22D7214398D5C40FA
+          90DBC820328AFC8ABC47319481B25103D4027540B9A81F1A8AC6A073D174340F
+          5D8096A26BD11AB41E3D80B6A2A7D14BE87574007D8A8E6380D1310E668CD961
+          5C8C87456089581A26C71663E55835568F35631D583776151BC09E61EF082402
+          8B8013EC085E8410C26C82909047584C5843A825EC23B412BA085709838431C2
+          272293A84FB4257A12F9C478623AB1905846AC26EE211E219E255E270E135F93
+          48240EC992E44E0A21259032490B496B48DB482DA453A43ED210699C4C26EB90
+          6DC9DEE408B280AC209791B7900F904F92FBC9C3E4B7143AC588E24C09A22452
+          A494124A35653FE504A59F324299A0AA51CDA99ED408AA883A9F5A496DA07650
+          2F5387A91334759A25CD9B1643CBA42DA3D5D09A696769F7682FE974BA09DD83
+          1E4597D097D26BE807E9E7E983F4770C0D860D83C7486228196B197B19A718B7
+          192F994CA605D39799C85430D7321B9967980F986F55582AF62A7C1591CA1295
+          3A9556957E95E7AA545573553FD579AA0B54AB550FAB5E567DA64655B350E3A9
+          09D416ABD5A91D55BBA936AECE5277528F50CF515FA3BE5FFD82FA630DB28685
+          46A08648A35463B7C6198D2116C63265F15842D6725603EB2C6B984D625BB2F9
+          EC4C7605FB1B762F7B4C534373AA66AC6691669DE671CD010EC6B1E0F039D99C
+          4ACE21CE0DCE7B2D032D3F2DB1D66AAD66AD7EAD37DA7ADABEDA62ED72ED16ED
+          EBDAEF75709D409D2C9DF53A6D3AF77509BA36BA51BA85BADB75CFEA3ED363EB
+          79E909F5CAF50EE9DDD147F56DF4A3F517EAEFD6EFD11F373034083690196C31
+          3863F0CC9063E86B9869B8D1F084E1A811CB68BA91C468A3D149A327B826EE87
+          67E33578173E66AC6F1C62AC34DE65DC6B3C61626932DBA4C4A4C5E4BE29CD94
+          6B9A66BAD1B4D374CCCCC82CDCACD8ACC9EC8E39D59C6B9E61BED9BCDBFC8D85
+          A5459CC54A8B368BC796DA967CCB05964D96F7AC98563E567956F556D7AC49D6
+          5CEB2CEB6DD6576C501B579B0C9B3A9BCBB6A8AD9BADC4769B6DDF14E2148F29
+          D229F5536EDA31ECFCEC0AEC9AEC06ED39F661F625F66DF6CF1DCC1C121DD63B
+          743B7C727475CC766C70BCEBA4E134C3A9C4A9C3E957671B67A1739DF33517A6
+          4B90CB1297769717536DA78AA76E9F7ACB95E51AEEBAD2B5D3F5A39BBB9BDCAD
+          D96DD4DDCC3DC57DABFB4D2E9B1BC95DC33DEF41F4F0F758E271CCE39DA79BA7
+          C2F390E72F5E765E595EFBBD1E4FB39C269ED6306DC8DBC45BE0BDCB7B603A3E
+          3D65FACEE9033EC63E029F7A9F87BEA6BE22DF3DBE237ED67E997E07FC9EFB3B
+          FACBFD8FF8BFE179F216F14E056001C101E501BD811A81B3036B031F049904A5
+          0735058D05BB062F0C3E15420C090D591F72936FC017F21BF96333DC672C9AD1
+          15CA089D155A1BFA30CC264C1ED6118E86CF08DF107E6FA6F94CE9CCB60888E0
+          476C88B81F69199917F97D14292A32AA2EEA51B453747174F72CD6ACE459FB67
+          BD8EF18FA98CB93BDB6AB6727667AC6A6C526C63EC9BB880B8AAB8817887F845
+          F1971274132409ED89E4C4D8C43D89E37302E76C9A339CE49A54967463AEE5DC
+          A2B917E6E9CECB9E773C593559907C3885981297B23FE5832042502F184FE5A7
+          6E4D1D13F2849B854F45BEA28DA251B1B7B84A3C92E69D5695F638DD3B7D43FA
+          68864F4675C633094F522B79911992B923F34D5644D6DEACCFD971D92D39949C
+          949CA3520D6996B42BD730B728B74F662B2B930DE479E66DCA1B9387CAF7E423
+          F973F3DB156C854CD1A3B452AE500E164C2FA82B785B185B78B848BD485AD433
+          DF66FEEAF9230B82167CBD90B050B8B0B3D8B87859F1E022BF45BB16238B5317
+          772E315D52BA647869F0D27DCB68CBB296FD50E2585255F26A79DCF28E5283D2
+          A5A5432B82573495A994C9CB6EAEF45AB9631561956455EF6A97D55B567F2A17
+          955FAC70ACA8AEF8B046B8E6E2574E5FD57CF5796DDADADE4AB7CAEDEB48EBA4
+          EB6EACF759BFAF4ABD6A41D5D086F00DAD1BF18DE51B5F6D4ADE74A17A6AF58E
+          CDB4CDCACD03356135ED5BCCB6ACDBF2A136A3F67A9D7F5DCB56FDADABB7BED9
+          26DAD6BFDD777BF30E831D153BDEEF94ECBCB52B78576BBD457DF56ED2EE82DD
+          8F1A621BBABFE67EDDB847774FC59E8F7BA57B07F645EFEB6A746F6CDCAFBFBF
+          B2096D52368D1E483A70E59B806FDA9BED9A77B5705A2A0EC241E5C127DFA67C
+          7BE350E8A1CEC3DCC3CDDF997FB7F508EB48792BD23ABF75AC2DA36DA03DA1BD
+          EFE88CA39D1D5E1D47BEB7FF7EEF31E36375C7358F579EA09D283DF1F9E48293
+          E3A764A79E9D4E3F3DD499DC79F74CFC996B5D515DBD6743CF9E3F1774EE4CB7
+          5FF7C9F3DEE78F5DF0BC70F422F762DB25B74BAD3DAE3D477E70FDE148AF5B6F
+          EB65F7CBED573CAE74F44DEB3BD1EFD37FFA6AC0D573D7F8D72E5D9F79BDEFC6
+          EC1BB76E26DD1CB825BAF5F876F6ED17770AEE4CDC5D7A8F78AFFCBEDAFDEA07
+          FA0FEA7FB4FEB165C06DE0F860C060CFC3590FEF0E09879EFE94FFD387E1D247
+          CC47D52346238D8F9D1F1F1B0D1ABDF264CE93E1A7B2A713CFCA7E56FF79EB73
+          ABE7DFFDE2FB4BCF58FCD8F00BF98BCFBFAE79A9F372EFABA9AF3AC723C71FBC
+          CE793DF1A6FCADCEDB7DEFB8EFBADFC7BD1F9928FC40FE50F3D1FA63C7A7D04F
+          F73EE77CFEFC2FF784F3FB25D29F33000001764944415478DA63FCFFFF3FC394
+          C53BFE33900172623D1819610600394469FAF3F71FC3EF3F7F19ACFDF319CEED
+          98866A80CB7E5B14C57B1C0F836964F1CD56FB18E6AEDACB306FE9264C03F081
+          5FBFFF826D06E1251B0E623700DD05D8C07283ED0C2BB71CC16D00CCD920F00F
+          28F7E7CF3FB8CD2167DC1816EB6C6558BBE3187E03602ED9667380C1EB8803DC
+          E6C80B9E0CF33436316CDA7312BF01309B3FDF3ECCF072712C3E1FB96018B0CB
+          E11083DB013BB0ECA45D0F18941B6A18D8D9D33174FEFC3993615E620B038601
+          2067C3FCFCAC4D8D41ABFD3158311CFCF801C4DF1966EF326060DE9E8A302023
+          CA8DC1E3903D8A2D2017A01800D2FCE11DC480534EA806248739836D85857AF4
+          252F5403609AC106FC64987D2B08D580B8200794284BB8E68B30E0E34484E60F
+          1F202E7895826A40949F1D5C33DCA0194610031ED62334C3BCF0AB0CD580502F
+          6B86D5DB8EA28481D3B554702CCC5E258F350E510C00250C74A0CDFB86C18AF5
+          38CE44602FCFE00200175B62A961F8A2FD0000000049454E44AE426082}
+        Name = 'PngImage24'
+        Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          610000000970485973000017120000171201679FD252000001EC4944415478DA
+          A5934B6813511486BF541B88CD26620DA262A51BDB8520158308D5852055B01B
+          A3E8CEBD2E7CE063512852D09D2E82E04604AB1B5D4451B059D8A6010D84D842
+          5B6B6B1A8D414A4C9B18EB4C27F3F466D41943ED4233309C3BDC39DFFFDF9F7B
+          3C9665D1C8E379323CD510C1061C3DD0697F48C531BEE7A7EDB57F6B072DADBB
+          9C1F4DE154D74D34DD70DE43272FB9805AF3975484E56F1A856289C2D23CFB4F
+          44D8D4BE17DD30B932A8D629B7358D70F7C1D39F8023FBB6917B35C0D78F590C
+          43EC5A06954A8505A5C4B1CB2947F14F07D158D205F48436F03E761E640FEB7C
+          3ED660204B3263B9597A2F24ED866B8F59DD414F28C8E7443FDE6A55A883AAA9
+          28F232F3FA7ABA8EDFAC53FEBD1E1A4DBB805A0685370F91E65E0880084BD358
+          9255CCB65EDAF784571E413378F97ABC1E90C8C6C88EDC6687E9150EAAA415D8
+          BCFB14DD9D875734D76A2235E102B674A85C1CEEA3B498E374F020A666727F21
+          4E662ECFDBAB19BBB9EFD6B3BA0C423B37BA80A4F188E733A32881327EA91991
+          22924FA7B9E427373B45FADCB4A3ACFD72929E78E702EE1506C8E68B18AD0AEA
+          5A595C2F44A02D3495BD7CF8344EF2CC24D7EFC4567770361EA65C2EFCF5AA06
+          0241A2E1215BD5302DBB9AA24ECE645C4077D77606A3F17F9E0307D07F23F2FF
+          C3D4E838FF008E7263BE13CA147C0000000049454E44AE426082}
+        Name = 'PngImage25'
+        Background = clWindow
       end>
     Bitmap = {}
   end

Source/Modulos/Contactos/Views/uEditorVendedores.pas

@@ -11,7 +11,7 @@ uses
   JvExControls, JvComponent, JvNavigationPane, uViewGridBase, uViewGrid,
   uViewContactos, uIEditorVendedores, pngimage, 
   JvExComCtrls, JvStatusBar, JSDialog, uContactosController, uDAInterfaces,
-  uViewVendedores, dxGDIPlusClasses;
+  uViewVendedores, dxGDIPlusClasses, StdCtrls, TntStdCtrls, SpTBXEditors;
 
 type
   TfEditorVendedores = class(TfEditorContactos, IEditorVendedores)
@@ -19,6 +19,15 @@ type
     JsPrevisualizarDialog: TJSDialog;
     JsImprimirDialog: TJSDialog;
     JsListaContactosNoEliminados: TJSDialog;
+    SpTBXSubmenuItem1: TSpTBXSubmenuItem;
+    SpTBXItem2: TSpTBXItem;
+    actDocumentosPedidos: TAction;
+    ActClientes: TAction;
+    SpTBXItem3: TSpTBXItem;
+    procedure actDocumentosPedidosExecute(Sender: TObject);
+    procedure actDocumentosPedidosUpdate(Sender: TObject);
+    procedure ActClientesExecute(Sender: TObject);
+    procedure ActClientesUpdate(Sender: TObject);
     
   protected
     procedure EliminarInterno; override;
@@ -38,6 +47,34 @@ uses
 
 {$R *.dfm}
 
+procedure TfEditorVendedores.ActClientesExecute(Sender: TObject);
+begin
+  inherited;
+  (FController as IVendedoresController).VerClientesDeVendedor(IBizVendedor(FContactos));
+end;
+
+procedure TfEditorVendedores.ActClientesUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos
+                                 and not ViewGrid.IsEmpty
+                                 and ViewGrid.EsSeleccionCeldaDatos
+end;
+
+procedure TfEditorVendedores.actDocumentosPedidosExecute(Sender: TObject);
+begin
+  inherited;
+  (FController as IVendedoresController).VerPedidosDeVendedor(IBizVendedor(FContactos));
+end;
+
+procedure TfEditorVendedores.actDocumentosPedidosUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := HayDatos
+                                 and not ViewGrid.IsEmpty
+                                 and ViewGrid.EsSeleccionCeldaDatos
+end;
+
 constructor TfEditorVendedores.Create(AOwner: TComponent);
 begin
   inherited;

Source/Modulos/Pedidos de cliente/Controller/PedidosCliente_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30E.tmp */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Controller\PedidosCliente_controller.drf */

Source/Modulos/Pedidos de cliente/Controller/uPedidosClienteController.pas

@@ -24,6 +24,7 @@ type
     function Buscar(const ID: Integer): IBizPedidoCliente;
     function BuscarTodos: IBizPedidoCliente; overload;
     function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
+    function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente;
     function BuscarPendientes : IBizPedidoCliente;
     function BuscarArticulosPendientes: IBizArticulosPendientes;
     procedure Ver(APedido : IBizPedidoCliente);
@@ -108,7 +109,8 @@ type
     function Anadir(APedido : IBizPedidoCliente) : Boolean;
     function Buscar(const ID: Integer): IBizPedidoCliente;
     function BuscarTodos: IBizPedidoCliente; overload;
-    function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;    
+    function BuscarTodos(const ID_Cliente: Integer): IBizPedidoCliente; overload;
+    function BuscarTodosVendedor(const ID_Vendedor: Integer): IBizPedidoCliente;
     function BuscarPendientes : IBizPedidoCliente;
     function BuscarArticulosPendientes: IBizArticulosPendientes;
     function Nuevo : IBizPedidoCliente;
@@ -225,6 +227,30 @@ begin
   end;
 end;
 
+function TPedidosClienteController.BuscarTodosVendedor(
+  const ID_Vendedor: Integer): IBizPedidoCliente;
+var
+  Condicion: TDAWhereExpression;
+begin
+  ShowHourglassCursor;
+  try
+    Result := BuscarTodos;
+
+    with Result.DataTable.DynamicWhere do
+    begin
+      // ID_VENDEDOR
+      Condicion := NewBinaryExpression(NewField('', fld_PedidosClienteID_VENDEDOR), NewConstant(ID_VENDEDOR, datInteger), dboEqual);
+
+      if IsEmpty then
+         Expression := Condicion
+      else
+         Expression := NewBinaryExpression(Expression, Condicion, dboAnd);
+    end;
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TPedidosClienteController.BuscarArticulosPendientes: IBizArticulosPendientes;
 begin
   ShowHourglassCursor;

Source/Modulos/Pedidos de cliente/Data/PedidosCliente_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\uDataModulePedidosCliente.dfm */
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Data\PedidosCliente_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30C.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBC.tmp */

Source/Modulos/Pedidos de cliente/Data/uDataModulePedidosCliente.dfm

@@ -242,6 +242,10 @@ inherited DataModulePedidosCliente: TDataModulePedidosCliente
         Size = 255
         DisplayLabel = 'PedidosCliente_DATOS_BANCARIOS'
         DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
+      end
+      item
+        Name = 'ID_VENDEDOR'
+        DataType = datInteger
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Pedidos de cliente/Model/PedidosCliente_model.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Model\PedidosCliente_model.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf30A.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtfBA.tmp */

Source/Modulos/Pedidos de cliente/Model/schPedidosClienteClient_Intf.pas

@@ -1,6 +1,5 @@
 unit schPedidosClienteClient_Intf;
 
-{$D-}
 interface
 
 uses
@@ -10,13 +9,13 @@ 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_PedidoCliente_Art_Colores_Pendientes = '{DAE6EDB6-AC3C-48FE-8267-9FCF8F893536}';
+  RID_PedidoCliente_Art_Colores_Pendientes = '{0635D89F-961F-4A8A-8631-93E80735F276}';
-  RID_ListaAnosPedidos = '{8A8427D3-3139-4A1B-9A96-1491FD942CD2}';
+  RID_ListaAnosPedidos = '{88FC7751-6123-4698-B5ED-A0BA3C31ACB5}';
-  RID_ArticulosPendientes = '{EA7857E1-253B-4C47-9E62-0030C8D0CB2E}';
+  RID_ArticulosPendientes = '{3E7C7A2B-0C2B-43B0-8E2C-6F1F0D1965C4}';
-  RID_PedidosCliente = '{8F6CACE9-0B0B-47F4-9315-DD71C9BDCA22}';
+  RID_PedidosCliente = '{58A32347-5ECD-4B4D-B1A3-8FFE2BC07FDC}';
-  RID_PedidosCliente_Detalles = '{4C1BBFCE-BE3B-4F5F-9FF2-EE52A2A10063}';
+  RID_PedidosCliente_Detalles = '{CC8DF9E4-AACC-484E-BBE7-4F4A1A02C9D7}';
-  RID_PedidoCliente_Articulos_Pendientes = '{30F8BA2A-2230-40DD-A760-36D1F7051BB8}';
+  RID_PedidoCliente_Articulos_Pendientes = '{6D698D2A-FA62-40C2-9B2D-26041E3900CA}';
-  RID_PedidosCliente_Detalle_Color = '{E4A714F8-E64E-41D9-A2DE-E880C4C95108}';
+  RID_PedidosCliente_Detalle_Color = '{027386CC-D26B-4167-8181-DC9F573BF973}';
 
   { Data table names }
   nme_PedidoCliente_Art_Colores_Pendientes = 'PedidoCliente_Art_Colores_Pendientes';
@@ -138,6 +137,7 @@ const
   fld_PedidosClienteREF_TIENDA_WEB = 'REF_TIENDA_WEB';
   fld_PedidosClienteFECHA_PREVISTA_ENVIO = 'FECHA_PREVISTA_ENVIO';
   fld_PedidosClienteDATOS_BANCARIOS = 'DATOS_BANCARIOS';
+  fld_PedidosClienteID_VENDEDOR = 'ID_VENDEDOR';
 
   { PedidosCliente field indexes }
   idx_PedidosClienteID = 0;
@@ -176,6 +176,7 @@ const
   idx_PedidosClienteREF_TIENDA_WEB = 33;
   idx_PedidosClienteFECHA_PREVISTA_ENVIO = 34;
   idx_PedidosClienteDATOS_BANCARIOS = 35;
+  idx_PedidosClienteID_VENDEDOR = 36;
 
   { PedidosCliente_Detalles fields }
   fld_PedidosCliente_DetallesID = 'ID';
@@ -258,7 +259,7 @@ const
 type
   { IPedidoCliente_Art_Colores_Pendientes }
   IPedidoCliente_Art_Colores_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{1BFD3DF3-9112-44CF-AD7B-D6A81CC5157F}']
+  ['{BEEE5468-6E57-4ED3-95B5-E6C13A853F65}']
     { Property getters and setters }
     function GetID_PEDIDOValue: Integer;
     procedure SetID_PEDIDOValue(const aValue: Integer);
@@ -449,7 +450,7 @@ type
 
   { IListaAnosPedidos }
   IListaAnosPedidos = interface(IDAStronglyTypedDataTable)
-  ['{A93D242C-7BE8-4BCE-9D51-C5BE9E75923B}']
+  ['{55FEE857-66E6-4010-9D14-548A29F9F198}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -484,7 +485,7 @@ type
 
   { IArticulosPendientes }
   IArticulosPendientes = interface(IDAStronglyTypedDataTable)
-  ['{764F380F-50B6-4FBC-8E75-531B3859322D}']
+  ['{0207F031-484C-4420-B620-74888FA2748C}']
     { Property getters and setters }
     function GetID_ARTICULOValue: Integer;
     procedure SetID_ARTICULOValue(const aValue: Integer);
@@ -699,7 +700,7 @@ type
 
   { IPedidosCliente }
   IPedidosCliente = interface(IDAStronglyTypedDataTable)
-  ['{AFC13DCE-C06B-43F6-8659-EF8F363AA406}']
+  ['{2DF3DC58-2F3F-44B7-BCA7-6B5B7477FFD8}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -843,6 +844,10 @@ type
     procedure SetDATOS_BANCARIOSValue(const aValue: String);
     function GetDATOS_BANCARIOSIsNull: Boolean;
     procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean);
+    function GetID_VENDEDORValue: Integer;
+    procedure SetID_VENDEDORValue(const aValue: Integer);
+    function GetID_VENDEDORIsNull: Boolean;
+    procedure SetID_VENDEDORIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -918,6 +923,8 @@ type
     property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
     property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
     property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
+    property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+    property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
   end;
 
   { TPedidosClienteDataTableRules }
@@ -1071,6 +1078,10 @@ type
     procedure SetDATOS_BANCARIOSValue(const aValue: String); virtual;
     function GetDATOS_BANCARIOSIsNull: Boolean; virtual;
     procedure SetDATOS_BANCARIOSIsNull(const aValue: Boolean); virtual;
+    function GetID_VENDEDORValue: Integer; virtual;
+    procedure SetID_VENDEDORValue(const aValue: Integer); virtual;
+    function GetID_VENDEDORIsNull: Boolean; virtual;
+    procedure SetID_VENDEDORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1145,6 +1156,8 @@ type
     property FECHA_PREVISTA_ENVIOIsNull: Boolean read GetFECHA_PREVISTA_ENVIOIsNull write SetFECHA_PREVISTA_ENVIOIsNull;
     property DATOS_BANCARIOS: String read GetDATOS_BANCARIOSValue write SetDATOS_BANCARIOSValue;
     property DATOS_BANCARIOSIsNull: Boolean read GetDATOS_BANCARIOSIsNull write SetDATOS_BANCARIOSIsNull;
+    property ID_VENDEDOR: Integer read GetID_VENDEDORValue write SetID_VENDEDORValue;
+    property ID_VENDEDORIsNull: Boolean read GetID_VENDEDORIsNull write SetID_VENDEDORIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1154,7 +1167,7 @@ type
 
   { IPedidosCliente_Detalles }
   IPedidosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{65AE1BAD-EEB3-48CE-8366-FB559610658B}']
+  ['{B4AE7BEA-A09E-45A0-A759-F52B4C16CD78}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1357,7 +1370,7 @@ type
 
   { IPedidoCliente_Articulos_Pendientes }
   IPedidoCliente_Articulos_Pendientes = interface(IDAStronglyTypedDataTable)
-  ['{FB1F9D4A-319A-4FB3-8576-26E149E18E06}']
+  ['{19CDD1BE-D8E9-4304-A92F-168055101599}']
     { Property getters and setters }
     function GetID_ARTICULOValue: Integer;
     procedure SetID_ARTICULOValue(const aValue: Integer);
@@ -1428,7 +1441,7 @@ type
 
   { IPedidosCliente_Detalle_Color }
   IPedidosCliente_Detalle_Color = interface(IDAStronglyTypedDataTable)
-  ['{FEED9557-5E73-47D9-A62B-E92C858D9608}']
+  ['{20ACE66E-BAE3-4C47-A309-BFAC58663D1E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3087,6 +3100,27 @@ begin
     DataTable.Fields[idx_PedidosClienteDATOS_BANCARIOS].AsVariant := Null;
 end;
 
+function TPedidosClienteDataTableRules.GetID_VENDEDORValue: Integer;
+begin
+  result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger;
+end;
+
+procedure TPedidosClienteDataTableRules.SetID_VENDEDORValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsInteger := aValue;
+end;
+
+function TPedidosClienteDataTableRules.GetID_VENDEDORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_PedidosClienteID_VENDEDOR].IsNull;
+end;
+
+procedure TPedidosClienteDataTableRules.SetID_VENDEDORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_PedidosClienteID_VENDEDOR].AsVariant := Null;
+end;
+
 
 { TPedidosCliente_DetallesDataTableRules }
 constructor TPedidosCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Pedidos de cliente/Plugin/PedidosCliente_plugin.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\uPluginPedidosCliente.dfm */
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Plugin\PedidosCliente_plugin.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf382.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf132.tmp */

Source/Modulos/Pedidos de cliente/Plugin/uPluginPedidosCliente.pas

@@ -23,6 +23,9 @@ type
     destructor Destroy; override;
     procedure VerPedidos(const ID_Cliente: Integer;
       const ANombreCliente : String = '');
+    procedure VerPedidosVendedor(const ID_Vendedor: Integer;
+      const ANombreVendedor : String = '');
+
   end;
 
 implementation
@@ -88,6 +91,29 @@ begin
   end;
 end;
 
+procedure TPluginPedidosCliente.VerPedidosVendedor(const ID_Vendedor: Integer;
+  const ANombreVendedor: String);
+var
+  APedidosClienteController : IPedidosClienteController;
+  APedidosVendedor : IBizPedidoCliente;
+  AText : String;
+begin
+  AText := Format('Lista de pedidos del vendedor %s', [ANombreVendedor]);
+  APedidosClienteController := TPedidosClienteController.Create;
+  try
+    ShowHourglassCursor;
+    try
+      APedidosVendedor := APedidosClienteController.BuscarTodosVendedor(ID_Vendedor);
+    finally
+      HideHourglassCursor;
+    end;
+    APedidosClienteController.VerTodosPedidos(APedidosVendedor, True, AText);
+  finally
+    APedidosVendedor := NIL;
+    APedidosClienteController := NIL;
+  end;
+end;
+
 initialization
   RegisterModuleClass(TPluginPedidosCliente);
 

Source/Modulos/Pedidos de cliente/Servidor/srvPedidosCliente_Impl.dfm

@@ -454,6 +454,10 @@ object srvPedidosCliente: TsrvPedidosCliente
               item
                 DatasetField = 'DATOS_BANCARIOS'
                 TableField = 'DATOS_BANCARIOS'
+              end
+              item
+                DatasetField = 'ID_VENDEDOR'
+                TableField = 'ID_VENDEDOR'
               end>
           end>
         Name = 'PedidosCliente'
@@ -655,6 +659,10 @@ object srvPedidosCliente: TsrvPedidosCliente
             DataType = datString
             Size = 255
             DictionaryEntry = 'PedidosCliente_DATOS_BANCARIOS'
+          end
+          item
+            Name = 'ID_VENDEDOR'
+            DataType = datInteger
           end>
       end
       item

Source/Modulos/Pedidos de cliente/Views/PedidosCliente_view.drc

@@ -27,4 +27,4 @@ END
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uViewArticulosPendientes.dfm */
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\uEditorArticulosPendientes.dfm */
 /* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf380.tmp */
+/* C:\Codigo noviseda\Source\Modulos\Pedidos de cliente\Views\PedidosCliente_view.drf */

Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.dfm

@@ -290,10 +290,6 @@ inherited fEditorPedidosCliente: TfEditorPedidosCliente
     inherited actImprimir: TAction
       Visible = True
     end
-    inherited actExportarExcel: TAction
-      Enabled = False
-      Visible = False
-    end
     object actGenerarAlbaranCli: TAction
       Category = 'Acciones'
       Caption = 'Generar albar'#225'n de cliente'

Source/Modulos/Pedidos de cliente/Views/uEditorPedidosCliente.pas

@@ -222,7 +222,11 @@ end;
 constructor TfEditorPedidosCliente.Create(AOwner: TComponent);
 begin
   inherited;
-  AsignarVista;
+
+  FHeaderText := 'Lista de pedidos de cliente - ';
+  FWindowCaption := FHeaderText;
+
+  AsignarVista;  
 end;
 
 destructor TfEditorPedidosCliente.Destroy;
@@ -386,7 +390,7 @@ procedure TfEditorPedidosCliente.PonerTitulos(const ATitulo: string);
 var
   FTitulo : String;
 begin
-  FTitulo := 'Lista de pedidos de cliente - ' + AppFactuGES.EmpresaActiva.NOMBRE;
+  FTitulo := FWindowCaption + ' - ' + AppFactuGES.EmpresaActiva.NOMBRE;
   inherited PonerTitulos(FTitulo);
 end;
 

Source/Servidor/FactuGES_Server.dpr

@@ -3,7 +3,6 @@ program FactuGES_Server;
 {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
 
 uses
-  ExceptionLog,
   uROComInit,
   uROComboService,
   Forms,
@@ -136,8 +135,6 @@ uses
   uRptPedidosCliente_Server in '..\Modulos\Pedidos de cliente\Reports\uRptPedidosCliente_Server.pas' {RptPedidosCliente},
   schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
   schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
-  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
-  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas',
   schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
   schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas',
@@ -148,7 +145,9 @@ uses
   schInventarioServer_Intf in '..\Modulos\Inventario\Model\schInventarioServer_Intf.pas',
   schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
   schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
-  uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule};
+  uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
+  schPedidosClienteClient_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteClient_Intf.pas',
+  schPedidosClienteServer_Intf in '..\Modulos\Pedidos de cliente\Model\schPedidosClienteServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}

Source/Servidor/FactuGES_Server.dproj

@@ -35,7 +35,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType />
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">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">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">miércoles, 09 de junio de 2010 15:30</VersionInfoKeys></VersionInfoKeys><Excluded_Packages></Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES Servidor</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 01 de julio de 2010 17:59</VersionInfoKeys></VersionInfoKeys><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>

Source/Servidor/FactuGES_Server.rc

@@ -17,7 +17,7 @@ BEGIN
               VALUE "InternalName", "FactuGES Servidor\0"
               VALUE "ProductName", "FactuGES Servidor\0"
               VALUE "ProductVersion", "1.0.6.0\0"
-              VALUE "CompileDate", "martes, 15 de junio de 2010 9:14\0"
+              VALUE "CompileDate", "jueves, 01 de julio de 2010 17:59\0"
          END
     END
     BLOCK "VarFileInfo"