diff --git a/Source/ApplicationBase/ApplicationBase.dproj b/Source/ApplicationBase/ApplicationBase.dproj
index 63291f84..98ba22d8 100644
--- a/Source/ApplicationBase/ApplicationBase.dproj
+++ b/Source/ApplicationBase/ApplicationBase.dproj
@@ -60,62 +60,6 @@
       
       
       
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
diff --git a/Source/ApplicationBase/ApplicationBase.res b/Source/ApplicationBase/ApplicationBase.res
index 02236de8..8b251f31 100644
Binary files a/Source/ApplicationBase/ApplicationBase.res and b/Source/ApplicationBase/ApplicationBase.res differ
diff --git a/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas b/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
index 315413be..13d25c03 100644
--- a/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
+++ b/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
@@ -9,12 +9,12 @@ const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_USUARIOS = '{CFE175CF-EB6D-4BF8-91B4-F0140B57453E}';
-  RID_USUARIOS_EVENTOS = '{6013DEA6-697A-4A8C-8D92-51677BB6F39F}';
-  RID_USUARIOS_LOGON = '{C666C96E-401A-4FB5-A0E2-F3DB7BAB5F3D}';
-  RID_PERMISOS = '{02CCB513-8F98-406C-ADAC-21C189AABA29}';
-  RID_PERMISOSEX = '{B8D57BF7-0B57-4A0B-8F9E-12E87D0B6B60}';
-  RID_PERFILES = '{0AF2374A-D201-4B82-BB13-07265E1BAEBE}';
+  RID_USUARIOS = '{4ED84753-A082-44F4-BEA1-B84E494129F1}';
+  RID_USUARIOS_EVENTOS = '{5A454EB1-F5D2-4E55-8DC3-2C42AF250C42}';
+  RID_USUARIOS_LOGON = '{50AFB47C-FF60-4F01-B19C-FED2D4E6C884}';
+  RID_PERMISOS = '{65C900D5-5EF1-4B26-9D61-CD0183BD5CAF}';
+  RID_PERMISOSEX = '{66351DE2-540F-4456-A330-2634D71EA2E4}';
+  RID_PERFILES = '{A054E0CE-4F22-4376-88E2-07ABF712361C}';
 
   { Data table names }
   nme_USUARIOS = 'USUARIOS';
@@ -129,7 +129,7 @@ const
 type
   { IUSUARIOS }
   IUSUARIOS = interface(IDAStronglyTypedDataTable)
-  ['{12D98238-4C08-4CB7-BAD1-1E2827ADE7A7}']
+  ['{30EDE872-B7DB-48D5-91B1-01659A9C9475}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -296,7 +296,7 @@ type
 
   { IUSUARIOS_EVENTOS }
   IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
-  ['{54DEE63E-4D88-43D8-8D34-1F51030428DE}']
+  ['{351226EB-9947-4892-A278-211C9F071DBF}']
     { Property getters and setters }
     function GetAPLICACIONValue: String;
     procedure SetAPLICACIONValue(const aValue: String);
@@ -427,7 +427,7 @@ type
 
   { IUSUARIOS_LOGON }
   IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
-  ['{D98BF482-EFA8-49ED-894A-E7774859C830}']
+  ['{E20DC12D-CE5C-4CBF-A6E4-3EDF551CF78F}']
     { Property getters and setters }
     function GetLOGONIDValue: String;
     procedure SetLOGONIDValue(const aValue: String);
@@ -510,7 +510,7 @@ type
 
   { IPERMISOS }
   IPERMISOS = interface(IDAStronglyTypedDataTable)
-  ['{076A52A0-4BD5-4617-80DB-69BB4B4C4E4E}']
+  ['{E5102A92-D8E5-4EBE-B311-813248EB7D0E}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -581,7 +581,7 @@ type
 
   { IPERMISOSEX }
   IPERMISOSEX = interface(IDAStronglyTypedDataTable)
-  ['{5778D823-11A3-4B43-8336-FB2ACBBCFCE5}']
+  ['{8E1FEA71-ABDC-4688-A6A7-145E11A8C18D}']
     { Property getters and setters }
     function GetID_USUARIOValue: Integer;
     procedure SetID_USUARIOValue(const aValue: Integer);
@@ -664,7 +664,7 @@ type
 
   { IPERFILES }
   IPERFILES = interface(IDAStronglyTypedDataTable)
-  ['{44741F58-0B27-462C-BA49-A6944FFA7BAC}']
+  ['{8A8536E6-95D0-4D6C-9F52-8EF5D46948A9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
diff --git a/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas b/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas
index aa60aab4..9be1d2bc 100644
--- a/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas
+++ b/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas
@@ -9,17 +9,17 @@ 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_USUARIOSDelta = '{D0217428-91FB-4128-8A0D-AF4A8A742D5A}';
-  RID_USUARIOS_EVENTOSDelta = '{16B87039-04DC-47AD-81D6-E8648C69A484}';
-  RID_USUARIOS_LOGONDelta = '{856F2E25-24EE-43BB-94F5-70DD65E4FD02}';
-  RID_PERMISOSDelta = '{DB34A951-27E2-4A70-843F-9C41FF29179D}';
-  RID_PERMISOSEXDelta = '{F40FC2C9-2DFF-4B12-8EE6-DAD609901516}';
-  RID_PERFILESDelta = '{07C28883-A52C-4111-ABBE-14E908E7C705}';
+  RID_USUARIOSDelta = '{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}';
+  RID_USUARIOS_EVENTOSDelta = '{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}';
+  RID_USUARIOS_LOGONDelta = '{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}';
+  RID_PERMISOSDelta = '{5B04B65B-14D8-4485-A305-214FDE2E6B38}';
+  RID_PERMISOSEXDelta = '{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}';
+  RID_PERFILESDelta = '{E9F8FD20-4505-4698-80CF-F4F641EB05F6}';
 
 type
   { IUSUARIOSDelta }
   IUSUARIOSDelta = interface(IUSUARIOS)
-  ['{D0217428-91FB-4128-8A0D-AF4A8A742D5A}']
+  ['{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;
@@ -185,7 +185,7 @@ type
 
   { IUSUARIOS_EVENTOSDelta }
   IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
-  ['{16B87039-04DC-47AD-81D6-E8648C69A484}']
+  ['{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}']
     { Property getters and setters }
     function GetOldAPLICACIONValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -316,7 +316,7 @@ type
 
   { IUSUARIOS_LOGONDelta }
   IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
-  ['{856F2E25-24EE-43BB-94F5-70DD65E4FD02}']
+  ['{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}']
     { Property getters and setters }
     function GetOldLOGONIDValue : String;
     function GetOldID_USUARIOValue : Integer;
@@ -398,7 +398,7 @@ type
 
   { IPERMISOSDelta }
   IPERMISOSDelta = interface(IPERMISOS)
-  ['{DB34A951-27E2-4A70-843F-9C41FF29179D}']
+  ['{5B04B65B-14D8-4485-A305-214FDE2E6B38}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -468,7 +468,7 @@ type
 
   { IPERMISOSEXDelta }
   IPERMISOSEXDelta = interface(IPERMISOSEX)
-  ['{F40FC2C9-2DFF-4B12-8EE6-DAD609901516}']
+  ['{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}']
     { Property getters and setters }
     function GetOldID_USUARIOValue : Integer;
     function GetOldMODULOValue : String;
@@ -550,7 +550,7 @@ type
 
   { IPERFILESDelta }
   IPERFILESDelta = interface(IPERFILES)
-  ['{07C28883-A52C-4111-ABBE-14E908E7C705}']
+  ['{E9F8FD20-4505-4698-80CF-F4F641EB05F6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldUSERNAMEValue : String;
diff --git a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm
index bfb74722..958a85ea 100644
--- a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm
+++ b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm
@@ -1,22 +1,22 @@
 inherited frViewUsuario: TfrViewUsuario
-  Width = 509
-  Height = 275
+  Width = 510
+  Height = 321
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitWidth = 509
-  ExplicitHeight = 275
+  ExplicitWidth = 510
+  ExplicitHeight = 321
   object dxLayoutControlArticulo: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 509
-    Height = 249
+    Width = 510
+    Height = 273
     Align = alTop
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth]
     DesignSize = (
-      509
-      249)
+      510
+      273)
     object PngSpeedButton3: TPngSpeedButton
       Left = 335
       Top = 82
diff --git a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
index 66f47e55..7343f126 100644
--- a/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
+++ b/Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
@@ -8,7 +8,8 @@ uses
   dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces,
   uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit,
   cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton,
-  uBizUsuarios, cxDropDownEdit, ExtCtrls;
+  uBizUsuarios, cxDropDownEdit, ExtCtrls, cxLookupEdit, cxDBLookupEdit,
+  cxDBLookupComboBox;
 
 type
   IViewUsuario = interface(IViewBase)
diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj
index 42308ec1..4622730a 100644
--- a/Source/Base/Base.dproj
+++ b/Source/Base/Base.dproj
@@ -50,6 +50,20 @@
       
       
       
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
+      
       
       <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@@ -65,33 +79,6 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\adortl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\cxIntl6D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dbrtl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dclIndyCore.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\designide.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\dsnap.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\GUISDK_D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\IndyCore.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\IndyProtocols.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\IndySystem.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\Jcl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JclVcl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JSDialog100.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCmpD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCoreD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvMMD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvNetD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\JvSystemD11R.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\pckMD5.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\pckUserControl_RT.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PlRemObjects_Core_D11.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginRemObjects_Core_D11.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDKRemObjects_Core_D11.dcp" />
@@ -105,21 +92,9 @@
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugiRemObjects_Core_D11.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugRemObjects_Core_D11.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PluRemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\PngComponentsD10.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\PNG_D10.dcp" />
     <DCCReference Include="..\ApplicationBase\Usuarios\Views\PRemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\rtl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\TB2k_D10.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\tbx_d10.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vcl.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vclactnband.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vcldb.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vcljpg.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\VclSmp.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\vclx.dcp" />
-    <DCCReference Include="..\ApplicationBase\Usuarios\Views\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="adortl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>
@@ -134,7 +109,40 @@
     </DCCReference>
     <DCCReference Include="Controladores\uControllerBase.pas" />
     <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
+    <DCCReference Include="cxIntl6D11.dcp" />
+    <DCCReference Include="cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="dbrtl.dcp" />
+    <DCCReference Include="dclIndyCore.dcp" />
+    <DCCReference Include="designide.dcp" />
+    <DCCReference Include="dsnap.dcp" />
+    <DCCReference Include="GUISDK_D11.dcp" />
+    <DCCReference Include="IndyCore.dcp" />
+    <DCCReference Include="IndyProtocols.dcp" />
+    <DCCReference Include="IndySystem.dcp" />
+    <DCCReference Include="Jcl.dcp" />
+    <DCCReference Include="JclVcl.dcp" />
+    <DCCReference Include="JSDialog100.dcp" />
+    <DCCReference Include="JvCmpD11R.dcp" />
+    <DCCReference Include="JvCoreD11R.dcp" />
+    <DCCReference Include="JvCtrlsD11R.dcp" />
+    <DCCReference Include="JvDlgsD11R.dcp" />
+    <DCCReference Include="JvMMD11R.dcp" />
+    <DCCReference Include="JvNetD11R.dcp" />
+    <DCCReference Include="JvPageCompsD11R.dcp" />
+    <DCCReference Include="JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="JvSystemD11R.dcp" />
+    <DCCReference Include="pckMD5.dcp" />
+    <DCCReference Include="pckUCDataConnector.dcp" />
+    <DCCReference Include="pckUserControl_RT.dcp" />
+    <DCCReference Include="PluginSDK_D10R.dcp" />
+    <DCCReference Include="PngComponentsD10.dcp" />
+    <DCCReference Include="PNG_D10.dcp" />
+    <DCCReference Include="RemObjects_Core_D11.dcp" />
+    <DCCReference Include="rtl.dcp" />
     <DCCReference Include="schBase_Intf.pas" />
+    <DCCReference Include="TB2k_D10.dcp" />
+    <DCCReference Include="tbx_d10.dcp" />
     <DCCReference Include="uDataModuleBase.pas">
       <Form>DataModuleBase</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -159,6 +167,13 @@
     <DCCReference Include="Utiles\uNumUtils.pas" />
     <DCCReference Include="Utiles\uPasswordUtils.pas" />
     <DCCReference Include="Utiles\uSistemaFunc.pas" />
+    <DCCReference Include="vcl.dcp" />
+    <DCCReference Include="vclactnband.dcp" />
+    <DCCReference Include="vcldb.dcp" />
+    <DCCReference Include="vcljpg.dcp" />
+    <DCCReference Include="VclSmp.dcp" />
+    <DCCReference Include="vclx.dcp" />
+    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Base/Base.res b/Source/Base/Base.res
index 1641339f..8b251f31 100644
Binary files a/Source/Base/Base.res and b/Source/Base/Base.res differ
diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
index 98457fc8..3e4577d0 100644
--- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
+++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
@@ -219,6 +219,10 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
         DataType = datMemo
         DisplayLabel = 'Experiencia'
         DictionaryEntry = 'Empleados_EXPERIENCIA'
+      end
+      item
+        Name = 'ID_USUARIO'
+        DataType = datInteger
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
index 60a7ef5b..2c566e91 100644
--- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
@@ -9,19 +9,19 @@ 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_SubCuentasContacto = '{3A96F518-FDB3-4AC2-A03B-E6A87E434350}';
-  RID_Contactos = '{2AB96FC3-B708-437B-910D-B0F12F202B45}';
-  RID_GruposCliente = '{DB1F7DCC-1A8D-4525-BC51-10168E3EB2F4}';
-  RID_DatosBancarios = '{0F6ADAA7-D882-4625-9761-0B1ECF8E4BBA}';
-  RID_Clientes = '{6B00E0B5-04DE-4C21-BF6F-E8547E10685A}';
-  RID_Proveedores = '{B6D14402-6D0B-4298-B466-5C1C11395730}';
-  RID_Empleados = '{C304A1E1-DB77-4C8C-BB54-87D0CC769466}';
-  RID_DireccionesContacto = '{7ABAAEB2-3F40-4C20-9A22-DD179F8B0174}';
-  RID_ClientesDescuentos = '{4F492473-E809-4FD5-B08F-19C02A0DE54F}';
-  RID_ProcedenciasCliente = '{A04D69D3-1A89-481F-9BE1-0ABD999BA8BB}';
-  RID_GruposProveedor = '{7361DD28-0C5E-4EFF-B65A-8664041D72B6}';
-  RID_GruposEmpleado = '{9E3186CA-2430-4277-84EA-7A42DFAB10DF}';
-  RID_Contactos_Refresh = '{742D6F1E-3935-4FA1-9F7D-D15F1F529F60}';
+  RID_SubCuentasContacto = '{BC709B14-569A-481A-AF2D-082B06DAD5BC}';
+  RID_Contactos = '{62A32748-9F85-4236-8D26-B9B3D8F9D108}';
+  RID_GruposCliente = '{FBBCA246-CCE1-444E-82B6-D3A03BCEF3AB}';
+  RID_DatosBancarios = '{7A84A957-75FA-4633-87DF-342160EB8A63}';
+  RID_Clientes = '{19780EDE-5603-4077-ACCF-78AECDFB2CF4}';
+  RID_Proveedores = '{FEE8B919-B708-440E-A7AC-206D6094BA05}';
+  RID_Empleados = '{4ADF005C-5C53-47EE-B005-0F6B2C592984}';
+  RID_DireccionesContacto = '{9A348CA2-7CD2-4F33-B87D-77ECACF35AA7}';
+  RID_ClientesDescuentos = '{7DD9C4C4-EBA3-4754-AE48-6D7C717FA906}';
+  RID_ProcedenciasCliente = '{11DAEA2C-AE68-4B21-AE46-0047E2AD0AD9}';
+  RID_GruposProveedor = '{D0D6EDF8-E981-4A4A-B9A4-E53845E7C94D}';
+  RID_GruposEmpleado = '{F23C537D-81CD-49B4-8582-99DCB92191F9}';
+  RID_Contactos_Refresh = '{DE1F8BFE-AB5E-44F2-83D4-DE83EAE66507}';
 
   { Data table names }
   nme_SubCuentasContacto = 'SubCuentasContacto';
@@ -325,6 +325,7 @@ const
   fld_EmpleadosFORMACION_COMPLE = 'FORMACION_COMPLE';
   fld_EmpleadosFORMACION_RECIBIDA = 'FORMACION_RECIBIDA';
   fld_EmpleadosEXPERIENCIA = 'EXPERIENCIA';
+  fld_EmpleadosID_USUARIO = 'ID_USUARIO';
 
   { Empleados field indexes }
   idx_EmpleadosID = 0;
@@ -359,6 +360,7 @@ const
   idx_EmpleadosFORMACION_COMPLE = 29;
   idx_EmpleadosFORMACION_RECIBIDA = 30;
   idx_EmpleadosEXPERIENCIA = 31;
+  idx_EmpleadosID_USUARIO = 32;
 
   { DireccionesContacto fields }
   fld_DireccionesContactoID = 'ID';
@@ -477,7 +479,7 @@ const
 type
   { ISubCuentasContacto }
   ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
-  ['{9FF7577F-4313-4FEA-987A-D218DC543E48}']
+  ['{9DB21B89-AE1E-4FB7-8A9F-C6B9DBB35E27}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -572,7 +574,7 @@ type
 
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{530524E9-A1F1-4D7F-B294-FAB84777226E}']
+  ['{0D74753B-294F-4295-A957-25252E811EED}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -895,7 +897,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{810F6CD7-D979-46BE-94C4-07F426E19F2D}']
+  ['{4B0A05E7-9028-47AD-8D6D-3A7C891B918C}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -930,7 +932,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{7AF95A78-AF46-45D7-A4A4-91824509EB3E}']
+  ['{BD57663C-3BAB-4814-8F32-F8E965ED0085}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1061,7 +1063,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{30750111-6673-481A-8668-5FE5C3785BCD}']
+  ['{CAFA7702-80A7-42E8-855B-472153773022}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1540,7 +1542,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{D980D2A9-F073-470C-AB36-6AFC59FB23CF}']
+  ['{D1A6AABD-216D-4562-BB15-C73522794C41}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1995,7 +1997,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{32911CBD-340A-4B63-B0EA-B443174FF112}']
+  ['{DE0C5E2A-7D5A-47DD-8291-E63789580ADC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2120,6 +2122,10 @@ type
     function GetEXPERIENCIAValue: IROStrings;
     function GetEXPERIENCIAIsNull: Boolean;
     procedure SetEXPERIENCIAIsNull(const aValue: Boolean);
+    function GetID_USUARIOValue: Integer;
+    procedure SetID_USUARIOValue(const aValue: Integer);
+    function GetID_USUARIOIsNull: Boolean;
+    procedure SetID_USUARIOIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -2187,6 +2193,8 @@ type
     property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
     property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue;
     property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
+    property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
+    property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
   end;
 
   { TEmpleadosDataTableRules }
@@ -2327,6 +2335,10 @@ type
     function GetEXPERIENCIAValue: IROStrings; virtual;
     function GetEXPERIENCIAIsNull: Boolean; virtual;
     procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
+    function GetID_USUARIOValue: Integer; virtual;
+    procedure SetID_USUARIOValue(const aValue: Integer); virtual;
+    function GetID_USUARIOIsNull: Boolean; virtual;
+    procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -2393,6 +2405,8 @@ type
     property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
     property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue;
     property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
+    property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
+    property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -2402,7 +2416,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{900C6878-B37A-41B1-96B2-426A1CD3A652}']
+  ['{BE6D59E5-167C-4905-BD43-8DE05B45368B}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2617,7 +2631,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{B6866B3B-4F38-48EF-907D-AC8F80485285}']
+  ['{33EE7628-C3FF-4420-A217-CF598B6022BE}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2700,7 +2714,7 @@ type
 
   { IProcedenciasCliente }
   IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
-  ['{F718A6F0-2A1F-4080-A040-DA9409E9660E}']
+  ['{D39B7429-57BD-4158-B428-6A2B02909F4A}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2735,7 +2749,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{5204D63E-E6F3-4B54-8C86-3344BD64101F}']
+  ['{287BAF88-0611-4200-B0F7-6CCEB75EB333}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2770,7 +2784,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{38FA7116-C170-456A-B912-BD6B266F62E1}']
+  ['{4295FDEB-FC3A-4FAB-B32F-6C313505585B}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2805,7 +2819,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{C3BF2C92-354C-4F19-A70F-83E055C3AAB1}']
+  ['{89529E22-0411-4186-8C29-4050253D8C78}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -6300,6 +6314,27 @@ begin
     DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsVariant := Null;
 end;
 
+function TEmpleadosDataTableRules.GetID_USUARIOValue: Integer;
+begin
+  result := DataTable.Fields[idx_EmpleadosID_USUARIO].AsInteger;
+end;
+
+procedure TEmpleadosDataTableRules.SetID_USUARIOValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_EmpleadosID_USUARIO].AsInteger := aValue;
+end;
+
+function TEmpleadosDataTableRules.GetID_USUARIOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_EmpleadosID_USUARIO].IsNull;
+end;
+
+procedure TEmpleadosDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_EmpleadosID_USUARIO].AsVariant := Null;
+end;
+
 
 { TDireccionesContactoDataTableRules }
 constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable);
diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
index 1dc7e54e..85edc6c6 100644
--- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
+++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
@@ -9,24 +9,24 @@ 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_SubCuentasContactoDelta = '{844CBC4C-F303-4212-B512-0F088D4D2DE8}';
-  RID_ContactosDelta = '{CF6AA40B-157B-42C4-B1EF-F9324F337617}';
-  RID_GruposClienteDelta = '{3A64B415-0076-49BE-9D31-7A6AAD06EA95}';
-  RID_DatosBancariosDelta = '{182267B6-AFFA-4841-837E-2027F2ECF6A0}';
-  RID_ClientesDelta = '{64D1EDAB-D2BB-453E-BF15-16EC54AE8872}';
-  RID_ProveedoresDelta = '{76B5A819-CAE4-4387-B8F6-C1AC1F5C5B42}';
-  RID_EmpleadosDelta = '{E62BA535-957D-4D58-AB3A-36FB30A641C6}';
-  RID_DireccionesContactoDelta = '{A8561877-52B9-4454-BAA5-502896D6B351}';
-  RID_ClientesDescuentosDelta = '{371E055B-D355-49E6-A5AE-BE4B505739DA}';
-  RID_ProcedenciasClienteDelta = '{52616C3D-CED6-4FEF-978E-A85829763A02}';
-  RID_GruposProveedorDelta = '{CD081869-8C8B-4CA0-B932-AB7F83A367B8}';
-  RID_GruposEmpleadoDelta = '{FF95A575-46BC-4FE6-9609-A5678AA0C28E}';
-  RID_Contactos_RefreshDelta = '{F1A4A005-4BE8-4CAF-86BE-3969B69F7D60}';
+  RID_SubCuentasContactoDelta = '{ABF020CE-2FFD-47BE-8F94-AAE06B9AC4E0}';
+  RID_ContactosDelta = '{F25558D1-84A6-4464-AFCE-6FC6D2B2FE0A}';
+  RID_GruposClienteDelta = '{FB40F5F1-F9F8-47DF-95D1-59B5A95674DD}';
+  RID_DatosBancariosDelta = '{5D618E3A-6F82-4437-881C-770F62608B2C}';
+  RID_ClientesDelta = '{D44360F9-227E-478E-BD3B-E0E0F3507908}';
+  RID_ProveedoresDelta = '{D7DD8B5C-4584-4D3E-9B36-53755442F86C}';
+  RID_EmpleadosDelta = '{6E12E3F2-A061-423F-816D-F11E35BABEEC}';
+  RID_DireccionesContactoDelta = '{21432D98-82C1-4473-916A-7A6D1E3C3ADB}';
+  RID_ClientesDescuentosDelta = '{B9412AD0-C06C-4A90-BCF5-01881A1418D9}';
+  RID_ProcedenciasClienteDelta = '{D2811841-6506-4B82-B5BE-52F1951EA033}';
+  RID_GruposProveedorDelta = '{F28BC584-D730-4A7D-A2EC-AFD829F64FD5}';
+  RID_GruposEmpleadoDelta = '{36D5667B-1688-4F2A-8ECC-BE8E120223FB}';
+  RID_Contactos_RefreshDelta = '{2283997F-19D7-4845-ACCD-4E3BCF0E1B80}';
 
 type
   { ISubCuentasContactoDelta }
   ISubCuentasContactoDelta = interface(ISubCuentasContacto)
-  ['{844CBC4C-F303-4212-B512-0F088D4D2DE8}']
+  ['{ABF020CE-2FFD-47BE-8F94-AAE06B9AC4E0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_SUBCUENTAValue : String;
@@ -120,7 +120,7 @@ type
 
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{CF6AA40B-157B-42C4-B1EF-F9324F337617}']
+  ['{F25558D1-84A6-4464-AFCE-6FC6D2B2FE0A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -443,7 +443,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{3A64B415-0076-49BE-9D31-7A6AAD06EA95}']
+  ['{FB40F5F1-F9F8-47DF-95D1-59B5A95674DD}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -477,7 +477,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{182267B6-AFFA-4841-837E-2027F2ECF6A0}']
+  ['{5D618E3A-6F82-4437-881C-770F62608B2C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -607,7 +607,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{64D1EDAB-D2BB-453E-BF15-16EC54AE8872}']
+  ['{D44360F9-227E-478E-BD3B-E0E0F3507908}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1086,7 +1086,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{76B5A819-CAE4-4387-B8F6-C1AC1F5C5B42}']
+  ['{D7DD8B5C-4584-4D3E-9B36-53755442F86C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1541,7 +1541,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{E62BA535-957D-4D58-AB3A-36FB30A641C6}']
+  ['{6E12E3F2-A061-423F-816D-F11E35BABEEC}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1575,6 +1575,7 @@ type
     function GetOldFORMACION_COMPLEValue : IROStrings;
     function GetOldFORMACION_RECIBIDAValue : IROStrings;
     function GetOldEXPERIENCIAValue : IROStrings;
+    function GetOldID_USUARIOValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -1609,6 +1610,7 @@ type
     property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
     property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
     property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
+    property OldID_USUARIO : Integer read GetOldID_USUARIOValue;
   end;
 
   { TEmpleadosBusinessProcessorRules }
@@ -1813,6 +1815,12 @@ type
     function GetOldEXPERIENCIAValue: IROStrings; virtual;
     function GetOldEXPERIENCIAIsNull: Boolean; virtual;
     procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
+    function GetID_USUARIOValue: Integer; virtual;
+    function GetID_USUARIOIsNull: Boolean; virtual;
+    function GetOldID_USUARIOValue: Integer; virtual;
+    function GetOldID_USUARIOIsNull: Boolean; virtual;
+    procedure SetID_USUARIOValue(const aValue: Integer); virtual;
+    procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1943,6 +1951,10 @@ type
     property EXPERIENCIAIsNull : Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
     property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
     property OldEXPERIENCIAIsNull : Boolean read GetOldEXPERIENCIAIsNull;
+    property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue;
+    property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
+    property OldID_USUARIO : Integer read GetOldID_USUARIOValue;
+    property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1952,7 +1964,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{A8561877-52B9-4454-BAA5-502896D6B351}']
+  ['{21432D98-82C1-4473-916A-7A6D1E3C3ADB}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2167,7 +2179,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{371E055B-D355-49E6-A5AE-BE4B505739DA}']
+  ['{B9412AD0-C06C-4A90-BCF5-01881A1418D9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2249,7 +2261,7 @@ type
 
   { IProcedenciasClienteDelta }
   IProcedenciasClienteDelta = interface(IProcedenciasCliente)
-  ['{52616C3D-CED6-4FEF-978E-A85829763A02}']
+  ['{D2811841-6506-4B82-B5BE-52F1951EA033}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2283,7 +2295,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{CD081869-8C8B-4CA0-B932-AB7F83A367B8}']
+  ['{F28BC584-D730-4A7D-A2EC-AFD829F64FD5}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2317,7 +2329,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{FF95A575-46BC-4FE6-9609-A5678AA0C28E}']
+  ['{36D5667B-1688-4F2A-8ECC-BE8E120223FB}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2351,7 +2363,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{F1A4A005-4BE8-4CAF-86BE-3969B69F7D60}']
+  ['{2283997F-19D7-4845-ACCD-4E3BCF0E1B80}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -7325,6 +7337,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := Null;
 end;
 
+function TEmpleadosBusinessProcessorRules.GetID_USUARIOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetID_USUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO]);
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldID_USUARIOValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_USUARIO];
+end;
+
+function TEmpleadosBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_USUARIO]);
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO] := aValue;
+end;
+
+procedure TEmpleadosBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO] := Null;
+end;
+
 
 { TDireccionesContactoBusinessProcessorRules }
 constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
index e1ac75a7..01d8bd9f 100644
--- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
+++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
@@ -1350,6 +1350,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'EXPERIENCIA'
                 TableField = 'EXPERIENCIA'
+              end
+              item
+                DatasetField = 'ID_USUARIO'
+                TableField = 'ID_USUARIO'
               end>
           end>
         Name = 'Empleados'
@@ -1535,6 +1539,10 @@ object srvContactos: TsrvContactos
             Name = 'EXPERIENCIA'
             DataType = datMemo
             DictionaryEntry = 'Empleados_EXPERIENCIA'
+          end
+          item
+            Name = 'ID_USUARIO'
+            DataType = datInteger
           end>
       end
       item
@@ -3311,52 +3319,39 @@ object srvContactos: TsrvContactos
         Params = <
           item
             Name = 'ID_EMPLEADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_NACIMIENTO'
-            DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'CATEGORIA'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FECHA_ALTA_EMPRESA'
-            DataType = datDateTime
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FORMACION_BASE'
-            DataType = datMemo
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FORMACION_COMPLE'
-            DataType = datMemo
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'FORMACION_RECIBIDA'
-            DataType = datMemo
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'EXPERIENCIA'
-            DataType = datMemo
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'ID_USUARIO'
+            Value = ''
           end>
         Statements = <
           item
@@ -3365,10 +3360,10 @@ object srvContactos: TsrvContactos
             SQL = 
               'INSERT'#10'  INTO EMPLEADOS_DATOS'#10'    (ID_EMPLEADO, FECHA_NACIMIENTO' +
               ', CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE,'#10'    FORMACION_C' +
-              'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA)'#10'  VALUES'#10'    (:ID_EMPLEA' +
-              'DO, :FECHA_NACIMIENTO, :CATEGORIA, :FECHA_ALTA_EMPRESA, :FORMACI' +
-              'ON_BASE,'#10'    :FORMACION_COMPLE, :FORMACION_RECIBIDA, :EXPERIENCI' +
-              'A)'
+              'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA, ID_USUARIO)'#10'  VALUES'#10'   ' +
+              ' (:ID_EMPLEADO, :FECHA_NACIMIENTO, :CATEGORIA, :FECHA_ALTA_EMPRE' +
+              'SA, :FORMACION_BASE,'#10'    :FORMACION_COMPLE, :FORMACION_RECIBIDA,' +
+              ' :EXPERIENCIA, :ID_USUARIO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -3404,6 +3399,10 @@ object srvContactos: TsrvContactos
             Name = 'EXPERIENCIA'
             Value = ''
           end
+          item
+            Name = 'ID_USUARIO'
+            Value = ''
+          end
           item
             Name = 'OLD_ID_EMPLEADO'
             Value = ''
@@ -3417,8 +3416,8 @@ object srvContactos: TsrvContactos
               'MIENTO,'#10'    CATEGORIA = :CATEGORIA,'#10'    FECHA_ALTA_EMPRESA = :FE' +
               'CHA_ALTA_EMPRESA,'#10'    FORMACION_BASE = :FORMACION_BASE,'#10'    FORM' +
               'ACION_COMPLE = :FORMACION_COMPLE,'#10'    FORMACION_RECIBIDA = :FORM' +
-              'ACION_RECIBIDA,'#10'    EXPERIENCIA = :EXPERIENCIA'#10'  WHERE'#10'    (ID_E' +
-              'MPLEADO = :OLD_ID_EMPLEADO)'
+              'ACION_RECIBIDA,'#10'    EXPERIENCIA = :EXPERIENCIA,'#10'    ID_USUARIO =' +
+              ' :ID_USUARIO'#10'  WHERE'#10'    (ID_EMPLEADO = :OLD_ID_EMPLEADO)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj
index ba669ffd..98fdad74 100644
--- a/Source/Modulos/Contactos/Views/Contactos_view.dproj
+++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj
@@ -49,26 +49,31 @@
     <DelphiCompile Include="Contactos_view.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="adortl.dcp" />
-    <DCCReference Include="ApplicationBase.dcp" />
-    <DCCReference Include="Base.dcp" />
-    <DCCReference Include="ccpackD11.dcp" />
-    <DCCReference Include="cfpack_d11.dcp" />
-    <DCCReference Include="Contactos_controller.dcp" />
-    <DCCReference Include="Contactos_model.dcp" />
-    <DCCReference Include="DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="dbrtl.dcp" />
-    <DCCReference Include="designide.dcp" />
-    <DCCReference Include="dsnap.dcp" />
-    <DCCReference Include="FormasPago_controller.dcp" />
-    <DCCReference Include="FormasPago_model.dcp" />
-    <DCCReference Include="GUIBase.dcp" />
-    <DCCReference Include="GUISDK_D11.dcp" />
-    <DCCReference Include="JvGlobusD11R.dcp" />
-    <DCCReference Include="RemObjects_Core_D11.dcp" />
-    <DCCReference Include="rtl.dcp" />
-    <DCCReference Include="TiposIVA_controller.dcp" />
-    <DCCReference Include="TiposIVA_model.dcp" />
+    <DCCReference Include="..\adortl.dcp" />
+    <DCCReference Include="..\ApplicationBase.dcp" />
+    <DCCReference Include="..\Base.dcp" />
+    <DCCReference Include="..\ccpackD11.dcp" />
+    <DCCReference Include="..\cfpack_d11.dcp" />
+    <DCCReference Include="..\Contactos_controller.dcp" />
+    <DCCReference Include="..\Contactos_model.dcp" />
+    <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\dbrtl.dcp" />
+    <DCCReference Include="..\designide.dcp" />
+    <DCCReference Include="..\dsnap.dcp" />
+    <DCCReference Include="..\FormasPago_controller.dcp" />
+    <DCCReference Include="..\FormasPago_model.dcp" />
+    <DCCReference Include="..\GUIBase.dcp" />
+    <DCCReference Include="..\GUISDK_D11.dcp" />
+    <DCCReference Include="..\JvGlobusD11R.dcp" />
+    <DCCReference Include="..\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\rtl.dcp" />
+    <DCCReference Include="..\TiposIVA_controller.dcp" />
+    <DCCReference Include="..\TiposIVA_model.dcp" />
+    <DCCReference Include="..\vcl.dcp" />
+    <DCCReference Include="..\vclactnband.dcp" />
+    <DCCReference Include="..\vcldb.dcp" />
+    <DCCReference Include="..\vclx.dcp" />
+    <DCCReference Include="..\xmlrtl.dcp" />
     <DCCReference Include="uContactosViewRegister.pas" />
     <DCCReference Include="uEditorCliente.pas">
       <Form>fEditorCliente</Form>
@@ -205,11 +210,6 @@
       <Form>frViewSubCuentaContacto</Form>
       <DesignClass>TCustomView</DesignClass>
     </DCCReference>
-    <DCCReference Include="vcl.dcp" />
-    <DCCReference Include="vclactnband.dcp" />
-    <DCCReference Include="vcldb.dcp" />
-    <DCCReference Include="vclx.dcp" />
-    <DCCReference Include="xmlrtl.dcp" />
   </ItemGroup>
 </Project>
 <!-- EurekaLog First Line
diff --git a/Source/Modulos/Contactos/Views/uViewContacto.dfm b/Source/Modulos/Contactos/Views/uViewContacto.dfm
index aee18618..891c2b0c 100644
--- a/Source/Modulos/Contactos/Views/uViewContacto.dfm
+++ b/Source/Modulos/Contactos/Views/uViewContacto.dfm
@@ -1,19 +1,19 @@
 inherited frViewContacto: TfrViewContacto
-  Width = 581
-  Height = 453
-  ExplicitWidth = 581
-  ExplicitHeight = 453
+  Width = 624
+  Height = 536
+  ExplicitWidth = 624
+  ExplicitHeight = 536
   object dxLayoutControlContacto: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 581
-    Height = 453
+    Width = 624
+    Height = 536
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     object PngSpeedButton1: TPngSpeedButton
-      Left = 536
+      Left = 579
       Top = 222
       Width = 23
       Height = 22
@@ -53,7 +53,7 @@ inherited frViewContacto: TfrViewContacto
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton2: TPngSpeedButton
-      Left = 536
+      Left = 579
       Top = 194
       Width = 23
       Height = 22
@@ -78,7 +78,7 @@ inherited frViewContacto: TfrViewContacto
       PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
     end
     object PngSpeedButton3: TPngSpeedButton
-      Left = 536
+      Left = 579
       Top = 166
       Width = 23
       Height = 22
@@ -104,7 +104,7 @@ inherited frViewContacto: TfrViewContacto
     end
     object eCalle: TcxDBTextEdit
       Left = 115
-      Top = 247
+      Top = 328
       DataBinding.DataField = 'CALLE'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -122,7 +122,7 @@ inherited frViewContacto: TfrViewContacto
     end
     object eProvincia: TcxDBTextEdit
       Left = 115
-      Top = 301
+      Top = 382
       DataBinding.DataField = 'PROVINCIA'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -140,7 +140,7 @@ inherited frViewContacto: TfrViewContacto
     end
     object ePoblacion: TcxDBTextEdit
       Left = 115
-      Top = 274
+      Top = 355
       DataBinding.DataField = 'POBLACION'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -157,8 +157,8 @@ inherited frViewContacto: TfrViewContacto
       Width = 111
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 188
-      Top = 274
+      Left = 196
+      Top = 355
       DataBinding.DataField = 'CODIGO_POSTAL'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -176,7 +176,7 @@ inherited frViewContacto: TfrViewContacto
     end
     object eObservaciones: TcxDBMemo
       Left = 22
-      Top = 358
+      Top = 439
       DataBinding.DataField = 'NOTAS'
       DataBinding.DataSource = dsContacto
       Properties.ScrollBars = ssVertical
@@ -195,7 +195,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 630
     end
     object eTlfParticular: TcxDBTextEdit
-      Left = 378
+      Left = 386
       Top = 55
       DataBinding.DataField = 'TELEFONO_2'
       DataBinding.DataSource = dsContacto
@@ -213,7 +213,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 91
     end
     object eTlfTrabajo: TcxDBTextEdit
-      Left = 378
+      Left = 386
       Top = 28
       DataBinding.DataField = 'TELEFONO_1'
       DataBinding.DataSource = dsContacto
@@ -231,7 +231,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 127
     end
     object eTlfMovil: TcxDBTextEdit
-      Left = 378
+      Left = 386
       Top = 82
       DataBinding.DataField = 'MOVIL_1'
       DataBinding.DataSource = dsContacto
@@ -249,7 +249,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 155
     end
     object eFax: TcxDBTextEdit
-      Left = 378
+      Left = 386
       Top = 109
       DataBinding.DataField = 'FAX'
       DataBinding.DataSource = dsContacto
@@ -287,7 +287,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 221
     end
     object eNIFCIF: TcxDBTextEdit
-      Left = 200
+      Left = 205
       Top = 28
       DataBinding.DataField = 'NIF_CIF'
       DataBinding.DataSource = dsContacto
@@ -306,7 +306,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 57
     end
     object eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 378
+      Left = 386
       Top = 166
       DataBinding.DataField = 'EMAIL_1'
       DataBinding.DataSource = dsContacto
@@ -328,7 +328,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 133
     end
     object eMailParticular: TcxDBHyperLinkEdit
-      Left = 378
+      Left = 386
       Top = 194
       DataBinding.DataField = 'EMAIL_2'
       DataBinding.DataSource = dsContacto
@@ -350,7 +350,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 133
     end
     object ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 378
+      Left = 386
       Top = 221
       DataBinding.DataField = 'PAGINA_WEB'
       DataBinding.DataSource = dsContacto
@@ -393,7 +393,7 @@ inherited frViewContacto: TfrViewContacto
     end
     object ePersonaContacto: TcxDBTextEdit
       Left = 115
-      Top = 220
+      Top = 301
       DataBinding.DataField = 'PERSONA_CONTACTO'
       DataBinding.DataSource = dsContacto
       Style.BorderColor = clWindowFrame
@@ -411,7 +411,7 @@ inherited frViewContacto: TfrViewContacto
       Width = 256
     end
     inline frViewTienda1: TfrViewTienda
-      Left = 283
+      Left = 291
       Top = 280
       Width = 451
       Height = 42
@@ -424,12 +424,11 @@ inherited frViewContacto: TfrViewContacto
       ParentFont = False
       TabOrder = 15
       ReadOnly = False
-      ExplicitLeft = 283
+      ExplicitLeft = 291
       ExplicitTop = 280
       ExplicitHeight = 42
       inherited dxLayoutControl1: TdxLayoutControl
         Height = 42
-        ExplicitWidth = 451
         ExplicitHeight = 42
         inherited cbTienda: TcxDBComboBox
           DataBinding.DataSource = dsContacto
@@ -437,6 +436,11 @@ inherited frViewContacto: TfrViewContacto
           ExplicitWidth = 412
           Width = 412
         end
+        inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+          inherited dxLayoutControl1Item2: TdxLayoutItem
+            Visible = False
+          end
+        end
       end
     end
     object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
@@ -444,6 +448,8 @@ inherited frViewContacto: TfrViewContacto
       Hidden = True
       ShowBorder = False
       object dxLayoutControlContactoGroup9: TdxLayoutGroup
+        AutoAligns = [aaHorizontal]
+        AlignVert = avClient
         ShowCaption = False
         Hidden = True
         LayoutDirection = ldHorizontal
@@ -627,8 +633,12 @@ inherited frViewContacto: TfrViewContacto
             end
           end
           object dxLayoutControlContactoGroup100: TdxLayoutGroup
+            AutoAligns = [aaHorizontal]
+            AlignVert = avClient
             Caption = 'El contacto pertenece a la tienda'
             object dxLayoutControlContactoItem16: TdxLayoutItem
+              AutoAligns = [aaHorizontal]
+              AlignVert = avClient
               Control = frViewTienda1
               ControlOptions.AutoColor = True
               ControlOptions.ShowBorder = False
diff --git a/Source/Modulos/Contactos/Views/uViewEmpleado.dfm b/Source/Modulos/Contactos/Views/uViewEmpleado.dfm
index fdcbea9c..f965fc3e 100644
--- a/Source/Modulos/Contactos/Views/uViewEmpleado.dfm
+++ b/Source/Modulos/Contactos/Views/uViewEmpleado.dfm
@@ -1,55 +1,69 @@
 inherited frViewEmpleado: TfrViewEmpleado
-  Height = 391
+  Width = 642
+  Height = 578
   OnCreate = CustomViewCreate
   OnDestroy = CustomViewDestroy
-  ExplicitHeight = 391
+  ExplicitWidth = 642
+  ExplicitHeight = 578
   inherited dxLayoutControlContacto: TdxLayoutControl
-    Height = 391
-    ExplicitHeight = 391
+    Width = 642
+    Height = 578
+    ExplicitWidth = 640
+    ExplicitHeight = 534
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 520
-      ExplicitLeft = 520
+      Left = 597
+      ExplicitLeft = 597
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 520
-      ExplicitLeft = 520
+      Left = 597
+      ExplicitLeft = 597
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 520
-      ExplicitLeft = 520
+      Left = 597
+      ExplicitLeft = 597
     end
     inherited eCalle: TcxDBTextEdit
       Left = 121
+      Top = 277
       TabOrder = 6
       ExplicitLeft = 121
-      ExplicitWidth = 260
-      Width = 260
+      ExplicitTop = 277
+      ExplicitWidth = 152
+      Width = 152
     end
     inherited eProvincia: TcxDBTextEdit
       Left = 121
+      Top = 331
       TabOrder = 9
       ExplicitLeft = 121
-      ExplicitWidth = 260
-      Width = 260
+      ExplicitTop = 331
+      ExplicitWidth = 152
+      Width = 152
     end
     inherited ePoblacion: TcxDBTextEdit
       Left = 121
+      Top = 304
       TabOrder = 7
       ExplicitLeft = 121
-      ExplicitWidth = 159
-      Width = 159
+      ExplicitTop = 304
+      ExplicitWidth = 51
+      Width = 51
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 177
+      Left = 209
+      Top = 304
       TabOrder = 8
-      ExplicitLeft = 177
+      ExplicitLeft = 209
+      ExplicitTop = 304
     end
     inherited eObservaciones: TcxDBMemo
+      Top = 388
       TabOrder = 18
-      ExplicitWidth = 630
-      ExplicitHeight = 148
-      Height = 148
-      Width = 630
+      ExplicitTop = 388
+      ExplicitWidth = 596
+      ExplicitHeight = 151
+      Height = 151
+      Width = 596
     end
     object eFechaNacimiento: TcxDBDateEdit [8]
       Left = 121
@@ -85,21 +99,7 @@ inherited frViewEmpleado: TfrViewEmpleado
       TabOrder = 3
       Width = 235
     end
-    inherited eTlfParticular: TcxDBTextEdit
-      Left = 367
-      TabOrder = 11
-      ExplicitLeft = 367
-      ExplicitWidth = 91
-      Width = 91
-    end
-    inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 367
-      TabOrder = 10
-      ExplicitLeft = 367
-      ExplicitWidth = 127
-      Width = 127
-    end
-    object cbCategoria: TcxDBComboBox [12]
+    object cbCategoria: TcxDBComboBox [10]
       Left = 121
       Top = 109
       DataBinding.DataField = 'CATEGORIA'
@@ -123,19 +123,25 @@ inherited frViewEmpleado: TfrViewEmpleado
       TabOrder = 4
       Width = 225
     end
+    inherited eTlfParticular: TcxDBTextEdit
+      Left = 399
+      TabOrder = 11
+      ExplicitLeft = 399
+    end
+    inherited eTlfTrabajo: TcxDBTextEdit
+      Left = 399
+      TabOrder = 10
+      ExplicitLeft = 399
+    end
     inherited eTlfMovil: TcxDBTextEdit
-      Left = 367
+      Left = 399
       TabOrder = 12
-      ExplicitLeft = 367
-      ExplicitWidth = 155
-      Width = 155
+      ExplicitLeft = 399
     end
     inherited eFax: TcxDBTextEdit
-      Left = 367
+      Left = 399
       TabOrder = 13
-      ExplicitLeft = 367
-      ExplicitWidth = 121
-      Width = 121
+      ExplicitLeft = 399
     end
     inherited eNombre: TcxDBTextEdit
       Left = 121
@@ -144,59 +150,67 @@ inherited frViewEmpleado: TfrViewEmpleado
       Width = 263
     end
     inherited eNIFCIF: TcxDBTextEdit
-      Left = 177
-      ExplicitLeft = 177
+      Left = 183
+      ExplicitLeft = 183
       ExplicitWidth = 100
       Width = 100
     end
     inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 367
+      Left = 399
       Properties.Prefix = 'mailto:'
       TabOrder = 14
-      ExplicitLeft = 367
+      ExplicitLeft = 399
       ExplicitWidth = 129
       Width = 129
     end
     inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 367
+      Left = 399
       Properties.Prefix = 'mailto:'
       TabOrder = 15
-      ExplicitLeft = 367
+      ExplicitLeft = 399
       ExplicitWidth = 165
       Width = 165
     end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 367
+      Left = 399
       TabOrder = 16
-      ExplicitLeft = 367
+      ExplicitLeft = 399
       ExplicitWidth = 165
       Width = 165
     end
     inherited eReferencia: TcxDBTextEdit
       Left = 121
       ExplicitLeft = 121
-      ExplicitWidth = 38
-      Width = 38
     end
     inherited ePersonaContacto: TcxDBTextEdit
       Left = 121
+      Top = 250
       TabOrder = 5
       ExplicitLeft = 121
-      ExplicitWidth = 256
-      Width = 256
+      ExplicitTop = 250
+      ExplicitWidth = 152
+      Width = 152
     end
     inherited frViewTienda1: TfrViewTienda
-      Left = 272
-      Width = 451
+      Left = 304
       TabOrder = 17
-      ExplicitLeft = 272
-      ExplicitWidth = 451
+      ExplicitLeft = 304
       inherited dxLayoutControl1: TdxLayoutControl
-        Width = 451
         inherited cbTienda: TcxDBComboBox
+          Left = 55
           DataBinding.DataSource = dsContacto
-          ExplicitWidth = 412
-          Width = 412
+          ExplicitLeft = 55
+        end
+        inherited cbVendedor: TcxDBLookupComboBox
+          Left = 55
+          DataBinding.DataField = 'ID_USUARIO'
+          DataBinding.DataSource = dsContacto
+          ExplicitLeft = 55
+        end
+        inherited dxLayoutControl1Group_Root: TdxLayoutGroup
+          inherited dxLayoutControl1Item2: TdxLayoutItem
+            Caption = 'Usuario:'
+          end
         end
       end
     end
diff --git a/Source/Modulos/Contactos/Views/uViewEmpleado.pas b/Source/Modulos/Contactos/Views/uViewEmpleado.pas
index be586fd4..d008b84d 100644
--- a/Source/Modulos/Contactos/Views/uViewEmpleado.pas
+++ b/Source/Modulos/Contactos/Views/uViewEmpleado.pas
@@ -37,7 +37,7 @@ implementation
 {$R *.dfm}
 
 uses
-  uBizGruposEmpleado, uBizContactos;
+  uBizGruposEmpleado, uBizContactos, uFactuGES_App;
 
 procedure TfrViewEmpleado.cbCategoriaPropertiesInitPopup(Sender: TObject);
 begin
@@ -85,6 +85,7 @@ procedure TfrViewEmpleado.CustomViewCreate(Sender: TObject);
 begin
   inherited;
   FGrupoController := TGruposEmpleadoController.Create;
+//  AppFactuGES.UsuariosController.
 end;
 
 procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject);
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index b7008f6b..da01c4dd 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index 65edb527..b0cad35f 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -38,8 +38,6 @@ uses
   schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
   schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
   schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
-  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
-  schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
   schBase_Intf in '..\Base\schBase_Intf.pas',
   srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService},
   uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas',
@@ -99,8 +97,6 @@ uses
   uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
   uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
   uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
-  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
-  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
   schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
   schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
   schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@@ -114,7 +110,11 @@ uses
   schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
   schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
   schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
-  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
+  schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
+  schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
+  schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
+  schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
+  schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
 
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index 142ea6f0..de63e961 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.0.0\0"
               VALUE "ProductVersion", "1.0.0.0\0"
-              VALUE "CompileDate", "lunes, 14 de enero de 2008 13:43\0"
+              VALUE "CompileDate", "martes, 15 de enero de 2008 17:58\0"
          END
     END
     BLOCK "VarFileInfo"