Subida 4.2.1

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@149 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Source/Base/Base.dproj

@@ -54,58 +54,6 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Contactos\Views\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\designide.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\GUISDK_D11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Contactos\Views\xmlrtl.dcp" />
     <DCCReference Include="..\Modulos\Impresiones\Data\uDataModuleImpresiones.pas">
       <Form>DataModuleImpresiones</Form>
       <DesignClass>TDataModule</DesignClass>
@@ -115,6 +63,58 @@
       <DesignClass>TDataModule</DesignClass>
     </DCCReference>
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servidor\adortl.dcp" />
+    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
+    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExportD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxGridD11.dcp" />
+    <DCCReference Include="..\Servidor\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Servidor\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
+    <DCCReference Include="..\Servidor\designide.dcp" />
+    <DCCReference Include="..\Servidor\dsnap.dcp" />
+    <DCCReference Include="..\Servidor\dxCoreD11.dcp" />
+    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Servidor\GUISDK_D11R.dcp" />
+    <DCCReference Include="..\Servidor\IndyCore.dcp" />
+    <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
+    <DCCReference Include="..\Servidor\IndySystem.dcp" />
+    <DCCReference Include="..\Servidor\Jcl.dcp" />
+    <DCCReference Include="..\Servidor\JclVcl.dcp" />
+    <DCCReference Include="..\Servidor\JSDialog100.dcp" />
+    <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Servidor\pckMD5.dcp" />
+    <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\Servidor\TB2k_D10.dcp" />
+    <DCCReference Include="..\Servidor\tbx_d10.dcp" />
+    <DCCReference Include="..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\Servidor\vclactnband.dcp" />
+    <DCCReference Include="..\Servidor\vcldb.dcp" />
+    <DCCReference Include="..\Servidor\vcljpg.dcp" />
+    <DCCReference Include="..\Servidor\VclSmp.dcp" />
+    <DCCReference Include="..\Servidor\vclx.dcp" />
+    <DCCReference Include="..\Servidor\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

@@ -3,31 +3,33 @@ unit schContactosClient_Intf;
 interface
 
 uses
-  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, SysUtils, uROClasses, uDAInterfaces, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
        Feel free to change them to something more human readable
        but make sure they are unique in the context of your application }
-  RID_Contactos = '{C5CBBD15-3BE4-4CA7-8F63-6496108E58A4}';
+  RID_Contactos = '{291D5023-2485-4738-BA4B-8CFD1087564D}';
-  RID_GruposCliente = '{A52B6D07-E18F-4B0B-BC19-322967C318C8}';
+  RID_GruposCliente = '{3202886D-ABFE-4D93-8B7C-DCC767B8E13E}';
-  RID_DatosBancarios = '{C8B7B5A7-065B-484C-AAD0-003D7A0164CF}';
+  RID_DatosBancarios = '{48378F5C-39D8-4F3E-AF60-30E3B15C1BD6}';
-  RID_Clientes = '{EE303315-836A-469E-802F-1D5E8E6E717C}';
+  RID_Clientes = '{6BB9F834-2CD8-4CE1-AEF2-2F632139E4E6}';
-  RID_Proveedores = '{455D2B4C-679E-41FD-BCAF-E4A918936818}';
+  RID_Proveedores = '{64948969-32BB-4EE9-B51E-798A988B6BB9}';
-  RID_Empleados = '{1619723C-2EC8-46E5-94EB-ED3F600CFA7F}';
+  RID_Empleados = '{EC0F7AAD-8090-489F-A5C7-004A80A7682A}';
-  RID_DireccionesContacto = '{61C30993-004A-4271-A751-F9F3CB6BE2AB}';
+  RID_DireccionesContacto = '{497F22D7-6679-4BF4-B909-4F0DD68F1B0D}';
-  RID_ClientesDescuentos = '{7BB5EB78-1652-4284-AC1F-CD8CE965C041}';
+  RID_ClientesDescuentos = '{DD4D5290-DC73-45F2-AA7D-FB799D9AE6AE}';
-  RID_GruposProveedor = '{315F8232-27A0-4D35-A529-6840ECDDCCDA}';
+  RID_GruposProveedor = '{3C14F4A5-17DB-44DC-8E26-0AD2F3231245}';
-  RID_GruposEmpleado = '{0B578AD4-35EA-490B-BBE3-54A84AB00D4F}';
+  RID_GruposEmpleado = '{D7511C4F-EE3D-4C78-B5EF-A3935874DD92}';
-  RID_Contactos_Refresh = '{BC90B1C9-6F9A-4D4B-8B93-A6B8B079E009}';
+  RID_Contactos_Refresh = '{76C8D865-64CD-4DD5-8A80-F82AA6683E27}';
-  RID_ContratosEmpleados = '{11996FEA-CE9C-4EF5-9280-8F9656675856}';
+  RID_ContratosEmpleados = '{6DB2FA18-7E29-43FF-8D71-67A5481B8E84}';
-  RID_DescripcionesProveedores = '{24F427B2-1B99-4960-8115-78BA0BD21687}';
+  RID_DescripcionesProveedores = '{D3734658-7727-47E1-9C43-AB4D4BD58EF4}';
-  RID_PersonalContacto = '{1D1E9BC1-7AA8-492C-8A03-6835ABDA38C2}';
+  RID_PersonalContacto = '{B3F92D0E-5DCC-4723-BDC0-E2045C0B4F74}';
-  RID_Agentes_Comisiones = '{4D3CB44A-2E6A-45BD-A244-C0F5F9165D58}';
+  RID_Agentes_Comisiones = '{716B55E8-F461-4131-A90A-3E5291CF1319}';
-  RID_Agentes = '{A705D009-CF13-4DE5-BCBE-57A82D161ADA}';
+  RID_ListaAnosObjetivosAlb = '{492D6536-8A33-44D0-86B9-A4512BD54E62}';
-  RID_ClientesDescuentosArticulos = '{9A572B85-9876-41E2-A85F-8F83E64B0D9F}';
+  RID_Agentes = '{271490F9-AFF6-4904-9F85-097B4CB0AAA2}';
-  RID_Agentes_Objetivos_albaranes = '{DC092C80-D84E-49FC-9240-EF1C6D629CBF}';
+  RID_ClientesDescuentosArticulos = '{20759DA3-0B2D-4A5D-852F-6DB6725E7D19}';
-  RID_Agentes_Objetivos_facturas = '{42D0ECBB-7A15-442C-8836-318A4CEB7F12}';
+  RID_Agentes_Objetivos_albaranes = '{DFE878FE-9DF3-46C4-BFF1-90CF546A31EF}';
+  RID_Agentes_Objetivos_facturas = '{73C0859D-9EFA-45A8-AA4C-F8F6572C985B}';
+  RID_ListaAnosObjetivosFac = '{5A1B02F6-EA0E-4B3D-8067-DAAA0FE5178D}';
 
   { Data table names }
   nme_Contactos = 'Contactos';
@@ -45,10 +47,12 @@ const
   nme_DescripcionesProveedores = 'DescripcionesProveedores';
   nme_PersonalContacto = 'PersonalContacto';
   nme_Agentes_Comisiones = 'Agentes_Comisiones';
+  nme_ListaAnosObjetivosAlb = 'ListaAnosObjetivosAlb';
   nme_Agentes = 'Agentes';
   nme_ClientesDescuentosArticulos = 'ClientesDescuentosArticulos';
   nme_Agentes_Objetivos_albaranes = 'Agentes_Objetivos_albaranes';
   nme_Agentes_Objetivos_facturas = 'Agentes_Objetivos_facturas';
+  nme_ListaAnosObjetivosFac = 'ListaAnosObjetivosFac';
 
   { Contactos fields }
   fld_ContactosID = 'ID';
@@ -534,6 +538,12 @@ const
   idx_Agentes_ComisionesNOMBRE = 3;
   idx_Agentes_ComisionesCOMISION = 4;
 
+  { ListaAnosObjetivosAlb fields }
+  fld_ListaAnosObjetivosAlbANO = 'ANO';
+
+  { ListaAnosObjetivosAlb field indexes }
+  idx_ListaAnosObjetivosAlbANO = 0;
+
   { Agentes fields }
   fld_AgentesID = 'ID';
   fld_AgentesID_CATEGORIA = 'ID_CATEGORIA';
@@ -648,10 +658,16 @@ const
   idx_Agentes_Objetivos_facturasUNIDADES_OBJETIVO = 5;
   idx_Agentes_Objetivos_facturasIMPORTE_OBJETIVO = 6;
 
+  { ListaAnosObjetivosFac fields }
+  fld_ListaAnosObjetivosFacANO = 'ANO';
+
+  { ListaAnosObjetivosFac field indexes }
+  idx_ListaAnosObjetivosFacANO = 0;
+
 type
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{317413A0-0416-4786-B3DF-CED31C64267C}']
+  ['{1CBC2D1C-3449-4C91-B2C6-6AF07E1EABCB}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -796,7 +812,7 @@ type
   end;
 
   { TContactosDataTableRules }
-  TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
+  TContactosDataTableRules = class(TDADataTableRules, IContactos)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -950,7 +966,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{CBEADB2A-FABA-4564-95CF-D424E5D08DEB}']
+  ['{B9DBD6F1-AE60-44F7-8E0B-A6093CD02F7E}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -970,7 +986,7 @@ type
   end;
 
   { TGruposClienteDataTableRules }
-  TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
+  TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
   private
   protected
     { Property getters and setters }
@@ -997,7 +1013,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{D09E0DDD-206F-46A0-B377-B90630DF657A}']
+  ['{B6A49401-06FA-450A-B833-31DB18866E07}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1059,7 +1075,7 @@ type
   end;
 
   { TDatosBancariosDataTableRules }
-  TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
+  TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
   private
   protected
     { Property getters and setters }
@@ -1128,7 +1144,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{1F4485B0-9B81-4D1A-86F4-6AAE01FE860F}']
+  ['{1B30B5ED-D974-4FF4-ACEF-83E365A1D686}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1387,7 +1403,7 @@ type
   end;
 
   { TClientesDataTableRules }
-  TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
+  TClientesDataTableRules = class(TDADataTableRules, IClientes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1655,7 +1671,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{9DF8DF39-679B-44AD-AF28-353E78CA6D58}']
+  ['{36A8200A-5E50-497C-A0F2-BAFAD4B5A2C9}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1896,7 +1912,7 @@ type
   end;
 
   { TProveedoresDataTableRules }
-  TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
+  TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2146,7 +2162,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{D196D4B6-2743-4FA8-8844-3F4738D5C8C8}']
+  ['{DE26478A-6B56-40DD-9CFF-176D1B41AFE0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2353,7 +2369,7 @@ type
   end;
 
   { TEmpleadosDataTableRules }
-  TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
+  TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
   private
     f_NOTAS: IROStrings;
     f_FORMACION_BASE: IROStrings;
@@ -2577,7 +2593,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{F2C90D00-9A04-4BEA-8733-0018317A6263}']
+  ['{2A82A155-3A4B-44BF-9A1B-C197A50F39B1}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2680,7 +2696,7 @@ type
   end;
 
   { TDireccionesContactoDataTableRules }
-  TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
+  TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2792,7 +2808,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{011971A4-38C7-4C40-9C16-E5550E7FC00C}']
+  ['{DCD380B7-39A2-446F-9ACF-53057F43F28C}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2830,7 +2846,7 @@ type
   end;
 
   { TClientesDescuentosDataTableRules }
-  TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
+  TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
   private
   protected
     { Property getters and setters }
@@ -2875,7 +2891,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{27780311-09B1-42F1-A8C6-438EE41E961A}']
+  ['{EC66CD85-3FE0-4DE0-A543-8FA1DBCF33E0}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2895,7 +2911,7 @@ type
   end;
 
   { TGruposProveedorDataTableRules }
-  TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
+  TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
   private
   protected
     { Property getters and setters }
@@ -2922,7 +2938,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{CEF6810B-71BF-4669-B221-F3331CE7470D}']
+  ['{37D061A4-7D65-41B8-9DAF-33B393EE50E5}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2942,7 +2958,7 @@ type
   end;
 
   { TGruposEmpleadoDataTableRules }
-  TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
+  TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
   private
   protected
     { Property getters and setters }
@@ -2969,7 +2985,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{6C1E01C6-A541-49E4-932B-DCB0AB7C8F0B}']
+  ['{47A29D73-F2AF-4DA5-BA66-FC09A1FA7DA6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3102,7 +3118,7 @@ type
   end;
 
   { TContactos_RefreshDataTableRules }
-  TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
+  TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -3244,7 +3260,7 @@ type
 
   { IContratosEmpleados }
   IContratosEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{F2C5D384-2EC9-4003-A30A-B367A42E1036}']
+  ['{01E65909-DD8B-44B1-AB39-73F2047DC2FF}']
     { Property getters and setters }
     function GetCONTRATOValue: String;
     procedure SetCONTRATOValue(const aValue: String);
@@ -3258,7 +3274,7 @@ type
   end;
 
   { TContratosEmpleadosDataTableRules }
-  TContratosEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IContratosEmpleados)
+  TContratosEmpleadosDataTableRules = class(TDADataTableRules, IContratosEmpleados)
   private
   protected
     { Property getters and setters }
@@ -3279,7 +3295,7 @@ type
 
   { IDescripcionesProveedores }
   IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
-  ['{81AD7666-E0E0-4308-A44B-DEA172886D84}']
+  ['{EF6069F3-8A7F-49A7-9AA6-FCB4FD7BC6F2}']
     { Property getters and setters }
     function GetDESCRIPCION_PROVEEDORValue: String;
     procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@@ -3293,7 +3309,7 @@ type
   end;
 
   { TDescripcionesProveedoresDataTableRules }
-  TDescripcionesProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IDescripcionesProveedores)
+  TDescripcionesProveedoresDataTableRules = class(TDADataTableRules, IDescripcionesProveedores)
   private
   protected
     { Property getters and setters }
@@ -3314,7 +3330,7 @@ type
 
   { IPersonalContacto }
   IPersonalContacto = interface(IDAStronglyTypedDataTable)
-  ['{130FF6B0-6814-4E96-A023-B4A3B791848F}']
+  ['{24490A3B-6DEC-4546-8433-2B73B85E5B93}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3382,7 +3398,7 @@ type
   end;
 
   { TPersonalContactoDataTableRules }
-  TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
+  TPersonalContactoDataTableRules = class(TDADataTableRules, IPersonalContacto)
   private
   protected
     { Property getters and setters }
@@ -3457,7 +3473,7 @@ type
 
   { IAgentes_Comisiones }
   IAgentes_Comisiones = interface(IDAStronglyTypedDataTable)
-  ['{B72C6A25-D915-47C8-AFF1-88B19136DFE8}']
+  ['{191150F9-E106-4E8A-8124-32860D4F8894}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3495,7 +3511,7 @@ type
   end;
 
   { TAgentes_ComisionesDataTableRules }
-  TAgentes_ComisionesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Comisiones)
+  TAgentes_ComisionesDataTableRules = class(TDADataTableRules, IAgentes_Comisiones)
   private
   protected
     { Property getters and setters }
@@ -3538,9 +3554,44 @@ type
 
   end;
 
+  { IListaAnosObjetivosAlb }
+  IListaAnosObjetivosAlb = interface(IDAStronglyTypedDataTable)
+  ['{B8BF52B7-476E-410A-9720-8B30EB132FCD}']
+    { Property getters and setters }
+    function GetANOValue: SmallInt;
+    procedure SetANOValue(const aValue: SmallInt);
+    function GetANOIsNull: Boolean;
+    procedure SetANOIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ANO: SmallInt read GetANOValue write SetANOValue;
+    property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+  end;
+
+  { TListaAnosObjetivosAlbDataTableRules }
+  TListaAnosObjetivosAlbDataTableRules = class(TDADataTableRules, IListaAnosObjetivosAlb)
+  private
+  protected
+    { Property getters and setters }
+    function GetANOValue: SmallInt; virtual;
+    procedure SetANOValue(const aValue: SmallInt); virtual;
+    function GetANOIsNull: Boolean; virtual;
+    procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ANO: SmallInt read GetANOValue write SetANOValue;
+    property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
   { IAgentes }
   IAgentes = interface(IDAStronglyTypedDataTable)
-  ['{D52CFB4C-E5C9-4067-9F0F-F35260F53D95}']
+  ['{FD432FBB-8219-433D-924F-22901565FFF3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3703,7 +3754,7 @@ type
   end;
 
   { TAgentesDataTableRules }
-  TAgentesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes)
+  TAgentesDataTableRules = class(TDADataTableRules, IAgentes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -3875,7 +3926,7 @@ type
 
   { IClientesDescuentosArticulos }
   IClientesDescuentosArticulos = interface(IDAStronglyTypedDataTable)
-  ['{6DB3E96E-A996-4A28-A2D6-874BC3B4D1AF}']
+  ['{007089E4-2A88-4E59-9F39-DBA5E0DD0C57}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -3937,7 +3988,7 @@ type
   end;
 
   { TClientesDescuentosArticulosDataTableRules }
-  TClientesDescuentosArticulosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentosArticulos)
+  TClientesDescuentosArticulosDataTableRules = class(TDADataTableRules, IClientesDescuentosArticulos)
   private
   protected
     { Property getters and setters }
@@ -4006,7 +4057,7 @@ type
 
   { IAgentes_Objetivos_albaranes }
   IAgentes_Objetivos_albaranes = interface(IDAStronglyTypedDataTable)
-  ['{CFCD1E75-CA07-4C58-B697-58AB0E9DCD6F}']
+  ['{93BAC2FE-520D-454C-95D2-15A72D48968A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4056,7 +4107,7 @@ type
   end;
 
   { TAgentes_Objetivos_albaranesDataTableRules }
-  TAgentes_Objetivos_albaranesDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_albaranes)
+  TAgentes_Objetivos_albaranesDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_albaranes)
   private
   protected
     { Property getters and setters }
@@ -4113,7 +4164,7 @@ type
 
   { IAgentes_Objetivos_facturas }
   IAgentes_Objetivos_facturas = interface(IDAStronglyTypedDataTable)
-  ['{9CF904E4-C6C9-41E5-8C64-0633B59BE86A}']
+  ['{B28387E5-80DE-4340-9114-CC7AE7ECF05A}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -4163,7 +4214,7 @@ type
   end;
 
   { TAgentes_Objetivos_facturasDataTableRules }
-  TAgentes_Objetivos_facturasDataTableRules = class(TIntfObjectDADataTableRules, IAgentes_Objetivos_facturas)
+  TAgentes_Objetivos_facturasDataTableRules = class(TDADataTableRules, IAgentes_Objetivos_facturas)
   private
   protected
     { Property getters and setters }
@@ -4218,6 +4269,41 @@ type
 
   end;
 
+  { IListaAnosObjetivosFac }
+  IListaAnosObjetivosFac = interface(IDAStronglyTypedDataTable)
+  ['{8E1FC0F1-1AFF-47F6-8FCB-619723CC5DA6}']
+    { Property getters and setters }
+    function GetANOValue: SmallInt;
+    procedure SetANOValue(const aValue: SmallInt);
+    function GetANOIsNull: Boolean;
+    procedure SetANOIsNull(const aValue: Boolean);
+
+
+    { Properties }
+    property ANO: SmallInt read GetANOValue write SetANOValue;
+    property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+  end;
+
+  { TListaAnosObjetivosFacDataTableRules }
+  TListaAnosObjetivosFacDataTableRules = class(TDADataTableRules, IListaAnosObjetivosFac)
+  private
+  protected
+    { Property getters and setters }
+    function GetANOValue: SmallInt; virtual;
+    procedure SetANOValue(const aValue: SmallInt); virtual;
+    function GetANOIsNull: Boolean; virtual;
+    procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ANO: SmallInt read GetANOValue write SetANOValue;
+    property ANOIsNull: Boolean read GetANOIsNull write SetANOIsNull;
+
+  public
+    constructor Create(aDataTable: TDADataTable); override;
+    destructor Destroy; override;
+
+  end;
+
 implementation
 
 uses Variants, uROBinaryHelpers;
@@ -8916,6 +9002,39 @@ begin
 end;
 
 
+{ TListaAnosObjetivosAlbDataTableRules }
+constructor TListaAnosObjetivosAlbDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TListaAnosObjetivosAlbDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TListaAnosObjetivosAlbDataTableRules.GetANOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt;
+end;
+
+procedure TListaAnosObjetivosAlbDataTableRules.SetANOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsSmallInt := aValue;
+end;
+
+function TListaAnosObjetivosAlbDataTableRules.GetANOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ListaAnosObjetivosAlbANO].IsNull;
+end;
+
+procedure TListaAnosObjetivosAlbDataTableRules.SetANOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ListaAnosObjetivosAlbANO].AsVariant := Null;
+end;
+
+
 { TAgentesDataTableRules }
 constructor TAgentesDataTableRules.Create(aDataTable: TDADataTable);
 var
@@ -10000,6 +10119,39 @@ begin
 end;
 
 
+{ TListaAnosObjetivosFacDataTableRules }
+constructor TListaAnosObjetivosFacDataTableRules.Create(aDataTable: TDADataTable);
+begin
+  inherited;
+end;
+
+destructor TListaAnosObjetivosFacDataTableRules.Destroy;
+begin
+  inherited;
+end;
+
+function TListaAnosObjetivosFacDataTableRules.GetANOValue: SmallInt;
+begin
+  result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt;
+end;
+
+procedure TListaAnosObjetivosFacDataTableRules.SetANOValue(const aValue: SmallInt);
+begin
+  DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsSmallInt := aValue;
+end;
+
+function TListaAnosObjetivosFacDataTableRules.GetANOIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ListaAnosObjetivosFacANO].IsNull;
+end;
+
+procedure TListaAnosObjetivosFacDataTableRules.SetANOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ListaAnosObjetivosFacANO].AsVariant := Null;
+end;
+
+
 initialization
   RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
   RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);
@@ -10016,9 +10168,11 @@ initialization
   RegisterDataTableRules(RID_DescripcionesProveedores, TDescripcionesProveedoresDataTableRules);
   RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
   RegisterDataTableRules(RID_Agentes_Comisiones, TAgentes_ComisionesDataTableRules);
+  RegisterDataTableRules(RID_ListaAnosObjetivosAlb, TListaAnosObjetivosAlbDataTableRules);
   RegisterDataTableRules(RID_Agentes, TAgentesDataTableRules);
   RegisterDataTableRules(RID_ClientesDescuentosArticulos, TClientesDescuentosArticulosDataTableRules);
   RegisterDataTableRules(RID_Agentes_Objetivos_albaranes, TAgentes_Objetivos_albaranesDataTableRules);
   RegisterDataTableRules(RID_Agentes_Objetivos_facturas, TAgentes_Objetivos_facturasDataTableRules);
+  RegisterDataTableRules(RID_ListaAnosObjetivosFac, TListaAnosObjetivosFacDataTableRules);
 
 end.

Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

@@ -9,30 +9,32 @@ 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_ContactosDelta = '{39416DA5-238E-47E9-A82E-07A239049EBA}';
+  RID_ContactosDelta = '{924489BD-4BF1-490A-80E1-292384CDE36B}';
-  RID_GruposClienteDelta = '{83DA4B0F-90DA-4C55-98B9-D7B0478B54C9}';
+  RID_GruposClienteDelta = '{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}';
-  RID_DatosBancariosDelta = '{E2CF54FC-D385-4E34-8AD9-468F613370CC}';
+  RID_DatosBancariosDelta = '{359B215D-847C-407A-9553-F0E7AE268DAE}';
-  RID_ClientesDelta = '{6AB5F06E-ACE1-497F-95A8-2CD68F8261F4}';
+  RID_ClientesDelta = '{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}';
-  RID_ProveedoresDelta = '{D1324DD1-75FC-4241-9ECD-36627E80BCB5}';
+  RID_ProveedoresDelta = '{F3854348-13E9-465B-9E6E-67EC43F26D2E}';
-  RID_EmpleadosDelta = '{D96A5955-19DA-44B3-86F8-0217EFFF2F5C}';
+  RID_EmpleadosDelta = '{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}';
-  RID_DireccionesContactoDelta = '{B40A76E6-E740-434E-B16F-532A638CB575}';
+  RID_DireccionesContactoDelta = '{C480F508-E137-4093-8BF2-DF49EF2AB3DE}';
-  RID_ClientesDescuentosDelta = '{472998E9-FA58-4385-9053-4A3F1138EE6D}';
+  RID_ClientesDescuentosDelta = '{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}';
-  RID_GruposProveedorDelta = '{AF56FDBF-7D39-442D-8F87-4549F09DAA21}';
+  RID_GruposProveedorDelta = '{129AA285-FCCC-42C8-B31E-288EDB9500DA}';
-  RID_GruposEmpleadoDelta = '{0C4E4FAD-76EE-4B82-81A3-77CF6DC35199}';
+  RID_GruposEmpleadoDelta = '{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}';
-  RID_Contactos_RefreshDelta = '{2ED30DD9-C801-43B1-97FC-765DC9FB8BCC}';
+  RID_Contactos_RefreshDelta = '{755CB99F-48D6-47A3-B95B-0580F7586656}';
-  RID_ContratosEmpleadosDelta = '{0B6CD4CF-4DBB-42A9-A3FD-94974C3E5B46}';
+  RID_ContratosEmpleadosDelta = '{7E590734-DDA2-4025-ACC6-0F16255B130A}';
-  RID_DescripcionesProveedoresDelta = '{408A90EF-AED2-40AB-9FE0-46D1EA721B5A}';
+  RID_DescripcionesProveedoresDelta = '{57434ABA-AADE-4CD2-930E-6309C476941F}';
-  RID_PersonalContactoDelta = '{F8381C5C-B8F8-4F56-B56D-A333E064353E}';
+  RID_PersonalContactoDelta = '{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}';
-  RID_Agentes_ComisionesDelta = '{CD1B8807-E14C-453F-9ACF-F53DA26E6DAB}';
+  RID_Agentes_ComisionesDelta = '{A136E396-E02A-4776-BB9D-6C2AF7228D09}';
-  RID_AgentesDelta = '{D43A0810-3E6F-4735-8CC0-4636179FCBBB}';
+  RID_ListaAnosObjetivosAlbDelta = '{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}';
-  RID_ClientesDescuentosArticulosDelta = '{6D6683CD-C6F3-47CE-913B-CF19B9A1A038}';
+  RID_AgentesDelta = '{A42667F1-F22B-4E4C-A840-C80695B7291C}';
-  RID_Agentes_Objetivos_albaranesDelta = '{FAB9F379-D856-452E-B39B-03CDF32BC20F}';
+  RID_ClientesDescuentosArticulosDelta = '{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}';
-  RID_Agentes_Objetivos_facturasDelta = '{7EEB2D8D-FDFD-454A-AC8D-261AA6F4DC82}';
+  RID_Agentes_Objetivos_albaranesDelta = '{1CF088C7-E0C8-4090-85A1-14A3838B781F}';
+  RID_Agentes_Objetivos_facturasDelta = '{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}';
+  RID_ListaAnosObjetivosFacDelta = '{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}';
 
 type
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{39416DA5-238E-47E9-A82E-07A239049EBA}']
+  ['{924489BD-4BF1-490A-80E1-292384CDE36B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -331,7 +333,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{83DA4B0F-90DA-4C55-98B9-D7B0478B54C9}']
+  ['{00B6FC09-D8A1-4AF6-B6DF-2BCEF361091C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -377,7 +379,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{E2CF54FC-D385-4E34-8AD9-468F613370CC}']
+  ['{359B215D-847C-407A-9553-F0E7AE268DAE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -507,7 +509,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{6AB5F06E-ACE1-497F-95A8-2CD68F8261F4}']
+  ['{71CCE505-5A15-4B1E-A807-8DA7DFE6C36C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1034,7 +1036,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{D1324DD1-75FC-4241-9ECD-36627E80BCB5}']
+  ['{F3854348-13E9-465B-9E6E-67EC43F26D2E}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1525,7 +1527,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{D96A5955-19DA-44B3-86F8-0217EFFF2F5C}']
+  ['{8A94BFD2-C61E-46A8-9620-CF7E1C97D7B5}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1960,7 +1962,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{B40A76E6-E740-434E-B16F-532A638CB575}']
+  ['{C480F508-E137-4093-8BF2-DF49EF2AB3DE}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2175,7 +2177,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{472998E9-FA58-4385-9053-4A3F1138EE6D}']
+  ['{B4C0F049-8B81-4EFB-9E8E-592A72FE25A6}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2257,7 +2259,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{AF56FDBF-7D39-442D-8F87-4549F09DAA21}']
+  ['{129AA285-FCCC-42C8-B31E-288EDB9500DA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2303,7 +2305,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{0C4E4FAD-76EE-4B82-81A3-77CF6DC35199}']
+  ['{F6F9AD04-610E-4F13-AC1F-7ACDB1761FE8}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldDESCRIPCIONValue : String;
@@ -2349,7 +2351,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{2ED30DD9-C801-43B1-97FC-765DC9FB8BCC}']
+  ['{755CB99F-48D6-47A3-B95B-0580F7586656}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -2624,7 +2626,7 @@ type
 
   { IContratosEmpleadosDelta }
   IContratosEmpleadosDelta = interface(IContratosEmpleados)
-  ['{0B6CD4CF-4DBB-42A9-A3FD-94974C3E5B46}']
+  ['{7E590734-DDA2-4025-ACC6-0F16255B130A}']
     { Property getters and setters }
     function GetOldCONTRATOValue : String;
 
@@ -2658,7 +2660,7 @@ type
 
   { IDescripcionesProveedoresDelta }
   IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
-  ['{408A90EF-AED2-40AB-9FE0-46D1EA721B5A}']
+  ['{57434ABA-AADE-4CD2-930E-6309C476941F}']
     { Property getters and setters }
     function GetOldDESCRIPCION_PROVEEDORValue : String;
 
@@ -2692,7 +2694,7 @@ type
 
   { IPersonalContactoDelta }
   IPersonalContactoDelta = interface(IPersonalContacto)
-  ['{F8381C5C-B8F8-4F56-B56D-A333E064353E}']
+  ['{8B6FE0F0-8635-483F-8FCC-0D386BF286DD}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2834,7 +2836,7 @@ type
 
   { IAgentes_ComisionesDelta }
   IAgentes_ComisionesDelta = interface(IAgentes_Comisiones)
-  ['{CD1B8807-E14C-453F-9ACF-F53DA26E6DAB}']
+  ['{A136E396-E02A-4776-BB9D-6C2AF7228D09}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -2914,9 +2916,43 @@ type
 
   end;
 
+  { IListaAnosObjetivosAlbDelta }
+  IListaAnosObjetivosAlbDelta = interface(IListaAnosObjetivosAlb)
+  ['{FC0A5B37-290A-4872-93FD-EDA0FCCEC000}']
+    { Property getters and setters }
+    function GetOldANOValue : SmallInt;
+
+    { Properties }
+    property OldANO : SmallInt read GetOldANOValue;
+  end;
+
+  { TListaAnosObjetivosAlbBusinessProcessorRules }
+  TListaAnosObjetivosAlbBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosAlb, IListaAnosObjetivosAlbDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetANOValue: SmallInt; virtual;
+    function GetANOIsNull: Boolean; virtual;
+    function GetOldANOValue: SmallInt; virtual;
+    function GetOldANOIsNull: Boolean; virtual;
+    procedure SetANOValue(const aValue: SmallInt); virtual;
+    procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ANO : SmallInt read GetANOValue write SetANOValue;
+    property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
+    property OldANO : SmallInt read GetOldANOValue;
+    property OldANOIsNull : Boolean read GetOldANOIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
   { IAgentesDelta }
   IAgentesDelta = interface(IAgentes)
-  ['{D43A0810-3E6F-4735-8CC0-4636179FCBBB}']
+  ['{A42667F1-F22B-4E4C-A840-C80695B7291C}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -3251,7 +3287,7 @@ type
 
   { IClientesDescuentosArticulosDelta }
   IClientesDescuentosArticulosDelta = interface(IClientesDescuentosArticulos)
-  ['{6D6683CD-C6F3-47CE-913B-CF19B9A1A038}']
+  ['{49185AEC-BA8D-4CDE-9F02-1C02A34FEF09}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -3381,7 +3417,7 @@ type
 
   { IAgentes_Objetivos_albaranesDelta }
   IAgentes_Objetivos_albaranesDelta = interface(IAgentes_Objetivos_albaranes)
-  ['{FAB9F379-D856-452E-B39B-03CDF32BC20F}']
+  ['{1CF088C7-E0C8-4090-85A1-14A3838B781F}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3487,7 +3523,7 @@ type
 
   { IAgentes_Objetivos_facturasDelta }
   IAgentes_Objetivos_facturasDelta = interface(IAgentes_Objetivos_facturas)
-  ['{7EEB2D8D-FDFD-454A-AC8D-261AA6F4DC82}']
+  ['{B10C7599-1FB6-4CA6-AADF-0FFB60329EC9}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_AGENTEValue : Integer;
@@ -3591,6 +3627,40 @@ type
 
   end;
 
+  { IListaAnosObjetivosFacDelta }
+  IListaAnosObjetivosFacDelta = interface(IListaAnosObjetivosFac)
+  ['{01C5B570-6CCD-4680-B6C9-CFC0DB37A4DE}']
+    { Property getters and setters }
+    function GetOldANOValue : SmallInt;
+
+    { Properties }
+    property OldANO : SmallInt read GetOldANOValue;
+  end;
+
+  { TListaAnosObjetivosFacBusinessProcessorRules }
+  TListaAnosObjetivosFacBusinessProcessorRules = class(TDABusinessProcessorRules, IListaAnosObjetivosFac, IListaAnosObjetivosFacDelta)
+  private
+  protected
+    { Property getters and setters }
+    function GetANOValue: SmallInt; virtual;
+    function GetANOIsNull: Boolean; virtual;
+    function GetOldANOValue: SmallInt; virtual;
+    function GetOldANOIsNull: Boolean; virtual;
+    procedure SetANOValue(const aValue: SmallInt); virtual;
+    procedure SetANOIsNull(const aValue: Boolean); virtual;
+
+    { Properties }
+    property ANO : SmallInt read GetANOValue write SetANOValue;
+    property ANOIsNull : Boolean read GetANOIsNull write SetANOIsNull;
+    property OldANO : SmallInt read GetOldANOValue;
+    property OldANOIsNull : Boolean read GetOldANOIsNull;
+
+  public
+    constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
+    destructor Destroy; override;
+
+  end;
+
 implementation
 
 uses
@@ -10420,6 +10490,49 @@ begin
 end;
 
 
+{ TListaAnosObjetivosAlbBusinessProcessorRules }
+constructor TListaAnosObjetivosAlbBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TListaAnosObjetivosAlbBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO];
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetANOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO]);
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO];
+end;
+
+function TListaAnosObjetivosAlbBusinessProcessorRules.GetOldANOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosAlbANO]);
+end;
+
+procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := aValue;
+end;
+
+procedure TListaAnosObjetivosAlbBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosAlbANO] := Null;
+end;
+
+
 { TAgentesBusinessProcessorRules }
 constructor TAgentesBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
 var
@@ -11995,6 +12108,49 @@ begin
 end;
 
 
+{ TListaAnosObjetivosFacBusinessProcessorRules }
+constructor TListaAnosObjetivosFacBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
+begin
+  inherited;
+end;
+
+destructor TListaAnosObjetivosFacBusinessProcessorRules.Destroy;
+begin
+  inherited;
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetANOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO];
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetANOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO]);
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOValue: SmallInt;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO];
+end;
+
+function TListaAnosObjetivosFacBusinessProcessorRules.GetOldANOIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ListaAnosObjetivosFacANO]);
+end;
+
+procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOValue(const aValue: SmallInt);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := aValue;
+end;
+
+procedure TListaAnosObjetivosFacBusinessProcessorRules.SetANOIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ListaAnosObjetivosFacANO] := Null;
+end;
+
+
 initialization
   RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);
@@ -12011,9 +12167,11 @@ initialization
   RegisterBusinessProcessorRules(RID_DescripcionesProveedoresDelta, TDescripcionesProveedoresBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_Agentes_ComisionesDelta, TAgentes_ComisionesBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_ListaAnosObjetivosAlbDelta, TListaAnosObjetivosAlbBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_AgentesDelta, TAgentesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_ClientesDescuentosArticulosDelta, TClientesDescuentosArticulosBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_Agentes_Objetivos_albaranesDelta, TAgentes_Objetivos_albaranesBusinessProcessorRules);
   RegisterBusinessProcessorRules(RID_Agentes_Objetivos_facturasDelta, TAgentes_Objetivos_facturasBusinessProcessorRules);
+  RegisterBusinessProcessorRules(RID_ListaAnosObjetivosFacDelta, TListaAnosObjetivosFacBusinessProcessorRules);
 
 end.

Source/Modulos/Contactos/Model/uBizAgentesServer.pas

@@ -51,12 +51,35 @@ begin
   try
     with ACommand do
     begin
-      ParamByName('OLD_ID_EMPLEADO').Value := aChange.OldValueByName[fld_AgentesID];
+      ParamByName('OLD_ID_AGENTE').Value := aChange.OldValueByName[fld_AgentesID];
       Execute;
     end;
   finally
     ACommand := NIL;
   end;
+{
+  ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_Agentes_Objetivos_albaranes');
+  try
+    with ACommand do
+    begin
+      ParamByName('OLD_ID').Value := aChange.OldValueByName[fld_AgentesID];
+      Execute;
+    end;
+  finally
+    ACommand := NIL;
+  end;
+
+  ACommand := ASchema.NewCommand(ACurrentConn, 'Delete_Agentes_Objetivos_facturas');
+  try
+    with ACommand do
+    begin
+      ParamByName('OLD_ID').Value := aChange.OldValueByName[fld_AgentesID];
+      Execute;
+    end;
+  finally
+    ACommand := NIL;
+  end;
+}
 end;
 
 function TBizAgenteServer.IncrementarReferenciaContacto: Boolean;

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -4924,7 +4924,7 @@ object srvContactos: TsrvContactos
             StatementType = stSQL
             ColumnMappings = <>
           end>
-        Name = ' Delete_AgentesDatos'
+        Name = 'Delete_AgentesDatos'
       end
       item
         Params = <

Source/Servidor/FactuGES_Server.dproj

@@ -36,13 +36,6 @@
     <Borland.ProjectType />
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">4</VersionInfo><VersionInfo Name="MinorVer">2</VersionInfo><VersionInfo Name="Release">1</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">4.2.1.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">4.2.1.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 31 de enero de 2012 10:21</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
-      
-      
-      
-      
-      
-      
-      
       <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
   </ProjectExtensions>