Version 4.3.2 - Comerciales, instaladores y pasar facturas de cliente de abeto a facturas de proveedor a graden

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@173 93f398dd-4eb6-7a46-baf6-13f46f578da2

Build/Build.fbpInf

@@ -14,8 +14,8 @@
     <Notes>
       <![CDATA[]]>
     </Notes>
-    <LastBuildRun>00:00:07</LastBuildRun>
+    <LastBuildRun>00:00:00</LastBuildRun>
-    <LastBuildStart>04/04/2022 10:55:43</LastBuildStart>
+    <LastBuildStart>06/02/2023 20:23:47</LastBuildStart>
-    <LastBuildState>True</LastBuildState>
+    <LastBuildState>False</LastBuildState>
   </properties>
 </project>

Source/ApplicationBase/ApplicationBase.dproj

@@ -46,21 +46,6 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@@ -71,43 +56,43 @@
     <DelphiCompile Include="ApplicationBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Facturas de cliente\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Base.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\Base.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\ccpackD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\ccpackD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cfpack_d11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\cfpack_d11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\designide.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\designide.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxNavBarD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\dxNavBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\GUIBase.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\GUIBase.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvJansD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JvJansD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Facturas de cliente\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Contabilidad\xmlrtl.dcp" />
     <DCCReference Include="Configuracion\Controller\uConfiguracionController.pas" />
     <DCCReference Include="Configuracion\Controller\Views\uIViewConfiguracionBase.pas" />
     <DCCReference Include="Configuracion\Views\uEditorConfiguracion.pas">

Source/ApplicationBase/Ejercicios/Plugin/uPluginEjercicios.pas

@@ -32,7 +32,7 @@ implementation
 {$R *.dfm}
 
 uses
-  Forms, Dialogs, SysUtils,
+  Forms, Dialogs, SysUtils, uFactuGES_App,
   uEjerciciosController, uBizEjercicios, uEjerciciosViewRegister;
 
 function GetModule : TModuleController;
@@ -57,6 +57,18 @@ constructor TPluginEjercicios.Create(AOwner: TComponent);
 begin
   inherited;
   uEjerciciosViewRegister.RegisterViews;
+
+  if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) then
+  begin
+    actEjercicios.Enabled := True;
+    actEjercicios.Visible := True;
+  end
+  else
+  begin
+    actEjercicios.Enabled := False;
+    actEjercicios.Visible := False;
+  end;
+
 end;
 
 destructor TPluginEjercicios.Destroy;

Source/ApplicationBase/uFactuGES_App.pas

@@ -9,9 +9,14 @@ uses
 
 const
   CTE_PERFIL_ADMINISTRADOR = 3;
-  CTE_PERFIL_VENDEDOR = 7;
+  CTE_PERFIL_VENDEDOR_GRADEN = 7;
+  CTE_PERFIL_VENDEDOR_MARBELLA = 9;
   CTE_PERFIL_COMPRAS = 8;
-  CTE_PERFIL_USUARIO = 5;    
+  CTE_PERFIL_USUARIO = 5;
+
+  CTE_EMPRESA_ABETO = 1;
+  CTE_EMPRESA_GRADEN = 2;
+  CTE_EMPRESA_GRADEN_MARBELLA = 6;  
 
 type
   TAppFactuGES_Event = procedure;

Source/Base/Base.dproj

@@ -58,54 +58,54 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Remesas de proveedor\adortl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\cxDataD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\cxGridD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\dbrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\dclIndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\designide.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\designide.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\dsnap.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\IndyCore.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\IndyProtocols.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\IndySystem.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\Jcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JclVcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JSDialog100.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvMMD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvNetD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\pckMD5.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\PluginSDK_D11R.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\PluginSDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\PNG_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\rtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\TB2k_D10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\tbx_d10.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\vcl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\vclactnband.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\vcldb.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\vcljpg.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\VclSmp.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\vclx.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Remesas de proveedor\xmlrtl.dcp" />
+    <DCCReference Include="..\Modulos\Recibos de proveedor\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>

Source/Cliente/FactuGES.dproj

@@ -52,7 +52,7 @@
     <Borland.Personality>Delphi.Personality</Borland.Personality>
     <Borland.ProjectType>VCLApplication</Borland.ProjectType>
     <BorlandProject>
-<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">1</VersionInfo><VersionInfo Name="Release">9</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.1.9.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">3</VersionInfo><VersionInfo Name="Release">2</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">4.3.2.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">4.3.2.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
       
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>

Source/Cliente/uBootStrap.pas

@@ -22,7 +22,7 @@ begin
   with AppFactuGES.ModuleManager do
   begin
 	  LoadModule('Referencias_plugin.bpl');
-//    LoadModule('TiposVenta_plugin.bpl');
+    LoadModule('Delegaciones_plugin.bpl');
     LoadModule('FormasPago_plugin.bpl');
     LoadModule('TiposIVA_plugin.bpl');
     LoadModule('TiposOperacionCompra_plugin.bpl');

Source/Cliente/uPantallaPrincipal.dfm

@@ -274,7 +274,6 @@ object fPantallaPrincipal: TfPantallaPrincipal
       Category = 'Menus'
       Caption = 'Log'#237'stica'
       OnExecute = actMenuLogisticaExecute
-      OnUpdate = actMenuLogisticaUpdate
     end
     object actMenuVentas: TAction
       Category = 'Menus'

Source/Cliente/uPantallaPrincipal.pas

@@ -124,7 +124,6 @@ type
     procedure actMenuInformesExecute(Sender: TObject);
     procedure Listadeempresas1_OLDClick(Sender: TObject);
     procedure actInformacionEmpresaExecute(Sender: TObject);
-    procedure actMenuLogisticaUpdate(Sender: TObject);
   private
     FContenido : TCustomEditor;
     procedure ShowEmbedded(AEditor : ICustomEditor);
@@ -196,7 +195,8 @@ end;
 procedure TfPantallaPrincipal.FormShow(Sender: TObject);
 begin
   //El usuario vendedor de graden solo podrá ver ventas (Graden-Vendedor(2))
-  if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR) then
+  if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_GRADEN)
+  or (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_VENDEDOR_MARBELLA) then
   begin
     Informes1.Enabled := False;
     Informes1.Visible := False;
@@ -247,8 +247,14 @@ begin
   ATitulo := AppFactuGES.GetAppFullName;
 
   if Assigned(AppFactuGES.EmpresaActiva) then
+  begin
     ATitulo := AppFactuGES.EmpresaActiva.NOMBRE + ' - ' + ATitulo;
 
+    actMenuLogistica.Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+    actMenuLogistica.Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+  end;
+
+
   Application.Title := ATitulo;
   Caption := Application.Title;
 
@@ -435,12 +441,6 @@ begin
   //
 end;
 
-procedure TfPantallaPrincipal.actMenuLogisticaUpdate(Sender: TObject);
-begin
-  (Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = 1;
-  (Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = 1;
-end;
-
 procedure TfPantallaPrincipal.ExecuteActionMenu(Sender: TObject);
 var
   i : integer;

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm

@@ -256,8 +256,6 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 419
-          ExplicitWidth = 250
-          Width = 250
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel

Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas

@@ -203,12 +203,17 @@ end;
 procedure TfrViewAlbaranesCliente.ConfigView;
 begin
   inherited;
-
+  //Solo para Graden
-  if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
-    cxGridViewTIENDA.Visible := True
+  begin
-  else
     cxGridViewTIENDA.Visible := False;
-
+    cxGridViewTIENDA.VisibleForCustomization := False;
+  end
+  else
+  begin
+    cxGridViewTIENDA.Visible := True;
+    cxGridViewTIENDA.VisibleForCustomization := True;
+  end;
 end;
 
 procedure TfrViewAlbaranesCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);

Source/Modulos/Comisiones/Plugin/uPluginComisiones.dfm

@@ -65,7 +65,9 @@ object PluginComisiones: TPluginComisiones
     object actComisiones: TAction
       Category = 'Comisiones'
       Caption = 'Liquidaciones de comisiones'
+      Enabled = False
       ImageIndex = 0
+      Visible = False
       OnExecute = actComisionesExecute
       OnUpdate = actComisionesUpdate
     end

Source/Modulos/Contabilidad/Plugin/uPluginContabilidad.pas

@@ -185,6 +185,16 @@ constructor TPluginContabilidad.Create(AOwner: TComponent);
 begin
   inherited;
   uContabilidadViewRegister.RegisterViews;
+  if (AppFactuGES.UsuarioActivo.ID_PERFIL = CTE_PERFIL_ADMINISTRADOR) then
+  begin
+    actSubCuentas.Enabled := True;
+    actSubCuentas.Visible := True;
+  end
+  else
+  begin
+    actSubCuentas.Enabled := False;
+    actSubCuentas.Visible := False;
+  end;
 end;
 
 destructor TPluginContabilidad.Destroy;

Source/Modulos/Contactos/Contactos_Group.groupproj

@@ -14,6 +14,10 @@
     <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
     <Projects Include="..\Contabilidad\Plugin\Contabilidad_plugin.dproj" />
     <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
+    <Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
+    <Projects Include="..\Delegaciones\Controller\Delegaciones_controller.dproj" />
+    <Projects Include="..\Delegaciones\Model\Delegaciones_model.dproj" />
+    <Projects Include="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" />
     <Projects Include="..\Gestor de informes\Views\GestorInformes_view.dproj" />
     <Projects Include="..\Presupuestos de cliente\Controller\PresupuestosCliente_controller.dproj" />
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
@@ -191,14 +195,50 @@
   <Target Name="PresupuestosCliente_view:Make">
     <MSBuild Projects="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" Targets="Make" />
   </Target>
+  <Target Name="Delegaciones_plugin">
+    <MSBuild Projects="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" Targets="" />
+  </Target>
+  <Target Name="Delegaciones_plugin:Clean">
+    <MSBuild Projects="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Delegaciones_plugin:Make">
+    <MSBuild Projects="..\Delegaciones\Plugin\Delegaciones_plugin.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Delegaciones_controller">
+    <MSBuild Projects="..\Delegaciones\Controller\Delegaciones_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="Delegaciones_controller:Clean">
+    <MSBuild Projects="..\Delegaciones\Controller\Delegaciones_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Delegaciones_controller:Make">
+    <MSBuild Projects="..\Delegaciones\Controller\Delegaciones_controller.dproj" Targets="Make" />
+  </Target>
+  <Target Name="Delegaciones_model">
+    <MSBuild Projects="..\Delegaciones\Model\Delegaciones_model.dproj" Targets="" />
+  </Target>
+  <Target Name="Delegaciones_model:Clean">
+    <MSBuild Projects="..\Delegaciones\Model\Delegaciones_model.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Delegaciones_model:Make">
+    <MSBuild Projects="..\Delegaciones\Model\Delegaciones_model.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ContratosCliente_view">
+    <MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="" />
+  </Target>
+  <Target Name="ContratosCliente_view:Clean">
+    <MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ContratosCliente_view:Make">
+    <MSBuild Projects="..\Contratos de cliente\Views\ContratosCliente_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server;Contabilidad_plugin;GestorInformes_view;PresupuestosCliente_controller;PresupuestosCliente_view" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contabilidad_model;Contabilidad_data;Contabilidad_controller;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_view;FactuGES;FactuGES_Server;Contabilidad_plugin;GestorInformes_view;PresupuestosCliente_controller;PresupuestosCliente_view;Delegaciones_plugin;Delegaciones_controller;Delegaciones_model;ContratosCliente_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_plugin:Clean;GestorInformes_view:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_view:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_plugin:Clean;GestorInformes_view:Clean;PresupuestosCliente_controller:Clean;PresupuestosCliente_view:Clean;Delegaciones_plugin:Clean;Delegaciones_controller:Clean;Delegaciones_model:Clean;ContratosCliente_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_plugin:Make;GestorInformes_view:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_view:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_plugin:Make;GestorInformes_view:Make;PresupuestosCliente_controller:Make;PresupuestosCliente_view:Make;Delegaciones_plugin:Make;Delegaciones_controller:Make;Delegaciones_model:Make;ContratosCliente_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contactos/Controller/Contactos_controller.dpk

@@ -37,7 +37,17 @@ requires
   rtl,
   vclactnband,
   vclx,
-  vcl;
+  vcl,
+  dbrtl,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  RemObjects_Core_D11,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  dxCoreD11;
 
 contains
   uContactosController in 'uContactosController.pas',
@@ -47,7 +57,7 @@ contains
   uIEditorClientes in 'View\uIEditorClientes.pas',
   uClientesController in 'uClientesController.pas',
   uIEditorProveedores in 'View\uIEditorProveedores.pas',
-  uIEditorVendedores in 'View\uIEditorVendedores.pas',
+  uIEditorComerciales in 'View\uIEditorComerciales.pas',
   uIEditorVendedor in 'View\uIEditorVendedor.pas',
   uIEditorProveedor in 'View\uIEditorProveedor.pas',
   uProveedoresController in 'uProveedoresController.pas',
@@ -69,6 +79,13 @@ contains
   uPersonalContactoController in 'uPersonalContactoController.pas',
   uIEditorElegirPersonaContacto in 'View\uIEditorElegirPersonaContacto.pas',
   uIEditorPersonalContacto in 'View\uIEditorPersonalContacto.pas',
-  uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas';
+  uIEditorElegirDireccionEntrega in 'View\uIEditorElegirDireccionEntrega.pas',
+  uIEditorInstaladores in 'View\uIEditorInstaladores.pas',
+  uIEditorInstalador in 'View\uIEditorInstalador.pas',
+  uIEditorComercial in 'View\uIEditorComercial.pas',
+  uComercialesController in 'uComercialesController.pas',
+  uInstaladoresController in 'uInstaladoresController.pas',
+  uIEditorElegirComerciales in 'View\uIEditorElegirComerciales.pas',
+  uIEditorElegirInstaladores in 'View\uIEditorElegirInstaladores.pas';
 
 end.

Source/Modulos/Contactos/Controller/Contactos_controller.dproj

@@ -49,6 +49,24 @@
       
       
       
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       
       
       
@@ -62,49 +80,66 @@
     <DelphiCompile Include="Contactos_controller.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contabilidad_controller.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_data.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\Contactos_model.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\designide.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUIBase.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclactnband.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\vclx.dcp" />
-    <DCCReference Include="..\..\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="uClientesController.pas" />
+    <DCCReference Include="uComercialesController.pas" />
     <DCCReference Include="uContactosController.pas" />
     <DCCReference Include="uDireccionesContactoController.pas" />
     <DCCReference Include="uEtiquetasContactosReportController.pas" />
     <DCCReference Include="uGruposClienteController.pas" />
     <DCCReference Include="uGruposProveedorController.pas" />
+    <DCCReference Include="uInstaladoresController.pas" />
     <DCCReference Include="uPersonalContactoController.pas" />
     <DCCReference Include="uProcedenciasClienteController.pas" />
     <DCCReference Include="uProveedoresController.pas" />
     <DCCReference Include="uVendedoresController.pas" />
+    <DCCReference Include="View\adortl.dcp" />
+    <DCCReference Include="View\ApplicationBase.dcp" />
+    <DCCReference Include="View\Base.dcp" />
+    <DCCReference Include="View\Contabilidad_controller.dcp" />
+    <DCCReference Include="View\Contactos_data.dcp" />
+    <DCCReference Include="View\Contactos_model.dcp" />
+    <DCCReference Include="View\cxLibraryD11.dcp" />
+    <DCCReference Include="View\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="View\dbrtl.dcp" />
+    <DCCReference Include="View\designide.dcp" />
+    <DCCReference Include="View\dsnap.dcp" />
+    <DCCReference Include="View\dxCoreD11.dcp" />
+    <DCCReference Include="View\dxGDIPlusD11.dcp" />
+    <DCCReference Include="View\dxThemeD11.dcp" />
+    <DCCReference Include="View\GUIBase.dcp" />
+    <DCCReference Include="View\GUISDK_D11R.dcp" />
+    <DCCReference Include="View\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="View\rtl.dcp" />
     <DCCReference Include="View\uIEditorCliente.pas" />
     <DCCReference Include="View\uIEditorClientes.pas" />
+    <DCCReference Include="View\uIEditorComercial.pas" />
+    <DCCReference Include="View\uIEditorComerciales.pas" />
     <DCCReference Include="View\uIEditorContacto.pas" />
     <DCCReference Include="View\uIEditorContactos.pas" />
     <DCCReference Include="View\uIEditorDireccionContacto.pas" />
     <DCCReference Include="View\uIEditorElegirClientes.pas" />
+    <DCCReference Include="View\uIEditorElegirComerciales.pas" />
     <DCCReference Include="View\uIEditorElegirContactos.pas" />
     <DCCReference Include="View\uIEditorElegirDireccionEntrega.pas" />
+    <DCCReference Include="View\uIEditorElegirInstaladores.pas" />
     <DCCReference Include="View\uIEditorElegirPersonaContacto.pas" />
     <DCCReference Include="View\uIEditorElegirProveedores.pas" />
     <DCCReference Include="View\uIEditorElegirVendedores.pas" />
     <DCCReference Include="View\uIEditorEtiquetasContactosPreview.pas" />
     <DCCReference Include="View\uIEditorGruposCliente.pas" />
     <DCCReference Include="View\uIEditorGruposProveedor.pas" />
+    <DCCReference Include="View\uIEditorInstalador.pas" />
+    <DCCReference Include="View\uIEditorInstaladores.pas" />
     <DCCReference Include="View\uIEditorPersonalContacto.pas" />
     <DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
     <DCCReference Include="View\uIEditorProveedor.pas" />
     <DCCReference Include="View\uIEditorProveedores.pas" />
     <DCCReference Include="View\uIEditorVendedor.pas" />
-    <DCCReference Include="View\uIEditorVendedores.pas" />
+    <DCCReference Include="View\vcl.dcp" />
+    <DCCReference Include="View\vclactnband.dcp" />
+    <DCCReference Include="View\vcldb.dcp" />
+    <DCCReference Include="View\vclx.dcp" />
+    <DCCReference Include="View\xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Controller/uClientesController.pas

@@ -22,7 +22,8 @@ type
     procedure SetIgnorarContabilidad(ACliente: IBizCliente; AValue: Boolean);
 
     function darClienteGraden(const ID: Integer): IBizContacto;
-    function AsignarPrecioPunto(AClientes : IBizCliente; APrecioPunto: Variant; AllItems: Boolean = false): Boolean;    
+    function AsignarPrecioPunto(AClientes : IBizCliente; APrecioPunto: Variant; AllItems: Boolean = false): Boolean;
+    function AsignarComercial(AClientes : IBizCliente; AID_AGENTE: Variant; AllItems: Boolean = false): Boolean;    
   end;
 
   TClientesController = class(TContactosController, IClientesController)
@@ -57,6 +58,7 @@ type
 
     function darClienteGraden(const ID: Integer): IBizContacto;
     function AsignarPrecioPunto(AClientes : IBizCliente; APrecioPunto: Variant; AllItems: Boolean = false): Boolean;
+    function AsignarComercial(AClientes : IBizCliente; AID_AGENTE: Variant; AllItems: Boolean = false): Boolean;
   end;
 
 implementation
@@ -70,6 +72,50 @@ uses
 
 { TClientesController }
 
+function TClientesController.AsignarComercial(AClientes: IBizCliente;
+  AID_AGENTE: Variant; AllItems: Boolean): Boolean;
+begin
+  if not Assigned(AClientes) then
+    raise Exception.Create ('AClientes no asignado');
+
+  ShowHourglassCursor;
+  try
+    if not AClientes.DataTable.Active then
+       AClientes.DataTable.Active := True;
+
+    if (AClientes.State in dsEditModes) then
+      AClientes.Cancel;
+
+    //Siempre cambiaremos de situacion el seleccionado
+    AClientes.DataTable.Edit;
+    AClientes.ID_AGENTE := AID_AGENTE;
+    AClientes.DataTable.Post;
+
+    //En el caso de querer cambiar todos los items del objeto AClientes
+    if AllItems then
+    begin
+       with AClientes.DataTable do
+       begin
+         First;
+         while not EOF do
+         begin
+           AClientes.DataTable.Edit;
+           AClientes.ID_AGENTE := AID_AGENTE;
+           AClientes.DataTable.Post;
+           Next;
+         end;
+       end;
+    end;
+
+    AClientes.DataTable.ApplyUpdates;
+    Result := True;
+
+  finally
+    HideHourglassCursor;
+  end;
+
+end;
+
 function TClientesController.AsignarPrecioPunto(AClientes: IBizCliente; APrecioPunto: Variant; AllItems: Boolean): Boolean;
 begin
   if not Assigned(AClientes) then

Source/Modulos/Contactos/Controller/uProveedoresController.pas

@@ -17,6 +17,7 @@ type
     procedure Print(AProveedor : IBizProveedor; AllItems: Boolean = false);
     procedure SetTieneSubcuenta(AProveedor: IBizProveedor; AValue: Boolean);
     procedure SetIgnorarContabilidad(AProveedor: IBizProveedor; AValue: Boolean);
+    function BuscarSinFiltroEmpresa(const ID: Integer): IBizContacto;    
   end;
 
   TProveedoresController = class(TContactosController, IProveedoresController)
@@ -29,6 +30,7 @@ type
     destructor Destroy; override;
 
     function Buscar(const ID: Integer): IBizContacto; override;
+    function BuscarSinFiltroEmpresa(const ID: Integer): IBizContacto;
     function BuscarTodos: IBizContacto; override;
     function BuscarTodosTiendaWeb: IBizProveedor;
     function Nuevo : IBizContacto; override;
@@ -66,6 +68,11 @@ begin
 {$ENDIF}  
 end;
 
+function TProveedoresController.BuscarSinFiltroEmpresa(const ID: Integer): IBizContacto;
+begin
+  Result := (FDataModule as IDataModuleProveedores).GetItem(ID);
+end;
+
 function TProveedoresController.BuscarTodos: IBizContacto;
 begin
   Result := (FDataModule as IDataModuleProveedores).GetItems;

Source/Modulos/Contactos/Data/Contactos_data.dpk

@@ -30,12 +30,25 @@ requires
   Base,
   GUIBase,
   ApplicationBase,
-  Contactos_model;
+  Contactos_model,
+  dbrtl,
+  RemObjects_Core_D11,
+  DataAbstract_Core_D11,
+  vcldb,
+  dsnap,
+  adortl,
+  cxLibraryD11,
+  dxThemeD11,
+  dxGDIPlusD11,
+  dxCoreD11,
+  vclx;
 
 contains
   uDataModuleContactos in 'uDataModuleContactos.pas' {DataModuleContactos: TDAClientDataModule},
   uDataModuleClientes in 'uDataModuleClientes.pas' {DataModuleClientes: TDAClientDataModule},
   uDataModuleProveedores in 'uDataModuleProveedores.pas' {DataModuleProveedores: TDAClientDataModule},
-  uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule};
+  uDataModuleVendedores in 'uDataModuleVendedores.pas' {DataModuleVendedores: TDAClientDataModule},
+  uDataModuleInstaladores in 'uDataModuleInstaladores.pas' {DataModuleInstaladores: TDAClientDataModule},
+  uDataModuleComerciales in 'uDataModuleComerciales.pas' {DataModuleComerciales: TDAClientDataModule};
 
 end.

Source/Modulos/Contactos/Data/Contactos_data.dproj

@@ -49,20 +49,39 @@
     <DelphiCompile Include="Contactos_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
+    <DCCReference Include="..\Views\adortl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
+    <DCCReference Include="..\Views\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Contactos_model.dcp" />
+    <DCCReference Include="..\Views\Base.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
+    <DCCReference Include="..\Views\Contactos_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
+    <DCCReference Include="..\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
+    <DCCReference Include="..\Views\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Views\dbrtl.dcp" />
+    <DCCReference Include="..\Views\dsnap.dcp" />
+    <DCCReference Include="..\Views\dxCoreD11.dcp" />
+    <DCCReference Include="..\Views\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Views\dxThemeD11.dcp" />
+    <DCCReference Include="..\Views\GUIBase.dcp" />
+    <DCCReference Include="..\Views\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Views\rtl.dcp" />
+    <DCCReference Include="..\Views\vcl.dcp" />
+    <DCCReference Include="..\Views\vcldb.dcp" />
+    <DCCReference Include="..\Views\vclx.dcp" />
     <DCCReference Include="uDataModuleClientes.pas">
       <Form>DataModuleClientes</Form>
       <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="uDataModuleComerciales.pas">
+      <Form>DataModuleComerciales</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
     <DCCReference Include="uDataModuleContactos.pas">
       <Form>DataModuleContactos</Form>
       <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
+    <DCCReference Include="uDataModuleInstaladores.pas">
+      <Form>DataModuleInstaladores</Form>
+      <DesignClass>TDAClientDataModule</DesignClass>
+    </DCCReference>
     <DCCReference Include="uDataModuleProveedores.pas">
       <Form>DataModuleProveedores</Form>
       <DesignClass>TDAClientDataModule</DesignClass>
@@ -71,7 +90,6 @@
       <Form>DataModuleVendedores</Form>
       <DesignClass>TDAClientDataModule</DesignClass>
     </DCCReference>
-    <None Include="ModelSupport_Contactos_data\default.txaPackage" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Data/uDataModuleClientes.dfm

@@ -296,6 +296,22 @@ inherited DataModuleClientes: TDataModuleClientes
       item
         Name = 'PRECIO_PUNTO'
         DataType = datCurrency
+      end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+      end
+      item
+        Name = 'AGENTE'
+        DataType = datString
+        Size = 255
+        ServerAutoRefresh = True
+      end
+      item
+        Name = 'DELEGACION'
+        DataType = datString
+        Size = 255
+        ServerAutoRefresh = True
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -303,14 +319,14 @@ inherited DataModuleClientes: TDataModuleClientes
     LocalDataStreamer = Bin2DataStreamer
     LogicalName = 'Clientes'
     IndexDefs = <>
-    Left = 296
+    Left = 64
-    Top = 168
+    Top = 192
   end
   object ds_Clientes: TDADataSource
     DataSet = tbl_Clientes.Dataset
     DataTable = tbl_Clientes
-    Left = 296
+    Left = 72
-    Top = 232
+    Top = 248
   end
   object tbl_ClientesDescuentos: TDAMemDataTable
     RemoteUpdatesOptions = []

Source/Modulos/Contactos/Model/Contactos_model.dproj

@@ -49,27 +49,29 @@
     <DelphiCompile Include="Contactos_model.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\adortl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\ApplicationBase.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\Base.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dbrtl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\dsnap.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\FormasPago_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\GUIBase.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\rtl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_controller.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\TiposIVA_model.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcl.dcp" />
-    <DCCReference Include="..\..\..\..\Resources\Iconos\Cuentas\24x24\vcldb.dcp" />
     <DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
+    <DCCReference Include="Data\adortl.dcp" />
+    <DCCReference Include="Data\ApplicationBase.dcp" />
+    <DCCReference Include="Data\Base.dcp" />
+    <DCCReference Include="Data\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="Data\dbrtl.dcp" />
+    <DCCReference Include="Data\dsnap.dcp" />
+    <DCCReference Include="Data\FormasPago_controller.dcp" />
+    <DCCReference Include="Data\FormasPago_model.dcp" />
+    <DCCReference Include="Data\GUIBase.dcp" />
+    <DCCReference Include="Data\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="Data\rtl.dcp" />
+    <DCCReference Include="Data\TiposIVA_controller.dcp" />
+    <DCCReference Include="Data\TiposIVA_model.dcp" />
     <DCCReference Include="Data\uIDataModuleClientes.pas" />
+    <DCCReference Include="Data\uIDataModuleComerciales.pas" />
     <DCCReference Include="Data\uIDataModuleContactos.pas" />
     <DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
+    <DCCReference Include="Data\uIDataModuleInstaladores.pas" />
     <DCCReference Include="Data\uIDataModuleProveedores.pas" />
     <DCCReference Include="Data\uIDataModuleVendedores.pas" />
+    <DCCReference Include="Data\vcl.dcp" />
+    <DCCReference Include="Data\vcldb.dcp" />
     <DCCReference Include="schContactosClient_Intf.pas" />
     <DCCReference Include="schContactosServer_Intf.pas" />
     <DCCReference Include="uBizClientesDescuentos.pas" />

Source/Modulos/Contactos/Model/uBizClientesServer.pas

@@ -165,7 +165,7 @@ begin
     with ACommand do
     begin
       ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID];
-//      ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
+      ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
       ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
       ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
       ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];
@@ -223,7 +223,7 @@ begin
     begin
       ParamByName('OLD_ID_CLIENTE').Value := aChange.OldValueByName[fld_ClientesID];
       ParamByName('ID_CLIENTE').Value := aChange.NewValueByName[fld_ClientesID];
-//      ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
+      ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE];
       ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
       ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL];
       ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO];

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -12,11 +12,18 @@ const
   BIZ_CLIENT_CLIENTE = 'Client.Cliente';
   BIZ_CLIENT_PROVEEDOR = 'Client.Proveedor';
   BIZ_CLIENT_VENDEDOR = 'Client.Vendedor';
+  BIZ_CLIENT_INSTALADOR = 'Client.Instalador';
+  BIZ_CLIENT_COMERCIAL = 'Client.Comercial';
 
   CATEGORIA_CLIENTE = 1;
   CATEGORIA_PROVEEDOR = 2;
   CATEGORIA_VENDEDOR = 3;
   CATEGORIA_INSTALADOR = 4;
+  CATEGORIA_COMERCIAL = 5;
+
+  CTE_CLIENTE_GRADEN_PARA_FABRICA = 2000000005;
+  CTE_PROVEEDOR_ABETO_PARA_GRADEN = 29;
+  CTE_TIPO_FACTURA_PROV_ABETO = 54;    
 
 type
   IBizContacto = interface (IContactos)
@@ -51,6 +58,9 @@ type
     function GetPRECIO_PUNTOValue: Currency;
     procedure SetPRECIO_PUNTOValue(const aValue: Currency);
 
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+
     function GetDESCUENTO_LINEAValue: Float;
     procedure SetDESCUENTO_LINEAValue(const aValue: Float);
 
@@ -95,8 +105,14 @@ type
 
     function GetDescuentos: IBizClienteDescuentos;
     procedure SetDescuentos(Value: IBizClienteDescuentos);
-    property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
 
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
+
+    function GetDELEGACIONValue: String;
+    procedure SetDELEGACIONValue(const aValue: String);
+
+    property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos;
     property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
     property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue;
     property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue;
@@ -112,7 +128,10 @@ type
     property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
     property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
     property DESCUENTO_LINEA: Float read GetDESCUENTO_LINEAValue write SetDESCUENTO_LINEAValue;
-    property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;    
+    property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
 
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
@@ -216,6 +235,24 @@ type
     property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
   end;
 
+  IBizInstalador = interface (IBizContacto)
+  ['{D9F3652F-BB47-4B3C-A951-1966ED79236F}']
+  end;
+
+  IBizComercial = interface (IBizContacto)
+  ['{97496872-5FB3-43A1-85A5-9F29867A2E6A}']
+
+    function GetDELEGACIONValue: String;
+    procedure SetDELEGACIONValue(const aValue: String);
+
+    function GetCOMISIONValue: Float;
+    procedure SetCOMISIONValue(const aValue: Float);
+
+    property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+  end;
+
   TBizContacto = class(TContactosDataTableRules, IBizContacto, ISeleccionable)
   protected
     FDatosBancarios : IBizContactosDatosBancarios;
@@ -273,6 +310,9 @@ type
     function GetPRECIO_PUNTOValue: Currency;
     procedure SetPRECIO_PUNTOValue(const aValue: Currency);
 
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+
     function GetDESCUENTO_LINEAValue: Float;
     procedure SetDESCUENTO_LINEAValue(const aValue: Float);
 
@@ -327,6 +367,12 @@ type
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
 
+    function GetAGENTEValue: String;
+    procedure SetAGENTEValue(const aValue: String);
+
+    function GetDELEGACIONValue: String;
+    procedure SetDELEGACIONValue(const aValue: String);
+
   public
     procedure IniciarValoresContactoNuevo; override;
     constructor Create(aDataTable: TDADataTable); override;
@@ -351,6 +397,10 @@ type
     property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
     property DESCUENTO_LINEA: Float read GetDESCUENTO_LINEAValue write SetDESCUENTO_LINEAValue;
     property PRECIO_PUNTO: Currency read GetPRECIO_PUNTOValue write SetPRECIO_PUNTOValue;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property AGENTE: String read GetAGENTEValue write SetAGENTEValue;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+      
   end;
 
 
@@ -452,6 +502,26 @@ type
     procedure IniciarValoresContactoNuevo; override;
   end;
 
+  TBizInstalador = class(TBizContacto, IBizInstalador)
+  public
+    procedure IniciarValoresContactoNuevo; override;
+  end;
+
+  TBizComercial = class(TBizContacto, IBizComercial)
+  private
+    function GetDELEGACIONValue: String;
+    procedure SetDELEGACIONValue(const aValue: String);
+  protected
+    function GetCOMISIONValue: Float;
+    procedure SetCOMISIONValue(const aValue: Float);
+  published
+
+  public
+    property COMISION: Float read GetCOMISIONValue write SetCOMISIONValue;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;    
+    procedure IniciarValoresContactoNuevo; override;
+  end;
+
 
 implementation
 
@@ -512,7 +582,8 @@ begin
     1   : Result := 'Cliente';
     2   : Result := 'Proveedor';
     3   : Result := 'Vendedor';
-    4   : Result := 'Instalador';    
+    4   : Result := 'Instalador';
+    5   : Result := 'Comercial';        
   end;
 end;
 
@@ -587,11 +658,21 @@ begin
   inherited;
 end;
 
+function TBizCliente.GetAGENTEValue: String;
+begin
+  Result := DataTable.Fields[idx_ClientesAGENTE].AsString;
+end;
+
 function TBizCliente.GetBLOQUEADOValue: Integer;
 begin
   result := DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger;
 end;
 
+function TBizCliente.GetDELEGACIONValue: String;
+begin
+  Result := DataTable.Fields[idx_ClientesDELEGACION].AsString;
+end;
+
 function TBizCliente.GetDescuentos: IBizClienteDescuentos;
 begin
   Result := FDescuentos;
@@ -612,6 +693,11 @@ begin
   result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
 end;
 
+function TBizCliente.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesID_AGENTE].AsInteger;
+end;
+
 function TBizCliente.GetID_FORMA_PAGOValue: Integer;
 begin
   result := DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger;
@@ -647,11 +733,21 @@ begin
   result := DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsString;
 end;
 
+procedure TBizCliente.SetAGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesAGENTE].AsString := aValue;
+end;
+
 procedure TBizCliente.SetBLOQUEADOValue(const aValue: Integer);
 begin
   DataTable.Fields[idx_ClientesBLOQUEADO].AsInteger := aValue;
 end;
 
+procedure TBizCliente.SetDELEGACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ClientesDELEGACION].AsString := aValue;
+end;
+
 procedure TBizCliente.SetDescuentos(Value: IBizClienteDescuentos);
 begin
   FDescuentos := Value;
@@ -673,6 +769,11 @@ begin
   DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString := aValue;
 end;
 
+procedure TBizCliente.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesID_AGENTE].AsInteger := aValue;
+end;
+
 procedure TBizCliente.SetID_FORMA_PAGOValue(const aValue: Integer);
 begin
   DataTable.Fields[idx_ClientesID_FORMA_PAGO].AsInteger := aValue;
@@ -1056,11 +1157,49 @@ begin
   DataTable.Fields[idx_VendedoresID_USUARIO].AsInteger := aValue;
 end;
 
+{ TBizInstalador }
+
+procedure TBizInstalador.IniciarValoresContactoNuevo;
+begin
+  inherited;
+  ID_CATEGORIA := CATEGORIA_INSTALADOR;
+end;
+
+{ TBizComercial }
+
+function TBizComercial.GetCOMISIONValue: Float;
+begin
+  result := DataTable.Fields[idx_ComercialesCOMISION].AsFloat;
+end;
+
+function TBizComercial.GetDELEGACIONValue: String;
+begin
+  result := DataTable.Fields[idx_ComercialesDELEGACION].AsString;
+end;
+
+procedure TBizComercial.IniciarValoresContactoNuevo;
+begin
+  inherited;
+  ID_CATEGORIA := CATEGORIA_COMERCIAL;
+end;
+
+procedure TBizComercial.SetCOMISIONValue(const aValue: Float);
+begin
+  DataTable.Fields[idx_ComercialesCOMISION].AsFloat := aValue;
+end;
+
+procedure TBizComercial.SetDELEGACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ComercialesDELEGACION].AsString := aValue;
+end;
+
 initialization
   RegisterDataTableRules(BIZ_CLIENT_CONTACTO, TBizContacto);
   RegisterDataTableRules(BIZ_CLIENT_CLIENTE, TBizCliente);
   RegisterDataTableRules(BIZ_CLIENT_PROVEEDOR, TBizProveedor);
   RegisterDataTableRules(BIZ_CLIENT_VENDEDOR, TBizVendedor);
+  RegisterDataTableRules(BIZ_CLIENT_INSTALADOR, TBizInstalador);
+  RegisterDataTableRules(BIZ_CLIENT_COMERCIAL, TBizComercial);
 
 finalization
 

Source/Modulos/Contactos/Plugin/uPluginContactos.dfm

@@ -279,7 +279,7 @@ object PluginContactos: TPluginContactos
     end
     object actVendedores: TAction
       Category = 'Empresa'
-      Caption = 'Vendedores \ Instaladores'
+      Caption = 'Vendedores usuarios'
       ImageIndex = 2
       OnExecute = actVendedoresExecute
       OnUpdate = actVendedoresUpdate
@@ -303,6 +303,20 @@ object PluginContactos: TPluginContactos
       ImageIndex = 6
       OnExecute = actProcedenciasClienteExecute
     end
+    object actComerciales: TAction
+      Category = 'Empresa'
+      Caption = 'Comerciales'
+      ImageIndex = 3
+      OnExecute = actComercialesExecute
+      OnUpdate = actComercialesUpdate
+    end
+    object actInstaladores: TAction
+      Category = 'Empresa'
+      Caption = 'Instaladores'
+      ImageIndex = 4
+      OnExecute = actInstaladoresExecute
+      OnUpdate = actInstaladoresUpdate
+    end
   end
   object MainMenu: TMainMenu
     Images = SmallImages
@@ -315,6 +329,14 @@ object PluginContactos: TPluginContactos
         Action = actVendedores
         SubMenuImages = SmallImages
       end
+      object Comerciales1: TMenuItem
+        Tag = 103
+        Action = actComerciales
+      end
+      object Instaladores1: TMenuItem
+        Tag = 104
+        Action = actInstaladores
+      end
     end
     object Da1: TMenuItem
       Caption = 'Datos'

Source/Modulos/Contactos/Plugin/uPluginContactos.pas

@@ -32,6 +32,10 @@ type
     actProcedenciasCliente: TAction;
     Procedenciasdecliente1: TMenuItem;
     Empresas1: TMenuItem;
+    actComerciales: TAction;
+    actInstaladores: TAction;
+    Comerciales1: TMenuItem;
+    Instaladores1: TMenuItem;
     procedure actClientesExecute(Sender: TObject);
     procedure actProveedoresExecute(Sender: TObject);
     procedure actVendedoresExecute(Sender: TObject);
@@ -41,6 +45,10 @@ type
     function GetVistaConfiguracion : TClass;
     function GetEtiquetaConfiguracion : String;
     procedure actVendedoresUpdate(Sender: TObject);
+    procedure actComercialesExecute(Sender: TObject);
+    procedure actInstaladoresExecute(Sender: TObject);
+    procedure actComercialesUpdate(Sender: TObject);
+    procedure actInstaladoresUpdate(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -53,6 +61,7 @@ implementation
 uses
   Forms, Dialogs, uGUIBase, uCustomEditor, SysUtils, uContactosController,
   uClientesController, uProveedoresController, uVendedoresController,
+  uComercialesController, uInstaladoresController,
   uGruposClienteController, uProcedenciasClienteController, uBizGruposCliente,
   uGruposProveedorController, uBizGruposProveedor, uBizProcedenciasCliente,
   uContactosViewRegister, uBizContactos, uViewConfiguracionContactos,
@@ -84,6 +93,22 @@ begin
   end;
 end;
 
+procedure TPluginContactos.actComercialesExecute(Sender: TObject);
+var
+  AComercialesController : IComercialesController;
+  AComerciales : IBizComercial;
+begin
+  AComercialesController := TComercialesController.Create;
+  AComerciales := (AComercialesController.BuscarTodos as IBizComercial);
+  AComercialesController.VerTodos(AComerciales);
+end;
+
+procedure TPluginContactos.actComercialesUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+  (Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+end;
+
 procedure TPluginContactos.actGruposClienteExecute(Sender: TObject);
 var
   AGruposClienteController : IGruposClienteController;
@@ -104,6 +129,22 @@ begin
   AGruposProveedorController.VerTodos(AGruposProveedor);
 end;
 
+procedure TPluginContactos.actInstaladoresExecute(Sender: TObject);
+var
+  AInstaladoresController : IInstaladoresController;
+  AInstaladores : IBizInstalador;
+begin
+  AInstaladoresController := TInstaladoresController.Create;
+  AInstaladores := (AInstaladoresController.BuscarTodos as IBizInstalador);
+  AInstaladoresController.VerTodos(AInstaladores);
+end;
+
+procedure TPluginContactos.actInstaladoresUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+  (Sender as TAction).Visible := AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO;
+end;
+
 procedure TPluginContactos.actProcedenciasClienteExecute(Sender: TObject);
 var
   AProcedenciasClienteController : IProcedenciasClienteController;

Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas

@@ -32,6 +32,8 @@ type
 	bpPersonalContacto: TDABusinessProcessor;
     Bin2DataStreamer: TDABin2DataStreamer;
     bpSubCuentasContacto: TDABusinessProcessor;
+    bpInstaladores: TDABusinessProcessor;
+    bpComerciales: TDABusinessProcessor;
     schContactos: TDASchema;
     DataDictionary: TDADataDictionary;
     procedure DARemoteServiceBeforeGetDatasetData(const Dataset: IDADataset;
@@ -51,6 +53,7 @@ uses
   {Generated:} FactuGES_Invk, Dialogs, uBizContactosServer,
   uDataModuleServer, uDatabaseUtils, uUsersManager,
   schContactosClient_Intf, uBizVendedoresServer,
+  uBizInstaladoresServer, uBizComercialesServer,
   uBizClientesServer, uBizProveedoresServer, uRestriccionesUsuarioUtils,
   uRptEtiquetasContacto_Server;
 
@@ -82,6 +85,8 @@ begin
   bpVendedores.BusinessRulesID := BIZ_SERVER_VENDEDOR;
   bpClientes.BusinessRulesID := BIZ_SERVER_CLIENTE;
   bpProveedores.BusinessRulesID := BIZ_SERVER_PROVEEDOR;
+  bpInstaladores.BusinessRulesID := BIZ_SERVER_INSTALADOR;
+  bpComerciales.BusinessRulesID := BIZ_SERVER_COMERCIAL;
 end;
 
 function TsrvContactos.DarTiendaDeUsuario(const ID_Empresa: Integer;

Source/Modulos/Contactos/Views/Contactos_view.dpk

@@ -60,7 +60,29 @@ requires
   xmlrtl,
   vclactnband,
   GestorInformes_controller,
-  dxCoreD11;
+  dxCoreD11,
+  PngComponentsD10,
+  PNG_D10,
+  tb2k_d10,
+  tbx_d10,
+  cxGridD11,
+  cxPageControlD11,
+  cxExtEditorsD11,
+  cxExportD11,
+  dxPSCoreD11,
+  dxComnD11,
+  dxPScxCommonD11,
+  dxPSLnksD11,
+  vclshlctrls,
+  dxPScxGrid6LnkD11,
+  dclcxLibraryD11,
+  dcldxCoreD11,
+  JvStdCtrlsD11R,
+  JvPageCompsD11R,
+  JSDialog100,
+  dxLayoutControlD11,
+  Delegaciones_controller,
+  JvCtrlsD11R;
 
 contains
   uContactosViewRegister in 'uContactosViewRegister.pas',
@@ -101,6 +123,19 @@ contains
   uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
   uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor},
   uEditorElegirDireccionEntrega in 'uEditorElegirDireccionEntrega.pas' {fEditorElegirDireccionEntrega: TCustomEditor},
-  uEditorAsignarPrecioPunto in 'uEditorAsignarPrecioPunto.pas' {fEditorAsignarPrecioPunto: TCustomEditor};
+  uEditorAsignarPrecioPunto in 'uEditorAsignarPrecioPunto.pas' {fEditorAsignarPrecioPunto: TCustomEditor},
+  uViewComerciales in 'uViewComerciales.pas' {frViewComerciales: TCustomView},
+  uEditorComerciales in 'uEditorComerciales.pas' {fEditorComerciales: TCustomEditor},
+  uEditorComercial in 'uEditorComercial.pas' {fEditorComercial: TCustomEditor},
+  uViewComercial in 'uViewComercial.pas' {frViewComercial: TFrame},
+  uViewInstaladores in 'uViewInstaladores.pas' {frViewInstaladores: TCustomView},
+  uEditorInstaladores in 'uEditorInstaladores.pas' {fEditorInstaladores: TCustomEditor},
+  uViewInstalador in 'uViewInstalador.pas' {frViewInstalador: TFrame},
+  uEditorInstalador in 'uEditorInstalador.pas' {fEditorInstalador: TCustomEditor},
+  uEditorAsignarComercial in 'uEditorAsignarComercial.pas' {fEditorAsignarComercial: TCustomEditor},
+  uViewDatosYSeleccionComercial in 'uViewDatosYSeleccionComercial.pas' {frViewDatosYSeleccionComercial: TFrame},
+  uEditorElegirComerciales in 'uEditorElegirComerciales.pas' {fEditorElegirComerciales: TCustomEditor},
+  uViewDatosYSeleccionInstalador in 'uViewDatosYSeleccionInstalador.pas' {frViewDatosYSeleccionInstalador: TFrame},
+  uEditorElegirInstaladores in 'uEditorElegirInstaladores.pas' {fEditorElegirInstaladores: TCustomEditor};
 
 end.

Source/Modulos/Contactos/Views/Contactos_view.dproj

@@ -47,43 +47,62 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
+    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
+    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="bdertl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
+    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
+    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="cxExportD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="cxExtEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="cxGridD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
+    <DCCReference Include="cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="cxPageControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxCoreD11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="dclcxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
+    <DCCReference Include="dcldxCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
+    <DCCReference Include="Delegaciones_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11R.dcp" />
+    <DCCReference Include="dxComnD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="dxCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="dxLayoutControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
+    <DCCReference Include="dxPSCoreD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="dxPScxCommonD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="dxPSLnksD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
+    <DCCReference Include="dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
+    <DCCReference Include="FormasPago_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="FormasPago_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="GestorInformes_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="GUISDK_D11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="JSDialog100.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="JvCtrlsD11R.dcp" />
+    <DCCReference Include="JvGlobusD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="tb2k_d10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
+    <DCCReference Include="TiposIVA_controller.dcp" />
+    <DCCReference Include="TiposIVA_model.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
+    <DCCReference Include="uEditorAsignarComercial.pas">
+      <Form>fEditorAsignarComercial</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorAsignarPrecioPunto.pas">
       <Form>fEditorAsignarPrecioPunto</Form>
       <DesignClass>TCustomEditor</DesignClass>
@@ -96,6 +115,14 @@
       <Form>fEditorClientes</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorComercial.pas">
+      <Form>fEditorComercial</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorComerciales.pas">
+      <Form>fEditorComerciales</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorContacto.pas">
       <Form>fEditorContacto</Form>
       <DesignClass>TCustomEditor</DesignClass>
@@ -111,10 +138,18 @@
       <Form>fEditorElegirClientes</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorElegirComerciales.pas">
+      <Form>fEditorElegirComerciales</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorElegirDireccionEntrega.pas">
       <Form>fEditorElegirDireccionEntrega</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorElegirInstaladores.pas">
+      <Form>fEditorElegirInstaladore</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorElegirPersonaContacto.pas">
       <Form>fEditorElegirPersonaContacto</Form>
       <DesignClass>TCustomEditor</DesignClass>
@@ -139,6 +174,14 @@
       <Form>fEditorGruposProveedor</Form>
       <DesignClass>TCustomEditor</DesignClass>
     </DCCReference>
+    <DCCReference Include="uEditorInstalador.pas">
+      <Form>fEditorInstalador</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uEditorInstaladores.pas">
+      <Form>fEditorInstaladores</Form>
+      <DesignClass>TCustomEditor</DesignClass>
+    </DCCReference>
     <DCCReference Include="uEditorPersonal.pas">
       <Form>fEditorPersonal</Form>
       <DesignClass>TCustomEditor</DesignClass>
@@ -179,6 +222,14 @@
       <Form>frViewClientes</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewComercial.pas">
+      <Form>frViewComercial</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewComerciales.pas">
+      <Form>frViewComerciales</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewConfiguracionContactos.pas">
       <Form>frViewConfiguracionContactos</Form>
     </DCCReference>
@@ -198,6 +249,14 @@
       <Form>frViewDatosYSeleccionCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewDatosYSeleccionComercial.pas">
+      <Form>frViewDatosYSeleccionComercial</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewDatosYSeleccionInstalador.pas">
+      <Form>frViewDatosYSeleccionInstalador</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewDatosYSeleccionProveedor.pas">
       <Form>frViewDatosYSeleccionProveedor</Form>
       <DesignClass>TFrame</DesignClass>
@@ -206,6 +265,14 @@
       <Form>frViewDireccionesEntrega</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
+    <DCCReference Include="uViewInstalador.pas">
+      <Form>frViewInstalador</Form>
+      <DesignClass>TFrame</DesignClass>
+    </DCCReference>
+    <DCCReference Include="uViewInstaladores.pas">
+      <Form>frViewInstaladores</Form>
+      <DesignClass>TCustomView</DesignClass>
+    </DCCReference>
     <DCCReference Include="uViewPersonalContacto.pas">
       <Form>frViewPersonalContacto</Form>
       <DesignClass>TFrame</DesignClass>
@@ -234,6 +301,13 @@
       <Form>frViewVendedores</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="vclshlctrls.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contactos/Views/uContactosViewRegister.pas

@@ -13,24 +13,31 @@ uses
   uEditorVendedores, uEditorElegirCLientes,
   uEditorCliente, uEditorProveedor,
   uEditorVendedor, uEditorElegirProveedores, uEditorDireccion,
-  uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
+  uEditorElegirVendedores, uEditorElegirComerciales, uEditorElegirInstaladores,
-  uEditorGruposProveedor, uEditorEtiquetasContactosReport,
+  uEditorGruposCliente, uEditorProcedenciasCliente, uEditorGruposProveedor,
-  uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto,
+  uEditorEtiquetasContactosReport, uViewConfiguracionContactos, uEditorPersonal,
-  uEditorElegirDireccionEntrega, uEditorAsignarPrecioPunto;
+  uEditorElegirPersonaContacto, uEditorElegirDireccionEntrega, uEditorAsignarPrecioPunto,
+  uEditorComerciales, uEditorInstaladores, uEditorComercial, uEditorInstalador;
 
 procedure RegisterViews;
 begin
   EditorRegistry.RegisterClass(TfEditorClientes, 'EditorClientes');
   EditorRegistry.RegisterClass(TfEditorProveedores, 'EditorProveedores');
   EditorRegistry.RegisterClass(TfEditorVendedores, 'EditorVendedores');
+  EditorRegistry.RegisterClass(TfEditorComerciales, 'EditorComerciales');
+  EditorRegistry.RegisterClass(TfEditorInstaladores, 'EditorInstaladores');
 
   EditorRegistry.RegisterClass(TfEditorCliente, 'EditorCliente');
   EditorRegistry.RegisterClass(TfEditorProveedor, 'EditorProveedor');
   EditorRegistry.RegisterClass(TfEditorVendedor, 'EditorVendedor');
+  EditorRegistry.RegisterClass(TfEditorComercial, 'EditorComercial');
+  EditorRegistry.RegisterClass(TfEditorInstalador, 'EditorInstalador');
 
   EditorRegistry.RegisterClass(TfEditorElegirClientes, 'EditorElegirClientes');
   EditorRegistry.RegisterClass(TfEditorElegirProveedores, 'EditorElegirProveedores');
   EditorRegistry.RegisterClass(TfEditorElegirVendedores, 'EditorElegirVendedores');
+  EditorRegistry.RegisterClass(TfEditorElegirComerciales, 'EditorElegirComerciales');
+  EditorRegistry.RegisterClass(TfEditorElegirInstaladores, 'EditorElegirInstaladores');
 
   EditorRegistry.RegisterClass(TfEditorDireccion, 'EditorDireccion');
   EditorRegistry.RegisterClass(TfEditorElegirDireccionEntrega, 'EditorElegirDireccionEntrega');
@@ -53,14 +60,20 @@ begin
   EditorRegistry.UnRegisterClass(TfEditorClientes);
   EditorRegistry.UnRegisterClass(TfEditorProveedores);
   EditorRegistry.UnRegisterClass(TfEditorVendedores);
+  EditorRegistry.UnRegisterClass(TfEditorComerciales);
+  EditorRegistry.UnRegisterClass(TfEditorInstaladores);
 
   EditorRegistry.UnRegisterClass(TfEditorCliente);
   EditorRegistry.UnRegisterClass(TfEditorProveedor);
   EditorRegistry.UnRegisterClass(TfEditorVendedor);
+  EditorRegistry.UnRegisterClass(TfEditorComercial);
+  EditorRegistry.UnRegisterClass(TfEditorInstalador);
 
   EditorRegistry.UnRegisterClass(TfEditorElegirClientes);
   EditorRegistry.UnRegisterClass(TfEditorElegirProveedores);
   EditorRegistry.UnRegisterClass(TfEditorElegirVendedores);
+  EditorRegistry.UnRegisterClass(TfEditorElegirComerciales);
+  EditorRegistry.UnRegisterClass(TfEditorElegirInstaladores);
 
   EditorRegistry.UnRegisterClass(TfEditorDireccion);
   EditorRegistry.UnRegisterClass(TfEditorElegirDireccionEntrega);

Source/Modulos/Contactos/Views/uEditorCliente.dfm

@@ -70,6 +70,7 @@ inherited fEditorCliente: TfEditorCliente
   inherited pgPaginas: TPageControl
     Width = 931
     Height = 524
+    ActivePage = pagDatosComerciales
     ExplicitWidth = 931
     ExplicitHeight = 524
     inherited pagGeneral: TTabSheet
@@ -421,6 +422,18 @@ inherited fEditorCliente: TfEditorCliente
         inherited ToolBar1: TToolBar
           Width = 923
           ExplicitWidth = 923
+          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
@@ -482,27 +495,27 @@ inherited fEditorCliente: TfEditorCliente
           ExplicitWidth = 923
           ExplicitHeight = 433
           inherited Label1: TLabel
-            Left = 608
+            Left = 622
             Top = 30
             Width = 277
-            ExplicitLeft = 608
+            ExplicitLeft = 622
             ExplicitTop = 30
             ExplicitWidth = 277
           end
           inherited Label2: TLabel
-            Top = 167
+            Top = 218
             Width = 317
-            ExplicitTop = 167
+            ExplicitTop = 218
             ExplicitWidth = 317
           end
           inherited eDiasVencimiento: TcxDBSpinEdit
-            Left = 680
+            Left = 694
             Top = 62
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 680
+            ExplicitLeft = 694
             ExplicitTop = 62
           end
           inherited cbRegimenIVA: TcxDBComboBox
@@ -536,9 +549,9 @@ inherited fEditorCliente: TfEditorCliente
             Width = 289
           end
           inherited bFormasPago: TButton
-            Left = 448
+            Left = 462
             Top = 57
-            ExplicitLeft = 448
+            ExplicitLeft = 462
             ExplicitTop = 57
           end
           inherited eIVA: TcxDBLookupComboBox
@@ -552,57 +565,63 @@ inherited fEditorCliente: TfEditorCliente
             Width = 289
           end
           inherited bTiposIVA: TButton
-            Left = 448
+            Left = 462
             Top = 84
-            ExplicitLeft = 448
+            ExplicitLeft = 462
             ExplicitTop = 84
           end
           inherited cxDBSpinEdit1: TcxDBSpinEdit
-            Left = 680
+            Left = 694
             Top = 89
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 680
+            ExplicitLeft = 694
             ExplicitTop = 89
           end
           inherited cxDBSpinEdit2: TcxDBSpinEdit
-            Left = 680
+            Left = 694
             Top = 116
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 680
+            ExplicitLeft = 694
             ExplicitTop = 116
           end
           inherited eDescuentoLinea: TcxDBSpinEdit
-            Top = 186
+            Top = 237
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 186
+            ExplicitTop = 237
             ExplicitWidth = 200
             Width = 200
           end
           inherited eDescuento: TcxDBSpinEdit
-            Top = 213
+            Top = 264
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitTop = 213
+            ExplicitTop = 264
             ExplicitWidth = 508
             Width = 508
           end
           inherited ePrecioPunto: TcxDBCurrencyEdit
-            Top = 240
+            Top = 291
-            ExplicitTop = 240
+            ExplicitTop = 291
             ExplicitWidth = 239
             Width = 239
           end
+          inherited cbComercial: TcxDBLookupComboBox
+            Top = 167
+            ExplicitTop = 167
+            ExplicitWidth = 276
+            Width = 276
+          end
           inherited dxLayoutGroup1: TdxLayoutGroup
             inherited dxLayoutControl1Group4: TdxLayoutGroup
               inherited dxLayoutControl1Group5: TdxLayoutGroup

Source/Modulos/Contactos/Views/uEditorClientes.dfm

@@ -62,7 +62,7 @@ inherited fEditorClientes: TfEditorClientes
       DockPos = 207
       Visible = True
       ExplicitLeft = 207
-      ExplicitWidth = 247
+      ExplicitWidth = 387
       object TBXItem38: TTBXItem
         Action = actInformes
         DisplayMode = nbdmImageAndText
@@ -72,7 +72,12 @@ inherited fEditorClientes: TfEditorClientes
       object TBXItem39: TTBXItem
         Action = actCambiarPrecioPunto
         DisplayMode = nbdmImageAndText
-        ImageIndex = 25
+      end
+      object TBXSeparatorItem18: TTBXSeparatorItem
+      end
+      object TBXItem40: TTBXItem
+        Action = actCambiarComercial
+        DisplayMode = nbdmImageAndText
       end
     end
   end
@@ -153,14 +158,14 @@ inherited fEditorClientes: TfEditorClientes
             Width = 121
           end
           inherited txtFiltroTodo2: TcxTextEdit
-            Left = 537
+            Left = 611
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 537
+            ExplicitLeft = 611
-            ExplicitWidth = 250
+            ExplicitWidth = 150
-            Width = 250
+            Width = 150
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -222,9 +227,16 @@ inherited fEditorClientes: TfEditorClientes
     end
     object actCambiarPrecioPunto: TAction
       Caption = 'Cambiar precio punto'
+      ImageIndex = 25
       OnExecute = actCambiarPrecioPuntoExecute
       OnUpdate = actCambiarPrecioPuntoUpdate
     end
+    object actCambiarComercial: TAction
+      Caption = 'Cambiar comercial'
+      ImageIndex = 25
+      OnExecute = actCambiarComercialExecute
+      OnUpdate = actCambiarComercialUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Source/Modulos/Contactos/Views/uEditorClientes.pas

@@ -27,10 +27,16 @@ type
     actCambiarPrecioPunto: TAction;
     TBXSeparatorItem17: TTBXSeparatorItem;
     TBXItem39: TTBXItem;
+    actCambiarComercial: TAction;
+    TBXSeparatorItem18: TTBXSeparatorItem;
+    TBXItem40: TTBXItem;
     procedure actGruposClienteExecute(Sender: TObject);
     procedure actInformesExecute(Sender: TObject);
     procedure actCambiarPrecioPuntoExecute(Sender: TObject);
     procedure actCambiarPrecioPuntoUpdate(Sender: TObject);
+    procedure actCambiarComercialExecute(Sender: TObject);
+    procedure actCambiarComercialUpdate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   protected
     procedure ImprimirInterno; override;
     procedure PrevisualizarInterno; override;
@@ -46,7 +52,7 @@ uses
   uGridUtils, uDataModuleContactos, uDMBase, uEditorGridBase, uBizContactos,
   uDBSelectionListUtils, uDataModuleUsuarios, uDialogUtils, uFactuGES_App,
   uGruposClienteController, uBizGruposCliente, uClientesController, uGestorInformesController,
-  uEditorAsignarPrecioPunto, Dialogs;
+  uEditorAsignarPrecioPunto, uEditorAsignarComercial, Dialogs;
 
 {$R *.dfm}
 
@@ -54,6 +60,39 @@ uses
 {
 ******************************* TfEditorClientes *******************************
 }
+procedure TfEditorClientes.actCambiarComercialExecute(Sender: TObject);
+var
+  AClientes: IBizCliente;
+  AllItems: Boolean;
+  AID_AGENTE: Variant;
+begin
+  AClientes := Nil;
+  AllItems := False;
+
+  if MultiSelect and Assigned(ViewGrid) then
+     AllItems :=  (ViewGrid.NumSeleccionados > 1);
+
+  if AsignarComercial(AID_AGENTE) then
+  begin
+    if AllItems then
+    begin
+      SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Contactos as ISeleccionable).SelectedRecords);
+      AClientes := (Controller as IClientesController).ExtraerSeleccionados(Contactos) as IBizCliente;
+    end
+    else
+      AClientes := (Contactos as IBizCliente);
+
+    (Controller as IClientesController).AsignarComercial(AClientes, AID_AGENTE, AllItems);
+     actRefrescar.Execute;
+  end;
+end;
+
+procedure TfEditorClientes.actCambiarComercialUpdate(Sender: TObject);
+begin
+  inherited;
+//
+end;
+
 procedure TfEditorClientes.actCambiarPrecioPuntoExecute(Sender: TObject);
 var
   AClientes: IBizCliente;
@@ -184,6 +223,20 @@ begin
   ViewGrid.GotoFirst;
 end;
 
+procedure TfEditorClientes.FormShow(Sender: TObject);
+begin
+  inherited;
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+  begin
+    actCambiarComercial.Visible := True;
+  end
+  else
+  begin
+    actCambiarComercial.Visible := False;
+  end;
+
+end;
+
 procedure TfEditorClientes.ImprimirInterno;
 var
   Respuesta : Integer;

Source/Modulos/Contactos/Views/uEditorContactos.dfm

@@ -2,16 +2,25 @@ inherited fEditorContactos: TfEditorContactos
   Left = 285
   Top = 448
   Caption = 'Lista de contactos'
-  ExplicitWidth = 320
+  ClientWidth = 974
+  ExplicitWidth = 982
   ExplicitHeight = 240
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
+    Width = 974
     Caption = 'Lista de contactos'
+    ExplicitWidth = 974
+    inherited Image1: TImage
+      Left = 947
+      ExplicitLeft = 947
+    end
   end
   inherited TBXDock: TTBXDock
+    Width = 974
+    ExplicitWidth = 974
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 543
+      ExplicitWidth = 694
     end
     inherited tbxFiltro: TTBXToolbar
       ExplicitWidth = 201
@@ -22,6 +31,13 @@ inherited fEditorContactos: TfEditorContactos
         Visible = False
       end
     end
+    inherited tbxMenu: TTBXToolbar
+      ExplicitWidth = 974
+    end
+  end
+  inherited StatusBar: TJvStatusBar
+    Width = 974
+    ExplicitWidth = 974
   end
   inherited EditorActionList: TActionList
     inherited actPrevisualizar: TAction

Source/Modulos/Contactos/Views/uViewCliente.dfm

@@ -33,6 +33,8 @@ inherited frViewCliente: TfrViewCliente
       TabOrder = 7
       ExplicitLeft = 132
       ExplicitTop = 220
+      ExplicitWidth = 181
+      Width = 181
     end
     inherited cbProvincia: TcxDBComboBox
       Left = 132
@@ -334,6 +336,8 @@ inherited frViewCliente: TfrViewCliente
       StyleFocused.LookAndFeel.SkinName = ''
       StyleHot.LookAndFeel.SkinName = ''
       ExplicitLeft = 132
+      ExplicitWidth = 38
+      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
       Left = 132
@@ -345,6 +349,8 @@ inherited frViewCliente: TfrViewCliente
       TabOrder = 11
       ExplicitLeft = 132
       ExplicitTop = 301
+      ExplicitWidth = 256
+      Width = 256
     end
     inherited frViewTienda1: TfrViewTienda
       Left = 344
@@ -361,6 +367,8 @@ inherited frViewCliente: TfrViewCliente
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
+          ExplicitWidth = 376
+          Width = 376
         end
       end
     end
@@ -374,7 +382,7 @@ inherited frViewCliente: TfrViewCliente
       ExplicitHeight = 127
       inherited memObservaciones: TcxDBMemo
         DataBinding.DataSource = dsContacto
-        ExplicitWidth = 585
+        ExplicitWidth = 583
         ExplicitHeight = 127
         Height = 127
         Width = 585

Source/Modulos/Contactos/Views/uViewCliente.pas

@@ -166,7 +166,7 @@ procedure TfrViewCliente.CustomViewShow(Sender: TObject);
 begin
   inherited;
   //Solo se ve campo tienda en Graden
-  if (AppFactuGES.EmpresaActiva.ID = 1) then
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
   begin
     dxLayoutControlContactoGroup100.Enabled := False;
     dxLayoutControlContactoGroup100.Visible := False;

Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm

@@ -1,24 +1,25 @@
 inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
   Width = 637
-  Height = 284
+  Height = 391
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
+  OnShow = CustomViewShow
   ExplicitWidth = 637
-  ExplicitHeight = 284
+  ExplicitHeight = 391
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
     Width = 637
-    Height = 284
+    Height = 391
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth]
     object Label1: TLabel
-      Left = 350
+      Left = 362
       Top = 28
-      Width = 277
+      Width = 261
       Height = 26
       Caption = 
         'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' +
@@ -28,7 +29,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
     end
     object Label2: TLabel
       Left = 22
-      Top = 171
+      Top = 228
       Width = 317
       Height = 13
       Caption = 
@@ -38,7 +39,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       WordWrap = True
     end
     object eDiasVencimiento: TcxDBSpinEdit
-      Left = 427
+      Left = 439
       Top = 60
       DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1'
       DataBinding.DataSource = dsDatosComerciales
@@ -157,7 +158,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 42
     end
     object bFormasPago: TButton
-      Left = 188
+      Left = 200
       Top = 55
       Width = 132
       Height = 21
@@ -202,7 +203,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 42
     end
     object bTiposIVA: TButton
-      Left = 188
+      Left = 200
       Top = 82
       Width = 132
       Height = 21
@@ -211,7 +212,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       OnClick = bTiposIVAClick
     end
     object cxDBSpinEdit1: TcxDBSpinEdit
-      Left = 427
+      Left = 439
       Top = 87
       DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2'
       DataBinding.DataSource = dsDatosComerciales
@@ -237,7 +238,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       Width = 79
     end
     object cxDBSpinEdit2: TcxDBSpinEdit
-      Left = 427
+      Left = 439
       Top = 114
       DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3'
       DataBinding.DataSource = dsDatosComerciales
@@ -264,7 +265,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
     end
     object eDescuentoLinea: TcxDBSpinEdit
       Left = 162
-      Top = 190
+      Top = 247
       DataBinding.DataField = 'DESCUENTO_LINEA'
       DataBinding.DataSource = dsDatosComerciales
       Properties.Alignment.Horz = taRightJustify
@@ -285,12 +286,12 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 9
+      TabOrder = 10
       Width = 200
     end
     object eDescuento: TcxDBSpinEdit
       Left = 162
-      Top = 217
+      Top = 274
       DataBinding.DataField = 'DESCUENTO'
       DataBinding.DataSource = dsDatosComerciales
       Properties.Alignment.Horz = taRightJustify
@@ -311,19 +312,54 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 10
+      TabOrder = 11
       Width = 508
     end
     object ePrecioPunto: TcxDBCurrencyEdit
       Left = 162
-      Top = 244
+      Top = 301
       DataBinding.DataField = 'PRECIO_PUNTO'
       DataBinding.DataSource = dsDatosComerciales
       Properties.Alignment.Horz = taRightJustify
       Properties.UseLeftAlignmentOnEditing = False
-      TabOrder = 11
+      TabOrder = 12
       Width = 239
     end
+    object cbComercial: TcxDBLookupComboBox
+      Left = 162
+      Top = 171
+      DataBinding.DataField = 'ID_AGENTE'
+      DataBinding.DataSource = dsDatosComerciales
+      Properties.ImmediatePost = True
+      Properties.KeyFieldNames = 'ID'
+      Properties.ListColumns = <
+        item
+          FieldName = 'NOMBRE'
+        end
+        item
+          FieldName = 'DELEGACION'
+        end>
+      Properties.ListOptions.GridLines = glNone
+      Properties.ListOptions.ShowHeader = False
+      Properties.ListOptions.SyncMode = True
+      Properties.ListSource = dsAgentes
+      Properties.PostPopupValueOnTab = True
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      Style.ButtonStyle = bts3D
+      Style.PopupBorderStyle = epbsFrame3D
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 9
+      Width = 276
+    end
     object dxLayoutGroup1: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -426,8 +462,19 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales
           end
         end
       end
+      object dxLayoutControl1Group8: TdxLayoutGroup
+        Caption = 'Comercial'
+        LayoutDirection = ldHorizontal
+        object dxLayoutControl1Item15: TdxLayoutItem
+          AutoAligns = [aaVertical]
+          AlignHorz = ahClient
+          Caption = 'Comercial asignado:'
+          Control = cbComercial
+          ControlOptions.ShowBorder = False
+        end
+      end
       object dxLayoutControl1Group6: TdxLayoutGroup
-        Caption = 'Descuento por defecto'
+        Caption = 'Descuentos'
         object dxLayoutControl1Item12: TdxLayoutItem
           ShowCaption = False
           Control = Label2

Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas

@@ -8,7 +8,7 @@ uses
   cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
   cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
   uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
-  uDAInterfaces, uBizFormasPago, uBizTiposIVA, cxCurrencyEdit;
+  uDAInterfaces, uBizFormasPago, uBizTiposIVA, cxCurrencyEdit, uComercialesController;
 
 type
   IViewClienteDatosComerciales = interface(IViewBase)
@@ -59,17 +59,23 @@ type
     eDescuento: TcxDBSpinEdit;
     dxLayoutControl1Item14: TdxLayoutItem;
     ePrecioPunto: TcxDBCurrencyEdit;
+    dxLayoutControl1Item15: TdxLayoutItem;
+    cbComercial: TcxDBLookupComboBox;
+    dxLayoutControl1Group8: TdxLayoutGroup;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);
     procedure bFormasPagoClick(Sender: TObject);
     procedure bTiposIVAClick(Sender: TObject);
+    procedure CustomViewShow(Sender: TObject);
   protected
     FContacto : IBizContacto;
     FTiposIVA : IBizTipoIVA;
+    FComerciales : IBizComercial;
     FFormasPago : IBizFormaPago;
     FFormasPagoController : IFormasPagoController;
     FTiposIVAController : ITiposIVAController;
+    FComercialesController : IComercialesController;
     function GetContacto: IBizContacto;
     procedure SetContacto(const Value: IBizContacto);
   public
@@ -115,9 +121,10 @@ procedure TfrViewClienteDatosComerciales.CustomViewCreate(Sender: TObject);
 begin
   inherited;
   FTiposIVA := Nil;
+  FComerciales := Nil;  
   FFormasPago := Nil;
   FContacto := Nil;
-  //  FAgentesController := TAgentesController.Create;
+  FComercialesController := TComercialesController.Create;
   FFormasPagoController := TFormasPagoController.Create;
   FTiposIVAController := TTiposIVAController.Create;
 end;
@@ -126,13 +133,30 @@ procedure TfrViewClienteDatosComerciales.CustomViewDestroy(Sender: TObject);
 begin
   inherited;
   FTiposIVA := Nil;
+  FComerciales := Nil;
   FFormasPago := Nil;
   FContacto := Nil;
-//  FAgentesController := NIL;
+  FComercialesController := NIL;
   FFormasPagoController := NIL;
   FTiposIVAController := NIL;
 end;
 
+procedure TfrViewClienteDatosComerciales.CustomViewShow(Sender: TObject);
+begin
+  inherited;
+  //Solo se ve campo comercial en abeto
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+  begin
+    dxLayoutControl1Group8.Enabled := True;
+    dxLayoutControl1Group8.Visible := True;
+  end
+  else
+  begin
+    dxLayoutControl1Group8.Enabled := False;
+    dxLayoutControl1Group8.Visible := False;
+  end;
+end;
+
 function TfrViewClienteDatosComerciales.GetContacto: IBizContacto;
 begin
   Result := FContacto;
@@ -144,18 +168,19 @@ begin
   if Assigned(FContacto) then
   begin
     dsDatosComerciales.DataTable := FContacto.DataTable;
-//    dsAgentes.DataTable := FAgentesController.BuscarTodos.DataTable;
-//    dsAgentes.DataTable.Active := True;
     FFormasPago := FFormasPagoController.BuscarTodos;
     dsFormaPago.DataTable := FFormasPago.DataTable;
     dsFormaPago.DataTable.Active := True;
     FTiposIVA := FTiposIVAController.BuscarTodos;
     dsTiposIVA.DataTable := FTiposIVA.DataTable;
     dsTiposIVA.DataTable.Active := True;
+    FComerciales := (FComercialesController.BuscarTodos as IBizComercial);
+    dsAgentes.DataTable := FComerciales.DataTable;
+    dsAgentes.DataTable.Active := True;
   end
   else begin
     dsDatosComerciales.DataTable := NIL;
-//    dsAgentes.DataTable := NIL;
+    dsAgentes.DataTable := NIL;
     dsFormaPago.DataTable := NIL;
     dsTiposIVA.DataTable := NIL;
   end

Source/Modulos/Contactos/Views/uViewClientes.dfm

@@ -54,6 +54,28 @@ inherited frViewClientes: TfrViewClientes
       object cxGridViewPRECIO_PUNTO: TcxGridDBColumn
         Caption = 'Precio punto'
         DataBinding.FieldName = 'PRECIO_PUNTO'
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+      object cxGridViewAGENTE: TcxGridDBColumn
+        Caption = 'Comercial'
+        DataBinding.FieldName = 'AGENTE'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+      object cxGridViewDELEGACION: TcxGridDBColumn
+        Caption = 'Delegaci'#243'n'
+        DataBinding.FieldName = 'DELEGACION'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        GroupSummaryAlignment = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
       end
     end
   end
@@ -92,14 +114,12 @@ inherited frViewClientes: TfrViewClientes
           Width = 427
         end
         inherited txtFiltroTodo2: TcxTextEdit
-          Left = 475
+          Left = 464
           Style.LookAndFeel.SkinName = ''
           StyleDisabled.LookAndFeel.SkinName = ''
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
-          ExplicitLeft = 475
+          ExplicitLeft = 464
-          ExplicitWidth = 250
-          Width = 250
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
@@ -132,6 +152,16 @@ inherited frViewClientes: TfrViewClientes
         object TBXItem3: TTBXItem
           Action = actPrecioPunto
         end
+        object TBXSeparatorItem3: TTBXSeparatorItem
+        end
+        object TBXItem4: TTBXItem
+          Action = actComercial
+        end
+        object TBXSeparatorItem4: TTBXSeparatorItem
+        end
+        object TBXItem5: TTBXItem
+          Action = actDelegacion
+        end
       end
     end
   end
@@ -161,6 +191,16 @@ inherited frViewClientes: TfrViewClientes
       OnExecute = actPrecioPuntoExecute
       OnUpdate = actPrecioPuntoUpdate
     end
+    object actDelegacion: TAction
+      Caption = 'Delegaci'#243'n'
+      OnExecute = actDelegacionExecute
+      OnUpdate = actDelegacionUpdate
+    end
+    object actComercial: TAction
+      Caption = 'Comercial'
+      OnExecute = actComercialExecute
+      OnUpdate = actComercialUpdate
+    end
   end
   inherited GridPNGImageList: TPngImageList
     PngImages = <

Source/Modulos/Contactos/Views/uViewClientes.pas

@@ -14,7 +14,7 @@ uses
   dxPScxCommon, cxImageComboBox, cxGridCustomPopupMenu, cxGridPopupMenu,
   dxPScxGrid6Lnk, ExtCtrls, JvComponentBase, JvBalloonHint, JvHint,
   uViewFiltroBase, dxPgsDlg, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
-  uDAInterfaces, cxTextEdit, uCustomView, uViewBase;
+  uDAInterfaces, cxTextEdit, uCustomView, uViewBase, cxCurrencyEdit;
 
 type
   IViewClientes = interface(IViewContactos)
@@ -34,6 +34,14 @@ type
     TBXSeparatorItem2: TTBXSeparatorItem;
     TBXItem3: TTBXItem;
     actPrecioPunto: TAction;
+    cxGridViewAGENTE: TcxGridDBColumn;
+    cxGridViewDELEGACION: TcxGridDBColumn;
+    actDelegacion: TAction;
+    actComercial: TAction;
+    TBXSeparatorItem3: TTBXSeparatorItem;
+    TBXItem4: TTBXItem;
+    TBXSeparatorItem4: TTBXSeparatorItem;
+    TBXItem5: TTBXItem;
     procedure cxGridViewCODIGOCustomDrawCell(Sender: TcxCustomGridTableView;
       ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
       var ADone: Boolean);
@@ -41,17 +49,62 @@ type
     procedure actProcedenciaUpdate(Sender: TObject);
     procedure actPrecioPuntoExecute(Sender: TObject);
     procedure actPrecioPuntoUpdate(Sender: TObject);
+    procedure actComercialExecute(Sender: TObject);
+    procedure actComercialUpdate(Sender: TObject);
+    procedure actDelegacionExecute(Sender: TObject);
+    procedure actDelegacionUpdate(Sender: TObject);
+    procedure ConfigView; override;    
   end;
-  
+
 
 implementation
 
-uses uViewGridBase;
+uses uViewGridBase, uFactuGES_App;
 
 
 {$R *.dfm}
 
 
+procedure TfrViewClientes.actComercialExecute(Sender: TObject);
+begin
+  if (cxGridViewAGENTE.GroupIndex < 0) then
+  begin
+    cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewAGENTE.Visible := False;
+  end
+  else
+  begin
+    cxGridViewAGENTE.GroupIndex := -1;
+    cxGridViewAGENTE.Visible := True;
+  end;
+end;
+
+procedure TfrViewClientes.actComercialUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
+procedure TfrViewClientes.actDelegacionExecute(Sender: TObject);
+begin
+  if (cxGridViewDELEGACION.GroupIndex < 0) then
+  begin
+    cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewDELEGACION.Visible := False;
+  end
+  else
+  begin
+    cxGridViewDELEGACION.GroupIndex := -1;
+    cxGridViewDELEGACION.Visible := True;
+  end;
+end;
+
+procedure TfrViewClientes.actDelegacionUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
+end;
+
 procedure TfrViewClientes.actPrecioPuntoExecute(Sender: TObject);
 begin
   if (cxGridViewPRECIO_PUNTO.GroupIndex < 0) then
@@ -93,6 +146,37 @@ begin
   (Sender as TAction).Checked := not (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0);
 end;
 
+procedure TfrViewClientes.ConfigView;
+begin
+  inherited;
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+  begin
+    cxGridViewTIENDA.VisibleForCustomization := False;
+    cxGridViewTIENDA.Visible := False;
+
+    cxGridViewAGENTE.VisibleForCustomization := True;
+    cxGridViewAGENTE.Visible := True;
+    cxGridViewDELEGACION.VisibleForCustomization := True;
+    cxGridViewDELEGACION.Visible := True;
+
+    actComercial.Visible := True;
+    actDelegacion.Visible := True;
+  end
+  else
+  begin
+    cxGridViewTIENDA.VisibleForCustomization := True;
+    cxGridViewTIENDA.Visible := True;
+
+    cxGridViewAGENTE.VisibleForCustomization := False;
+    cxGridViewAGENTE.Visible := False;
+    cxGridViewDELEGACION.VisibleForCustomization := False;
+    cxGridViewDELEGACION.Visible := False;
+
+    actComercial.Visible := False;
+    actDelegacion.Visible := False;
+  end;
+end;
+
 procedure TfrViewClientes.cxGridViewCODIGOCustomDrawCell(
   Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
   AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);

Source/Modulos/Contratos de cliente/Controller/uContratosClienteController.pas

@@ -8,7 +8,7 @@ uses
   uControllerBase, uIDataModuleContratosCliente, uClientesController,
   uDetallesContratoClienteController, uGestorDocumentosController,
   uBizContratosCliente, uBizDireccionesContacto, uBizDetallesContratoCliente,
-  uIntegerListUtils, uBizPresupuestosCliente;
+  uIntegerListUtils, uBizPresupuestosCliente, uBizContactos;
 
 type
   TEnumTiposContrato = (teVacio, teCocina, teArmario, teBano, teElectrodomestico, teVarios);
@@ -66,6 +66,8 @@ type
     const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
     function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
+    function CambiarComercial(AContrato : IBizContratoCliente; AComercial: IBizComercial): Boolean;
+    function CambiarInstalador(AContrato : IBizContratoCliente; AIntalador: IBizInstalador): Boolean;
 
     procedure EtiquetasPreview(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
     procedure EtiquetasPrint(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
@@ -154,6 +156,8 @@ type
     const VerImprimirObservaciones: Boolean = False; const VerImprimirIncidencias: Boolean = False);
     procedure EnviarContratoPorEMail(AContrato : IBizContratoCliente);
     function CambiarSituacion(AContrato : IBizContratoCliente; Situacion: String; FechaDecision: TDateTime; AllItems: Boolean = false): Boolean;
+    function CambiarComercial(AContrato : IBizContratoCliente; AComercial: IBizComercial): Boolean;
+    function CambiarInstalador(AContrato : IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
 
     procedure EtiquetasPreview(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
     procedure EtiquetasPrint(AContrato : IBizContratoCliente; Const AAgencia: String; const AReferencia: String; const ANumEtiquetas: Integer; const AEtiquetaIni: Integer);
@@ -173,7 +177,7 @@ implementation
 uses
   Forms, Controls, cxControls, DB, uEditorRegistryUtils, uEditorPreview, DateUtils,
   uIEditorContratosCliente, uDataModuleContratosCliente, Variants,
-  uBizContactos, uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
+  uDataTableUtils, uDataModuleUsuarios, uFactuGES_App,
   schContratosClienteClient_Intf, uDAInterfaces, uDateUtils, uIEditorContratoCliente,
   uIEditorElegirContratosCliente, uIEditorDireccionEntregaContratoCliente,
   schContactosClient_Intf, uContratosClienteReportController,
@@ -635,6 +639,59 @@ begin
   end;
 end;
 
+function TContratosClienteController.CambiarComercial(AContrato: IBizContratoCliente; AComercial: IBizComercial): Boolean;
+var
+  bEnEdicion : Boolean;
+
+begin
+  if not Assigned(AContrato) then
+    raise Exception.Create ('AContrato no asignado');
+
+  ShowHourglassCursor;
+  try
+    bEnEdicion := (AContrato.DataTable.State in dsEditModes);
+    if not bEnEdicion then
+      AContrato.Edit;
+
+    AContrato.DataTable.Edit;
+    AContrato.ID_AGENTE := AComercial.ID;
+    AContrato.NOMBRE_AGENTE := AComercial.NOMBRE;
+    AContrato.DELEGACION := AComercial.DELEGACION;
+
+    if not bEnEdicion then
+      AContrato.Post;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
+function TContratosClienteController.CambiarInstalador(AContrato: IBizContratoCliente; AInstalador: IBizInstalador): Boolean;
+var
+  bEnEdicion : Boolean;
+
+begin
+  if not Assigned(AContrato) then
+    raise Exception.Create ('AContrato no asignado');
+
+  ShowHourglassCursor;
+  try
+    bEnEdicion := (AContrato.DataTable.State in dsEditModes);
+    if not bEnEdicion then
+      AContrato.Edit;
+
+    AContrato.DataTable.Edit;
+    AContrato.ID_INSTALADOR := AInstalador.ID;
+    AContrato.NOMBRE_INSTALADOR := AInstalador.NOMBRE;
+
+    if not bEnEdicion then
+      AContrato.Post;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 function TContratosClienteController.CambiarSituacion(AContrato: IBizContratoCliente;
   Situacion: String; FechaDecision: TDateTime; AllItems: Boolean): Boolean;
   // En el caso de cambiar almenos un elemento del conjunto se devuelve true
@@ -1440,7 +1497,7 @@ begin
       ENVIADA_REVISADA := CONST_CONTRATO_RECIBIDO_UECKO;
 
 
-      AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_PARA_FABRICA)  as IBizCliente);
+      AContratoFabrica._Cliente := (FClienteController.darClienteGraden(CTE_CLIENTE_GRADEN_PARA_FABRICA)  as IBizCliente);
       AContratoFabrica.Cliente.DataTable.Active := True;
 
       NOMBRE := AContratoFabrica.Cliente.NOMBRE;
@@ -1474,7 +1531,6 @@ begin
   finally
     HideHourglassCursor;
   end;
-
 end;
 
 function TContratosClienteController.Nuevo(WithInsert: Boolean): IBizContratoCliente;

Source/Modulos/Contratos de cliente/Data/uDataModuleContratosCliente.dfm

@@ -393,6 +393,29 @@ inherited DataModuleContratosCliente: TDataModuleContratosCliente
       item
         Name = 'ID_CONTRATO_ASOCIADO'
         DataType = datInteger
+      end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+      end
+      item
+        Name = 'NOMBRE_AGENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'DELEGACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'ID_INSTALADOR'
+        DataType = datInteger
+      end
+      item
+        Name = 'NOMBRE_INSTALADOR'
+        DataType = datString
+        Size = 255
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Contratos de cliente/Model/schContratosClienteClient_Intf.pas

@@ -9,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_Valores = '{4A854311-0D9F-4793-94C9-A207AD44D276}';
+  RID_Valores = '{16289E81-BF7E-43B7-9D84-652E61BF7A34}';
-  RID_Propiedades = '{EF52C78D-98C0-4F3E-8B30-92405C279D93}';
+  RID_Propiedades = '{25B4067F-C9A6-40A8-B3DC-AED6CD6CB067}';
-  RID_ListaAnosContratos = '{34D311E0-D0CB-472C-A6B1-AF7C9AD69E10}';
+  RID_ListaAnosContratos = '{4465DCFB-3D3B-48D3-B81F-E1D402228673}';
-  RID_ContratosClienteBeneficios = '{C7192089-22AD-478D-9BB4-4C0E22244BF1}';
+  RID_ContratosClienteBeneficios = '{00A79787-BA0F-4EF3-B365-2B57668F4FC6}';
-  RID_ContratosCliente = '{511AB084-9FFC-4986-B517-B5748783AB12}';
+  RID_ContratosCliente = '{8813D9DE-045D-4A84-90D7-95C8290A7E08}';
-  RID_TiposCapitulos = '{1ADC8E0F-824C-45E5-B964-90E3B74C370C}';
+  RID_TiposCapitulos = '{B14BADA4-EC70-4792-9C3B-AB6769726805}';
-  RID_ContratosCliente_Detalles = '{405816B6-4A2B-4CBD-AC8D-660CAF3F4910}';
+  RID_ContratosCliente_Detalles = '{657F9665-971B-45A8-8AF5-1565067FADBD}';
 
   { Data table names }
   nme_Valores = 'Valores';
@@ -147,6 +147,11 @@ const
   fld_ContratosClienteNOTAS_ENVIO = 'NOTAS_ENVIO';
   fld_ContratosClienteENVIADA_REVISADA = 'ENVIADA_REVISADA';
   fld_ContratosClienteID_CONTRATO_ASOCIADO = 'ID_CONTRATO_ASOCIADO';
+  fld_ContratosClienteID_AGENTE = 'ID_AGENTE';
+  fld_ContratosClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
+  fld_ContratosClienteDELEGACION = 'DELEGACION';
+  fld_ContratosClienteID_INSTALADOR = 'ID_INSTALADOR';
+  fld_ContratosClienteNOMBRE_INSTALADOR = 'NOMBRE_INSTALADOR';
 
   { ContratosCliente field indexes }
   idx_ContratosClienteID = 0;
@@ -209,6 +214,11 @@ const
   idx_ContratosClienteNOTAS_ENVIO = 57;
   idx_ContratosClienteENVIADA_REVISADA = 58;
   idx_ContratosClienteID_CONTRATO_ASOCIADO = 59;
+  idx_ContratosClienteID_AGENTE = 60;
+  idx_ContratosClienteNOMBRE_AGENTE = 61;
+  idx_ContratosClienteDELEGACION = 62;
+  idx_ContratosClienteID_INSTALADOR = 63;
+  idx_ContratosClienteNOMBRE_INSTALADOR = 64;
 
   { TiposCapitulos fields }
   fld_TiposCapitulosID = 'ID';
@@ -271,7 +281,7 @@ const
 type
   { IValores }
   IValores = interface(IDAStronglyTypedDataTable)
-  ['{0ED4F454-0461-4155-BCF7-C13151DD977A}']
+  ['{35FE7827-946C-45E1-AECD-D63C75F55C85}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -330,7 +340,7 @@ type
 
   { IPropiedades }
   IPropiedades = interface(IDAStronglyTypedDataTable)
-  ['{0DB8C965-0875-43C2-9168-7EC7190C3B6F}']
+  ['{02DACDE9-502F-48B8-92AD-ADE9C0298920}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -389,7 +399,7 @@ type
 
   { IListaAnosContratos }
   IListaAnosContratos = interface(IDAStronglyTypedDataTable)
-  ['{615C6C28-311F-43AB-AE86-4F270D0B66BD}']
+  ['{58B3DFB3-F0F7-4D19-8418-618ED3C5F51B}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -424,7 +434,7 @@ type
 
   { IContratosClienteBeneficios }
   IContratosClienteBeneficios = interface(IDAStronglyTypedDataTable)
-  ['{478CDF53-67D5-431D-97F1-67A9AD134904}']
+  ['{2BDAF751-AFB8-4FF0-9DD5-C1C74A1200ED}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -627,7 +637,7 @@ type
 
   { IContratosCliente }
   IContratosCliente = interface(IDAStronglyTypedDataTable)
-  ['{1FC5AB50-30B5-4A01-99C4-8C7D963EF071}']
+  ['{96DD0C9B-36F2-4776-9200-2549FBBB2E9E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -865,6 +875,26 @@ type
     procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer);
     function GetID_CONTRATO_ASOCIADOIsNull: Boolean;
     procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetID_AGENTEIsNull: Boolean;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean);
+    function GetNOMBRE_AGENTEValue: String;
+    procedure SetNOMBRE_AGENTEValue(const aValue: String);
+    function GetNOMBRE_AGENTEIsNull: Boolean;
+    procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
+    function GetDELEGACIONValue: String;
+    procedure SetDELEGACIONValue(const aValue: String);
+    function GetDELEGACIONIsNull: Boolean;
+    procedure SetDELEGACIONIsNull(const aValue: Boolean);
+    function GetID_INSTALADORValue: Integer;
+    procedure SetID_INSTALADORValue(const aValue: Integer);
+    function GetID_INSTALADORIsNull: Boolean;
+    procedure SetID_INSTALADORIsNull(const aValue: Boolean);
+    function GetNOMBRE_INSTALADORValue: String;
+    procedure SetNOMBRE_INSTALADORValue(const aValue: String);
+    function GetNOMBRE_INSTALADORIsNull: Boolean;
+    procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -988,6 +1018,16 @@ type
     property ENVIADA_REVISADAIsNull: Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
     property ID_CONTRATO_ASOCIADO: Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
     property ID_CONTRATO_ASOCIADOIsNull: Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
+    property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+    property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+    property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
+    property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
+    property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
+    property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
   end;
 
   { TContratosClienteDataTableRules }
@@ -1239,6 +1279,26 @@ type
     procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer); virtual;
     function GetID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
     procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_AGENTEValue: String; virtual;
+    procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
+    function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
+    procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetDELEGACIONValue: String; virtual;
+    procedure SetDELEGACIONValue(const aValue: String); virtual;
+    function GetDELEGACIONIsNull: Boolean; virtual;
+    procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
+    function GetID_INSTALADORValue: Integer; virtual;
+    procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
+    function GetID_INSTALADORIsNull: Boolean; virtual;
+    procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_INSTALADORValue: String; virtual;
+    procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
+    function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
+    procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1361,6 +1421,16 @@ type
     property ENVIADA_REVISADAIsNull: Boolean read GetENVIADA_REVISADAIsNull write SetENVIADA_REVISADAIsNull;
     property ID_CONTRATO_ASOCIADO: Integer read GetID_CONTRATO_ASOCIADOValue write SetID_CONTRATO_ASOCIADOValue;
     property ID_CONTRATO_ASOCIADOIsNull: Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
+    property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+    property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+    property ID_INSTALADOR: Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
+    property ID_INSTALADORIsNull: Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
+    property NOMBRE_INSTALADOR: String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
+    property NOMBRE_INSTALADORIsNull: Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1373,7 +1443,7 @@ type
   }
   { ITiposCapitulos }
   ITiposCapitulos = interface(IDAStronglyTypedDataTable)
-  ['{CE57F93C-0AFA-4A43-BFAB-F87B6AF24C99}']
+  ['{63B3FB62-AA8C-4A3C-B7DE-8DFBCEA21D94}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1468,7 +1538,7 @@ type
 
   { IContratosCliente_Detalles }
   IContratosCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{D8CA02E2-207F-4681-BFC7-7D67586D76DA}']
+  ['{2FBF1BAE-94E6-473E-8FDC-B4B4BD7CB223}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3524,6 +3594,111 @@ begin
     DataTable.Fields[idx_ContratosClienteID_CONTRATO_ASOCIADO].AsVariant := Null;
 end;
 
+function TContratosClienteDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_ContratosClienteID_AGENTE].AsInteger;
+end;
+
+procedure TContratosClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ContratosClienteID_AGENTE].AsInteger := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteID_AGENTE].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteID_AGENTE].AsVariant := Null;
+end;
+
+function TContratosClienteDataTableRules.GetNOMBRE_AGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetNOMBRE_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteNOMBRE_AGENTE].AsVariant := Null;
+end;
+
+function TContratosClienteDataTableRules.GetDELEGACIONValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteDELEGACION].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetDELEGACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteDELEGACION].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetDELEGACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteDELEGACION].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetDELEGACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteDELEGACION].AsVariant := Null;
+end;
+
+function TContratosClienteDataTableRules.GetID_INSTALADORValue: Integer;
+begin
+  result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger;
+end;
+
+procedure TContratosClienteDataTableRules.SetID_INSTALADORValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsInteger := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetID_INSTALADORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteID_INSTALADOR].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetID_INSTALADORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteID_INSTALADOR].AsVariant := Null;
+end;
+
+function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORValue: String;
+begin
+  result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString;
+end;
+
+procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsString := aValue;
+end;
+
+function TContratosClienteDataTableRules.GetNOMBRE_INSTALADORIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].IsNull;
+end;
+
+procedure TContratosClienteDataTableRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ContratosClienteNOMBRE_INSTALADOR].AsVariant := Null;
+end;
+
 
 { TTiposCapitulosDataTableRules }
 constructor TTiposCapitulosDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Contratos de cliente/Model/schContratosClienteServer_Intf.pas

@@ -9,18 +9,18 @@ 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_ValoresDelta = '{74E0789F-6D7B-4AEE-898D-564F2F11EA73}';
+  RID_ValoresDelta = '{060F095C-33E8-40E8-A804-6A396B63266C}';
-  RID_PropiedadesDelta = '{2BFEE5AC-1922-447C-9B70-28086783D3E8}';
+  RID_PropiedadesDelta = '{24551F67-C6A2-4052-B309-98ED35606A12}';
-  RID_ListaAnosContratosDelta = '{5BB5F8CB-575C-47D3-B8CD-2E9222A55D1D}';
+  RID_ListaAnosContratosDelta = '{3692BF60-7BAB-449B-87E4-957F5D05B070}';
-  RID_ContratosClienteBeneficiosDelta = '{2DFD608C-073C-4189-906F-C27B11203063}';
+  RID_ContratosClienteBeneficiosDelta = '{C235777C-9BCB-4F65-B5BB-FEEC38CC79D1}';
-  RID_ContratosClienteDelta = '{E63A0667-B99A-4F5D-84BC-8AAD49936917}';
+  RID_ContratosClienteDelta = '{6E558DC2-3002-4D94-9B75-02C0B92D636C}';
-  RID_TiposCapitulosDelta = '{551A2121-A753-4659-A091-FCAB0CDC7FBF}';
+  RID_TiposCapitulosDelta = '{F2D4CEB2-67ED-420D-80EB-FBBD40EE11E7}';
-  RID_ContratosCliente_DetallesDelta = '{35A00064-7F34-4296-8DCA-FBD514F42366}';
+  RID_ContratosCliente_DetallesDelta = '{66AEBA02-84CC-4423-A2F9-81050FF518D5}';
 
 type
   { IValoresDelta }
   IValoresDelta = interface(IValores)
-  ['{74E0789F-6D7B-4AEE-898D-564F2F11EA73}']
+  ['{060F095C-33E8-40E8-A804-6A396B63266C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_PROPIEDADValue : Integer;
@@ -78,7 +78,7 @@ type
 
   { IPropiedadesDelta }
   IPropiedadesDelta = interface(IPropiedades)
-  ['{2BFEE5AC-1922-447C-9B70-28086783D3E8}']
+  ['{24551F67-C6A2-4052-B309-98ED35606A12}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -136,7 +136,7 @@ type
 
   { IListaAnosContratosDelta }
   IListaAnosContratosDelta = interface(IListaAnosContratos)
-  ['{5BB5F8CB-575C-47D3-B8CD-2E9222A55D1D}']
+  ['{3692BF60-7BAB-449B-87E4-957F5D05B070}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -170,7 +170,7 @@ type
 
   { IContratosClienteBeneficiosDelta }
   IContratosClienteBeneficiosDelta = interface(IContratosClienteBeneficios)
-  ['{2DFD608C-073C-4189-906F-C27B11203063}']
+  ['{C235777C-9BCB-4F65-B5BB-FEEC38CC79D1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREFERENCIAValue : String;
@@ -372,7 +372,7 @@ type
 
   { IContratosClienteDelta }
   IContratosClienteDelta = interface(IContratosCliente)
-  ['{E63A0667-B99A-4F5D-84BC-8AAD49936917}']
+  ['{6E558DC2-3002-4D94-9B75-02C0B92D636C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -434,6 +434,11 @@ type
     function GetOldNOTAS_ENVIOValue : String;
     function GetOldENVIADA_REVISADAValue : SmallInt;
     function GetOldID_CONTRATO_ASOCIADOValue : Integer;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldNOMBRE_AGENTEValue : String;
+    function GetOldDELEGACIONValue : String;
+    function GetOldID_INSTALADORValue : Integer;
+    function GetOldNOMBRE_INSTALADORValue : String;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -496,6 +501,11 @@ type
     property OldNOTAS_ENVIO : String read GetOldNOTAS_ENVIOValue;
     property OldENVIADA_REVISADA : SmallInt read GetOldENVIADA_REVISADAValue;
     property OldID_CONTRATO_ASOCIADO : Integer read GetOldID_CONTRATO_ASOCIADOValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
+    property OldDELEGACION : String read GetOldDELEGACIONValue;
+    property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
+    property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
   end;
 
   { TContratosClienteBusinessProcessorRules }
@@ -867,6 +877,36 @@ type
     function GetOldID_CONTRATO_ASOCIADOIsNull: Boolean; virtual;
     procedure SetID_CONTRATO_ASOCIADOValue(const aValue: Integer); virtual;
     procedure SetID_CONTRATO_ASOCIADOIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_AGENTEValue: String; virtual;
+    function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
+    function GetOldNOMBRE_AGENTEValue: String; virtual;
+    function GetOldNOMBRE_AGENTEIsNull: Boolean; virtual;
+    procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
+    procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetDELEGACIONValue: String; virtual;
+    function GetDELEGACIONIsNull: Boolean; virtual;
+    function GetOldDELEGACIONValue: String; virtual;
+    function GetOldDELEGACIONIsNull: Boolean; virtual;
+    procedure SetDELEGACIONValue(const aValue: String); virtual;
+    procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
+    function GetID_INSTALADORValue: Integer; virtual;
+    function GetID_INSTALADORIsNull: Boolean; virtual;
+    function GetOldID_INSTALADORValue: Integer; virtual;
+    function GetOldID_INSTALADORIsNull: Boolean; virtual;
+    procedure SetID_INSTALADORValue(const aValue: Integer); virtual;
+    procedure SetID_INSTALADORIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_INSTALADORValue: String; virtual;
+    function GetNOMBRE_INSTALADORIsNull: Boolean; virtual;
+    function GetOldNOMBRE_INSTALADORValue: String; virtual;
+    function GetOldNOMBRE_INSTALADORIsNull: Boolean; virtual;
+    procedure SetNOMBRE_INSTALADORValue(const aValue: String); virtual;
+    procedure SetNOMBRE_INSTALADORIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1109,6 +1149,26 @@ type
     property ID_CONTRATO_ASOCIADOIsNull : Boolean read GetID_CONTRATO_ASOCIADOIsNull write SetID_CONTRATO_ASOCIADOIsNull;
     property OldID_CONTRATO_ASOCIADO : Integer read GetOldID_CONTRATO_ASOCIADOValue;
     property OldID_CONTRATO_ASOCIADOIsNull : Boolean read GetOldID_CONTRATO_ASOCIADOIsNull;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+    property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
+    property NOMBRE_AGENTEIsNull : Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
+    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
+    property OldNOMBRE_AGENTEIsNull : Boolean read GetOldNOMBRE_AGENTEIsNull;
+    property DELEGACION : String read GetDELEGACIONValue write SetDELEGACIONValue;
+    property DELEGACIONIsNull : Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+    property OldDELEGACION : String read GetOldDELEGACIONValue;
+    property OldDELEGACIONIsNull : Boolean read GetOldDELEGACIONIsNull;
+    property ID_INSTALADOR : Integer read GetID_INSTALADORValue write SetID_INSTALADORValue;
+    property ID_INSTALADORIsNull : Boolean read GetID_INSTALADORIsNull write SetID_INSTALADORIsNull;
+    property OldID_INSTALADOR : Integer read GetOldID_INSTALADORValue;
+    property OldID_INSTALADORIsNull : Boolean read GetOldID_INSTALADORIsNull;
+    property NOMBRE_INSTALADOR : String read GetNOMBRE_INSTALADORValue write SetNOMBRE_INSTALADORValue;
+    property NOMBRE_INSTALADORIsNull : Boolean read GetNOMBRE_INSTALADORIsNull write SetNOMBRE_INSTALADORIsNull;
+    property OldNOMBRE_INSTALADOR : String read GetOldNOMBRE_INSTALADORValue;
+    property OldNOMBRE_INSTALADORIsNull : Boolean read GetOldNOMBRE_INSTALADORIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1118,7 +1178,7 @@ type
 
   { ITiposCapitulosDelta }
   ITiposCapitulosDelta = interface(ITiposCapitulos)
-  ['{551A2121-A753-4659-A091-FCAB0CDC7FBF}']
+  ['{F2D4CEB2-67ED-420D-80EB-FBBD40EE11E7}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldPOSICIONValue : Integer;
@@ -1212,7 +1272,7 @@ type
 
   { IContratosCliente_DetallesDelta }
   IContratosCliente_DetallesDelta = interface(IContratosCliente_Detalles)
-  ['{35A00064-7F34-4296-8DCA-FBD514F42366}']
+  ['{66AEBA02-84CC-4423-A2F9-81050FF518D5}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTRATOValue : Integer;
@@ -4092,6 +4152,161 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_CONTRATO_ASOCIADO] := Null;
 end;
 
+function TContratosClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_AGENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_AGENTE]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_AGENTE] := Null;
+end;
+
+function TContratosClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetNOMBRE_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_AGENTE];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_AGENTE]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_AGENTE] := Null;
+end;
+
+function TContratosClienteBusinessProcessorRules.GetDELEGACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetDELEGACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldDELEGACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteDELEGACION];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldDELEGACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteDELEGACION]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetDELEGACIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetDELEGACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteDELEGACION] := Null;
+end;
+
+function TContratosClienteBusinessProcessorRules.GetID_INSTALADORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetID_INSTALADORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldID_INSTALADORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteID_INSTALADOR]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetID_INSTALADORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteID_INSTALADOR] := Null;
+end;
+
+function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetNOMBRE_INSTALADORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR];
+end;
+
+function TContratosClienteBusinessProcessorRules.GetOldNOMBRE_INSTALADORIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContratosClienteNOMBRE_INSTALADOR]);
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := aValue;
+end;
+
+procedure TContratosClienteBusinessProcessorRules.SetNOMBRE_INSTALADORIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ContratosClienteNOMBRE_INSTALADOR] := Null;
+end;
+
 
 { TTiposCapitulosBusinessProcessorRules }
 constructor TTiposCapitulosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Contratos de cliente/Model/uBizContratosCliente.pas

@@ -17,7 +17,6 @@ const
   CONST_CONTRATO_ACEPTADO_UECKO = 3;
 
   CTE_EMPRESA_FABRICA = 1;
-  CTE_CLIENTE_PARA_FABRICA = 2000000005;
   SITUACION_CONTRATO_PENDIENTE = 'PENDIENTE';
   SITUACION_CONTRATO_TERMINADO = 'TERMINADO';
   SITUACION_CONTRATO_CANCELADO = 'CANCELADO';
@@ -354,6 +353,12 @@ begin
        DataTable.Edit;
 
     ID_CLIENTE := FCliente.ID;
+
+    ID_AGENTE := FCliente.ID_AGENTE;
+    NOMBRE_AGENTE := FCliente.AGENTE;
+    DELEGACION := FCliente.DELEGACION;
+
+
     NOMBRE := FCliente.NOMBRE;
     NIF_CIF := FCliente.NIF_CIF;
     CALLE := FCliente.CALLE;

Source/Modulos/Contratos de cliente/Servidor/srvContratosCliente_Impl.dfm

@@ -521,6 +521,26 @@ object srvContratosCliente: TsrvContratosCliente
               item
                 DatasetField = 'ID_CONTRATO_ASOCIADO'
                 TableField = 'ID_CONTRATO_ASOCIADO'
+              end
+              item
+                DatasetField = 'ID_AGENTE'
+                TableField = 'ID_AGENTE'
+              end
+              item
+                DatasetField = 'NOMBRE_AGENTE'
+                TableField = 'NOMBRE_AGENTE'
+              end
+              item
+                DatasetField = 'DELEGACION'
+                TableField = 'DELEGACION'
+              end
+              item
+                DatasetField = 'ID_INSTALADOR'
+                TableField = 'ID_INSTALADOR'
+              end
+              item
+                DatasetField = 'NOMBRE_INSTALADOR'
+                TableField = 'NOMBRE_INSTALADOR'
               end>
           end>
         Name = 'ContratosCliente'
@@ -846,6 +866,29 @@ object srvContratosCliente: TsrvContratosCliente
           item
             Name = 'ID_CONTRATO_ASOCIADO'
             DataType = datInteger
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+          end
+          item
+            Name = 'NOMBRE_AGENTE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'DELEGACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'ID_INSTALADOR'
+            DataType = datInteger
+          end
+          item
+            Name = 'NOMBRE_INSTALADOR'
+            DataType = datString
+            Size = 255
           end>
       end
       item
@@ -1385,6 +1428,34 @@ object srvContratosCliente: TsrvContratosCliente
             Name = 'ID_CONTRATO_ASOCIADO'
             DataType = datInteger
             Value = ''
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'NOMBRE_AGENTE'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DELEGACION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'ID_INSTALADOR'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'NOMBRE_INSTALADOR'
+            DataType = datString
+            Size = 255
+            Value = ''
           end>
         Statements = <
           item
@@ -1404,19 +1475,22 @@ object srvContratosCliente: TsrvContratosCliente
               'E, PRECIO_PUNTO,'#10'     ID_DIRECCION_ENVIO, CALLE_ENVIO, POBLACION' +
               '_ENVIO, PROVINCIA_ENVIO, CODIGO_POSTAL_ENVIO,'#10'     PERS_CONTACTO' +
               '_ENVIO, TLFS_ENVIO, NOTAS_ENVIO, ENVIADA_REVISADA, ID_CONTRATO_A' +
-              'SOCIADO'#10'     )'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_CLIENTE, :NIF' +
+              'SOCIADO, ID_AGENTE,'#10'     NOMBRE_AGENTE, DELEGACION, ID_INSTALADO' +
-              '_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :PROVINCIA,'#10'  ' +
+              'R, NOMBRE_INSTALADOR'#10'     )'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :ID_' +
-              '   :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :SITUACION, :FO' +
+              'CLIENTE, :NIF_CIF, :NOMBRE, :ID_DIRECCION, :CALLE, :POBLACION, :' +
-              'RMA_PAGO,'#10'     :PLAZO_ENTREGA, :OBSERVACIONES, :INCIDENCIAS, :IN' +
+              'PROVINCIA,'#10'     :CODIGO_POSTAL, :REFERENCIA, :FECHA_CONTRATO, :S' +
-              'CIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO, :IMPORTE_NE' +
+              'ITUACION, :FORMA_PAGO,'#10'     :PLAZO_ENTREGA, :OBSERVACIONES, :INC' +
-              'TO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10'     :BASE_I' +
+              'IDENCIAS, :INCIDENCIAS_ACTIVAS, CURRENT_TIMESTAMP,'#10'     :USUARIO' +
-              'MPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :ID_' +
+              ', :IMPORTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,' +
-              'FORMA_PAGO,'#10'     :ID_TIENDA, :ID_VENDEDOR, :PERSONA_CONTACTO, :R' +
+              #10'     :BASE_IMPONIBLE, :ID_TIPO_IVA, :IVA, :IMPORTE_IVA, :IMPORT' +
-              'E, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10'     :TELEFONO, :MOVIL, :' +
+              'E_TOTAL, :ID_FORMA_PAGO,'#10'     :ID_TIENDA, :ID_VENDEDOR, :PERSONA' +
-              'TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO,'#10'     :ID_DIRE' +
+              '_CONTACTO, :RE, :IMPORTE_RE, :RECARGO_EQUIVALENCIA,'#10'     :TELEFO' +
-              'CCION_ENVIO, :CALLE_ENVIO, :POBLACION_ENVIO, :PROVINCIA_ENVIO, :' +
+              'NO, :MOVIL, :TIPO_CONTRATO, :REFERENCIA_CLIENTE, :PRECIO_PUNTO,'#10 +
-              'CODIGO_POSTAL_ENVIO,'#10'     :PERS_CONTACTO_ENVIO, :TLFS_ENVIO, :NO' +
+              '     :ID_DIRECCION_ENVIO, :CALLE_ENVIO, :POBLACION_ENVIO, :PROVI' +
-              'TAS_ENVIO, :ENVIADA_REVISADA, :ID_CONTRATO_ASOCIADO'#10'     )'#10#10
+              'NCIA_ENVIO, :CODIGO_POSTAL_ENVIO,'#10'     :PERS_CONTACTO_ENVIO, :TL' +
+              'FS_ENVIO, :NOTAS_ENVIO, :ENVIADA_REVISADA, :ID_CONTRATO_ASOCIADO' +
+              ','#10'     :ID_AGENTE, :NOMBRE_AGENTE, :DELEGACION, :ID_INSTALADOR, ' +
+              ':NOMBRE_INSTALADOR'#10'     )'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1753,6 +1827,34 @@ object srvContratosCliente: TsrvContratosCliente
             DataType = datInteger
             Value = ''
           end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'NOMBRE_AGENTE'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DELEGACION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'ID_INSTALADOR'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'NOMBRE_INSTALADOR'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1789,7 +1891,10 @@ object srvContratosCliente: TsrvContratosCliente
               'IO,'#10'    PERS_CONTACTO_ENVIO = :PERS_CONTACTO_ENVIO,'#10'    TLFS_ENV' +
               'IO = :TLFS_ENVIO,'#10'    NOTAS_ENVIO = :NOTAS_ENVIO,'#10'    ENVIADA_RE' +
               'VISADA = :ENVIADA_REVISADA,'#10'    ID_CONTRATO_ASOCIADO = :ID_CONTR' +
-              'ATO_ASOCIADO'#10#10'  WHERE'#10'    (ID = :OLD_ID)'#10#10
+              'ATO_ASOCIADO,'#10'    ID_AGENTE = :ID_AGENTE,'#10'    NOMBRE_AGENTE = :N' +
+              'OMBRE_AGENTE,'#10'    DELEGACION = :DELEGACION,'#10'    ID_INSTALADOR = ' +
+              ':ID_INSTALADOR,'#10'    NOMBRE_INSTALADOR = :NOMBRE_INSTALADOR'#10#10'  WH' +
+              'ERE'#10'    (ID = :OLD_ID)'#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dpk

@@ -76,7 +76,8 @@ requires
   JvSystemD11R,
   JvPageCompsD11R,
   ConCli_AlbCli_relation,
-  PreCli_ConCli_relation;
+  PreCli_ConCli_relation,
+  Contactos_view;
 
 contains
   uContratosClienteViewRegister in 'uContratosClienteViewRegister.pas',
@@ -96,6 +97,6 @@ contains
   uDialogOpcionesImpresionContratosCliente in 'uDialogOpcionesImpresionContratosCliente.pas' {fDialogOpcionesImpresionContratosCliente: T},
   uViewDireccionEntregaContratoCli in 'uViewDireccionEntregaContratoCli.pas' {frViewDireccionEntregaContratoCli: TFrame},
   uEditorDireccionEntregaContratoCliente in 'uEditorDireccionEntregaContratoCliente.pas' {fEditorDireccionEntregaContratoCliente: TFrame},
-  uDialogOpcionesImpresionEtiquetasContratosCliente in 'uDialogOpcionesImpresionEtiquetasContratosCliente.pas' {fDialogOpcionesImpresionEtiquetasContratosCliente: TfDialogOpcionesImpresionEtiquetasContratosCliente};
+  uDialogOpcionesImpresionEtiquetasContratosCliente in 'uDialogOpcionesImpresionEtiquetasContratosCliente.pas' {fDialogOpcionesImpresionEtiquetasContratosCliente: TFrame};
 
 end.

Source/Modulos/Contratos de cliente/Views/ContratosCliente_view.dproj

@@ -49,51 +49,59 @@
     <DelphiCompile Include="ContratosCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="Articulos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="..\..\Lib\Base.dcp" />
-    <DCCReference Include="ConCli_AlbCli_relation.dcp" />
+    <DCCReference Include="..\..\Lib\ConCli_AlbCli_relation.dcp" />
-    <DCCReference Include="ConCli_FacCli_relation.dcp" />
+    <DCCReference Include="..\..\Lib\ConCli_FacCli_relation.dcp" />
-    <DCCReference Include="ContratosCliente_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="ContratosCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\ContratosCliente_controller.dcp" />
-    <DCCReference Include="cxDataD11.dcp" />
+    <DCCReference Include="..\..\Lib\ContratosCliente_model.dcp" />
-    <DCCReference Include="cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="cxExportD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxExportD11.dcp" />
-    <DCCReference Include="cxGridD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxExtEditorsD11.dcp" />
-    <DCCReference Include="cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxGridD11.dcp" />
-    <DCCReference Include="cxPageControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\cxPageControlD11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dclcxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="dcldxCoreD11.dcp" />
+    <DCCReference Include="..\..\Lib\dclcxLibraryD11.dcp" />
-    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="..\..\Lib\dcldxCoreD11.dcp" />
-    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\designide.dcp" />
-    <DCCReference Include="dxComnD11.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="dxCoreD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
-    <DCCReference Include="dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxCoreD11.dcp" />
-    <DCCReference Include="dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="dxPSCoreD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="dxPScxCommonD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPSCoreD11.dcp" />
-    <DCCReference Include="dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPScxCommonD11.dcp" />
-    <DCCReference Include="dxPSLnksD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxPSLnksD11.dcp" />
-    <DCCReference Include="GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="GUISDK_D11R.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="..\..\Lib\GUISDK_D11R.dcp" />
-    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="..\..\Lib\Jcl.dcp" />
-    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JclVcl.dcp" />
-    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
-    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
-    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
-    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
-    <DCCReference Include="PreCli_ConCli_relation.dcp" />
+    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\PreCli_ConCli_relation.dcp" />
-    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="tb2k_d10.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="tbx_d10.dcp" />
+    <DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
+    <DCCReference Include="..\..\Lib\tbx_d10.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
+    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vclshlctrls.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
+    <DCCReference Include="..\..\Lib\xmlrtl.dcp" />
     <DCCReference Include="uContratosClienteViewRegister.pas" />
     <DCCReference Include="uDialogOpcionesImpresionContratosCliente.pas">
       <Form>fDialogOpcionesImpresionContratosCliente</Form>
@@ -163,13 +171,6 @@
       <Form>frViewElegirArticulosContratosCliente</Form>
       <DesignClass>TFrame</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vcljpg.dcp" />
-    <DCCReference Include="vclshlctrls.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line

Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.dfm

@@ -175,7 +175,6 @@ inherited fEditorContratoCliente: TfEditorContratoCliente
   inherited pgPaginas: TPageControl
     Width = 1098
     Height = 321
-    ActivePage = pagContenido
     TabOrder = 1
     OnChanging = pgPaginasChanging
     ExplicitTop = 112

Source/Modulos/Contratos de cliente/Views/uEditorContratoCliente.pas

@@ -439,7 +439,7 @@ begin
 
   if Assigned(FController) then
   begin
-//    ViewContrato.ViewClienteContrato.Controller := Controller.ClienteController;
+    ViewContrato.Controller := Controller;
     frViewDetallesContratoCliente1.Controller := Controller.DetallesController;
 
     //GESTION_DOCUMENTOS

Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.dfm

@@ -1,6 +1,6 @@
 inherited frViewContratoCliente: TfrViewContratoCliente
-  Width = 451
+  Width = 1174
-  Height = 304
+  Height = 905
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,18 +9,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 451
+    Width = 1174
-    Height = 304
+    Height = 905
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     TabStop = False
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitWidth = 451
+    ExplicitHeight = 304
     DesignSize = (
-      451
+      1174
-      304)
+      905)
     object edtFechaContrato: TcxDBDateEdit
-      Left = 136
+      Left = 117
       Top = 82
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'FECHA_CONTRATO'
@@ -43,7 +45,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Width = 129
     end
     object memObservaciones: TcxDBMemo
-      Left = 324
+      Left = 645
       Top = 289
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'OBSERVACIONES'
@@ -60,12 +62,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 12
+      TabOrder = 14
       Height = 200
       Width = 507
     end
     object eReferencia: TcxDBTextEdit
-      Left = 136
+      Left = 117
       Top = 28
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REFERENCIA'
@@ -90,8 +92,8 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Width = 122
     end
     object cbFormaPago: TcxDBLookupComboBox
-      Left = 136
+      Left = 117
-      Top = 504
+      Top = 784
       DataBinding.DataField = 'ID_FORMA_PAGO'
       DataBinding.DataSource = DADataSource
       Properties.ImmediatePost = True
@@ -118,20 +120,20 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 7
+      TabOrder = 9
       Width = 122
     end
     object bFormasPago: TButton
-      Left = 162
+      Left = 483
-      Top = 504
+      Top = 784
       Width = 132
       Height = 21
       Caption = 'Ver las formas de pago...'
-      TabOrder = 8
+      TabOrder = 10
       OnClick = bFormasPagoClick
     end
     object cbSituacion: TcxDBImageComboBox
-      Left = 136
+      Left = 117
       Top = 109
       DataBinding.DataField = 'SITUACION'
       DataBinding.DataSource = DADataSource
@@ -161,7 +163,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Width = 260
     end
     inline frViewDatosYSeleccionClienteContrato1: TfrViewDatosYSeleccionClienteContrato
-      Left = 324
+      Left = 645
       Top = 28
       Width = 127
       Height = 225
@@ -171,9 +173,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 11
+      TabOrder = 13
       ReadOnly = False
-      ExplicitLeft = 324
+      ExplicitLeft = 645
       ExplicitTop = 28
       ExplicitWidth = 127
       ExplicitHeight = 225
@@ -191,24 +193,24 @@ inherited frViewContratoCliente: TfrViewContratoCliente
           Width = 103
         end
         inherited bVerFichaCliente: TBitBtn
-          Left = 82
+          Left = 286
-          ExplicitLeft = 82
+          ExplicitLeft = 286
         end
         inherited edtDireccion: TcxMemo
           ExplicitWidth = 121
           Width = 121
         end
         inherited bElegirDireccion: TButton
-          Left = 251
+          Left = 455
-          ExplicitLeft = 251
+          ExplicitLeft = 455
         end
         inherited edtTelefonos: TcxTextEdit
           ExplicitWidth = 193
           Width = 193
         end
         inherited edtReferencia: TcxDBTextEdit
-          Left = 204
+          Left = 304
-          ExplicitLeft = 204
+          ExplicitLeft = 304
           ExplicitWidth = 103
           Width = 103
         end
@@ -216,7 +218,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
     end
     object memFormaPago: TcxDBMemo
       Left = 22
-      Top = 531
+      Top = 811
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'FORMA_PAGO'
       DataBinding.DataSource = DADataSource
@@ -232,13 +234,13 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 9
+      TabOrder = 11
       Height = 60
       Width = 546
     end
     object memPlazoEntrega: TcxDBMemo
       Left = 22
-      Top = 587
+      Top = 867
       Anchors = [akLeft, akTop, akRight, akBottom]
       DataBinding.DataField = 'PLAZO_ENTREGA'
       DataBinding.DataSource = DADataSource
@@ -254,12 +256,12 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 10
+      TabOrder = 12
       Height = 60
       Width = 616
     end
     object cbVendedor: TcxDBLookupComboBox
-      Left = 136
+      Left = 117
       Top = 136
       DataBinding.DataField = 'ID_VENDEDOR'
       DataBinding.DataSource = DADataSource
@@ -289,7 +291,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Width = 27
     end
     object cbTipoContrato: TcxDBComboBox
-      Left = 252
+      Left = 422
       Top = 82
       DataBinding.DataField = 'TIPO_CONTRATO'
       DataBinding.DataSource = DADataSource
@@ -314,7 +316,7 @@ inherited frViewContratoCliente: TfrViewContratoCliente
       Width = 113
     end
     object edtlReferenciaCliente: TcxDBTextEdit
-      Left = 136
+      Left = 117
       Top = 55
       Anchors = [akLeft, akTop, akRight]
       AutoSize = False
@@ -370,9 +372,9 @@ inherited frViewContratoCliente: TfrViewContratoCliente
           Width = 425
         end
         inherited bModificar: TBitBtn
-          Left = 82
+          Left = 403
           Top = 166
-          ExplicitLeft = 82
+          ExplicitLeft = 403
           ExplicitTop = 166
         end
         inherited txtDireccion: TStaticText
@@ -396,6 +398,65 @@ inherited frViewContratoCliente: TfrViewContratoCliente
         end
       end
     end
+    inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
+      Left = 22
+      Top = 613
+      Width = 425
+      Height = 135
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 8
+      ReadOnly = False
+      ExplicitLeft = 22
+      ExplicitTop = 613
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited edtlNombreAgente: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 224
+          Width = 224
+        end
+        inherited edtDelegacion: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited Button3: TBitBtn
+          Left = 391
+          ExplicitLeft = 391
+        end
+      end
+    end
+    inline frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador
+      Left = 22
+      Top = 474
+      Width = 425
+      Height = 103
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 7
+      ReadOnly = False
+      ExplicitLeft = 22
+      ExplicitTop = 474
+      inherited dxLayoutControl1: TdxLayoutControl
+        inherited edtlNombreInstalador: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 224
+          Width = 224
+        end
+        inherited Button3: TBitBtn
+          Left = 363
+          ExplicitLeft = 363
+        end
+      end
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -452,20 +513,32 @@ inherited frViewContratoCliente: TfrViewContratoCliente
             ControlOptions.ShowBorder = False
           end
           object dxLayoutControl1Item11: TdxLayoutItem
-            Caption = 'Vendedor / Instalador:'
+            Caption = 'Usuario:'
             Control = cbVendedor
             ControlOptions.ShowBorder = False
           end
         end
         object dxLayoutControl1Group5: TdxLayoutGroup
           AutoAligns = [aaHorizontal]
-          AlignVert = avClient
           Caption = 'Direcci'#243'n entrega / obra'
           object dxLayoutControl1Item13: TdxLayoutItem
             Control = frViewDireccionEntregaContratoCli1
             ControlOptions.AutoColor = True
             ControlOptions.ShowBorder = False
           end
+          object dxLayoutControl1Item15: TdxLayoutItem
+            Control = frViewDatosYSeleccionInstalador1
+            ControlOptions.AutoColor = True
+            ControlOptions.ShowBorder = False
+          end
+        end
+        object dxLayoutControl1Group10: TdxLayoutGroup
+          Caption = 'Datos comerciales'
+          object dxLayoutControl1Item14: TdxLayoutItem
+            Control = frViewDatosYSeleccionComercial1
+            ControlOptions.AutoColor = True
+            ControlOptions.ShowBorder = False
+          end
         end
         object dxLayoutControl1Group6: TdxLayoutGroup
           AutoAligns = [aaHorizontal]

Source/Modulos/Contratos de cliente/Views/uViewContratoCliente.pas

@@ -12,7 +12,8 @@ uses
   Buttons, ActnList, cxLookupEdit,
   cxDBLookupEdit, cxDBLookupComboBox, uFormasPagoController, uDAInterfaces,
   uBizFormasPago, cxButtonEdit, uViewDatosYSeleccionClienteContrato, uBizContactos,
-  uVendedoresController, uViewDireccionEntregaContratoCli;
+  uVendedoresController, uViewDireccionEntregaContratoCli, uViewDatosYSeleccionComercial,
+  uContratosClienteController, uViewDatosYSeleccionInstalador;
 
 type
   IViewContratoCliente = interface(IViewBase)
@@ -21,6 +22,10 @@ type
     procedure SetContrato(const Value: IBizContratoCliente);
     property Contrato: IBizContratoCliente read GetContrato write SetContrato;
 
+    function GetController : IContratosClienteController;
+    procedure SetController (const Value : IContratosClienteController);
+    property Controller: IContratosClienteController read GetController write SetController;    
+
     function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
     property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
 
@@ -71,6 +76,11 @@ type
     dxLayoutControl1Group5: TdxLayoutGroup;
     dxLayoutControl1Item13: TdxLayoutItem;
     frViewDireccionEntregaContratoCli1: TfrViewDireccionEntregaContratoCli;
+    dxLayoutControl1Item14: TdxLayoutItem;
+    frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial;
+    dxLayoutControl1Group10: TdxLayoutGroup;
+    dxLayoutControl1Item15: TdxLayoutItem;
+    frViewDatosYSeleccionInstalador1: TfrViewDatosYSeleccionInstalador;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure bFormasPagoClick(Sender: TObject);
@@ -80,6 +90,7 @@ type
       var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
   protected
     FContrato : IBizContratoCliente;
+    FController : IContratosClienteController;
     FFormasPago : IBizFormaPago;
     FVendedor : IBizVendedor;
     FFormasPagoController : IFormasPagoController;
@@ -89,11 +100,20 @@ type
 
     function GetContrato: IBizContratoCliente;
     procedure SetContrato(const Value: IBizContratoCliente); virtual;
+
+    function GetController : IContratosClienteController;
+    procedure SetController (const Value : IContratosClienteController);
+
     function GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
     function GetViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli;
 
+    procedure OnComercialChanged(Sender : TObject);
+    procedure OnInstaladorChanged(Sender : TObject);
+
   public
     property Contrato: IBizContratoCliente read GetContrato write SetContrato;
+    property Controller: IContratosClienteController read GetController write SetController;
+
     property ViewClienteContrato: IViewDatosYSeleccionClienteContrato read GetViewClienteContrato;
     property ViewDireccionEntregaContratoCli: IViewDireccionEntregaContratoCli read GetViewDireccionEntregaContratoCli;
 
@@ -106,7 +126,7 @@ implementation
 { TfrViewContratoCliente }
 
 uses
-  schContratosClienteClient_Intf, uClientesController, uBizDireccionesContacto, uContratosClienteController;
+  schContratosClienteClient_Intf, uClientesController, uBizDireccionesContacto, uFactuGES_App;
 
 
 procedure TfrViewContratoCliente.bFormasPagoClick(Sender: TObject);
@@ -131,18 +151,34 @@ begin
   FFormasPagoController := TFormasPagoController.Create;
   FVendedoresController := TVendedoresController.Create;
   FViewClienteContrato := frViewDatosYSeleccionClienteContrato1;
-  FViewDireccionEntregaContratoCli := frViewDireccionEntregaContratoCli1;  
+  FViewDireccionEntregaContratoCli := frViewDireccionEntregaContratoCli1;
+
+//FILTRO DE EMPRESAS
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+  begin
+    dxLayoutControl1Group10.Visible := true;
+    frViewDatosYSeleccionInstalador1.Visible := true;
+    dxLayoutControl1Item15.visible := true;    
+  end
+  else
+  begin
+    dxLayoutControl1Group10.Visible := false;
+    frViewDatosYSeleccionInstalador1.Visible := false;
+    dxLayoutControl1Item15.visible := false;
+  end;
 end;
 
 procedure TfrViewContratoCliente.CustomViewDestroy(Sender: TObject);
 begin
-  inherited;
+  frViewDatosYSeleccionComercial1.OnComercialChanged := Nil;
+  frViewDatosYSeleccionInstalador1.OnInstaladorChanged := Nil;  
   FFormasPago := Nil;
   FFormasPagoController := NIL;
   FVendedor := Nil;
   FVendedoresController := NIL;
   FViewClienteContrato := NIL;
   FViewDireccionEntregaContratoCli := NIL;
+  inherited;
 end;
 
 procedure TfrViewContratoCliente.frViewClienteContratoButton1Click(Sender: TObject);
@@ -172,6 +208,11 @@ begin
   Result := FContrato;
 end;
 
+function TfrViewContratoCliente.GetController: IContratosClienteController;
+begin
+  Result := FController;
+end;
+
 function TfrViewContratoCliente.GetViewClienteContrato: IViewDatosYSeleccionClienteContrato;
 begin
   Result := FViewClienteContrato;
@@ -182,6 +223,22 @@ begin
   Result := FViewDireccionEntregaContratoCli;
 end;
 
+procedure TfrViewContratoCliente.OnComercialChanged(Sender: TObject);
+begin
+  if Assigned(FContrato) then
+  begin
+    FController.CambiarComercial(FContrato, frViewDatosYSeleccionComercial1.Comercial);
+  end;
+end;
+
+procedure TfrViewContratoCliente.OnInstaladorChanged(Sender: TObject);
+begin
+  if Assigned(FContrato) then
+  begin
+    FController.CambiarInstalador(FContrato, frViewDatosYSeleccionInstalador1.Instalador);
+  end;
+end;
+
 procedure TfrViewContratoCliente.SetContrato(const Value: IBizContratoCliente);
 begin
   FContrato := Value;
@@ -199,6 +256,9 @@ begin
 
     FViewClienteContrato.Contrato := FContrato;
     frViewDireccionEntregaContratoCli1.ContratoCliente := FContrato;
+
+    frViewDatosYSeleccionComercial1.OnComercialChanged := OnComercialChanged;
+    frViewDatosYSeleccionInstalador1.OnInstaladorChanged := OnInstaladorChanged;
   end
   else begin
     DADataSource.DataTable := NIL;
@@ -208,4 +268,9 @@ begin
   end;
 end;
 
+procedure TfrViewContratoCliente.SetController(const Value: IContratosClienteController);
+begin
+  FController := Value;
+end;
+
 end.

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.dfm

@@ -1,7 +1,6 @@
 inherited frViewContratosCliente: TfrViewContratosCliente
   Width = 903
   Height = 525
-  OnShow = CustomViewShow
   ExplicitWidth = 903
   ExplicitHeight = 525
   inherited cxGrid: TcxGrid
@@ -117,7 +116,7 @@ inherited frViewContratosCliente: TfrViewContratosCliente
         Width = 105
       end
       object cxGridViewVENDEDOR: TcxGridDBColumn
-        Caption = 'Vendedor \ Instalador'
+        Caption = 'Usuario'
         DataBinding.FieldName = 'VENDEDOR'
       end
       object cxGridViewNIF_CIF: TcxGridDBColumn
@@ -210,6 +209,21 @@ inherited frViewContratosCliente: TfrViewContratosCliente
         Visible = False
         VisibleForCustomization = False
       end
+      object cxGridViewAGENTE: TcxGridDBColumn
+        Caption = 'Comercial'
+        DataBinding.FieldName = 'NOMBRE_AGENTE'
+      end
+      object cxGridViewDELEGACION: TcxGridDBColumn
+        Caption = 'Delegaci'#243'n'
+        DataBinding.FieldName = 'DELEGACION'
+      end
+      object cxGridViewINSTALADOR: TcxGridDBColumn
+        Caption = 'Instalador'
+        DataBinding.FieldName = 'NOMBRE_INSTALADOR'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todos'
@@ -315,6 +329,26 @@ inherited frViewContratosCliente: TfrViewContratosCliente
         object TBXItem2: TTBXItem
           Action = actProcedencia
         end
+        object TBXSeparatorItem5: TTBXSeparatorItem
+        end
+        object TBXItem5: TTBXItem
+          Action = actComercial
+        end
+        object TBXSeparatorItem4: TTBXSeparatorItem
+        end
+        object TBXItem6: TTBXItem
+          Action = actDelegacion
+        end
+        object TBXSeparatorItem6: TTBXSeparatorItem
+        end
+        object TBXItem7: TTBXItem
+          Action = actInstalador
+        end
+        object TBXSeparatorItem7: TTBXSeparatorItem
+        end
+        object TBXItem8: TTBXItem
+          Action = actTienda
+        end
       end
     end
   end
@@ -350,6 +384,26 @@ inherited frViewContratosCliente: TfrViewContratosCliente
       OnExecute = actProvinciaExecute
       OnUpdate = actProvinciaUpdate
     end
+    object actComercial: TAction
+      Caption = 'Comercial'
+      OnExecute = actComercialExecute
+      OnUpdate = actComercialUpdate
+    end
+    object actDelegacion: TAction
+      Caption = 'Delegaci'#243'n'
+      OnExecute = actDelegacionExecute
+      OnUpdate = actDelegacionUpdate
+    end
+    object actInstalador: TAction
+      Caption = 'Instalador'
+      OnExecute = actInstaladorExecute
+      OnUpdate = actInstaladorUpdate
+    end
+    object actTienda: TAction
+      Caption = 'Tienda'
+      OnExecute = actTiendaExecute
+      OnUpdate = actTiendaUpdate
+    end
   end
   inherited GridPNGImageList: TPngImageList
     PngImages = <

Source/Modulos/Contratos de cliente/Views/uViewContratosCliente.pas

@@ -12,7 +12,7 @@ uses
   uDADataTable, cxGridLevel, cxClasses, cxControls, cxGridCustomView, Classes,
   cxGrid, uBizContratosCliente, cxCurrencyEdit, Forms, uViewFiltroBase, ActnList, TB2Item,
   TBX, TB2Toolbar, TBXDkPanels, TB2Dock, dxPgsDlg, uDAInterfaces, Windows,
-  uCustomView, uViewBase;
+  uCustomView, uViewBase, cxTextEdit;
 
 type
   IViewContratosCliente = interface(IViewGrid)
@@ -62,6 +62,21 @@ type
     actProvincia: TAction;
     TBXSeparatorItem3: TTBXSeparatorItem;
     TBXItem4: TTBXItem;
+    cxGridViewAGENTE: TcxGridDBColumn;
+    cxGridViewDELEGACION: TcxGridDBColumn;
+    actComercial: TAction;
+    actDelegacion: TAction;
+    TBXSeparatorItem4: TTBXSeparatorItem;
+    TBXSeparatorItem5: TTBXSeparatorItem;
+    TBXItem5: TTBXItem;
+    TBXItem6: TTBXItem;
+    cxGridViewINSTALADOR: TcxGridDBColumn;
+    actInstalador: TAction;
+    TBXSeparatorItem6: TTBXSeparatorItem;
+    TBXItem7: TTBXItem;
+    actTienda: TAction;
+    TBXSeparatorItem7: TTBXSeparatorItem;
+    TBXItem8: TTBXItem;
     procedure cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel:
             TcxGridLevel);
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
@@ -82,9 +97,16 @@ type
       AItemIndex: Integer; const V1, V2: Variant; var Compare: Integer);
     procedure actProcedenciaExecute(Sender: TObject);
     procedure actProcedenciaUpdate(Sender: TObject);
-    procedure CustomViewShow(Sender: TObject);
     procedure actProvinciaExecute(Sender: TObject);
     procedure actProvinciaUpdate(Sender: TObject);
+    procedure actComercialExecute(Sender: TObject);
+    procedure actComercialUpdate(Sender: TObject);
+    procedure actDelegacionExecute(Sender: TObject);
+    procedure actDelegacionUpdate(Sender: TObject);
+    procedure actInstaladorExecute(Sender: TObject);
+    procedure actInstaladorUpdate(Sender: TObject);
+    procedure actTiendaExecute(Sender: TObject);
+    procedure actTiendaUpdate(Sender: TObject);
 
   private
     //Filtros relativos a la vista
@@ -131,6 +153,66 @@ begin
   (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
 end;
 
+procedure TfrViewContratosCliente.actComercialExecute(Sender: TObject);
+begin
+  if (cxGridViewAGENTE.GroupIndex < 0) then
+  begin
+    cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewAGENTE.Visible := False;
+  end
+  else
+  begin
+    cxGridViewAGENTE.GroupIndex := -1;
+    cxGridViewAGENTE.Visible := True;
+  end;
+end;
+
+procedure TfrViewContratosCliente.actComercialUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosCliente.actDelegacionExecute(Sender: TObject);
+begin
+  if (cxGridViewDELEGACION.GroupIndex < 0) then
+  begin
+    cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewDELEGACION.Visible := False;
+  end
+  else
+  begin
+    cxGridViewDELEGACION.GroupIndex := -1;
+    cxGridViewDELEGACION.Visible := True;
+  end;
+end;
+
+procedure TfrViewContratosCliente.actDelegacionUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
+end;
+
+procedure TfrViewContratosCliente.actInstaladorExecute(Sender: TObject);
+begin
+  if (cxGridViewINSTALADOR.GroupIndex < 0) then
+  begin
+    cxGridViewINSTALADOR.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewINSTALADOR.Visible := False;
+  end
+  else
+  begin
+    cxGridViewINSTALADOR.GroupIndex := -1;
+    cxGridViewINSTALADOR.Visible := True;
+  end;
+end;
+
+procedure TfrViewContratosCliente.actInstaladorUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewINSTALADOR.GroupIndex < 0);
+end;
+
 procedure TfrViewContratosCliente.actProcedenciaExecute(Sender: TObject);
 begin
   if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
@@ -171,6 +253,26 @@ begin
   (Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
 end;
 
+procedure TfrViewContratosCliente.actTiendaExecute(Sender: TObject);
+begin
+  if (cxGridViewTIENDA.GroupIndex < 0) then
+  begin
+    cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewTIENDA.Visible := False;
+  end
+  else
+  begin
+    cxGridViewTIENDA.GroupIndex := -1;
+    cxGridViewTIENDA.Visible := True;
+  end;
+end;
+
+procedure TfrViewContratosCliente.actTiendaUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
+end;
+
 procedure TfrViewContratosCliente.AnadirFiltroFechas;
 var
   Columna: TcxGridDBColumn;
@@ -223,27 +325,45 @@ end;
 procedure TfrViewContratosCliente.ConfigView;
 begin
   inherited;
-{
+//FILTRO DE EMPRESAS
-  if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
-    cxGridViewTIENDA.Visible := True
-  else
-    cxGridViewTIENDA.Visible := False;
-}    
-end;
-
-procedure TfrViewContratosCliente.CustomViewShow(Sender: TObject);
-begin
-  inherited;
-  //En el caso de fabrica se verá una nueva pestaña y en el caso de graden se verá un botón de envio a fabrica.
-{
-  if (AppFactuGES.EmpresaActiva.ID = 1) then
   begin
-    cxGridLevelPendientesRevisar.Visible := True;
+    cxGridViewTIENDA.Visible := False;
+    cxGridViewTIENDA.VisibleForCustomization := False;
+
+    cxGridViewAGENTE.Visible := True;
+    cxGridViewAGENTE.VisibleForCustomization := True;
+
+    cxGridViewDELEGACION.Visible := True;
+    cxGridViewDELEGACION.VisibleForCustomization := True;
+
+    cxGridViewINSTALADOR.Visible := True;
+    cxGridViewINSTALADOR.VisibleForCustomization := True;
+
+    actComercial.Visible := True;
+    actDelegacion.Visible := True;
+    actInstalador.Visible := True;
+    actTienda.Visible := False;
   end
-  else begin
+  else
-    cxGridLevelPendientesRevisar.Visible := False;
+  begin
+    cxGridViewTIENDA.Visible := True;
+    cxGridViewTIENDA.VisibleForCustomization := True;
+
+    cxGridViewAGENTE.Visible := False;
+    cxGridViewAGENTE.VisibleForCustomization := False;
+
+    cxGridViewDELEGACION.Visible := False;
+    cxGridViewDELEGACION.VisibleForCustomization := False;
+
+    cxGridViewINSTALADOR.Visible := False;
+    cxGridViewINSTALADOR.VisibleForCustomization := False;
+
+    actComercial.Visible := False;
+    actDelegacion.Visible := False;
+    actInstalador.Visible := False;
+    actTienda.Visible := True;    
   end;
-}  
 end;
 
 procedure TfrViewContratosCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);

Source/Modulos/Delegaciones/Servidor/srvDelegaciones_Impl.dfm

@@ -0,0 +1,98 @@
+object srvDelegaciones: TsrvDelegaciones
+  OldCreateOrder = True
+  OnCreate = DARemoteServiceCreate
+  ServiceSchema = schDelegaciones
+  ServiceDataStreamer = Bin2DataStreamer
+  ExportedDataTables = <>
+  BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
+  Height = 300
+  Width = 334
+  object Diagrams: TDADiagrams
+    Left = 150
+    Top = 88
+    DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
+  end
+  object DataDictionary: TDADataDictionary
+    Fields = <
+      item
+        Name = 'UnidadesMedida_ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_UNIDADES_MEDIDA_ID'
+        Required = True
+        DisplayLabel = 'ID'
+      end
+      item
+        Name = 'UnidadesMedida_DESCRIPCION'
+        DataType = datString
+        Size = 255
+        DisplayLabel = 'Descripci'#243'n'
+      end
+      item
+        Name = 'Delegaciones_ID'
+        DataType = datAutoInc
+        GeneratorName = 'GEN_DELEGACIONES'
+        Required = True
+        DisplayLabel = 'ID'
+      end
+      item
+        Name = 'Delegaciones_DESCRIPCION'
+        DataType = datString
+        Size = 255
+      end>
+    Left = 150
+    Top = 24
+  end
+  object schDelegaciones: TDASchema
+    ConnectionManager = dmServer.ConnectionManager
+    DataDictionary = DataDictionary
+    Diagrams = Diagrams
+    Datasets = <
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'DELEGACIONES'
+            StatementType = stAutoSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'ID'
+                TableField = 'ID'
+              end
+              item
+                DatasetField = 'DESCRIPCION'
+                TableField = 'DESCRIPCION'
+              end>
+          end>
+        Name = 'Delegaciones'
+        Fields = <
+          item
+            Name = 'ID'
+            DataType = datAutoInc
+            GeneratorName = 'GEN_DELEGACIONES_ID'
+            Required = True
+            InPrimaryKey = True
+          end
+          item
+            Name = 'DESCRIPCION'
+            DataType = datString
+            Size = 255
+            DictionaryEntry = 'Delegaciones_DESCRIPCION'
+          end>
+      end>
+    JoinDataTables = <>
+    UnionDataTables = <>
+    Commands = <>
+    RelationShips = <>
+    UpdateRules = <>
+    Version = 0
+    Left = 48
+    Top = 24
+  end
+  object Bin2DataStreamer: TDABin2DataStreamer
+    Left = 48
+    Top = 88
+  end
+end

Source/Modulos/Delegaciones/Servidor/srvDelegaciones_Impl.pas

@@ -0,0 +1,63 @@
+unit srvDelegaciones_Impl;
+
+{----------------------------------------------------------------------------}
+{ This unit was automatically generated by the RemObjects SDK after reading  }
+{ the RODL file associated with this project .                               }
+{                                                                            }
+{ This is where you are supposed to code the implementation of your objects. }
+{----------------------------------------------------------------------------}
+
+interface
+
+uses
+  {vcl:} Classes, SysUtils, 
+  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
+  {Ancestor Implementation:} DataAbstractService_Impl,
+  {Used RODLs:} DataAbstract4_Intf,
+  {Generated:}   uDABusinessProcessor, uDABin2DataStreamer, uDADataStreamer,
+  uDAScriptingProvider, uDAClasses,
+  FactuGES_Intf, uDAInterfaces;
+
+type
+  { TsrvDelegaciones }
+  TsrvDelegaciones = class(TDataAbstractService, IsrvDelegaciones)
+    Diagrams: TDADiagrams;
+    Bin2DataStreamer: TDABin2DataStreamer;
+    schDelegaciones: TDASchema;
+    DataDictionary: TDADataDictionary;
+    procedure DARemoteServiceCreate(Sender: TObject);
+    procedure DataAbstractServiceBeforeAcquireConnection(aSender: TObject;
+      var aConnectionName: string);
+  private
+  protected
+  end;
+
+implementation
+
+{$R *.dfm}
+uses
+  {Generated:} FactuGES_Invk, uDataModuleServer, uDatabaseUtils;
+
+procedure Create_srvDelegaciones(out anInstance : IUnknown);
+begin
+  anInstance := TsrvDelegaciones.Create(NIL);
+end;
+
+{ srvDelegaciones }
+procedure TsrvDelegaciones.DARemoteServiceCreate(Sender: TObject);
+begin
+  //SessionManager := dmServer.SessionManager;
+end;
+
+procedure TsrvDelegaciones.DataAbstractServiceBeforeAcquireConnection(
+  aSender: TObject; var aConnectionName: string);
+begin
+  ConnectionName := dmServer.ConnectionName;
+end;
+
+initialization
+  TROClassFactory.Create('srvDelegaciones', Create_srvDelegaciones, TsrvDelegaciones_Invoker);
+
+finalization
+
+end.

Source/Modulos/Delegaciones/Views/Delegaciones_view.dproj

@@ -0,0 +1,545 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{e3d36a6f-7004-4c89-9f3d-f2d77e386d1b}</ProjectGuid>
+    <MainSource>Delegaciones_view.dpk</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>..\..\..\..\Output\Debug\Cliente\Delegaciones_view.bpl</DCC_DependencyCheckOutputName>
+  </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_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Release\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+    <DCC_Define>RELEASE</DCC_Define>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DcuOutput>.\</DCC_DcuOutput>
+    <DCC_ObjOutput>.\</DCC_ObjOutput>
+    <DCC_HppOutput>.\</DCC_HppOutput>
+    <DCC_BplOutput>..\..\..\..\Output\Debug\Cliente</DCC_BplOutput>
+    <DCC_DcpOutput>..\..\Lib</DCC_DcpOutput>
+    <DCC_UnitSearchPath>..\..\..\Lib;..\..\Lib</DCC_UnitSearchPath>
+    <DCC_ResourcePath>..\..\..\Lib;..\..\Lib</DCC_ResourcePath>
+    <DCC_ObjPath>..\..\..\Lib;..\..\Lib</DCC_ObjPath>
+    <DCC_IncludePath>..\..\..\Lib;..\..\Lib</DCC_IncludePath>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>Package</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Delegaciones_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="Delegaciones_view.dpk">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="ApplicationBase.dcp" />
+    <DCCReference Include="Base.dcp" />
+    <DCCReference Include="Delegaciones_controller.dcp" />
+    <DCCReference Include="Delegaciones_model.dcp" />
+    <DCCReference Include="GUIBase.dcp" />
+    <DCCReference Include="rtl.dcp" />
+    <DCCReference Include="uDelegacionesViewRegister.pas" />
+    <DCCReference Include="uEditorDelegaciones.pas">
+      <Form>fEditorDelegaciones</Form>
+      <DesignClass>TfEditorUnidadesMedida</DesignClass>
+    </DCCReference>
+    <DCCReference Include="vcl.dcp" />
+  </ItemGroup>
+</Project>
+<!-- EurekaLog First Line
+[Exception Log]
+EurekaLog Version=6006
+Activate=0
+Activate Handle=1
+Save Log File=1
+Foreground Tab=0
+Freeze Activate=0
+Freeze Timeout=60
+SMTP From=eurekalog@email.com
+SMTP Host=
+SMTP Port=25
+SMTP UserID=
+SMTP Password=
+Append to Log=0
+TerminateBtn Operation=2
+Errors Number=32
+Errors Terminate=3
+Email Address=
+Email Object=
+Email Send Options=0
+Output Path=
+Encrypt Password=
+AutoCloseDialogSecs=0
+WebSendMode=0
+SupportULR=
+HTMLLayout Count=15
+HTMLLine0="%3Chtml%3E"
+HTMLLine1="  %3Chead%3E"
+HTMLLine2="  %3C/head%3E"
+HTMLLine3="  %3Cbody TopMargin=10 LeftMargin=10%3E"
+HTMLLine4="    %3Ctable width="100%%" border="0"%3E"
+HTMLLine5="      %3Ctr%3E"
+HTMLLine6="        %3Ctd nowrap%3E"
+HTMLLine7="          %3Cfont face="Lucida Console, Courier" size="2"%3E"
+HTMLLine8="            %3C%%HTML_TAG%%%3E"
+HTMLLine9="          %3C/font%3E"
+HTMLLine10="        %3C/td%3E"
+HTMLLine11="      %3C/tr%3E"
+HTMLLine12="    %3C/table%3E"
+HTMLLine13="  %3C/body%3E"
+HTMLLine14="%3C/html%3E"
+AutoCrashOperation=2
+AutoCrashNumber=10
+AutoCrashMinutes=1
+WebURL=
+WebUserID=
+WebPassword=
+WebPort=0
+AttachedFiles=
+ProxyURL=
+ProxyUser=
+ProxyPassword=
+ProxyPort=8080
+TrakerUser=
+TrakerPassword=
+TrakerAssignTo=
+TrakerProject=
+TrakerCategory=
+TrakerTrialID=
+ZipPassword=
+PreBuildEvent=
+PostSuccessfulBuildEvent=
+PostFailureBuildEvent=
+ExceptionDialogType=2
+Count=0
+EMail Message Line Count=0
+loNoDuplicateErrors=0
+loAppendReproduceText=0
+loDeleteLogAtVersionChange=0
+loAddComputerNameInLogFileName=0
+loSaveModulesAndProcessesSections=1
+loSaveAssemblerAndCPUSections=1
+soAppStartDate=1
+soAppName=1
+soAppVersionNumber=1
+soAppParameters=1
+soAppCompilationDate=1
+soAppUpTime=1
+soExcDate=1
+soExcAddress=1
+soExcModuleName=1
+soExcModuleVersion=1
+soExcType=1
+soExcMessage=1
+soExcID=1
+soExcCount=1
+soExcStatus=1
+soExcNote=1
+soUserID=1
+soUserName=1
+soUserEmail=1
+soUserPrivileges=1
+soUserCompany=1
+soActCtlsFormClass=1
+soActCtlsFormText=1
+soActCtlsControlClass=1
+soActCtlsControlText=1
+soCmpName=1
+soCmpTotalMemory=1
+soCmpFreeMemory=1
+soCmpTotalDisk=1
+soCmpFreeDisk=1
+soCmpSysUpTime=1
+soCmpProcessor=1
+soCmpDisplayMode=1
+soCmpDisplayDPI=1
+soCmpVideoCard=1
+soCmpPrinter=1
+soOSType=1
+soOSBuildN=1
+soOSUpdate=1
+soOSLanguage=1
+soOSCharset=1
+soNetIP=1
+soNetSubmask=1
+soNetGateway=1
+soNetDNS1=1
+soNetDNS2=1
+soNetDHCP=1
+soCustomData=1
+sndShowSendDialog=1
+sndShowSuccessFailureMsg=0
+sndSendEntireLog=0
+sndSendXMLLogCopy=0
+sndSendScreenshot=1
+sndUseOnlyActiveWindow=0
+sndSendLastHTMLPage=1
+sndSendInSeparatedThread=0
+sndAddDateInFileName=0
+sndAddComputerNameInFileName=0
+edoSendErrorReportChecked=1
+edoAttachScreenshotChecked=1
+edoShowCopyToClipOption=1
+edoShowDetailsButton=1
+edoShowInDetailedMode=0
+edoShowInTopMostMode=0
+edoUseEurekaLogLookAndFeel=0
+edoShowSendErrorReportOption=1
+edoShowAttachScreenshotOption=1
+edoShowCustomButton=0
+csoShowDLLs=1
+csoShowBPLs=1
+csoShowBorlandThreads=1
+csoShowWindowsThreads=1
+csoDoNotStoreProcNames=0
+boPauseBorlandThreads=0
+boDoNotPauseMainThread=0
+boPauseWindowsThreads=0
+boUseMainModuleOptions=1
+boCopyLogInCaseOfError=1
+boSaveCompressedCopyInCaseOfError=0
+boHandleSafeCallExceptions=1
+boCallRTLExceptionEvent=0
+boCatchHandledExceptions=0
+loCatchLeaks=0
+loGroupsSonLeaks=1
+loHideBorlandLeaks=1
+loFreeAllLeaks=1
+loCatchLeaksExceptions=1
+cfoReduceFileSize=1
+cfoCheckFileCorruption=0
+Count mtInformationMsgCaption=1
+mtInformationMsgCaption0="Information."
+Count mtQuestionMsgCaption=1
+mtQuestionMsgCaption0="Question."
+Count mtErrorMsgCaption=1
+mtErrorMsgCaption0="Error."
+Count mtDialog_Caption=1
+mtDialog_Caption0="Error occurred"
+Count mtDialog_ErrorMsgCaption=2
+mtDialog_ErrorMsgCaption0="An error has occurred during program execution."
+mtDialog_ErrorMsgCaption1="Please read the following information for further details."
+Count mtDialog_GeneralCaption=1
+mtDialog_GeneralCaption0="General"
+Count mtDialog_GeneralHeader=1
+mtDialog_GeneralHeader0="General Information"
+Count mtDialog_CallStackCaption=1
+mtDialog_CallStackCaption0="Call Stack"
+Count mtDialog_CallStackHeader=1
+mtDialog_CallStackHeader0="Call Stack Information"
+Count mtDialog_ModulesCaption=1
+mtDialog_ModulesCaption0="Modules"
+Count mtDialog_ModulesHeader=1
+mtDialog_ModulesHeader0="Modules Information"
+Count mtDialog_ProcessesCaption=1
+mtDialog_ProcessesCaption0="Processes"
+Count mtDialog_ProcessesHeader=1
+mtDialog_ProcessesHeader0="Processes Information"
+Count mtDialog_AsmCaption=1
+mtDialog_AsmCaption0="Assembler"
+Count mtDialog_AsmHeader=1
+mtDialog_AsmHeader0="Assembler Information"
+Count mtDialog_CPUCaption=1
+mtDialog_CPUCaption0="CPU"
+Count mtDialog_CPUHeader=1
+mtDialog_CPUHeader0="CPU Information"
+Count mtDialog_OKButtonCaption=1
+mtDialog_OKButtonCaption0="%26OK"
+Count mtDialog_TerminateButtonCaption=1
+mtDialog_TerminateButtonCaption0="%26Terminate"
+Count mtDialog_RestartButtonCaption=1
+mtDialog_RestartButtonCaption0="%26Restart"
+Count mtDialog_DetailsButtonCaption=1
+mtDialog_DetailsButtonCaption0="%26Details"
+Count mtDialog_CustomButtonCaption=1
+mtDialog_CustomButtonCaption0="%26Help"
+Count mtDialog_SendMessage=1
+mtDialog_SendMessage0="%26Send this error via Internet"
+Count mtDialog_ScreenshotMessage=1
+mtDialog_ScreenshotMessage0="%26Attach a Screenshot image"
+Count mtDialog_CopyMessage=1
+mtDialog_CopyMessage0="%26Copy to Clipboard"
+Count mtDialog_SupportMessage=1
+mtDialog_SupportMessage0="Go to the Support Page"
+Count mtMSDialog_ErrorMsgCaption=1
+mtMSDialog_ErrorMsgCaption0="The application has encountered a problem. We are sorry for the inconvenience."
+Count mtMSDialog_RestartCaption=1
+mtMSDialog_RestartCaption0="Restart application."
+Count mtMSDialog_TerminateCaption=1
+mtMSDialog_TerminateCaption0="Terminate application."
+Count mtMSDialog_PleaseCaption=1
+mtMSDialog_PleaseCaption0="Please tell us about this problem."
+Count mtMSDialog_DescriptionCaption=1
+mtMSDialog_DescriptionCaption0="We have created an error report that you can send to us. We will treat this report as confidential and anonymous."
+Count mtMSDialog_SeeDetailsCaption=1
+mtMSDialog_SeeDetailsCaption0="To see what data the error report contains,"
+Count mtMSDialog_SeeClickCaption=1
+mtMSDialog_SeeClickCaption0="click here."
+Count mtMSDialog_HowToReproduceCaption=1
+mtMSDialog_HowToReproduceCaption0="What were you doing when the problem happended (optional)?"
+Count mtMSDialog_EmailCaption=1
+mtMSDialog_EmailCaption0="Email address (optional):"
+Count mtMSDialog_SendButtonCaption=1
+mtMSDialog_SendButtonCaption0="%26Send Error Report"
+Count mtMSDialog_NoSendButtonCaption=1
+mtMSDialog_NoSendButtonCaption0="%26Don't Send"
+Count mtLog_AppHeader=1
+mtLog_AppHeader0="Application"
+Count mtLog_AppStartDate=1
+mtLog_AppStartDate0="Start Date"
+Count mtLog_AppName=1
+mtLog_AppName0="Name/Description"
+Count mtLog_AppVersionNumber=1
+mtLog_AppVersionNumber0="Version Number"
+Count mtLog_AppParameters=1
+mtLog_AppParameters0="Parameters"
+Count mtLog_AppCompilationDate=1
+mtLog_AppCompilationDate0="Compilation Date"
+Count mtLog_AppUpTime=1
+mtLog_AppUpTime0="Up Time"
+Count mtLog_ExcHeader=1
+mtLog_ExcHeader0="Exception"
+Count mtLog_ExcDate=1
+mtLog_ExcDate0="Date"
+Count mtLog_ExcAddress=1
+mtLog_ExcAddress0="Address"
+Count mtLog_ExcModuleName=1
+mtLog_ExcModuleName0="Module Name"
+Count mtLog_ExcModuleVersion=1
+mtLog_ExcModuleVersion0="Module Version"
+Count mtLog_ExcType=1
+mtLog_ExcType0="Type"
+Count mtLog_ExcMessage=1
+mtLog_ExcMessage0="Message"
+Count mtLog_ExcID=1
+mtLog_ExcID0="ID"
+Count mtLog_ExcCount=1
+mtLog_ExcCount0="Count"
+Count mtLog_ExcStatus=1
+mtLog_ExcStatus0="Status"
+Count mtLog_ExcNote=1
+mtLog_ExcNote0="Note"
+Count mtLog_UserHeader=1
+mtLog_UserHeader0="User"
+Count mtLog_UserID=1
+mtLog_UserID0="ID"
+Count mtLog_UserName=1
+mtLog_UserName0="Name"
+Count mtLog_UserEmail=1
+mtLog_UserEmail0="Email"
+Count mtLog_UserCompany=1
+mtLog_UserCompany0="Company"
+Count mtLog_UserPrivileges=1
+mtLog_UserPrivileges0="Privileges"
+Count mtLog_ActCtrlsHeader=1
+mtLog_ActCtrlsHeader0="Active Controls"
+Count mtLog_ActCtrlsFormClass=1
+mtLog_ActCtrlsFormClass0="Form Class"
+Count mtLog_ActCtrlsFormText=1
+mtLog_ActCtrlsFormText0="Form Text"
+Count mtLog_ActCtrlsControlClass=1
+mtLog_ActCtrlsControlClass0="Control Class"
+Count mtLog_ActCtrlsControlText=1
+mtLog_ActCtrlsControlText0="Control Text"
+Count mtLog_CmpHeader=1
+mtLog_CmpHeader0="Computer"
+Count mtLog_CmpName=1
+mtLog_CmpName0="Name"
+Count mtLog_CmpTotalMemory=1
+mtLog_CmpTotalMemory0="Total Memory"
+Count mtLog_CmpFreeMemory=1
+mtLog_CmpFreeMemory0="Free Memory"
+Count mtLog_CmpTotalDisk=1
+mtLog_CmpTotalDisk0="Total Disk"
+Count mtLog_CmpFreeDisk=1
+mtLog_CmpFreeDisk0="Free Disk"
+Count mtLog_CmpSystemUpTime=1
+mtLog_CmpSystemUpTime0="System Up Time"
+Count mtLog_CmpProcessor=1
+mtLog_CmpProcessor0="Processor"
+Count mtLog_CmpDisplayMode=1
+mtLog_CmpDisplayMode0="Display Mode"
+Count mtLog_CmpDisplayDPI=1
+mtLog_CmpDisplayDPI0="Display DPI"
+Count mtLog_CmpVideoCard=1
+mtLog_CmpVideoCard0="Video Card"
+Count mtLog_CmpPrinter=1
+mtLog_CmpPrinter0="Printer"
+Count mtLog_OSHeader=1
+mtLog_OSHeader0="Operating System"
+Count mtLog_OSType=1
+mtLog_OSType0="Type"
+Count mtLog_OSBuildN=1
+mtLog_OSBuildN0="Build #"
+Count mtLog_OSUpdate=1
+mtLog_OSUpdate0="Update"
+Count mtLog_OSLanguage=1
+mtLog_OSLanguage0="Language"
+Count mtLog_OSCharset=1
+mtLog_OSCharset0="Charset"
+Count mtLog_NetHeader=1
+mtLog_NetHeader0="Network"
+Count mtLog_NetIP=1
+mtLog_NetIP0="IP Address"
+Count mtLog_NetSubmask=1
+mtLog_NetSubmask0="Submask"
+Count mtLog_NetGateway=1
+mtLog_NetGateway0="Gateway"
+Count mtLog_NetDNS1=1
+mtLog_NetDNS10="DNS 1"
+Count mtLog_NetDNS2=1
+mtLog_NetDNS20="DNS 2"
+Count mtLog_NetDHCP=1
+mtLog_NetDHCP0="DHCP"
+Count mtLog_CustInfoHeader=1
+mtLog_CustInfoHeader0="Custom Information"
+Count mtCallStack_Address=1
+mtCallStack_Address0="Address"
+Count mtCallStack_Name=1
+mtCallStack_Name0="Module"
+Count mtCallStack_Unit=1
+mtCallStack_Unit0="Unit"
+Count mtCallStack_Class=1
+mtCallStack_Class0="Class"
+Count mtCallStack_Procedure=1
+mtCallStack_Procedure0="Procedure/Method"
+Count mtCallStack_Line=1
+mtCallStack_Line0="Line"
+Count mtCallStack_MainThread=1
+mtCallStack_MainThread0="Main"
+Count mtCallStack_ExceptionThread=1
+mtCallStack_ExceptionThread0="Exception Thread"
+Count mtCallStack_RunningThread=1
+mtCallStack_RunningThread0="Running Thread"
+Count mtCallStack_CallingThread=1
+mtCallStack_CallingThread0="Calling Thread"
+Count mtCallStack_ThreadID=1
+mtCallStack_ThreadID0="ID"
+Count mtCallStack_ThreadPriority=1
+mtCallStack_ThreadPriority0="Priority"
+Count mtCallStack_ThreadClass=1
+mtCallStack_ThreadClass0="Class"
+Count mtCallStack_LeakCaption=1
+mtCallStack_LeakCaption0="Memory Leak"
+Count mtCallStack_LeakData=1
+mtCallStack_LeakData0="Data"
+Count mtCallStack_LeakType=1
+mtCallStack_LeakType0="Type"
+Count mtCallStack_LeakSize=1
+mtCallStack_LeakSize0="Total size"
+Count mtCallStack_LeakCount=1
+mtCallStack_LeakCount0="Count"
+Count mtSendDialog_Caption=1
+mtSendDialog_Caption0="Send."
+Count mtSendDialog_Message=1
+mtSendDialog_Message0="Message"
+Count mtSendDialog_Resolving=1
+mtSendDialog_Resolving0="Resolving DNS..."
+Count mtSendDialog_Login=1
+mtSendDialog_Login0="Login..."
+Count mtSendDialog_Connecting=1
+mtSendDialog_Connecting0="Connecting with server..."
+Count mtSendDialog_Connected=1
+mtSendDialog_Connected0="Connected with server."
+Count mtSendDialog_Sending=1
+mtSendDialog_Sending0="Sending message..."
+Count mtSendDialog_Sent=1
+mtSendDialog_Sent0="Message sent."
+Count mtSendDialog_SelectProject=1
+mtSendDialog_SelectProject0="Select project..."
+Count mtSendDialog_Searching=1
+mtSendDialog_Searching0="Searching..."
+Count mtSendDialog_Modifying=1
+mtSendDialog_Modifying0="Modifying..."
+Count mtSendDialog_Disconnecting=1
+mtSendDialog_Disconnecting0="Disconnecting..."
+Count mtSendDialog_Disconnected=1
+mtSendDialog_Disconnected0="Disconnected."
+Count mtReproduceDialog_Caption=1
+mtReproduceDialog_Caption0="Request"
+Count mtReproduceDialog_Request=1
+mtReproduceDialog_Request0="Please describe the steps to reproduce the error:"
+Count mtReproduceDialog_OKButtonCaption=1
+mtReproduceDialog_OKButtonCaption0="%26OK"
+Count mtModules_Handle=1
+mtModules_Handle0="Handle"
+Count mtModules_Name=1
+mtModules_Name0="Name"
+Count mtModules_Description=1
+mtModules_Description0="Description"
+Count mtModules_Version=1
+mtModules_Version0="Version"
+Count mtModules_Size=1
+mtModules_Size0="Size"
+Count mtModules_LastModified=1
+mtModules_LastModified0="Modified"
+Count mtModules_Path=1
+mtModules_Path0="Path"
+Count mtProcesses_ID=1
+mtProcesses_ID0="ID"
+Count mtProcesses_Name=1
+mtProcesses_Name0="Name"
+Count mtProcesses_Description=1
+mtProcesses_Description0="Description"
+Count mtProcesses_Version=1
+mtProcesses_Version0="Version"
+Count mtProcesses_Memory=1
+mtProcesses_Memory0="Memory"
+Count mtProcesses_Priority=1
+mtProcesses_Priority0="Priority"
+Count mtProcesses_Threads=1
+mtProcesses_Threads0="Threads"
+Count mtProcesses_Path=1
+mtProcesses_Path0="Path"
+Count mtCPU_Registers=1
+mtCPU_Registers0="Registers"
+Count mtCPU_Stack=1
+mtCPU_Stack0="Stack"
+Count mtCPU_MemoryDump=1
+mtCPU_MemoryDump0="Memory Dump"
+Count mtSend_SuccessMsg=1
+mtSend_SuccessMsg0="The message was sent successfully."
+Count mtSend_FailureMsg=1
+mtSend_FailureMsg0="Sorry, sending the message didn't work."
+Count mtSend_BugClosedMsg=2
+mtSend_BugClosedMsg0="These BUG is just closed."
+mtSend_BugClosedMsg1="Contact the program support to obtain an update."
+Count mtSend_UnknownErrorMsg=1
+mtSend_UnknownErrorMsg0="Unknown error."
+Count mtSend_InvalidLoginMsg=1
+mtSend_InvalidLoginMsg0="Invalid login request."
+Count mtSend_InvalidSearchMsg=1
+mtSend_InvalidSearchMsg0="Invalid search request."
+Count mtSend_InvalidSelectionMsg=1
+mtSend_InvalidSelectionMsg0="Invalid selection request."
+Count mtSend_InvalidInsertMsg=1
+mtSend_InvalidInsertMsg0="Invalid insert request."
+Count mtSend_InvalidModifyMsg=1
+mtSend_InvalidModifyMsg0="Invalid modify request."
+Count mtFileCrackedMsg=2
+mtFileCrackedMsg0="This file is cracked."
+mtFileCrackedMsg1="The application will be closed."
+Count mtException_LeakMultiFree=1
+mtException_LeakMultiFree0="Multi Free memory leak."
+Count mtException_LeakMemoryOverrun=1
+mtException_LeakMemoryOverrun0="Memory Overrun leak."
+Count mtException_AntiFreeze=1
+mtException_AntiFreeze0="The application seems to be frozen."
+Count mtInvalidEmailMsg=1
+mtInvalidEmailMsg0="Invalid email."
+TextsCollection=English
+EurekaLog Last Line -->

Source/Modulos/Delegaciones/Views/uDelegacionesViewRegister.pas

@@ -0,0 +1,23 @@
+unit uDelegacionesViewRegister;
+
+interface
+
+procedure RegisterViews;
+procedure UnregisterViews;
+
+implementation
+
+uses
+  uEditorRegistryUtils, uEditorDelegaciones;
+
+procedure RegisterViews;
+begin
+  EditorRegistry.RegisterClass(TfEditorDelegaciones, 'EditorDelegaciones');
+end;
+
+procedure UnregisterViews;
+begin
+  EditorRegistry.UnRegisterClass(TfEditorDelegaciones);
+end;
+
+end.

Source/Modulos/Delegaciones/Views/uEditorDelegaciones.dfm

@@ -0,0 +1,144 @@
+object fEditorDelegaciones: TfEditorDelegaciones
+  Left = 453
+  Top = 234
+  ActiveControl = ListaDelegaciones
+  BorderIcons = [biSystemMenu]
+  BorderStyle = bsSingle
+  Caption = 'Administraci'#243'n de delegaciones'
+  ClientHeight = 494
+  ClientWidth = 404
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = CustomEditorClose
+  OnShow = FormShow
+  InstanceID = 0
+  ReadOnly = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object bAceptar: TButton
+    Left = 235
+    Top = 462
+    Width = 75
+    Height = 23
+    Action = actAceptar
+    Default = True
+    TabOrder = 1
+  end
+  object bCancelar: TButton
+    Left = 321
+    Top = 462
+    Width = 75
+    Height = 23
+    Action = actCancelar
+    Cancel = True
+    TabOrder = 2
+  end
+  object PageControl1: TPageControl
+    Left = 8
+    Top = 8
+    Width = 390
+    Height = 442
+    ActivePage = TabSheet1
+    TabOrder = 0
+    object TabSheet1: TTabSheet
+      Caption = 'Delegaciones'
+      object Label1: TLabel
+        Left = 10
+        Top = 12
+        Width = 158
+        Height = 13
+        Caption = 'Lista de delegaciones disponibles'
+      end
+      object Label2: TLabel
+        Left = 10
+        Top = 326
+        Width = 139
+        Height = 13
+        Caption = 'A'#241'adir una nueva delegaci'#243'n'
+      end
+      object Bevel1: TBevel
+        Left = 187
+        Top = 330
+        Width = 189
+        Height = 5
+        Shape = bsBottomLine
+      end
+      object eCategoria: TLabel
+        Left = 18
+        Top = 353
+        Width = 40
+        Height = 13
+        Caption = 'Nombre:'
+      end
+      object ListaDelegaciones: TDBLookupListBox
+        Left = 8
+        Top = 31
+        Width = 262
+        Height = 277
+        KeyField = 'RecID'
+        ListField = 'DESCRIPCION'
+        ListSource = DADataSource
+        TabOrder = 0
+      end
+      object bEliminar: TButton
+        Left = 281
+        Top = 31
+        Width = 95
+        Height = 23
+        Action = actEliminar
+        TabOrder = 1
+      end
+      object editDelegacion: TEdit
+        Left = 64
+        Top = 349
+        Width = 312
+        Height = 21
+        TabOrder = 2
+      end
+      object bAnadir: TButton
+        Left = 281
+        Top = 382
+        Width = 95
+        Height = 23
+        Action = actAnadir
+        TabOrder = 3
+      end
+    end
+  end
+  object ActionList1: TActionList
+    Left = 144
+    Top = 16
+    object actAnadir: TAction
+      Caption = '&A'#241'adir'
+      OnExecute = actAnadirExecute
+      OnUpdate = actAnadirUpdate
+    end
+    object actEliminar: TAction
+      Caption = '&Eliminar'
+      OnExecute = actEliminarExecute
+      OnUpdate = actEliminarUpdate
+    end
+    object actAceptar: TAction
+      Caption = 'A&ceptar'
+      OnExecute = actAceptarExecute
+    end
+    object actCancelar: TAction
+      Caption = '&Cancelar'
+      OnExecute = actCancelarExecute
+    end
+    object actCerrar: TAction
+      Caption = 'actCerrar'
+      OnExecute = actCerrarExecute
+    end
+  end
+  object DADataSource: TDADataSource
+    Left = 168
+    Top = 16
+  end
+end

Source/Modulos/Delegaciones/Views/uEditorDelegaciones.pas

@@ -0,0 +1,181 @@
+{
+===============================================================================
+  Copyright (©) 2006. Rodax Software.
+===============================================================================
+  Los contenidos de este fichero son propiedad de Rodax Software titular del
+  copyright. Este fichero sólo podrá ser copiado, distribuido y utilizado,
+  en su totalidad o en parte, con el permiso escrito de Rodax Software, o de
+  acuerdo con los términos y condiciones establecidas en el acuerdo/contrato
+  bajo el que se suministra.
+  -----------------------------------------------------------------------------
+  Web:  www.rodax-software.com
+===============================================================================
+  Fecha primera versión: 22-05-2006
+  Versión actual: 1.0.0
+  Fecha versión actual: 22-05-2006
+===============================================================================
+  Modificaciones:
+
+    Fecha         Comentarios
+    ---------------------------------------------------------------------------
+===============================================================================
+}
+
+unit uEditorDelegaciones;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, DB, StdCtrls, DBCtrls, uDADataTable, ActnList,
+  uIEditorDelegaciones, uCustomEditor, uGUIBase, ExtCtrls,
+  ComCtrls, uBizDelegaciones, uDelegacionesController, uDAInterfaces;
+
+type
+  TfEditorDelegaciones = class(TCustomEditor, IEditorDelegaciones)
+    ActionList1: TActionList;
+    DADataSource: TDADataSource;
+    ListaDelegaciones: TDBLookupListBox;
+    actAnadir: TAction;
+    actEliminar: TAction;
+    bEliminar: TButton;
+    actAceptar: TAction;
+    actCancelar: TAction;
+    bAceptar: TButton;
+    bCancelar: TButton;
+    actCerrar: TAction;
+    PageControl1: TPageControl;
+    TabSheet1: TTabSheet;
+    Label1: TLabel;
+    Label2: TLabel;
+    Bevel1: TBevel;
+    eCategoria: TLabel;
+    editDelegacion: TEdit;
+    bAnadir: TButton;
+    procedure FormShow(Sender: TObject);
+    procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+
+    procedure actAnadirExecute(Sender: TObject);
+    procedure actEliminarExecute(Sender: TObject);
+    procedure actAceptarExecute(Sender: TObject);
+    procedure actCancelarExecute(Sender: TObject);
+    procedure actCerrarExecute(Sender: TObject);
+    procedure actAnadirUpdate(Sender: TObject);
+    procedure actEliminarUpdate(Sender: TObject);
+  protected
+    FDelegaciones: IBizDelegacion;
+    FController: IDelegacionesController;
+    function GetDelegaciones: IBizDelegacion;
+    procedure SetDelegaciones(const Value: IBizDelegacion);
+    function GetController : IDelegacionesController;
+    procedure SetController (const Value : IDelegacionesController);
+  public
+    property Delegaciones: IBizDelegacion read GetDelegaciones write SetDelegaciones;
+    property Controller : IDelegacionesController read GetController write SetController;
+  end;
+
+
+implementation
+{$R *.dfm}
+
+{ TfEditorDelegaciones }
+
+uses
+  uDialogUtils;
+
+function TfEditorDelegaciones.GetController: IDelegacionesController;
+begin
+  Result := FController;
+end;
+
+function TfEditorDelegaciones.GetDelegaciones: IBizDelegacion;
+begin
+  Result := FDelegaciones;
+end;
+
+procedure TfEditorDelegaciones.SetController(const Value: IDelegacionesController);
+begin
+  FController := Value;
+end;
+
+procedure TfEditorDelegaciones.SetDelegaciones(const Value: IBizDelegacion);
+begin
+  FDelegaciones := Value;
+  DADataSource.DataTable := (FDelegaciones as IBizDelegacion).DataTable;
+  DADataSource.DataTable.Open;
+end;
+
+procedure TfEditorDelegaciones.actAnadirExecute(Sender: TObject);
+begin
+  if not FController.Localizar(Delegaciones, editDelegacion.Text) then
+  begin
+    Delegaciones.Append;
+    Delegaciones.DESCRIPCION := editDelegacion.Text;
+    Delegaciones.Post;
+    editDelegacion.Clear;
+    ListaDelegaciones.SetFocus;
+  end
+  else
+    ShowErrorMessage('Ya existe la unidad ' + editDelegacion.Text,
+      'Ya existe la unidad ''' + editDelegacion.Text + ''' en la lista.');
+end;
+
+procedure TfEditorDelegaciones.actEliminarExecute(Sender: TObject);
+begin
+  Delegaciones.Delete;
+  ListaDelegaciones.SetFocus;
+end;
+
+procedure TfEditorDelegaciones.actEliminarUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := (FDelegaciones.DataTable.RecordCount > 0) and
+                                  (Length(ListaDelegaciones.SelectedItem) > 0);
+
+end;
+
+procedure TfEditorDelegaciones.CustomEditorClose(Sender: TObject; var Action: TCloseAction);
+begin
+  FDelegaciones := Nil;
+  FController := Nil;
+end;
+
+procedure TfEditorDelegaciones.actAceptarExecute(Sender: TObject);
+begin
+  try
+    Delegaciones.DataTable.ApplyUpdates;
+  except
+    on E : Exception do begin
+      Delegaciones.DataTable.CancelUpdates;
+      ShowErrorMessage('Error al guardar cambios', 'Se ha producido un error grave', E);
+      exit;
+    end;
+  end;
+  actCerrar.Execute;
+end;
+
+procedure TfEditorDelegaciones.actCancelarExecute(Sender: TObject);
+begin
+  Delegaciones.DataTable.CancelUpdates;
+  actCerrar.Execute;
+end;
+
+procedure TfEditorDelegaciones.actCerrarExecute(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfEditorDelegaciones.actAnadirUpdate(Sender: TObject);
+begin
+  (Sender as TAction).Enabled := (Length(editDelegacion.Text) > 0)
+end;
+
+procedure TfEditorDelegaciones.FormShow(Sender: TObject);
+begin
+  if not FDelegaciones.DataTable.Active then
+     FDelegaciones.DataTable.Active := true;
+
+  FDelegaciones.DataTable.Sort(['DESCRIPCION'], [sdAscending]);
+  EditDelegacion.SetFocus;
+end;
+
+end.

Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas

@@ -7,7 +7,7 @@ interface
 uses
   Classes, SysUtils, Variants, uDADataTable, uControllerBase, uIDataModuleFacturasCliente,
   uClientesController, uDetallesFacturaClienteController, uBizAlbaranesCliente,
-  uBizFacturasCliente, uBizDireccionesContacto;
+  uBizFacturasCliente, uBizDireccionesContacto, uBizContactos;
 
 type
   IFacturasClienteController = interface(IControllerBase)
@@ -56,6 +56,7 @@ type
 
     function darTiposFacturaCliente: IBizTiposFacturaCliente;
     function AsignarTipoOperacion(AFacturas: IBizFacturaCliente): Boolean;
+    function CambiarComercial(AFactura : IBizFacturaCliente; AComercial: IBizComercial): Boolean;
   end;
 
   TFacturasClienteController = class(TControllerBase, IFacturasClienteController)
@@ -126,6 +127,7 @@ type
 
     function darTiposFacturaCliente: IBizTiposFacturaCliente;
     function AsignarTipoOperacion(AFacturas: IBizFacturaCliente): Boolean;
+    function CambiarComercial(AFactura : IBizFacturaCliente; AComercial: IBizComercial): Boolean;    
   end;
 
 implementation
@@ -133,7 +135,7 @@ implementation
 
 uses
   Windows, uDateUtils, uNumUtils, Controls, cxControls, DB, uEditorRegistryUtils, schFacturasClienteClient_Intf,
-  uBizContactos, uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
+  uIEditorFacturasCliente, uIEditorFacturaCliente, uFactuGES_App,
   uDataModuleFacturasCliente, uBizDetallesFacturaCliente, uControllerDetallesBase,
   uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uAlbaranesClienteController,
   schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
@@ -624,6 +626,34 @@ begin
   FiltrarEmpresa(Result);
 end;
 
+function TFacturasClienteController.CambiarComercial(
+  AFactura: IBizFacturaCliente; AComercial: IBizComercial): Boolean;
+var
+  bEnEdicion : Boolean;
+
+begin
+  if not Assigned(AFactura) then
+    raise Exception.Create ('AContrato no asignado');
+
+  ShowHourglassCursor;
+  try
+    bEnEdicion := (AFactura.DataTable.State in dsEditModes);
+    if not bEnEdicion then
+      AFactura.Edit;
+
+    AFactura.DataTable.Edit;
+    AFactura.ID_AGENTE := AComercial.ID;
+    AFactura.NOMBRE_AGENTE := AComercial.NOMBRE;
+    AFactura.DELEGACION := AComercial.DELEGACION;
+
+    if not bEnEdicion then
+      AFactura.Post;
+
+  finally
+    HideHourglassCursor;
+  end;
+end;
+
 procedure TFacturasClienteController.CopiarDireccion(
   const ADireccionEnvio: IBizDireccionesContacto; AFactura: IBizFacturaCliente);
 var
@@ -1015,6 +1045,13 @@ begin
     Result := False;
     AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser eliminada';
   end;
+
+  if not AFactura.FAC_PROV_GRADENIsNull then
+  begin
+    Result := False;
+    AComentario := 'La factura esta generada en Graden como factura de proveedor, elimine primero esa factura';
+  end;
+
 {
   else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
   begin
@@ -1060,6 +1097,13 @@ begin
     Result := False;
     AComentario := 'La factura esta parcial o totalmente pagada, por lo que no puede ser modificada';
   end;
+
+  if not AFactura.FAC_PROV_GRADENIsNull then
+  begin
+    Result := False;
+    AComentario := 'La factura esta generada en Graden como factura de proveedor, elimine primero esa factura';
+  end;
+
 {
   else if (AFactura.ESTADO_EJERCICIO = CTE_CERRADO) then
   begin

Source/Modulos/Facturas de cliente/Data/FacturasCliente_data.dproj

@@ -49,7 +49,7 @@
     <DelphiCompile Include="FacturasCliente_data.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\..\..\Servidor\FacturasCliente_model.dcp" />
+    <DCCReference Include="..\FacturasCliente_model.dcp" />
     <DCCReference Include="uDataModuleFacturasCliente.pas">
       <Form>DataModuleFacturasCliente</Form>
       <DesignClass>TDAClientDataModule</DesignClass>

Source/Modulos/Facturas de cliente/Data/uDataModuleFacturasCliente.dfm

@@ -264,11 +264,6 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         Alignment = taRightJustify
         DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
       end
-      item
-        Name = 'ID_AGENTE'
-        DataType = datInteger
-        DictionaryEntry = 'FacturasCliente_ID_AGENTE'
-      end
       item
         Name = 'REFERENCIA_COMISION'
         DataType = datString
@@ -373,6 +368,25 @@ inherited DataModuleFacturasCliente: TDataModuleFacturasCliente
         DataType = datString
         Size = 2000
         ServerAutoRefresh = True
+      end
+      item
+        Name = 'ID_AGENTE'
+        DataType = datInteger
+        DictionaryEntry = 'FacturasCliente_ID_AGENTE'
+      end
+      item
+        Name = 'NOMBRE_AGENTE'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'DELEGACION'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'FAC_PROV_GRADEN'
+        DataType = datSmallInt
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Facturas de cliente/FacturasCliente_Group.groupproj

@@ -17,6 +17,7 @@
     <Projects Include="..\Contactos\Data\Contactos_data.dproj" />
     <Projects Include="..\Contactos\Model\Contactos_model.dproj" />
     <Projects Include="..\Contactos\Views\Contactos_view.dproj" />
+    <Projects Include="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" />
     <Projects Include="..\Contratos de cliente\Views\ContratosCliente_view.dproj" />
     <Projects Include="..\Facturas de proveedor\Controller\FacturasProveedor_controller.dproj" />
     <Projects Include="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" />
@@ -31,6 +32,7 @@
     <Projects Include="..\Presupuestos de cliente\Views\PresupuestosCliente_view.dproj" />
     <Projects Include="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" />
     <Projects Include="..\Relaciones\Contratos de cliente - Facturas de cliente\ConCli_FacCli_relation.dproj" />
+    <Projects Include="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" />
     <Projects Include="..\Tipos de operacion venta\Controller\TiposOperacionVenta_controller.dproj" />
     <Projects Include="Controller\FacturasCliente_controller.dproj" />
     <Projects Include="Data\FacturasCliente_data.dproj" />
@@ -206,15 +208,6 @@
   <Target Name="Contabilidad_view:Make">
     <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
   </Target>
-  <Target Name="AlbCli_FacCli_relation">
-    <MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
-  </Target>
-  <Target Name="AlbCli_FacCli_relation:Clean">
-    <MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
-  </Target>
-  <Target Name="AlbCli_FacCli_relation:Make">
-    <MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
-  </Target>
   <Target Name="FacturasCliente_view">
     <MSBuild Projects="Views\FacturasCliente_view.dproj" Targets="" />
   </Target>
@@ -314,15 +307,6 @@
   <Target Name="FacturasProveedor_model:Make">
     <MSBuild Projects="..\Facturas de proveedor\Model\FacturasProveedor_model.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_data">
     <MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.dproj" Targets="" />
   </Target>
@@ -332,6 +316,15 @@
   <Target Name="FacturasProveedor_data:Make">
     <MSBuild Projects="..\Facturas de proveedor\Data\FacturasProveedor_data.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="TiposOperacionVenta_controller">
     <MSBuild Projects="..\Tipos de operacion venta\Controller\TiposOperacionVenta_controller.dproj" Targets="" />
   </Target>
@@ -341,14 +334,41 @@
   <Target Name="TiposOperacionVenta_controller:Make">
     <MSBuild Projects="..\Tipos de operacion venta\Controller\TiposOperacionVenta_controller.dproj" Targets="Make" />
   </Target>
+  <Target Name="FacCli_FacProv_relation">
+    <MSBuild Projects="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" Targets="" />
+  </Target>
+  <Target Name="FacCli_FacProv_relation:Clean">
+    <MSBuild Projects="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="FacCli_FacProv_relation:Make">
+    <MSBuild Projects="..\Relaciones\Facturas de cliente - Facturas de Proveedor\FacCli_FacProv_relation.dproj" Targets="Make" />
+  </Target>
+  <Target Name="AlbCli_FacCli_relation">
+    <MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="" />
+  </Target>
+  <Target Name="AlbCli_FacCli_relation:Clean">
+    <MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="AlbCli_FacCli_relation:Make">
+    <MSBuild Projects="..\Relaciones\Albaranes de cliente - Facturas de cliente\AlbCli_FacCli_relation.dproj" Targets="Make" />
+  </Target>
+  <Target Name="ContratosCliente_controller">
+    <MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="" />
+  </Target>
+  <Target Name="ContratosCliente_controller:Clean">
+    <MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="ContratosCliente_controller:Make">
+    <MSBuild Projects="..\Contratos de cliente\Controller\ContratosCliente_controller.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;AlbCli_FacCli_relation;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;PresupuestosCliente_view;ConCli_FacCli_relation;AlbaranesCliente_view;PresupuestosCliente_controller;FacturasProveedor_view;FacturasProveedor_model;FacturasProveedor_controller;FacturasProveedor_data;TiposOperacionVenta_controller" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Articulos_controller;Articulos_view;GestorInformes_model;GestorInformes_data;GestorInformes_controller;GestorInformes_view;GestorInformes_plugin;FacturasCliente_model;FacturasCliente_data;FacturasCliente_controller;Contabilidad_view;FacturasCliente_view;FacturasCliente_plugin;FactuGES;FactuGES_Server;ContratosCliente_view;PresupuestosCliente_view;ConCli_FacCli_relation;AlbaranesCliente_view;PresupuestosCliente_controller;FacturasProveedor_view;FacturasProveedor_model;FacturasProveedor_data;FacturasProveedor_controller;TiposOperacionVenta_controller;FacCli_FacProv_relation;AlbCli_FacCli_relation;ContratosCliente_controller" />
   </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_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;AlbCli_FacCli_relation:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;PresupuestosCliente_view:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_controller:Clean;FacturasProveedor_data:Clean;TiposOperacionVenta_controller:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Articulos_controller:Clean;Articulos_view:Clean;GestorInformes_model:Clean;GestorInformes_data:Clean;GestorInformes_controller:Clean;GestorInformes_view:Clean;GestorInformes_plugin:Clean;FacturasCliente_model:Clean;FacturasCliente_data:Clean;FacturasCliente_controller:Clean;Contabilidad_view:Clean;FacturasCliente_view:Clean;FacturasCliente_plugin:Clean;FactuGES:Clean;FactuGES_Server:Clean;ContratosCliente_view:Clean;PresupuestosCliente_view:Clean;ConCli_FacCli_relation:Clean;AlbaranesCliente_view:Clean;PresupuestosCliente_controller:Clean;FacturasProveedor_view:Clean;FacturasProveedor_model:Clean;FacturasProveedor_data:Clean;FacturasProveedor_controller:Clean;TiposOperacionVenta_controller:Clean;FacCli_FacProv_relation:Clean;AlbCli_FacCli_relation:Clean;ContratosCliente_controller: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_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;AlbCli_FacCli_relation:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;PresupuestosCliente_view:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_model:Make;FacturasProveedor_controller:Make;FacturasProveedor_data:Make;TiposOperacionVenta_controller:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Articulos_controller:Make;Articulos_view:Make;GestorInformes_model:Make;GestorInformes_data:Make;GestorInformes_controller:Make;GestorInformes_view:Make;GestorInformes_plugin:Make;FacturasCliente_model:Make;FacturasCliente_data:Make;FacturasCliente_controller:Make;Contabilidad_view:Make;FacturasCliente_view:Make;FacturasCliente_plugin:Make;FactuGES:Make;FactuGES_Server:Make;ContratosCliente_view:Make;PresupuestosCliente_view:Make;ConCli_FacCli_relation:Make;AlbaranesCliente_view:Make;PresupuestosCliente_controller:Make;FacturasProveedor_view:Make;FacturasProveedor_model:Make;FacturasProveedor_data:Make;FacturasProveedor_controller:Make;TiposOperacionVenta_controller:Make;FacCli_FacProv_relation:Make;AlbCli_FacCli_relation:Make;ContratosCliente_controller:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Facturas de cliente/Model/schFacturasClienteClient_Intf.pas

@@ -9,10 +9,10 @@ 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_ListaAnosFacturas = '{700A8C26-CB78-4B2A-9180-1C8EBE14F1F5}';
+  RID_ListaAnosFacturas = '{F3F303D6-2BD6-488C-8EC6-59A7E2210135}';
-  RID_TiposFacturaCliente = '{16878B47-BBFA-49B8-A8B6-0BEC17027198}';
+  RID_TiposFacturaCliente = '{5475F954-9599-46FE-A594-639F265EF7A0}';
-  RID_FacturasCliente = '{F4246ABE-0846-4389-BD4C-6FE2438F1AEF}';
+  RID_FacturasCliente = '{13DB33BB-F3FB-4E18-B10A-2803B88F4180}';
-  RID_FacturasCliente_Detalles = '{8E519944-EB60-4DA6-86B3-6F834F0AD6F5}';
+  RID_FacturasCliente_Detalles = '{859E9235-FF09-4949-8207-9D23DDC04353}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -72,7 +72,6 @@ const
   fld_FacturasClienteID_TIPO_IVA = 'ID_TIPO_IVA';
   fld_FacturasClienteIMPORTE_NETO = 'IMPORTE_NETO';
   fld_FacturasClienteIMPORTE_PORTE = 'IMPORTE_PORTE';
-  fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
   fld_FacturasClienteREFERENCIA_COMISION = 'REFERENCIA_COMISION';
   fld_FacturasClienteIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
   fld_FacturasClienteID_TIENDA = 'ID_TIENDA';
@@ -91,6 +90,10 @@ const
   fld_FacturasClienteFECHA_RETENCION = 'FECHA_RETENCION';
   fld_FacturasClienteID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
   fld_FacturasClienteTIPO_OPERACION = 'TIPO_OPERACION';
+  fld_FacturasClienteID_AGENTE = 'ID_AGENTE';
+  fld_FacturasClienteNOMBRE_AGENTE = 'NOMBRE_AGENTE';
+  fld_FacturasClienteDELEGACION = 'DELEGACION';
+  fld_FacturasClienteFAC_PROV_GRADEN = 'FAC_PROV_GRADEN';
 
   { FacturasCliente field indexes }
   idx_FacturasClienteID = 0;
@@ -130,25 +133,28 @@ const
   idx_FacturasClienteID_TIPO_IVA = 34;
   idx_FacturasClienteIMPORTE_NETO = 35;
   idx_FacturasClienteIMPORTE_PORTE = 36;
-  idx_FacturasClienteID_AGENTE = 37;
+  idx_FacturasClienteREFERENCIA_COMISION = 37;
-  idx_FacturasClienteREFERENCIA_COMISION = 38;
+  idx_FacturasClienteIGNORAR_CONTABILIDAD = 38;
-  idx_FacturasClienteIGNORAR_CONTABILIDAD = 39;
+  idx_FacturasClienteID_TIENDA = 39;
-  idx_FacturasClienteID_TIENDA = 40;
+  idx_FacturasClienteTIENDA = 40;
-  idx_FacturasClienteTIENDA = 41;
+  idx_FacturasClienteID_SUBCUENTA = 41;
-  idx_FacturasClienteID_SUBCUENTA = 42;
+  idx_FacturasClienteSUBCUENTA = 42;
-  idx_FacturasClienteSUBCUENTA = 43;
+  idx_FacturasClienteID_EJERCICIO = 43;
-  idx_FacturasClienteID_EJERCICIO = 44;
+  idx_FacturasClienteESTADO_EJERCICIO = 44;
-  idx_FacturasClienteESTADO_EJERCICIO = 45;
+  idx_FacturasClienteASIENTO_PUNTEADO = 45;
-  idx_FacturasClienteASIENTO_PUNTEADO = 46;
+  idx_FacturasClienteID_CONTRATO = 46;
-  idx_FacturasClienteID_CONTRATO = 47;
+  idx_FacturasClienteREF_CONTRATO = 47;
-  idx_FacturasClienteREF_CONTRATO = 48;
+  idx_FacturasClienteREF_CLI_CONTRATO = 48;
-  idx_FacturasClienteREF_CLI_CONTRATO = 49;
+  idx_FacturasClienteSIN_COMISION = 49;
-  idx_FacturasClienteSIN_COMISION = 50;
+  idx_FacturasClienteRETENCION = 50;
-  idx_FacturasClienteRETENCION = 51;
+  idx_FacturasClienteIMPORTE_RETENCION = 51;
-  idx_FacturasClienteIMPORTE_RETENCION = 52;
+  idx_FacturasClienteFECHA_RETENCION = 52;
-  idx_FacturasClienteFECHA_RETENCION = 53;
+  idx_FacturasClienteID_TIPO_FACTURA = 53;
-  idx_FacturasClienteID_TIPO_FACTURA = 54;
+  idx_FacturasClienteTIPO_OPERACION = 54;
-  idx_FacturasClienteTIPO_OPERACION = 55;
+  idx_FacturasClienteID_AGENTE = 55;
+  idx_FacturasClienteNOMBRE_AGENTE = 56;
+  idx_FacturasClienteDELEGACION = 57;
+  idx_FacturasClienteFAC_PROV_GRADEN = 58;
 
   { FacturasCliente_Detalles fields }
   fld_FacturasCliente_DetallesID = 'ID';
@@ -187,7 +193,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{97C76BDF-F243-45CF-83A8-3389872A1C88}']
+  ['{6026D89F-F37C-4A1C-A0A8-9B63684B5465}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -222,7 +228,7 @@ type
 
   { ITiposFacturaCliente }
   ITiposFacturaCliente = interface(IDAStronglyTypedDataTable)
-  ['{9B6B81C1-044C-4B79-8686-B938DB928895}']
+  ['{84DB4B7B-97D0-4F3C-856D-04955CA693D9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -269,7 +275,7 @@ type
 
   { IFacturasCliente }
   IFacturasCliente = interface(IDAStronglyTypedDataTable)
-  ['{53DF775E-B4D1-4621-836B-EE16A1A631FC}']
+  ['{79E22398-5A04-431C-BBDC-C5CE92FBA8E5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -418,10 +424,6 @@ type
     procedure SetIMPORTE_PORTEValue(const aValue: Currency);
     function GetIMPORTE_PORTEIsNull: Boolean;
     procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean);
-    function GetID_AGENTEValue: Integer;
-    procedure SetID_AGENTEValue(const aValue: Integer);
-    function GetID_AGENTEIsNull: Boolean;
-    procedure SetID_AGENTEIsNull(const aValue: Boolean);
     function GetREFERENCIA_COMISIONValue: String;
     procedure SetREFERENCIA_COMISIONValue(const aValue: String);
     function GetREFERENCIA_COMISIONIsNull: Boolean;
@@ -494,6 +496,22 @@ type
     procedure SetTIPO_OPERACIONValue(const aValue: String);
     function GetTIPO_OPERACIONIsNull: Boolean;
     procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean);
+    function GetID_AGENTEValue: Integer;
+    procedure SetID_AGENTEValue(const aValue: Integer);
+    function GetID_AGENTEIsNull: Boolean;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean);
+    function GetNOMBRE_AGENTEValue: String;
+    procedure SetNOMBRE_AGENTEValue(const aValue: String);
+    function GetNOMBRE_AGENTEIsNull: Boolean;
+    procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
+    function GetDELEGACIONValue: String;
+    procedure SetDELEGACIONValue(const aValue: String);
+    function GetDELEGACIONIsNull: Boolean;
+    procedure SetDELEGACIONIsNull(const aValue: Boolean);
+    function GetFAC_PROV_GRADENValue: SmallInt;
+    procedure SetFAC_PROV_GRADENValue(const aValue: SmallInt);
+    function GetFAC_PROV_GRADENIsNull: Boolean;
+    procedure SetFAC_PROV_GRADENIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -571,8 +589,6 @@ type
     property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
     property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
-    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
-    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
     property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
@@ -609,6 +625,14 @@ type
     property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
     property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
     property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
+    property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+    property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+    property FAC_PROV_GRADEN: SmallInt read GetFAC_PROV_GRADENValue write SetFAC_PROV_GRADENValue;
+    property FAC_PROV_GRADENIsNull: Boolean read GetFAC_PROV_GRADENIsNull write SetFAC_PROV_GRADENIsNull;
   end;
 
   { TFacturasClienteDataTableRules }
@@ -765,10 +789,6 @@ type
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
     function GetIMPORTE_PORTEIsNull: Boolean; virtual;
     procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
-    function GetID_AGENTEValue: Integer; virtual;
-    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
-    function GetID_AGENTEIsNull: Boolean; virtual;
-    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIA_COMISIONValue: String; virtual;
     procedure SetREFERENCIA_COMISIONValue(const aValue: String); virtual;
     function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
@@ -841,6 +861,22 @@ type
     procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
     function GetTIPO_OPERACIONIsNull: Boolean; virtual;
     procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_AGENTEValue: String; virtual;
+    procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
+    function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
+    procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetDELEGACIONValue: String; virtual;
+    procedure SetDELEGACIONValue(const aValue: String); virtual;
+    function GetDELEGACIONIsNull: Boolean; virtual;
+    procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
+    function GetFAC_PROV_GRADENValue: SmallInt; virtual;
+    procedure SetFAC_PROV_GRADENValue(const aValue: SmallInt); virtual;
+    function GetFAC_PROV_GRADENIsNull: Boolean; virtual;
+    procedure SetFAC_PROV_GRADENIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -917,8 +953,6 @@ type
     property IMPORTE_NETOIsNull: Boolean read GetIMPORTE_NETOIsNull write SetIMPORTE_NETOIsNull;
     property IMPORTE_PORTE: Currency read GetIMPORTE_PORTEValue write SetIMPORTE_PORTEValue;
     property IMPORTE_PORTEIsNull: Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
-    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
-    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
     property REFERENCIA_COMISION: String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property REFERENCIA_COMISIONIsNull: Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
     property IGNORAR_CONTABILIDAD: SmallInt read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
@@ -955,6 +989,14 @@ type
     property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
     property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
     property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
+    property ID_AGENTE: Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull: Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property NOMBRE_AGENTE: String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
+    property NOMBRE_AGENTEIsNull: Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
+    property DELEGACION: String read GetDELEGACIONValue write SetDELEGACIONValue;
+    property DELEGACIONIsNull: Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+    property FAC_PROV_GRADEN: SmallInt read GetFAC_PROV_GRADENValue write SetFAC_PROV_GRADENValue;
+    property FAC_PROV_GRADENIsNull: Boolean read GetFAC_PROV_GRADENIsNull write SetFAC_PROV_GRADENIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -964,7 +1006,7 @@ type
 
   { IFacturasCliente_Detalles }
   IFacturasCliente_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{57377F2A-FB8A-490D-8CC7-F484CC677EC3}']
+  ['{0BEE4EB9-9297-4108-8DF8-B28B639FFF0F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2051,27 +2093,6 @@ begin
     DataTable.Fields[idx_FacturasClienteIMPORTE_PORTE].AsVariant := Null;
 end;
 
-function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer;
-begin
-  result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger;
-end;
-
-procedure TFacturasClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
-begin
-  DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger := aValue;
-end;
-
-function TFacturasClienteDataTableRules.GetID_AGENTEIsNull: boolean;
-begin
-  result := DataTable.Fields[idx_FacturasClienteID_AGENTE].IsNull;
-end;
-
-procedure TFacturasClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null;
-end;
-
 function TFacturasClienteDataTableRules.GetREFERENCIA_COMISIONValue: String;
 begin
   result := DataTable.Fields[idx_FacturasClienteREFERENCIA_COMISION].AsString;
@@ -2450,6 +2471,90 @@ begin
     DataTable.Fields[idx_FacturasClienteTIPO_OPERACION].AsVariant := Null;
 end;
 
+function TFacturasClienteDataTableRules.GetID_AGENTEValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasClienteID_AGENTE].AsInteger := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetID_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteID_AGENTE].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteID_AGENTE].AsVariant := Null;
+end;
+
+function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetNOMBRE_AGENTEIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteNOMBRE_AGENTE].AsVariant := Null;
+end;
+
+function TFacturasClienteDataTableRules.GetDELEGACIONValue: String;
+begin
+  result := DataTable.Fields[idx_FacturasClienteDELEGACION].AsString;
+end;
+
+procedure TFacturasClienteDataTableRules.SetDELEGACIONValue(const aValue: String);
+begin
+  DataTable.Fields[idx_FacturasClienteDELEGACION].AsString := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetDELEGACIONIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteDELEGACION].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetDELEGACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteDELEGACION].AsVariant := Null;
+end;
+
+function TFacturasClienteDataTableRules.GetFAC_PROV_GRADENValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].AsSmallInt;
+end;
+
+procedure TFacturasClienteDataTableRules.SetFAC_PROV_GRADENValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].AsSmallInt := aValue;
+end;
+
+function TFacturasClienteDataTableRules.GetFAC_PROV_GRADENIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].IsNull;
+end;
+
+procedure TFacturasClienteDataTableRules.SetFAC_PROV_GRADENIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasClienteFAC_PROV_GRADEN].AsVariant := Null;
+end;
+
 
 { TFacturasCliente_DetallesDataTableRules }
 constructor TFacturasCliente_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Facturas de cliente/Model/schFacturasClienteServer_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_ListaAnosFacturasDelta = '{27262DAF-04C2-41BD-BE56-F1E3932C3958}';
+  RID_ListaAnosFacturasDelta = '{1FA4D476-5A02-469D-A765-5D9DDFA91D2E}';
-  RID_TiposFacturaClienteDelta = '{23C627D7-E517-4F77-831E-FF7350A5F4B9}';
+  RID_TiposFacturaClienteDelta = '{F7131BC6-FD5C-427E-BD3C-7B099A7C13B6}';
-  RID_FacturasClienteDelta = '{6290AB0B-0540-4FC1-9614-D4AFFFA4D9F2}';
+  RID_FacturasClienteDelta = '{C8D08F2C-4160-4B84-AB48-5462A3FF4CA6}';
-  RID_FacturasCliente_DetallesDelta = '{48B82498-4D2D-4D30-9B4E-7193BC6B0308}';
+  RID_FacturasCliente_DetallesDelta = '{5C121557-D524-4057-B41D-39660862AEAB}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{27262DAF-04C2-41BD-BE56-F1E3932C3958}']
+  ['{1FA4D476-5A02-469D-A765-5D9DDFA91D2E}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -51,7 +51,7 @@ type
 
   { ITiposFacturaClienteDelta }
   ITiposFacturaClienteDelta = interface(ITiposFacturaCliente)
-  ['{23C627D7-E517-4F77-831E-FF7350A5F4B9}']
+  ['{F7131BC6-FD5C-427E-BD3C-7B099A7C13B6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -97,7 +97,7 @@ type
 
   { IFacturasClienteDelta }
   IFacturasClienteDelta = interface(IFacturasCliente)
-  ['{6290AB0B-0540-4FC1-9614-D4AFFFA4D9F2}']
+  ['{C8D08F2C-4160-4B84-AB48-5462A3FF4CA6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -136,7 +136,6 @@ type
     function GetOldID_TIPO_IVAValue : Integer;
     function GetOldIMPORTE_NETOValue : Currency;
     function GetOldIMPORTE_PORTEValue : Currency;
-    function GetOldID_AGENTEValue : Integer;
     function GetOldREFERENCIA_COMISIONValue : String;
     function GetOldIGNORAR_CONTABILIDADValue : SmallInt;
     function GetOldID_TIENDAValue : Integer;
@@ -155,6 +154,10 @@ type
     function GetOldFECHA_RETENCIONValue : DateTime;
     function GetOldID_TIPO_FACTURAValue : Integer;
     function GetOldTIPO_OPERACIONValue : String;
+    function GetOldID_AGENTEValue : Integer;
+    function GetOldNOMBRE_AGENTEValue : String;
+    function GetOldDELEGACIONValue : String;
+    function GetOldFAC_PROV_GRADENValue : SmallInt;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -194,7 +197,6 @@ type
     property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
     property OldIMPORTE_NETO : Currency read GetOldIMPORTE_NETOValue;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
-    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
     property OldIGNORAR_CONTABILIDAD : SmallInt read GetOldIGNORAR_CONTABILIDADValue;
     property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
@@ -213,6 +215,10 @@ type
     property OldFECHA_RETENCION : DateTime read GetOldFECHA_RETENCIONValue;
     property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
     property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
+    property OldDELEGACION : String read GetOldDELEGACIONValue;
+    property OldFAC_PROV_GRADEN : SmallInt read GetOldFAC_PROV_GRADENValue;
   end;
 
   { TFacturasClienteBusinessProcessorRules }
@@ -443,12 +449,6 @@ type
     function GetOldIMPORTE_PORTEIsNull: Boolean; virtual;
     procedure SetIMPORTE_PORTEValue(const aValue: Currency); virtual;
     procedure SetIMPORTE_PORTEIsNull(const aValue: Boolean); virtual;
-    function GetID_AGENTEValue: Integer; virtual;
-    function GetID_AGENTEIsNull: Boolean; virtual;
-    function GetOldID_AGENTEValue: Integer; virtual;
-    function GetOldID_AGENTEIsNull: Boolean; virtual;
-    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
-    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
     function GetREFERENCIA_COMISIONValue: String; virtual;
     function GetREFERENCIA_COMISIONIsNull: Boolean; virtual;
     function GetOldREFERENCIA_COMISIONValue: String; virtual;
@@ -557,6 +557,30 @@ type
     function GetOldTIPO_OPERACIONIsNull: Boolean; virtual;
     procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
     procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
+    function GetID_AGENTEValue: Integer; virtual;
+    function GetID_AGENTEIsNull: Boolean; virtual;
+    function GetOldID_AGENTEValue: Integer; virtual;
+    function GetOldID_AGENTEIsNull: Boolean; virtual;
+    procedure SetID_AGENTEValue(const aValue: Integer); virtual;
+    procedure SetID_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetNOMBRE_AGENTEValue: String; virtual;
+    function GetNOMBRE_AGENTEIsNull: Boolean; virtual;
+    function GetOldNOMBRE_AGENTEValue: String; virtual;
+    function GetOldNOMBRE_AGENTEIsNull: Boolean; virtual;
+    procedure SetNOMBRE_AGENTEValue(const aValue: String); virtual;
+    procedure SetNOMBRE_AGENTEIsNull(const aValue: Boolean); virtual;
+    function GetDELEGACIONValue: String; virtual;
+    function GetDELEGACIONIsNull: Boolean; virtual;
+    function GetOldDELEGACIONValue: String; virtual;
+    function GetOldDELEGACIONIsNull: Boolean; virtual;
+    procedure SetDELEGACIONValue(const aValue: String); virtual;
+    procedure SetDELEGACIONIsNull(const aValue: Boolean); virtual;
+    function GetFAC_PROV_GRADENValue: SmallInt; virtual;
+    function GetFAC_PROV_GRADENIsNull: Boolean; virtual;
+    function GetOldFAC_PROV_GRADENValue: SmallInt; virtual;
+    function GetOldFAC_PROV_GRADENIsNull: Boolean; virtual;
+    procedure SetFAC_PROV_GRADENValue(const aValue: SmallInt); virtual;
+    procedure SetFAC_PROV_GRADENIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -707,10 +731,6 @@ type
     property IMPORTE_PORTEIsNull : Boolean read GetIMPORTE_PORTEIsNull write SetIMPORTE_PORTEIsNull;
     property OldIMPORTE_PORTE : Currency read GetOldIMPORTE_PORTEValue;
     property OldIMPORTE_PORTEIsNull : Boolean read GetOldIMPORTE_PORTEIsNull;
-    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
-    property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
-    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
-    property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
     property REFERENCIA_COMISION : String read GetREFERENCIA_COMISIONValue write SetREFERENCIA_COMISIONValue;
     property REFERENCIA_COMISIONIsNull : Boolean read GetREFERENCIA_COMISIONIsNull write SetREFERENCIA_COMISIONIsNull;
     property OldREFERENCIA_COMISION : String read GetOldREFERENCIA_COMISIONValue;
@@ -783,6 +803,22 @@ type
     property TIPO_OPERACIONIsNull : Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
     property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
     property OldTIPO_OPERACIONIsNull : Boolean read GetOldTIPO_OPERACIONIsNull;
+    property ID_AGENTE : Integer read GetID_AGENTEValue write SetID_AGENTEValue;
+    property ID_AGENTEIsNull : Boolean read GetID_AGENTEIsNull write SetID_AGENTEIsNull;
+    property OldID_AGENTE : Integer read GetOldID_AGENTEValue;
+    property OldID_AGENTEIsNull : Boolean read GetOldID_AGENTEIsNull;
+    property NOMBRE_AGENTE : String read GetNOMBRE_AGENTEValue write SetNOMBRE_AGENTEValue;
+    property NOMBRE_AGENTEIsNull : Boolean read GetNOMBRE_AGENTEIsNull write SetNOMBRE_AGENTEIsNull;
+    property OldNOMBRE_AGENTE : String read GetOldNOMBRE_AGENTEValue;
+    property OldNOMBRE_AGENTEIsNull : Boolean read GetOldNOMBRE_AGENTEIsNull;
+    property DELEGACION : String read GetDELEGACIONValue write SetDELEGACIONValue;
+    property DELEGACIONIsNull : Boolean read GetDELEGACIONIsNull write SetDELEGACIONIsNull;
+    property OldDELEGACION : String read GetOldDELEGACIONValue;
+    property OldDELEGACIONIsNull : Boolean read GetOldDELEGACIONIsNull;
+    property FAC_PROV_GRADEN : SmallInt read GetFAC_PROV_GRADENValue write SetFAC_PROV_GRADENValue;
+    property FAC_PROV_GRADENIsNull : Boolean read GetFAC_PROV_GRADENIsNull write SetFAC_PROV_GRADENIsNull;
+    property OldFAC_PROV_GRADEN : SmallInt read GetOldFAC_PROV_GRADENValue;
+    property OldFAC_PROV_GRADENIsNull : Boolean read GetOldFAC_PROV_GRADENIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -792,7 +828,7 @@ type
 
   { IFacturasCliente_DetallesDelta }
   IFacturasCliente_DetallesDelta = interface(IFacturasCliente_Detalles)
-  ['{48B82498-4D2D-4D30-9B4E-7193BC6B0308}']
+  ['{5C121557-D524-4057-B41D-39660862AEAB}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -2280,37 +2316,6 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteIMPORTE_PORTE] := Null;
 end;
 
-function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE];
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]);
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
-begin
-  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE];
-end;
-
-function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
-begin
-  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE]);
-end;
-
-procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
-begin
-  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := aValue;
-end;
-
-procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
-begin
-  if aValue then
-    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null;
-end;
-
 function TFacturasClienteBusinessProcessorRules.GetREFERENCIA_COMISIONValue: String;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteREFERENCIA_COMISION];
@@ -2869,6 +2874,130 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteTIPO_OPERACION] := Null;
 end;
 
+function TFacturasClienteBusinessProcessorRules.GetID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldID_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteID_AGENTE]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetID_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteID_AGENTE] := Null;
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetNOMBRE_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldNOMBRE_AGENTEIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteNOMBRE_AGENTE]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetNOMBRE_AGENTEIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteNOMBRE_AGENTE] := Null;
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetDELEGACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetDELEGACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldDELEGACIONValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDELEGACION];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldDELEGACIONIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteDELEGACION]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetDELEGACIONValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetDELEGACIONIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteDELEGACION] := Null;
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetFAC_PROV_GRADENValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetFAC_PROV_GRADENIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN]);
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldFAC_PROV_GRADENValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFAC_PROV_GRADEN];
+end;
+
+function TFacturasClienteBusinessProcessorRules.GetOldFAC_PROV_GRADENIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasClienteFAC_PROV_GRADEN]);
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetFAC_PROV_GRADENValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN] := aValue;
+end;
+
+procedure TFacturasClienteBusinessProcessorRules.SetFAC_PROV_GRADENIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasClienteFAC_PROV_GRADEN] := Null;
+end;
+
 
 { TFacturasCliente_DetallesBusinessProcessorRules }
 constructor TFacturasCliente_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas

@@ -358,6 +358,10 @@ begin
       FCliente.DataTable.Active := True;
 
     ID_CLIENTE := FCliente.ID;
+    ID_AGENTE := FCliente.ID_AGENTE;
+    NOMBRE_AGENTE := FCliente.AGENTE;
+    DELEGACION := FCliente.DELEGACION;
+
     NOMBRE := FCliente.NOMBRE;
     NIF_CIF := FCliente.NIF_CIF;
     CALLE := FCliente.CALLE;

Source/Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -306,6 +306,18 @@ object srvFacturasCliente: TsrvFacturasCliente
               item
                 DatasetField = 'TIPO_OPERACION'
                 TableField = 'TIPO_OPERACION'
+              end
+              item
+                DatasetField = 'NOMBRE_AGENTE'
+                TableField = 'NOMBRE_AGENTE'
+              end
+              item
+                DatasetField = 'DELEGACION'
+                TableField = 'DELEGACION'
+              end
+              item
+                DatasetField = 'FAC_PROV_GRADEN'
+                TableField = 'FAC_PROV_GRADEN'
               end>
           end>
         Name = 'FacturasCliente'
@@ -512,11 +524,6 @@ object srvFacturasCliente: TsrvFacturasCliente
             DataType = datCurrency
             DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE'
           end
-          item
-            Name = 'ID_AGENTE'
-            DataType = datInteger
-            DictionaryEntry = 'FacturasCliente_ID_AGENTE'
-          end
           item
             Name = 'REFERENCIA_COMISION'
             DataType = datString
@@ -610,6 +617,25 @@ object srvFacturasCliente: TsrvFacturasCliente
             DataType = datString
             Size = 2000
             ServerAutoRefresh = True
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            DictionaryEntry = 'FacturasCliente_ID_AGENTE'
+          end
+          item
+            Name = 'NOMBRE_AGENTE'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'DELEGACION'
+            DataType = datString
+            Size = 255
+          end
+          item
+            Name = 'FAC_PROV_GRADEN'
+            DataType = datSmallInt
           end>
       end
       item
@@ -1232,6 +1258,28 @@ object srvFacturasCliente: TsrvFacturasCliente
             Name = 'ID_TIPO_FACTURA'
             DataType = datInteger
             Value = ''
+          end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'NOMBRE_AGENTE'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DELEGACION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'FAC_PROV_GRADEN'
+            DataType = datSmallInt
+            Value = ''
           end>
         Statements = <
           item
@@ -1249,17 +1297,20 @@ object srvFacturasCliente: TsrvFacturasCliente
               'A,'#10'    IMPORTE_NETO,'#10'    IMPORTE_PORTE,'#10'    IGNORAR_CONTABILIDAD' +
               ','#10'    ID_TIENDA,'#10'    ID_CONTRATO,'#10'    SIN_COMISION,'#10'    SITUACIO' +
               'N,'#10'    RETENCION,'#10'    IMPORTE_RETENCION,'#10'    FECHA_RETENCION,'#10'  ' +
-              '  ID_TIPO_FACTURA)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRESA,'#10'    :REF' +
+              '  ID_TIPO_FACTURA,'#10'    ID_AGENTE,'#10'    NOMBRE_AGENTE,'#10'    DELEGAC' +
-              'ERENCIA,'#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,'#10'    :BASE_I' +
+              'ION,'#10'    FAC_PROV_GRADEN)'#10'  VALUES ('#10'    :ID,'#10'    :ID_EMPRESA,'#10' ' +
-              'MPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'    :IVA,'#10'    ' +
+              '   :REFERENCIA,'#10'    :FECHA_FACTURA,'#10'    :FECHA_VENCIMIENTO,'#10'    ' +
-              ':IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE_TOTAL,'#10'    ' +
+              ':BASE_IMPONIBLE,'#10'    :DESCUENTO,'#10'    :IMPORTE_DESCUENTO,'#10'    :IV' +
-              ':OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :NOMBRE,'#10'    ' +
+              'A,'#10'    :IMPORTE_IVA,'#10'    :RE,'#10'    :IMPORTE_RE,'#10'    :IMPORTE_TOTA' +
-              ':CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_POSTAL,'#10'    ' +
+              'L,'#10'    :OBSERVACIONES,'#10'    :ID_CLIENTE,'#10'    :NIF_CIF,'#10'    :NOMBR' +
-              'CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,'#10'    :RECARG' +
+              'E,'#10'    :CALLE,'#10'    :POBLACION,'#10'    :PROVINCIA,'#10'    :CODIGO_POSTA' +
-              'O_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,'#10'    :IMPORT' +
+              'L,'#10'    CURRENT_TIMESTAMP,'#10'    :USUARIO,'#10'    :ID_FORMA_PAGO,'#10'    ' +
-              'E_PORTE,'#10'    :IGNORAR_CONTABILIDAD,'#10'    :ID_TIENDA,'#10'    :ID_CONT' +
+              ':RECARGO_EQUIVALENCIA,'#10'    :ID_TIPO_IVA,'#10'    :IMPORTE_NETO,'#10'    ' +
-              'RATO,'#10'    :SIN_COMISION,'#10'    :SITUACION,'#10'    :RETENCION,'#10'    :IM' +
+              ':IMPORTE_PORTE,'#10'    :IGNORAR_CONTABILIDAD,'#10'    :ID_TIENDA,'#10'    :' +
-              'PORTE_RETENCION,'#10'    :FECHA_RETENCION,'#10'    :ID_TIPO_FACTURA);'#10
+              'ID_CONTRATO,'#10'    :SIN_COMISION,'#10'    :SITUACION,'#10'    :RETENCION,'#10 +
+              '    :IMPORTE_RETENCION,'#10'    :FECHA_RETENCION,'#10'    :ID_TIPO_FACTU' +
+              'RA,'#10'    :ID_AGENTE,'#10'    :NOMBRE_AGENTE,'#10'    :DELEGACION,'#10'    :FA' +
+              'C_PROV_GRADEN);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1451,6 +1502,28 @@ object srvFacturasCliente: TsrvFacturasCliente
             DataType = datInteger
             Value = ''
           end
+          item
+            Name = 'ID_AGENTE'
+            DataType = datInteger
+            Value = ''
+          end
+          item
+            Name = 'NOMBRE_AGENTE'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'DELEGACION'
+            DataType = datString
+            Size = 255
+            Value = ''
+          end
+          item
+            Name = 'FAC_PROV_GRADEN'
+            DataType = datSmallInt
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1478,8 +1551,10 @@ object srvFacturasCliente: TsrvFacturasCliente
               'ENDA,'#10'    ID_CONTRATO = :ID_CONTRATO,'#10'    SIN_COMISION = :SIN_CO' +
               'MISION,'#10'    SITUACION = :SITUACION,'#10'    RETENCION = :RETENCION,'#10 +
               '    IMPORTE_RETENCION = :IMPORTE_RETENCION,'#10'    FECHA_RETENCION ' +
-              '= :FECHA_RETENCION,'#10'    ID_TIPO_FACTURA = :ID_TIPO_FACTURA'#10'  WHE' +
+              '= :FECHA_RETENCION,'#10'    ID_TIPO_FACTURA = :ID_TIPO_FACTURA,'#10'    ' +
-              'RE'#10'  (ID = :OLD_ID);'#10
+              'ID_AGENTE = :ID_AGENTE,'#10'    NOMBRE_AGENTE = :NOMBRE_AGENTE,'#10'    ' +
+              'DELEGACION = :DELEGACION,'#10'    FAC_PROV_GRADEN = :FAC_PROV_GRADEN' +
+              #10'  WHERE'#10'  (ID = :OLD_ID);'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>

Source/Modulos/Facturas de cliente/Views/FacturasCliente_view.dproj

@@ -49,48 +49,49 @@
     <DelphiCompile Include="FacturasCliente_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
+    <DCCReference Include="..\..\Lib\adortl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\AlbCli_FacCli_relation.dcp" />
+    <DCCReference Include="..\..\Lib\AlbCli_FacCli_relation.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Articulos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Articulos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\bdertl.dcp" />
+    <DCCReference Include="..\..\Lib\bdertl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_controller.dcp" />
+    <DCCReference Include="..\..\Lib\Contabilidad_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contabilidad_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contabilidad_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_view.dcp" />
+    <DCCReference Include="..\..\Lib\Contactos_view.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxDataD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxEditorsD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
+    <DCCReference Include="..\..\Lib\cxLibraryD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
+    <DCCReference Include="..\..\Lib\dbrtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
+    <DCCReference Include="..\..\Lib\dsnap.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxComnD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxGDIPlusD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxLayoutControlD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="..\..\Lib\dxThemeD11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_controller.dcp" />
+    <DCCReference Include="..\..\Lib\FacCli_FacProv_relation.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\FacturasCliente_model.dcp" />
+    <DCCReference Include="..\..\Lib\FacturasCliente_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\fqb110.dcp" />
+    <DCCReference Include="..\..\Lib\FacturasCliente_model.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
+    <DCCReference Include="..\..\Lib\fqb110.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
+    <DCCReference Include="..\..\Lib\frx11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
+    <DCCReference Include="..\..\Lib\frxe11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GestorInformes_controller.dcp" />
+    <DCCReference Include="..\..\Lib\fs11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
+    <DCCReference Include="..\..\Lib\GestorInformes_controller.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
+    <DCCReference Include="..\..\Lib\GUIBase.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
+    <DCCReference Include="..\..\Lib\Jcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JclVcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvCoreD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvPageCompsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
+    <DCCReference Include="..\..\Lib\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
+    <DCCReference Include="..\..\Lib\JvSystemD11R.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
+    <DCCReference Include="..\..\Lib\PngComponentsD10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\..\Lib\PNG_D10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="..\..\Lib\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
+    <DCCReference Include="..\..\Lib\rtl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
+    <DCCReference Include="..\..\Lib\tb2k_d10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="..\..\Lib\tbx_d10.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
+    <DCCReference Include="..\..\Lib\vcl.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="..\..\Lib\vclactnband.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vcldb.dcp" />
-    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
+    <DCCReference Include="..\..\Lib\vcljpg.dcp" />
+    <DCCReference Include="..\..\Lib\vclx.dcp" />
     <DCCReference Include="uEditorElegirArticulosFacturaCliente.pas">
       <Form>fEditorElegirArticulosFacturaCliente</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Facturas de cliente/Views/uEditorFacturaCliente.dfm

@@ -82,7 +82,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
   inherited pgPaginas: TPageControl
     Width = 854
     Height = 308
-    ActivePage = pagContenido
     OnChanging = pgPaginasChanging
     ExplicitTop = 112
     ExplicitWidth = 854
@@ -114,34 +113,50 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
           ExplicitWidth = 846
           ExplicitHeight = 280
           inherited eReferencia: TcxDBTextEdit
+            Top = -90
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitTop = -90
             ExplicitWidth = 159
             Width = 159
           end
           inherited edtFecha: TcxDBDateEdit
+            Top = -63
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitTop = -63
             ExplicitWidth = 159
             Width = 159
           end
           inherited cbFormaPago: TcxDBLookupComboBox
+            Top = 42
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitTop = 42
             ExplicitWidth = 78
             Width = 78
           end
+          inherited bFormasPago: TButton
+            Left = 280
+            Top = 42
+            ExplicitLeft = 280
+            ExplicitTop = 42
+          end
           inherited frViewTienda1: TfrViewTienda
+            Top = 176
             Width = 351
+            Visible = False
+            ExplicitTop = 176
             ExplicitWidth = 351
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 351
+              ExplicitWidth = 351
               inherited cbTienda: TcxComboBox
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
@@ -153,10 +168,15 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             end
           end
           inherited frViewClienteFactura1: TfrViewClienteFactura
+            Left = 440
+            Top = -90
             Width = 398
+            ExplicitLeft = 440
+            ExplicitTop = -90
             ExplicitWidth = 398
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 398
+              ExplicitWidth = 398
               inherited Bevel1: TBevel
                 Width = 266
                 ExplicitWidth = 266
@@ -207,17 +227,17 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
                 Width = 276
               end
               inherited edtCodigoPostal: TcxDBTextEdit
-                Left = 256
+                Left = 273
                 DataBinding.DataSource = dsDataTable
                 Style.LookAndFeel.SkinName = ''
                 StyleDisabled.LookAndFeel.SkinName = ''
                 StyleFocused.LookAndFeel.SkinName = ''
                 StyleHot.LookAndFeel.SkinName = ''
-                ExplicitLeft = 256
+                ExplicitLeft = 273
               end
               inherited Button3: TBitBtn
-                Left = 146
+                Left = 163
-                ExplicitLeft = 146
+                ExplicitLeft = 163
               end
               inherited cxDBTextEdit1: TcxDBTextEdit
                 Style.LookAndFeel.SkinName = ''
@@ -230,37 +250,88 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
             end
           end
           inherited edtFechaVencimiento: TcxDBDateEdit
+            Top = 71
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitTop = 71
             ExplicitWidth = 310
             Width = 310
           end
           inherited frViewObservaciones1: TfrViewObservaciones
+            Top = 470
             Width = 521
             Height = 228
+            ExplicitTop = 470
             ExplicitWidth = 521
             ExplicitHeight = 228
             inherited memObservaciones: TcxDBMemo
               DataBinding.DataSource = frViewFacturaCliente1.DADataSource
-              ExplicitWidth = 783
+              ExplicitWidth = 521
+              ExplicitHeight = 228
               Height = 228
               Width = 521
             end
           end
           inherited cbRecargoEquivalencia: TcxDBCheckBox
+            Top = 419
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
+            ExplicitTop = 419
             ExplicitWidth = 158
             Width = 158
           end
           inherited edtSituacion: TcxDBComboBox
+            Top = -9
+            ExplicitTop = -9
             ExplicitWidth = 121
             Width = 121
           end
+          inherited edtRefContrato: TcxDBTextEdit
+            Top = 122
+            ExplicitTop = 122
+            ExplicitWidth = 294
+            Width = 294
+          end
+          inherited edtRefClienteContrato: TcxDBTextEdit
+            Top = 149
+            ExplicitTop = 149
+            ExplicitWidth = 294
+            Width = 294
+          end
+          inherited cbTipoFactura: TcxDBLookupComboBox
+            Top = -36
+            ExplicitTop = -36
+            ExplicitWidth = 158
+            Width = 158
+          end
+          inherited frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
+            Top = 254
+            Width = 425
+            ExplicitTop = 254
+            ExplicitWidth = 425
+            inherited dxLayoutControl1: TdxLayoutControl
+              Width = 425
+              ExplicitWidth = 425
+              inherited edtlNombreAgente: TcxDBTextEdit
+                DataBinding.DataSource = frViewFacturaCliente1.DADataSource
+                ExplicitWidth = 224
+                Width = 224
+              end
+              inherited edtDelegacion: TcxDBTextEdit
+                DataBinding.DataSource = frViewFacturaCliente1.DADataSource
+                ExplicitWidth = 562
+                Width = 562
+              end
+              inherited Button3: TBitBtn
+                Left = 188
+                ExplicitLeft = 188
+              end
+            end
+          end
         end
       end
     end

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.dfm

@@ -1,17 +1,17 @@
 inherited fEditorFacturasCliente: TfEditorFacturasCliente
   Caption = 'Lista de facturas de cliente'
   ClientHeight = 666
-  ClientWidth = 640
+  ClientWidth = 919
-  ExplicitWidth = 648
+  ExplicitWidth = 927
   ExplicitHeight = 704
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 640
+    Width = 919
     Caption = 'Lista de facturas de cliente'
-    ExplicitWidth = 640
+    ExplicitWidth = 919
     inherited Image1: TImage
-      Left = 613
+      Left = 892
       Picture.Data = {
         0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
         0000180806000000E0773DF80000000970485973000017120000171201679FD2
@@ -35,10 +35,10 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 640
+    Width = 919
-    ExplicitWidth = 640
+    ExplicitWidth = 919
     inherited tbxMain: TTBXToolbar
-      ExplicitWidth = 640
+      ExplicitWidth = 711
       object TBXSubmenuItem2: TTBXSubmenuItem [0]
         Caption = 'Nuevo'
         DisplayMode = nbdmImageAndText
@@ -70,20 +70,26 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
       end
     end
     inherited tbxMenu: TTBXToolbar
-      ExplicitWidth = 640
+      ExplicitWidth = 919
     end
     inherited TBXTMain2: TTBXToolbar
-      Left = 382
+      Left = 385
       DockPos = 385
       Visible = True
-      ExplicitLeft = 382
+      ExplicitLeft = 385
-      ExplicitWidth = 258
+      ExplicitWidth = 506
       object TBXItem41: TTBXItem
         Action = actAsignarTipoOperacion
         DisplayMode = nbdmImageAndText
       end
       object TBSeparatorItem1: TTBSeparatorItem
       end
+      object TBXItem42: TTBXItem
+        Action = ActGenerarFacturaGraden
+        DisplayMode = nbdmImageAndText
+      end
+      object TBXSeparatorItem17: TTBXSeparatorItem
+      end
       object TBXItem40: TTBXItem
         Action = actInformes
         DisplayMode = nbdmImageAndText
@@ -92,14 +98,14 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
   end
   inherited StatusBar: TJvStatusBar
     Top = 647
-    Width = 640
+    Width = 919
     ExplicitTop = 647
-    ExplicitWidth = 640
+    ExplicitWidth = 919
   end
   inline frViewFacturasCliente1: TfrViewFacturasCliente [3]
     Left = 0
     Top = 106
-    Width = 640
+    Width = 919
     Height = 541
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
@@ -111,12 +117,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     TabOrder = 3
     ReadOnly = False
     ExplicitTop = 106
-    ExplicitWidth = 640
+    ExplicitWidth = 919
     ExplicitHeight = 541
     inherited cxGrid: TcxGrid
-      Width = 640
+      Width = 919
       Height = 413
-      ExplicitWidth = 640
+      ExplicitWidth = 919
       ExplicitHeight = 413
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.DefaultGroupSummaryItems = <
@@ -187,13 +193,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
       end
     end
     inherited frViewFiltroBase1: TfrViewFiltroBase
-      Width = 640
+      Width = 919
-      ExplicitWidth = 640
+      ExplicitWidth = 919
       inherited TBXDockablePanel1: TTBXDockablePanel
-        ExplicitWidth = 640
+        ExplicitWidth = 919
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 640
+          Width = 919
-          ExplicitWidth = 640
+          ExplicitWidth = 919
           inherited txtFiltroTodo: TcxTextEdit
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
@@ -207,36 +213,34 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitWidth = 144
-            Width = 144
           end
           inherited edtFechaFinFiltro: TcxDateEdit
-            Left = 301
+            Left = 521
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 301
+            ExplicitLeft = 521
             ExplicitWidth = 263
             Width = 263
           end
           inherited txtFiltroTodo2: TcxTextEdit
-            Left = 473
+            Left = 675
             Style.LookAndFeel.SkinName = ''
             StyleDisabled.LookAndFeel.SkinName = ''
             StyleFocused.LookAndFeel.SkinName = ''
             StyleHot.LookAndFeel.SkinName = ''
-            ExplicitLeft = 473
+            ExplicitLeft = 675
             ExplicitWidth = 223
             Width = 223
           end
         end
         inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-          Width = 640
+          Width = 919
-          ExplicitWidth = 640
+          ExplicitWidth = 919
           inherited tbxBotones: TTBXToolbar
-            Width = 630
+            Width = 909
-            ExplicitWidth = 630
+            ExplicitWidth = 909
           end
         end
       end
@@ -244,13 +248,13 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
     inherited pnlAgrupaciones: TTBXDockablePanel
       Top = 515
       ExplicitTop = 515
-      ExplicitWidth = 640
+      ExplicitWidth = 919
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel
-        Width = 640
+        Width = 919
-        ExplicitWidth = 640
+        ExplicitWidth = 919
         inherited TBXToolbar1: TTBXToolbar
-          Width = 630
+          Width = 909
-          ExplicitWidth = 630
+          ExplicitWidth = 909
         end
       end
     end
@@ -308,6 +312,12 @@ inherited fEditorFacturasCliente: TfEditorFacturasCliente
       OnExecute = actAsignarTipoOperacionExecute
       OnUpdate = actAsignarTipoOperacionUpdate
     end
+    object ActGenerarFacturaGraden: TAction
+      Caption = 'Generar factura proveedor en Graden'
+      ImageIndex = 26
+      OnExecute = ActGenerarFacturaGradenExecute
+      OnUpdate = ActGenerarFacturaGradenUpdate
+    end
   end
   inherited SmallImages: TPngImageList [5]
     PngImages = <

Source/Modulos/Facturas de cliente/Views/uEditorFacturasCliente.pas

@@ -38,6 +38,9 @@ type
     actAsignarTipoOperacion: TAction;
     TBXItem41: TTBXItem;
     TBSeparatorItem1: TTBSeparatorItem;
+    ActGenerarFacturaGraden: TAction;
+    TBXItem42: TTBXItem;
+    TBXSeparatorItem17: TTBXSeparatorItem;
     procedure FormShow(Sender: TObject);
     procedure actEliminarUpdate(Sender: TObject);
     procedure actNuevaFacturaExecute(Sender: TObject);
@@ -46,6 +49,8 @@ type
     procedure OnListaAnosChange(Sender: TObject; const Text: string);
     procedure actAsignarTipoOperacionExecute(Sender: TObject);
     procedure actAsignarTipoOperacionUpdate(Sender: TObject);
+    procedure ActGenerarFacturaGradenExecute(Sender: TObject);
+    procedure ActGenerarFacturaGradenUpdate(Sender: TObject);
 
   private
     FFacturas: IBizFacturaCliente;
@@ -78,9 +83,8 @@ implementation
 
 uses
   uDataModuleFacturasCliente, uDataModuleUsuarios, uAlbaranesClienteController, uFactuGES_App,
-  uBizejercicios, uGenerarFacturasCliAlbCliUtils,
+  uBizejercicios, uGenerarFacturasCliAlbCliUtils, uBizAlbaranesCliente, uGestorInformesController,
-  uBizAlbaranesCliente, uGestorInformesController,
+  uEditorBase,  uGridUtils, uDBSelectionListUtils, uBizContactos, uGenerarFacturasProvFacCliUtils;
-  uEditorBase,  uGridUtils, uDBSelectionListUtils;
 
 {$R *.dfm}
 
@@ -125,6 +129,40 @@ begin
      (Sender as TAction).Enabled := (FFacturas.SITUACION = 'PENDIENTE');
 end;
 
+procedure TfEditorFacturasCliente.ActGenerarFacturaGradenExecute(Sender: TObject);
+var
+  AFacturas: IBizFacturaCliente;
+  i: integer;
+
+begin
+  inherited;
+
+  ViewGrid.SaveGridStatus;
+  try
+    SeleccionarFilasDesdeGrid(ViewGrid._FocusedView, (Facturas as ISeleccionable).SelectedRecords);
+    AFacturas := (Controller as IFacturasClienteController).ExtraerSeleccionados(Facturas) as IBizFacturaCliente;
+  finally
+    ViewGrid.RestoreGridStatus;
+  end;
+
+  if GenerarFacturaProvEnGraden(AFacturas) then
+     RefrescarInterno;
+end;
+
+procedure TfEditorFacturasCliente.ActGenerarFacturaGradenUpdate(
+  Sender: TObject);
+begin
+  inherited;
+  if HayDatos and Assigned(ViewGrid) then
+  begin
+    (Sender as TAction).Enabled := not (dsDataTable.DataTable.State in dsEditModes)
+      and ViewGrid.esSeleccionCeldaDatos
+  end
+  else
+    (Sender as TAction).Enabled := False;
+
+end;
+
 procedure TfEditorFacturasCliente.actInformesExecute(Sender: TObject);
 var
   Respuesta : Integer;

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.dfm

@@ -1,6 +1,6 @@
 inherited frViewFacturaCliente: TfrViewFacturaCliente
-  Width = 1079
+  Width = 1078
-  Height = 553
+  Height = 641
   Align = alClient
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
@@ -9,8 +9,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 1079
+    Width = 1078
-    Height = 553
+    Height = 641
     Align = alClient
     ParentBackground = True
     TabOrder = 0
@@ -20,8 +20,8 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     ExplicitWidth = 451
     ExplicitHeight = 304
     DesignSize = (
-      1079
+      1078
-      553)
+      641)
     object eReferencia: TcxDBTextEdit
       Left = 135
       Top = 30
@@ -126,7 +126,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 351
         Height = 63
-        ExplicitWidth = 351
+        ExplicitWidth = 407
         ExplicitHeight = 63
         inherited cbTienda: TcxComboBox
           ExplicitWidth = 399
@@ -150,7 +150,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 11
+      TabOrder = 12
       ReadOnly = False
       ExplicitLeft = 569
       ExplicitTop = 30
@@ -159,7 +159,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       inherited dxLayoutControl1: TdxLayoutControl
         Width = 398
         Height = 265
-        ExplicitWidth = 398
+        ExplicitWidth = 101
         ExplicitHeight = 265
         inherited edtlNombre: TcxDBTextEdit
           ExplicitWidth = 276
@@ -182,12 +182,12 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           Width = 276
         end
         inherited edtCodigoPostal: TcxDBTextEdit
-          Left = 396
+          Left = 395
-          ExplicitLeft = 396
+          ExplicitLeft = 395
         end
         inherited Button3: TBitBtn
-          Left = 286
+          Left = 285
-          ExplicitLeft = 286
+          ExplicitLeft = 285
         end
         inherited cxDBTextEdit1: TcxDBTextEdit
           ExplicitWidth = 283
@@ -222,7 +222,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
     end
     inline frViewObservaciones1: TfrViewObservaciones
       Left = 22
-      Top = 425
+      Top = 590
       Width = 521
       Height = 20
       Font.Charset = DEFAULT_CHARSET
@@ -231,21 +231,22 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       Font.Name = 'Tahoma'
       Font.Style = []
       ParentFont = False
-      TabOrder = 12
+      TabOrder = 13
       ReadOnly = False
       ExplicitLeft = 22
-      ExplicitTop = 425
+      ExplicitTop = 590
       ExplicitHeight = 20
       inherited memObservaciones: TcxDBMemo
         DataBinding.DataField = 'OBSERVACIONES'
         DataBinding.DataSource = DADataSource
+        ExplicitWidth = 536
         ExplicitHeight = 20
         Height = 20
       end
     end
     object cbRecargoEquivalencia: TcxDBCheckBox
       Left = 22
-      Top = 374
+      Top = 539
       Caption = '  No acogida a comisiones'
       DataBinding.DataField = 'SIN_COMISION'
       DataBinding.DataSource = DADataSource
@@ -271,7 +272,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       StyleHot.LookAndFeel.Kind = lfStandard
       StyleHot.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.SkinName = ''
-      TabOrder = 10
+      TabOrder = 11
       Width = 158
     end
     object edtSituacion: TcxDBComboBox
@@ -366,6 +367,39 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
       TabOrder = 2
       Width = 158
     end
+    inline frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial
+      Left = 22
+      Top = 374
+      Width = 425
+      Height = 135
+      Font.Charset = DEFAULT_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -11
+      Font.Name = 'Tahoma'
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 10
+      ReadOnly = False
+      ExplicitLeft = 22
+      ExplicitTop = 374
+      inherited dxLayoutControl1: TdxLayoutControl
+        ExplicitWidth = 407
+        inherited edtlNombreAgente: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 224
+          Width = 224
+        end
+        inherited edtDelegacion: TcxDBTextEdit
+          DataBinding.DataSource = DADataSource
+          ExplicitWidth = 562
+          Width = 562
+        end
+        inherited Button3: TBitBtn
+          Left = 317
+          ExplicitLeft = 317
+        end
+      end
+    end
     object dxLayoutControl1Group_Root: TdxLayoutGroup
       ShowCaption = False
       Hidden = True
@@ -434,6 +468,7 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
           end
           object dxLayoutControl1Group4: TdxLayoutGroup
             AutoAligns = [aaVertical]
+            AlignHorz = ahClient
             Caption = 'Contrato asociado'
             Enabled = False
             object dxLayoutControl1Item8: TdxLayoutItem
@@ -454,6 +489,14 @@ inherited frViewFacturaCliente: TfrViewFacturaCliente
               ControlOptions.ShowBorder = False
             end
           end
+          object dxLayoutControl1Group10: TdxLayoutGroup
+            Caption = 'Datos comerciales'
+            object dxLayoutControl1Item12: TdxLayoutItem
+              Control = frViewDatosYSeleccionComercial1
+              ControlOptions.AutoColor = True
+              ControlOptions.ShowBorder = False
+            end
+          end
           object dxLayoutControl1Group9: TdxLayoutGroup
             Caption = 'Comisiones'
             Enabled = False

Source/Modulos/Facturas de cliente/Views/uViewFacturaCliente.pas

@@ -11,7 +11,7 @@ uses
   DBCtrls, cxGraphics, dxLayoutLookAndFeels, cxLookupEdit, cxDBLookupEdit,
   cxDBLookupComboBox, uFormasPagoController, uDAInterfaces, uBizFormasPago,
   uViewTienda, uFacturasClienteController, uViewClienteFactura, Menus, StdActns,
-  ActnList, uViewObservaciones, cxCheckBox;
+  ActnList, uViewObservaciones, cxCheckBox, uViewDatosYSeleccionComercial;
 
 type
   IViewFacturaCliente = interface(IViewBase)
@@ -67,6 +67,9 @@ type
     dxLayoutControl1Item11: TdxLayoutItem;
     cbTipoFactura: TcxDBLookupComboBox;
     dsTiposFactura: TDADataSource;
+    dxLayoutControl1Item12: TdxLayoutItem;
+    frViewDatosYSeleccionComercial1: TfrViewDatosYSeleccionComercial;
+    dxLayoutControl1Group10: TdxLayoutGroup;
     procedure bFormasPagoClick(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure CustomViewCreate(Sender: TObject);
@@ -82,6 +85,9 @@ type
     procedure SetFactura(const Value: IBizFacturaCliente);
     function GetController : IFacturasClienteController;
     procedure SetController (const Value : IFacturasClienteController);
+
+    procedure OnComercialChanged(Sender : TObject);
+
   public
     property Factura: IBizFacturaCliente read GetFactura write SetFactura;
     property Controller : IFacturasClienteController read GetController  write SetController;
@@ -91,7 +97,7 @@ type
 implementation
 
 uses
-  DateUtils, uDataModuleContactos, schFacturasClienteClient_Intf;
+  DateUtils, uDataModuleContactos, schFacturasClienteClient_Intf, uFactuGES_App;
 
 {$R *.dfm}
 
@@ -112,10 +118,21 @@ begin
   FFormasPagoController := TFormasPagoController.Create;
   cbFormaPago.Properties.OnEditValueChanged := cbFormaPagoPropertiesEditValueChanged;
   edtFechaVencimiento.Properties.OnEditValueChanged := edtFechaVencimientoPropertiesEditValueChanged;
+
+//FILTRO DE EMPRESAS
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+  begin
+    dxLayoutControl1Group10.Visible := true;
+  end
+  else
+  begin
+    dxLayoutControl1Group10.Visible := false;
+  end;
 end;
 
 procedure TfrViewFacturaCliente.CustomViewDestroy(Sender: TObject);
 begin
+  frViewDatosYSeleccionComercial1.OnComercialChanged := Nil;
   FFormasPago := Nil;
   FTiposFacturaCliente := Nil;
   FFormasPagoController := NIL;
@@ -187,6 +204,14 @@ begin
   Result := FFactura;
 end;
 
+procedure TfrViewFacturaCliente.OnComercialChanged(Sender: TObject);
+begin
+  if Assigned(FFactura) then
+  begin
+    FController.CambiarComercial(FFactura, frViewDatosYSeleccionComercial1.Comercial);
+  end;
+end;
+
 procedure TfrViewFacturaCliente.SetController(const Value: IFacturasClienteController);
 begin
   FController := Value;
@@ -235,6 +260,8 @@ begin
     //Solo se deshabilita al insertar, luego la referencia será modificable
     //eReferencia.Enabled := (FFactura.DataTable.State = dsInsert);
 
+    frViewDatosYSeleccionComercial1.OnComercialChanged := OnComercialChanged;
+
     if FFactura.TIPO = CTE_TIPO_ABONO then
     begin
       dxLayoutControl1Group1.Caption := 'Datos del abono:';

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.dfm

@@ -34,6 +34,20 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
             Value = 'A'
           end>
       end
+      object cxGridViewFAC_PRO_GRADEN: TcxGridDBColumn
+        Caption = '-'
+        DataBinding.FieldName = 'FAC_PROV_GRADEN'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Images = GridPNGImageList
+        Properties.Items = <
+          item
+            Description = 'Generada en Graden'
+            ImageIndex = 2
+            Value = 1
+          end
+          item
+          end>
+      end
       object cxGridViewTIENDA: TcxGridDBColumn
         Caption = 'Tienda'
         DataBinding.FieldName = 'TIENDA'
@@ -180,6 +194,22 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         Caption = 'Tipo operaci'#243'n'
         DataBinding.FieldName = 'TIPO_OPERACION'
       end
+      object cxGridViewAGENTE: TcxGridDBColumn
+        Caption = 'Comercial'
+        DataBinding.FieldName = 'NOMBRE_AGENTE'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
+      object cxGridViewDELEGACION: TcxGridDBColumn
+        Caption = 'Delegaci'#243'n'
+        DataBinding.FieldName = 'DELEGACION'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taRightJustify
+        FooterAlignmentHorz = taRightJustify
+        HeaderAlignmentHorz = taRightJustify
+      end
     end
     inherited cxGridLevel: TcxGridLevel
       Caption = 'Todas'
@@ -187,6 +217,9 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
     object cxGridPendientes: TcxGridLevel
       Caption = 'Pendientes'
     end
+    object cxGridParcialmentePagadas: TcxGridLevel
+      Caption = 'Parcialmente pagadas'
+    end
     object cxGridPagadas: TcxGridLevel
       Caption = 'Pagadas'
     end
@@ -272,6 +305,21 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
         object TBXItem4: TTBXItem
           Action = actProcedencia
         end
+        object TBXSeparatorItem4: TTBXSeparatorItem
+        end
+        object TBXItem5: TTBXItem
+          Action = actComercial
+        end
+        object TBXSeparatorItem5: TTBXSeparatorItem
+        end
+        object TBXItem6: TTBXItem
+          Action = actDelegacion
+        end
+        object TBXSeparatorItem6: TTBXSeparatorItem
+        end
+        object TBXItem7: TTBXItem
+          Action = actTienda
+        end
       end
     end
   end
@@ -297,6 +345,21 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
       OnExecute = actProcedenciaExecute
       OnUpdate = actProcedenciaUpdate
     end
+    object actComercial: TAction
+      Caption = 'Comercial'
+      OnExecute = actComercialExecute
+      OnUpdate = actComercialUpdate
+    end
+    object actDelegacion: TAction
+      Caption = 'Delegaci'#243'n'
+      OnExecute = actDelegacionExecute
+      OnUpdate = actDelegacionUpdate
+    end
+    object actTienda: TAction
+      Caption = 'Tienda'
+      OnExecute = actTiendaExecute
+      OnUpdate = actTiendaUpdate
+    end
   end
   inherited GridPNGImageList: TPngImageList
     PngImages = <
@@ -411,6 +474,29 @@ inherited frViewFacturasCliente: TfrViewFacturasCliente
           00004B6D80F047EC10D30000000049454E44AE426082}
         Name = 'PngImage1'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AEB00000AEB01828B0D5A000001DA4944415478DA
+          63FCFFFF3F032580912C5DF2F33964B539E3DF7DF8F1956403380CE7C85B5929
+          CFFAF99ED7FCFCED9BE124192060B7D8D6CE5279E99B876C42674FFC0CFEF9C0
+          7A27D10628FBAF0FB030915F74E7EA6FE6F387FF87FD7A6AB195E83090F55915
+          EEE7A23BE7FCD9CFAC170EFF4EFDF6C07A31D18128E1BE3CC8DB597BE1A3BBBF
+          B98EECFA91FBFDBEF574A0F07FA20C10B09B67EBE366B8E3CDF37F9C47F77CED
+          FC7CD3AE125D0DC400B3897C9CCCBCEADFD9182F331C4CFC010E6DCB39F29E0E
+          3A07599939E477AE7FBFFBE3CF4BBE0C77F27F621820EAB848DFDC447931372B
+          9FE68E5DF7577F3C73368E414588D9C6496BB3AA92B8CBDECD9FDEBC7CF9D3F2
+          E71DE7BBD85CC928EAB438C4C7556F3A0B1B8BC8B1BD9FFFDE7B753F4C41994B
+          C3CA48B1E5F09ECFFFEF3F7D19F3FB5AD0725CDE047B41276243A09D85FAAAA7
+          CFBFB11CDEFBEA8EA79F98E4C3FBBFB8CF9F7BBDE5EB453F3FE440C31E060CF5
+          4C4ED9F63B6565845D5EBEFEF29F11287AE9C4AF2FAFBF3D32FF753EFE3ABE80
+          86C7028FF5429B101F83FDCF5F7F66797697E1FFCDDB6FA7FFBAE69F4D289A91
+          A2B19EC539C7E1C49BC7EC46F71EBDD9FFF9DFD338868B994F4930808181D76E
+          413EF33F56D90F0F5ED4323C29FE4E4833080000904EC47A3EA3126900000000
+          49454E44AE426082}
+        Name = 'PngImage2'
+        Background = clWindow
       end>
     Bitmap = {}
   end

Source/Modulos/Facturas de cliente/Views/uViewFacturasCliente.pas

@@ -44,7 +44,7 @@ type
     cxStylePagada: TcxStyle;
     cxGridPendientes: TcxGridLevel;
     cxStyleAbono: TcxStyle;
-    cxGridPagadas: TcxGridLevel;
+    cxGridParcialmentePagadas: TcxGridLevel;
     cxGridViewREFERENCIA_COMISION: TcxGridDBColumn;
     cxStylePendientes: TcxStyle;
     cxStyleParciales: TcxStyle;
@@ -69,6 +69,19 @@ type
     TBXSeparatorItem3: TTBXSeparatorItem;
     TBXItem4: TTBXItem;
     cxGridViewTIPO_OPERACION: TcxGridDBColumn;
+    cxGridPagadas: TcxGridLevel;
+    cxGridViewAGENTE: TcxGridDBColumn;
+    cxGridViewDELEGACION: TcxGridDBColumn;
+    actComercial: TAction;
+    actDelegacion: TAction;
+    TBXSeparatorItem4: TTBXSeparatorItem;
+    TBXItem5: TTBXItem;
+    TBXSeparatorItem5: TTBXSeparatorItem;
+    TBXItem6: TTBXItem;
+    cxGridViewFAC_PRO_GRADEN: TcxGridDBColumn;
+    actTienda: TAction;
+    TBXSeparatorItem6: TTBXSeparatorItem;
+    TBXItem7: TTBXItem;
     procedure cxGridViewStylesGetContentStyle(Sender: TcxCustomGridTableView;
       ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
       out AStyle: TcxStyle);
@@ -79,6 +92,12 @@ type
     procedure actClienteUpdate(Sender: TObject);
     procedure actProcedenciaExecute(Sender: TObject);
     procedure actProcedenciaUpdate(Sender: TObject);
+    procedure actComercialExecute(Sender: TObject);
+    procedure actComercialUpdate(Sender: TObject);
+    procedure actDelegacionExecute(Sender: TObject);
+    procedure actDelegacionUpdate(Sender: TObject);
+    procedure actTiendaExecute(Sender: TObject);
+    procedure actTiendaUpdate(Sender: TObject);
 
   private
     //Filtros relativos a la vista
@@ -126,6 +145,46 @@ begin
   (Sender as TAction).Checked := not (cxGridViewNOMBRE.GroupIndex < 0);
 end;
 
+procedure TfrViewFacturasCliente.actComercialExecute(Sender: TObject);
+begin
+  if (cxGridViewAGENTE.GroupIndex < 0) then
+  begin
+    cxGridViewAGENTE.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewAGENTE.Visible := False;
+  end
+  else
+  begin
+    cxGridViewAGENTE.GroupIndex := -1;
+    cxGridViewAGENTE.Visible := True;
+  end;
+end;
+
+procedure TfrViewFacturasCliente.actComercialUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewAGENTE.GroupIndex < 0);
+end;
+
+procedure TfrViewFacturasCliente.actDelegacionExecute(Sender: TObject);
+begin
+  if (cxGridViewDELEGACION.GroupIndex < 0) then
+  begin
+    cxGridViewDELEGACION.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewDELEGACION.Visible := False;
+  end
+  else
+  begin
+    cxGridViewDELEGACION.GroupIndex := -1;
+    cxGridViewDELEGACION.Visible := True;
+  end;
+end;
+
+procedure TfrViewFacturasCliente.actDelegacionUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewDELEGACION.GroupIndex < 0);
+end;
+
 procedure TfrViewFacturasCliente.actProcedenciaExecute(Sender: TObject);
 begin
   if (cxGridViewPROCEDENCIA_CLIENTE.GroupIndex < 0) then
@@ -166,6 +225,26 @@ begin
   (Sender as TAction).Checked := not (cxGridViewPROVINCIA.GroupIndex < 0);
 end;
 
+procedure TfrViewFacturasCliente.actTiendaExecute(Sender: TObject);
+begin
+  if (cxGridViewTIENDA.GroupIndex < 0) then
+  begin
+    cxGridViewTIENDA.GroupIndex := cxGridView.GroupedColumnCount;
+    cxGridViewTIENDA.Visible := False;
+  end
+  else
+  begin
+    cxGridViewTIENDA.GroupIndex := -1;
+    cxGridViewTIENDA.Visible := True;
+  end;
+end;
+
+procedure TfrViewFacturasCliente.actTiendaUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Checked := not (cxGridViewTIENDA.GroupIndex < 0);
+end;
+
 procedure TfrViewFacturasCliente.AnadirFiltroFechas;
 var
   Columna: TcxGridDBColumn;
@@ -216,12 +295,43 @@ end;
 procedure TfrViewFacturasCliente.ConfigView;
 begin
   inherited;
+//FILTRO DE EMPRESAS
+  if (AppFactuGES.EmpresaActiva.ID = CTE_EMPRESA_ABETO) then
+  begin
+    cxGridViewFAC_PRO_GRADEN.Visible := True;
+    cxGridViewFAC_PRO_GRADEN.VisibleForCustomization := True;
 
-  if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
-    cxGridViewTIENDA.Visible := True
-  else
     cxGridViewTIENDA.Visible := False;
+    cxGridViewTIENDA.VisibleForCustomization := False;
 
+    cxGridViewAGENTE.Visible := True;
+    cxGridViewAGENTE.VisibleForCustomization := True;
+
+    cxGridViewDELEGACION.Visible := True;
+    cxGridViewDELEGACION.VisibleForCustomization := True;
+
+    actComercial.Visible := True;
+    actDelegacion.Visible := True;
+    actTienda.Visible := False;
+  end
+  else
+  begin
+    cxGridViewFAC_PRO_GRADEN.Visible := False;
+    cxGridViewFAC_PRO_GRADEN.VisibleForCustomization := False;
+
+    cxGridViewTIENDA.Visible := True;
+    cxGridViewTIENDA.VisibleForCustomization := True;
+
+    cxGridViewAGENTE.Visible := False;
+    cxGridViewAGENTE.VisibleForCustomization := False;
+
+    cxGridViewDELEGACION.Visible := False;
+    cxGridViewDELEGACION.VisibleForCustomization := False;
+
+    actComercial.Visible := False;
+    actDelegacion.Visible := False;
+    actTienda.Visible := True;    
+  end;
 end;
 
 procedure TfrViewFacturasCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid;

Source/Modulos/Facturas de proveedor/Data/uDataModuleFacturasProveedor.dfm

@@ -307,6 +307,10 @@ inherited DataModuleFacturasProveedor: TDataModuleFacturasProveedor
         DataType = datString
         Size = 2000
         ServerAutoRefresh = True
+      end
+      item
+        Name = 'ID_FAC_CLI_ABETO'
+        DataType = datInteger
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorClient_Intf.pas

@@ -9,11 +9,11 @@ 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_ListaAnosFacturas = '{86B2646C-3D08-4998-BE60-E074E0E14D49}';
+  RID_ListaAnosFacturas = '{C795D4A1-0A52-4FA3-B56A-8A8A49447AF6}';
-  RID_FacturasProveedor_Contratos = '{35611620-800C-4384-9A19-DDA27BBA8712}';
+  RID_FacturasProveedor_Contratos = '{6CA037E3-259D-445F-8839-5C9CBE848D8A}';
-  RID_TiposFacturaProveedor = '{C29C3085-62F1-4941-BE37-C5B149628A3D}';
+  RID_TiposFacturaProveedor = '{7A2B3173-9F36-4803-8DDB-9CEC56652088}';
-  RID_FacturasProveedor = '{929CD1FD-F373-41DE-9E8C-E3ADAAACFDCA}';
+  RID_FacturasProveedor = '{85826572-C7D0-4814-82FF-44CFC6876F9C}';
-  RID_FacturasProveedor_Detalles = '{2FF146A9-5522-4AE0-A3E0-84FCDDD001F0}';
+  RID_FacturasProveedor_Detalles = '{3546075B-F1D3-42CF-8783-6EEB305E0EB4}';
 
   { Data table names }
   nme_ListaAnosFacturas = 'ListaAnosFacturas';
@@ -102,6 +102,7 @@ const
   fld_FacturasProveedorASIENTO_PUNTEADO = 'ASIENTO_PUNTEADO';
   fld_FacturasProveedorID_TIPO_FACTURA = 'ID_TIPO_FACTURA';
   fld_FacturasProveedorTIPO_OPERACION = 'TIPO_OPERACION';
+  fld_FacturasProveedorID_FAC_CLI_ABETO = 'ID_FAC_CLI_ABETO';
 
   { FacturasProveedor field indexes }
   idx_FacturasProveedorID = 0;
@@ -151,6 +152,7 @@ const
   idx_FacturasProveedorASIENTO_PUNTEADO = 44;
   idx_FacturasProveedorID_TIPO_FACTURA = 45;
   idx_FacturasProveedorTIPO_OPERACION = 46;
+  idx_FacturasProveedorID_FAC_CLI_ABETO = 47;
 
   { FacturasProveedor_Detalles fields }
   fld_FacturasProveedor_DetallesID = 'ID';
@@ -189,7 +191,7 @@ const
 type
   { IListaAnosFacturas }
   IListaAnosFacturas = interface(IDAStronglyTypedDataTable)
-  ['{26F14D33-760A-45A2-B723-80BC6DDB90F8}']
+  ['{677DC78A-8BD5-4A06-9535-79323950FEBC}']
     { Property getters and setters }
     function GetANOValue: String;
     procedure SetANOValue(const aValue: String);
@@ -224,7 +226,7 @@ type
 
   { IFacturasProveedor_Contratos }
   IFacturasProveedor_Contratos = interface(IDAStronglyTypedDataTable)
-  ['{149CC99D-F584-4547-943C-72C850B293BF}']
+  ['{7871ACC0-F5B9-4963-BCC2-7126A70F6F9F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -331,7 +333,7 @@ type
 
   { ITiposFacturaProveedor }
   ITiposFacturaProveedor = interface(IDAStronglyTypedDataTable)
-  ['{AA5624ED-B5AC-4A8D-B6F5-45C128D996CA}']
+  ['{23D10CD4-14DA-4C1C-A232-1BDB15A926F3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -378,7 +380,7 @@ type
 
   { IFacturasProveedor }
   IFacturasProveedor = interface(IDAStronglyTypedDataTable)
-  ['{581EE6A4-62EA-46B4-B71E-436B08372DC4}']
+  ['{12529FCC-521D-4FE0-8295-3C1A9066413F}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -567,6 +569,10 @@ type
     procedure SetTIPO_OPERACIONValue(const aValue: String);
     function GetTIPO_OPERACIONIsNull: Boolean;
     procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean);
+    function GetID_FAC_CLI_ABETOValue: Integer;
+    procedure SetID_FAC_CLI_ABETOValue(const aValue: Integer);
+    function GetID_FAC_CLI_ABETOIsNull: Boolean;
+    procedure SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -664,6 +670,8 @@ type
     property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
     property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
     property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
+    property ID_FAC_CLI_ABETO: Integer read GetID_FAC_CLI_ABETOValue write SetID_FAC_CLI_ABETOValue;
+    property ID_FAC_CLI_ABETOIsNull: Boolean read GetID_FAC_CLI_ABETOIsNull write SetID_FAC_CLI_ABETOIsNull;
   end;
 
   { TFacturasProveedorDataTableRules }
@@ -860,6 +868,10 @@ type
     procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
     function GetTIPO_OPERACIONIsNull: Boolean; virtual;
     procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
+    function GetID_FAC_CLI_ABETOValue: Integer; virtual;
+    procedure SetID_FAC_CLI_ABETOValue(const aValue: Integer); virtual;
+    function GetID_FAC_CLI_ABETOIsNull: Boolean; virtual;
+    procedure SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -956,6 +968,8 @@ type
     property ID_TIPO_FACTURAIsNull: Boolean read GetID_TIPO_FACTURAIsNull write SetID_TIPO_FACTURAIsNull;
     property TIPO_OPERACION: String read GetTIPO_OPERACIONValue write SetTIPO_OPERACIONValue;
     property TIPO_OPERACIONIsNull: Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
+    property ID_FAC_CLI_ABETO: Integer read GetID_FAC_CLI_ABETOValue write SetID_FAC_CLI_ABETOValue;
+    property ID_FAC_CLI_ABETOIsNull: Boolean read GetID_FAC_CLI_ABETOIsNull write SetID_FAC_CLI_ABETOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -965,7 +979,7 @@ type
 
   { IFacturasProveedor_Detalles }
   IFacturasProveedor_Detalles = interface(IDAStronglyTypedDataTable)
-  ['{26EEA163-23D5-4935-BF2A-200A5DA623FE}']
+  ['{12BCF451-3108-4489-A00F-6C9B9F8C50A3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2421,6 +2435,27 @@ begin
     DataTable.Fields[idx_FacturasProveedorTIPO_OPERACION].AsVariant := Null;
 end;
 
+function TFacturasProveedorDataTableRules.GetID_FAC_CLI_ABETOValue: Integer;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].AsInteger;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_FAC_CLI_ABETOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].AsInteger := aValue;
+end;
+
+function TFacturasProveedorDataTableRules.GetID_FAC_CLI_ABETOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].IsNull;
+end;
+
+procedure TFacturasProveedorDataTableRules.SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_FacturasProveedorID_FAC_CLI_ABETO].AsVariant := Null;
+end;
+
 
 { TFacturasProveedor_DetallesDataTableRules }
 constructor TFacturasProveedor_DetallesDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Facturas de proveedor/Model/schFacturasProveedorServer_Intf.pas

@@ -9,16 +9,16 @@ 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_ListaAnosFacturasDelta = '{7D2C6A78-D9EC-43F0-8348-7DB4D1844A9D}';
+  RID_ListaAnosFacturasDelta = '{5B73EE35-573D-44D3-A750-56239AFE75A4}';
-  RID_FacturasProveedor_ContratosDelta = '{9AAF8413-846C-41CF-A1BF-1B58ACB22C6D}';
+  RID_FacturasProveedor_ContratosDelta = '{25AAA83B-B9D6-4975-9333-393E5F2795B1}';
-  RID_TiposFacturaProveedorDelta = '{AF2221C9-11CA-43B0-B60A-52E15F74A52E}';
+  RID_TiposFacturaProveedorDelta = '{468C61BB-0645-4D13-A693-46AED25530A7}';
-  RID_FacturasProveedorDelta = '{0E342571-E21F-464F-8639-C391CFDC0CFB}';
+  RID_FacturasProveedorDelta = '{1E6C88EB-230C-44A6-B931-E6F1E7917A89}';
-  RID_FacturasProveedor_DetallesDelta = '{ECA60AB2-29CF-4521-882B-9629AA3AD1B2}';
+  RID_FacturasProveedor_DetallesDelta = '{2B5BE721-B901-4AD3-A224-0B771CAE4490}';
 
 type
   { IListaAnosFacturasDelta }
   IListaAnosFacturasDelta = interface(IListaAnosFacturas)
-  ['{7D2C6A78-D9EC-43F0-8348-7DB4D1844A9D}']
+  ['{5B73EE35-573D-44D3-A750-56239AFE75A4}']
     { Property getters and setters }
     function GetOldANOValue : String;
 
@@ -52,7 +52,7 @@ type
 
   { IFacturasProveedor_ContratosDelta }
   IFacturasProveedor_ContratosDelta = interface(IFacturasProveedor_Contratos)
-  ['{9AAF8413-846C-41CF-A1BF-1B58ACB22C6D}']
+  ['{25AAA83B-B9D6-4975-9333-393E5F2795B1}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -158,7 +158,7 @@ type
 
   { ITiposFacturaProveedorDelta }
   ITiposFacturaProveedorDelta = interface(ITiposFacturaProveedor)
-  ['{AF2221C9-11CA-43B0-B60A-52E15F74A52E}']
+  ['{468C61BB-0645-4D13-A693-46AED25530A7}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -204,7 +204,7 @@ type
 
   { IFacturasProveedorDelta }
   IFacturasProveedorDelta = interface(IFacturasProveedor)
-  ['{0E342571-E21F-464F-8639-C391CFDC0CFB}']
+  ['{1E6C88EB-230C-44A6-B931-E6F1E7917A89}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_EMPRESAValue : Integer;
@@ -253,6 +253,7 @@ type
     function GetOldASIENTO_PUNTEADOValue : SmallInt;
     function GetOldID_TIPO_FACTURAValue : Integer;
     function GetOldTIPO_OPERACIONValue : String;
+    function GetOldID_FAC_CLI_ABETOValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -302,6 +303,7 @@ type
     property OldASIENTO_PUNTEADO : SmallInt read GetOldASIENTO_PUNTEADOValue;
     property OldID_TIPO_FACTURA : Integer read GetOldID_TIPO_FACTURAValue;
     property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
+    property OldID_FAC_CLI_ABETO : Integer read GetOldID_FAC_CLI_ABETOValue;
   end;
 
   { TFacturasProveedorBusinessProcessorRules }
@@ -592,6 +594,12 @@ type
     function GetOldTIPO_OPERACIONIsNull: Boolean; virtual;
     procedure SetTIPO_OPERACIONValue(const aValue: String); virtual;
     procedure SetTIPO_OPERACIONIsNull(const aValue: Boolean); virtual;
+    function GetID_FAC_CLI_ABETOValue: Integer; virtual;
+    function GetID_FAC_CLI_ABETOIsNull: Boolean; virtual;
+    function GetOldID_FAC_CLI_ABETOValue: Integer; virtual;
+    function GetOldID_FAC_CLI_ABETOIsNull: Boolean; virtual;
+    procedure SetID_FAC_CLI_ABETOValue(const aValue: Integer); virtual;
+    procedure SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -782,6 +790,10 @@ type
     property TIPO_OPERACIONIsNull : Boolean read GetTIPO_OPERACIONIsNull write SetTIPO_OPERACIONIsNull;
     property OldTIPO_OPERACION : String read GetOldTIPO_OPERACIONValue;
     property OldTIPO_OPERACIONIsNull : Boolean read GetOldTIPO_OPERACIONIsNull;
+    property ID_FAC_CLI_ABETO : Integer read GetID_FAC_CLI_ABETOValue write SetID_FAC_CLI_ABETOValue;
+    property ID_FAC_CLI_ABETOIsNull : Boolean read GetID_FAC_CLI_ABETOIsNull write SetID_FAC_CLI_ABETOIsNull;
+    property OldID_FAC_CLI_ABETO : Integer read GetOldID_FAC_CLI_ABETOValue;
+    property OldID_FAC_CLI_ABETOIsNull : Boolean read GetOldID_FAC_CLI_ABETOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -791,7 +803,7 @@ type
 
   { IFacturasProveedor_DetallesDelta }
   IFacturasProveedor_DetallesDelta = interface(IFacturasProveedor_Detalles)
-  ['{ECA60AB2-29CF-4521-882B-9629AA3AD1B2}']
+  ['{2B5BE721-B901-4AD3-A224-0B771CAE4490}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_FACTURAValue : Integer;
@@ -2818,6 +2830,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorTIPO_OPERACION] := Null;
 end;
 
+function TFacturasProveedorBusinessProcessorRules.GetID_FAC_CLI_ABETOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetID_FAC_CLI_ABETOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO]);
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_FAC_CLI_ABETOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO];
+end;
+
+function TFacturasProveedorBusinessProcessorRules.GetOldID_FAC_CLI_ABETOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO]);
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_FAC_CLI_ABETOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO] := aValue;
+end;
+
+procedure TFacturasProveedorBusinessProcessorRules.SetID_FAC_CLI_ABETOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO] := Null;
+end;
+
 
 { TFacturasProveedor_DetallesBusinessProcessorRules }
 constructor TFacturasProveedor_DetallesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas

@@ -142,6 +142,20 @@ begin
   finally
     ACommand := NIL;
   end;
+
+  //Liberamos la factura de cliente de Abeto en el caso de ser una factura de proveedor automatica desde fabrica
+  if not VarIsNull(aChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO]) then
+    ACommand := ASchema.NewCommand(ACurrentConn, 'LiberarFacturaClienteAbeto');
+    try
+      with ACommand do
+      begin
+        ParamByName('ID_FAC_CLI_ABETO').Value := aChange.OldValueByName[fld_FacturasProveedorID_FAC_CLI_ABETO];
+        Execute;
+      end;
+    finally
+      ACommand := NIL;
+    end;
+
 end;
 
 function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;

Source/Modulos/Facturas de proveedor/Servidor/srvFacturasProveedor_Impl.dfm

@@ -363,6 +363,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               item
                 DatasetField = 'TIPO_OPERACION'
                 TableField = 'TIPO_OPERACION'
+              end
+              item
+                DatasetField = 'ID_FAC_CLI_ABETO'
+                TableField = 'ID_FAC_CLI_ABETO'
               end>
           end>
         Name = 'FacturasProveedor'
@@ -612,6 +616,10 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             DataType = datString
             Size = 2000
             ServerAutoRefresh = True
+          end
+          item
+            Name = 'ID_FAC_CLI_ABETO'
+            DataType = datInteger
           end>
       end
       item
@@ -1055,6 +1063,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             DataType = datString
             Size = 255
             Value = ''
+          end
+          item
+            Name = 'ID_FAC_CLI_ABETO'
+            DataType = datInteger
+            Value = ''
           end>
         Statements = <
           item
@@ -1070,15 +1083,16 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               ', PROVINCIA, CODIGO_POSTAL, '#10'     FECHA_ALTA, USUARIO, ID_FORMA_' +
               'PAGO,'#10'     RECARGO_EQUIVALENCIA, ID_TIPO_IVA, IMPORTE_NETO, IMPO' +
               'RTE_PORTE, IGNORAR_CONTABILIDAD,'#10'     ID_TIENDA, ID_TIPO_FACTURA' +
-              ', SITUACION)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :REFERENCIA, :REFER' +
+              ', SITUACION, ID_FAC_CLI_ABETO)'#10'  VALUES'#10'    (:ID, :ID_EMPRESA, :' +
-              'ENCIA_PROVEEDOR,'#10'     :FECHA_FACTURA, :FECHA_VENCIMIENTO, :BASE_' +
+              'REFERENCIA, :REFERENCIA_PROVEEDOR,'#10'     :FECHA_FACTURA, :FECHA_V' +
-              'IMPONIBLE, :DESCUENTO,'#10'     :IMPORTE_DESCUENTO, :IVA, :IMPORTE_I' +
+              'ENCIMIENTO, :BASE_IMPONIBLE, :DESCUENTO,'#10'     :IMPORTE_DESCUENTO' +
-              'VA, :IRPF, :IMPORTE_IRPF,'#10'     :RE, :IMPORTE_RE, :IMPORTE_TOTAL,' +
+              ', :IVA, :IMPORTE_IVA, :IRPF, :IMPORTE_IRPF,'#10'     :RE, :IMPORTE_R' +
-              ' :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10'     :NOMBRE, :CALLE, ' +
+              'E, :IMPORTE_TOTAL, :OBSERVACIONES, :ID_PROVEEDOR, :NIF_CIF,'#10'    ' +
-              ':POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10'     CURRENT_TIMESTAMP,' +
+              ' :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIGO_POSTAL, '#10'     ' +
-              ' :USUARIO, :ID_FORMA_PAGO,'#10'     :RECARGO_EQUIVALENCIA, :ID_TIPO_' +
+              'CURRENT_TIMESTAMP, :USUARIO, :ID_FORMA_PAGO,'#10'     :RECARGO_EQUIV' +
-              'IVA, :IMPORTE_NETO, '#10'     :IMPORTE_PORTE, :IGNORAR_CONTABILIDAD,' +
+              'ALENCIA, :ID_TIPO_IVA, :IMPORTE_NETO, '#10'     :IMPORTE_PORTE, :IGN' +
-              ' :ID_TIENDA, :ID_TIPO_FACTURA, :SITUACION)'#10'     '#10'     '#10#10
+              'ORAR_CONTABILIDAD, :ID_TIENDA, :ID_TIPO_FACTURA,'#10'     :SITUACION' +
+              ', :ID_FAC_CLI_ABETO)'#10'     '#10'     '#10#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1285,6 +1299,11 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             Size = 255
             Value = ''
           end
+          item
+            Name = 'ID_FAC_CLI_ABETO'
+            DataType = datInteger
+            Value = ''
+          end
           item
             Name = 'OLD_ID'
             Value = ''
@@ -1313,7 +1332,8 @@ object srvFacturasProveedor: TsrvFacturasProveedor
               ' '#10'    IMPORTE_NETO = :IMPORTE_NETO, '#10'    IMPORTE_PORTE = :IMPORT' +
               'E_PORTE,'#10'    IGNORAR_CONTABILIDAD = :IGNORAR_CONTABILIDAD,'#10'    I' +
               'D_TIENDA = :ID_TIENDA,'#10'    ID_TIPO_FACTURA = :ID_TIPO_FACTURA,'#10' ' +
-              '   SITUACION = :SITUACION'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
+              '   SITUACION = :SITUACION,'#10'    ID_FAC_CLI_ABETO = :ID_FAC_CLI_AB' +
+              'ETO'#10'  WHERE'#10'    (ID = :OLD_ID)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -1609,6 +1629,26 @@ object srvFacturasProveedor: TsrvFacturasProveedor
             ColumnMappings = <>
           end>
         Name = 'Update_FacturasProveedor_Contratos'
+      end
+      item
+        Params = <
+          item
+            Name = 'ID_FAC_CLI_ABETO'
+            Value = ''
+          end>
+        Statements = <
+          item
+            Connection = 'IBX'
+            ConnectionType = 'Interbase'
+            Default = True
+            TargetTable = 'FACTURAS_CLIENTE'
+            SQL = 
+              'UPDATE FACTURAS_CLIENTE'#10'SET FAC_PROV_GRADEN = NULL'#10'WHERE ID = :I' +
+              'D_FAC_CLI_ABETO'#10
+            StatementType = stSQL
+            ColumnMappings = <>
+          end>
+        Name = 'LiberarFacturaClienteAbeto'
       end>
     RelationShips = <
       item

Source/Modulos/Facturas de proveedor/Views/uViewFacturasProveedor.dfm

@@ -259,8 +259,6 @@ inherited frViewFacturasProveedor: TfrViewFacturasProveedor
           StyleFocused.LookAndFeel.SkinName = ''
           StyleHot.LookAndFeel.SkinName = ''
           ExplicitLeft = 361
-          ExplicitWidth = 250
-          Width = 250
         end
       end
       inherited TBXAlignmentPanel1: TTBXAlignmentPanel