Repaso al módulo de contactos.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@73 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/Modulos/Contactos/Contactos_Group.groupproj

@@ -12,6 +12,7 @@
     <Projects Include="..\Contabilidad\Controller\Contabilidad_controller.dproj" />
     <Projects Include="..\Contabilidad\Data\Contabilidad_data.dproj" />
     <Projects Include="..\Contabilidad\Model\Contabilidad_model.dproj" />
+    <Projects Include="..\Contabilidad\Views\Contabilidad_view.dproj" />
     <Projects Include="Controller\Contactos_controller.dproj" />
     <Projects Include="Data\Contactos_data.dproj" />
     <Projects Include="Model\Contactos_model.dproj" />
@@ -141,14 +142,23 @@
   <Target Name="FactuGES_Server:Make">
     <MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
   </Target>
+  <Target Name="Contabilidad_view">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="" />
+  </Target>
+  <Target Name="Contabilidad_view:Clean">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Clean" />
+  </Target>
+  <Target Name="Contabilidad_view:Make">
+    <MSBuild Projects="..\Contabilidad\Views\Contabilidad_view.dproj" Targets="Make" />
+  </Target>
   <Target Name="Build">
-    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_model;Contabilidad_data;Contabilidad_controller;FactuGES;FactuGES_Server" />
+    <CallTarget Targets="Base;GUIBase;ApplicationBase;Contactos_model;Contactos_data;Contactos_controller;Contactos_view;Contactos_plugin;Contabilidad_model;Contabilidad_data;Contabilidad_controller;FactuGES;FactuGES_Server;Contabilidad_view" />
   </Target>
   <Target Name="Clean">
-    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean" />
+    <CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Contactos_model:Clean;Contactos_data:Clean;Contactos_controller:Clean;Contactos_view:Clean;Contactos_plugin:Clean;Contabilidad_model:Clean;Contabilidad_data:Clean;Contabilidad_controller:Clean;FactuGES:Clean;FactuGES_Server:Clean;Contabilidad_view:Clean" />
   </Target>
   <Target Name="Make">
-    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;FactuGES:Make;FactuGES_Server:Make" />
+    <CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Contactos_model:Make;Contactos_data:Make;Contactos_controller:Make;Contactos_view:Make;Contactos_plugin:Make;Contabilidad_model:Make;Contabilidad_data:Make;Contabilidad_controller:Make;FactuGES:Make;FactuGES_Server:Make;Contabilidad_view:Make" />
   </Target>
   <Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
 </Project>

Source/Modulos/Contactos/Controller/uClientesController.pas

@@ -321,6 +321,10 @@ begin
       if (SubCuentas.DataTable.State in dsEditModes) then
           SubCuentas.DataTable.Post;
 
+      if (IGNORAR_CONTABILIDAD = 0)
+      and (SubCuentas.DataTable.RecordCount = 0) then
+         raise Exception.Create('El cliente debe tener asociada una subcuenta contable');
+
       if (BLOQUEADO = 0) then
       begin
         Edit;
@@ -341,7 +345,8 @@ begin
       end;
     end;
 
-
+    {
+    // Por ahora no existe el concepto de direcciones de entrega asi que esto está desactivado
     if Result and (AContacto.Direcciones.RecordCount = 0) then
       if (ShowConfirmMessage('El cliente no tiene direcciones asociadas',
         AContacto.NOMBRE + ' no tiene ninguna dirección de envío dada de alta, ' + #10#13 +
@@ -349,7 +354,7 @@ begin
       begin
         FDireccionesController.CopiarDireccionFiscal(AContacto, AContacto.Direcciones);
         FDireccionesController.Ver(AContacto.Direcciones);
-      end;
+      end;}
   end;
 end;
 

Source/Modulos/Contactos/Controller/uContactosController.pas

@@ -90,6 +90,7 @@ begin
     begin
       ID_EMPRESA := AppFactuGES.EmpresaActiva.ID;
       USUARIO := AppFactuGES.UsuarioActivo.UserName;
+      REFERENCIA := '';
     end;
 
     Result.Post;

Source/Modulos/Contactos/Controller/uProveedoresController.pas

@@ -21,7 +21,7 @@ type
   TProveedoresController = class(TContactosController, IProveedoresController)
   protected
     FDireccionesController : IDireccionesContactoController;
-
+    function ValidarContacto(AContacto: IBizContacto): Boolean; override;
   public
     constructor Create; override;
     destructor Destroy; override;
@@ -279,6 +279,24 @@ begin
   end;
 end;
 
+function TProveedoresController.ValidarContacto(
+  AContacto: IBizContacto): Boolean;
+begin
+  Result := inherited ValidarContacto(AContacto);
+  if Result then
+  begin
+    with (AContacto as IBizProveedor) do
+    begin
+      if (SubCuentas.DataTable.State in dsEditModes) then
+          SubCuentas.DataTable.Post;
+
+      if (IGNORAR_CONTABILIDAD = 0)
+      and (SubCuentas.DataTable.RecordCount = 0) then
+         raise Exception.Create('El proveedor debe tener asociada una subcuenta contable');
+    end;
+  end;
+end;
+
 procedure TProveedoresController.Ver(AContacto: IBizContacto);
 var
   AEditor : IEditorProveedor;

Source/Modulos/Contactos/Data/uDataModuleClientes.dfm

@@ -148,10 +148,14 @@ inherited DataModuleClientes: TDataModuleClientes
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
+        DisplayLabel = 'Clientes_FECHA_ALTA'
+        DictionaryEntry = 'Clientes_FECHA_ALTA'
       end
       item
         Name = 'FECHA_MODIFICACION'
         DataType = datDateTime
+        DisplayLabel = 'Clientes_FECHA_MODIFICACION'
+        DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
       end
       item
         Name = 'USUARIO'
@@ -169,6 +173,7 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'REFERENCIA'
         DataType = datString
         Size = 255
+        ServerAutoRefresh = True
         DictionaryEntry = 'Clientes_REFERENCIA'
       end
       item
@@ -236,6 +241,14 @@ inherited DataModuleClientes: TDataModuleClientes
         Name = 'CODIGO_ASIGNADO'
         DataType = datString
         Size = 255
+        DisplayLabel = 'Clientes_CODIGO_ASIGNADO'
+        DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
+      end
+      item
+        Name = 'IGNORAR_CONTABILIDAD'
+        DataType = datInteger
+        DisplayLabel = 'Clientes_IGNORAR_CONTABILIDAD'
+        DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -345,6 +358,7 @@ inherited DataModuleClientes: TDataModuleClientes
         DataType = datAutoInc
         GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
         Required = True
+        ServerAutoRefresh = True
         DictionaryEntry = 'SubCuentasContacto_ID'
         InPrimaryKey = True
       end

Source/Modulos/Contactos/Data/uDataModuleContactos.dfm

@@ -179,6 +179,7 @@ inherited DataModuleContactos: TDataModuleContactos
         DataType = datString
         Size = 255
         DisplayLabel = 'Referencia'
+        ServerAutoRefresh = True
         DictionaryEntry = 'Contactos_REFERENCIA'
       end>
     Params = <>

Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm

@@ -168,10 +168,14 @@ inherited DataModuleProveedores: TDataModuleProveedores
       item
         Name = 'FECHA_ALTA'
         DataType = datDateTime
+        DisplayLabel = 'Proveedores_FECHA_ALTA'
+        DictionaryEntry = 'Proveedores_FECHA_ALTA'
       end
       item
         Name = 'FECHA_MODIFICACION'
         DataType = datDateTime
+        DisplayLabel = 'Proveedores_FECHA_MODIFICACION'
+        DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
       end
       item
         Name = 'USUARIO'
@@ -190,6 +194,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
         DataType = datString
         Size = 255
         DisplayLabel = 'Referencia'
+        ServerAutoRefresh = True
         DictionaryEntry = 'Proveedores_REFERENCIA'
       end
       item
@@ -215,7 +220,8 @@ inherited DataModuleProveedores: TDataModuleProveedores
       item
         Name = 'GRUPO_PROVEEDOR'
         DataType = datString
-        Size = 255
+        DisplayLabel = 'Grupo proveedor'
+        DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
       end
       item
         Name = 'REGIMEN_IVA'
@@ -251,6 +257,12 @@ inherited DataModuleProveedores: TDataModuleProveedores
         Size = 255
         DisplayLabel = 'Certificaciones'
         DictionaryEntry = 'Proveedores_CERTIFICACION'
+      end
+      item
+        Name = 'IGNORAR_CONTABILIDAD'
+        DataType = datInteger
+        DisplayLabel = 'Proveedores_IGNORAR_CONTABILIDAD'
+        DictionaryEntry = 'Proveedores_IGNORAR_CONTABILIDAD'
       end>
     Params = <>
     StreamingOptions = [soDisableEventsWhileStreaming]
@@ -277,6 +289,7 @@ inherited DataModuleProveedores: TDataModuleProveedores
         DataType = datAutoInc
         GeneratorName = 'GEN_CONT_SUBCUENTAS_ID'
         Required = True
+        ServerAutoRefresh = True
         DictionaryEntry = 'SubCuentasContacto_ID'
         InPrimaryKey = True
       end

Source/Modulos/Contactos/Model/schContactosClient_Intf.pas

@@ -3,24 +3,24 @@ unit schContactosClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, 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_SubCuentasContacto = '{31E4F142-90A9-43AF-BA1A-1D9E2709B45D}';
+  RID_SubCuentasContacto = '{4E9A4351-6088-4C3D-89BE-5C2045F3142E}';
-  RID_Contactos = '{D1D6AE0C-CB9D-4339-85EF-EF5D108CF7B0}';
+  RID_Contactos = '{7488A5BA-619B-4BAB-A118-BCED33A85729}';
-  RID_GruposCliente = '{F20ADBA3-4C7F-4E45-BC8F-028251137CE3}';
+  RID_GruposCliente = '{3581CC88-21B9-4C30-A3AE-7565C18C3290}';
-  RID_DatosBancarios = '{1CD5BB52-38A3-447E-BE75-670660841F72}';
+  RID_DatosBancarios = '{039C7134-AC7B-45EE-B678-BF31C4266A3E}';
-  RID_Clientes = '{F15EADE4-FBD1-4132-8475-8DD722611D2E}';
+  RID_Clientes = '{39651BB6-A46C-4E18-8370-B7E381F5E438}';
-  RID_Proveedores = '{7981FF66-06FD-4EE1-9564-EA37C676A319}';
+  RID_Proveedores = '{4E9E99D2-0F82-481A-9BD2-6178349034A0}';
-  RID_Empleados = '{AC0D3CD8-C3E4-45B9-A657-C282E25D2217}';
+  RID_Empleados = '{C0B6AA11-68AE-4658-9308-8C29C5F0936D}';
-  RID_DireccionesContacto = '{75EBF2E8-5F56-4CD1-8F11-BCF2F68889D3}';
+  RID_DireccionesContacto = '{EF3A2758-0CBE-4482-8770-91AD4F993A04}';
-  RID_ClientesDescuentos = '{C40E3AD8-AEA8-4376-81F2-37A001F88732}';
+  RID_ClientesDescuentos = '{D64874F0-7499-4AC8-B3F1-DC1D63923CE9}';
-  RID_GruposProveedor = '{0411FDA9-31F7-47DE-BAC4-73C59992FBC0}';
+  RID_GruposProveedor = '{86B9993A-ECB2-43E3-BA37-2C8DD53497A8}';
-  RID_GruposEmpleado = '{AD867ECC-C46F-4976-8315-208A5F9BCD34}';
+  RID_GruposEmpleado = '{877D71DA-AE8B-4B26-969F-AAA4DB1405D1}';
-  RID_Contactos_Refresh = '{EF5AFE33-8F5F-42F4-8C9F-96D6C5778708}';
+  RID_Contactos_Refresh = '{8758F490-8118-4E61-AC27-3925D66A739C}';
 
   { Data table names }
   nme_SubCuentasContacto = 'SubCuentasContacto';
@@ -165,6 +165,7 @@ const
   fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
   fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
   fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
+  fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
 
   { Clientes field indexes }
   idx_ClientesID = 0;
@@ -201,6 +202,7 @@ const
   idx_ClientesID_FORMA_PAGO = 31;
   idx_ClientesTIENDA_WEB = 32;
   idx_ClientesCODIGO_ASIGNADO = 33;
+  idx_ClientesIGNORAR_CONTABILIDAD = 34;
 
   { Proveedores fields }
   fld_ProveedoresID = 'ID';
@@ -236,6 +238,7 @@ const
   fld_ProveedoresTIENDA_WEB = 'TIENDA_WEB';
   fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO';
   fld_ProveedoresCERTIFICACION = 'CERTIFICACION';
+  fld_ProveedoresIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD';
 
   { Proveedores field indexes }
   idx_ProveedoresID = 0;
@@ -271,6 +274,7 @@ const
   idx_ProveedoresTIENDA_WEB = 30;
   idx_ProveedoresHOMOLOGADO = 31;
   idx_ProveedoresCERTIFICACION = 32;
+  idx_ProveedoresIGNORAR_CONTABILIDAD = 33;
 
   { Empleados fields }
   fld_EmpleadosID = 'ID';
@@ -447,7 +451,7 @@ const
 type
   { ISubCuentasContacto }
   ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
-  ['{FA69CBDF-8BAE-4B55-B4FB-E88213EE6CA6}']
+  ['{67E58E93-5163-41A9-86BD-6D2721F65D18}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -491,7 +495,7 @@ type
   end;
 
   { TSubCuentasContactoDataTableRules }
-  TSubCuentasContactoDataTableRules = class(TDADataTableRules, ISubCuentasContacto)
+  TSubCuentasContactoDataTableRules = class(TIntfObjectDADataTableRules, ISubCuentasContacto)
   private
   protected
     { Property getters and setters }
@@ -542,7 +546,7 @@ type
 
   { IContactos }
   IContactos = interface(IDAStronglyTypedDataTable)
-  ['{52AEBACD-705B-4471-BBAE-94B13314F101}']
+  ['{FCE955D0-D867-4E9E-AEF2-9CAEA0B6E1DC}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -687,7 +691,7 @@ type
   end;
 
   { TContactosDataTableRules }
-  TContactosDataTableRules = class(TDADataTableRules, IContactos)
+  TContactosDataTableRules = class(TIntfObjectDADataTableRules, IContactos)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -841,7 +845,7 @@ type
 
   { IGruposCliente }
   IGruposCliente = interface(IDAStronglyTypedDataTable)
-  ['{90510826-AB2A-4C7D-9025-292E6B2C8DB5}']
+  ['{A2060827-0FC3-452C-9EC0-A58E54F95402}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -855,7 +859,7 @@ type
   end;
 
   { TGruposClienteDataTableRules }
-  TGruposClienteDataTableRules = class(TDADataTableRules, IGruposCliente)
+  TGruposClienteDataTableRules = class(TIntfObjectDADataTableRules, IGruposCliente)
   private
   protected
     { Property getters and setters }
@@ -876,7 +880,7 @@ type
 
   { IDatosBancarios }
   IDatosBancarios = interface(IDAStronglyTypedDataTable)
-  ['{9E43DCFE-67C3-44AC-8FC5-EDD84DFD6D3B}']
+  ['{91DB169A-8525-43B6-BCA9-DED818C22BFF}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -938,7 +942,7 @@ type
   end;
 
   { TDatosBancariosDataTableRules }
-  TDatosBancariosDataTableRules = class(TDADataTableRules, IDatosBancarios)
+  TDatosBancariosDataTableRules = class(TIntfObjectDADataTableRules, IDatosBancarios)
   private
   protected
     { Property getters and setters }
@@ -1007,7 +1011,7 @@ type
 
   { IClientes }
   IClientes = interface(IDAStronglyTypedDataTable)
-  ['{DDCC5378-B677-4E5F-8A5D-6C741BBE2C0D}']
+  ['{EEA29F68-9A96-461E-9D7B-1AA1D0E26123}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1144,6 +1148,10 @@ type
     procedure SetCODIGO_ASIGNADOValue(const aValue: String);
     function GetCODIGO_ASIGNADOIsNull: Boolean;
     procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
+    function GetIGNORAR_CONTABILIDADValue: Integer;
+    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
+    function GetIGNORAR_CONTABILIDADIsNull: Boolean;
+    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1215,10 +1223,12 @@ type
     property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
     property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
     property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
+    property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+    property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
   end;
 
   { TClientesDataTableRules }
-  TClientesDataTableRules = class(TDADataTableRules, IClientes)
+  TClientesDataTableRules = class(TIntfObjectDADataTableRules, IClientes)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1359,6 +1369,10 @@ type
     procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
     function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
     procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
+    function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
+    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
+    function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1429,6 +1443,8 @@ type
     property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
     property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue;
     property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
+    property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+    property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1438,7 +1454,7 @@ type
 
   { IProveedores }
   IProveedores = interface(IDAStronglyTypedDataTable)
-  ['{9FFF9137-76D8-4FB3-96BE-53594EA634D8}']
+  ['{9EFD8DE5-E98C-4071-8CF6-E75A9AA9E3C3}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -1571,6 +1587,10 @@ type
     procedure SetCERTIFICACIONValue(const aValue: String);
     function GetCERTIFICACIONIsNull: Boolean;
     procedure SetCERTIFICACIONIsNull(const aValue: Boolean);
+    function GetIGNORAR_CONTABILIDADValue: Integer;
+    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
+    function GetIGNORAR_CONTABILIDADIsNull: Boolean;
+    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
 
 
     { Properties }
@@ -1640,10 +1660,12 @@ type
     property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
     property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
     property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
+    property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+    property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
   end;
 
   { TProveedoresDataTableRules }
-  TProveedoresDataTableRules = class(TDADataTableRules, IProveedores)
+  TProveedoresDataTableRules = class(TIntfObjectDADataTableRules, IProveedores)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -1780,6 +1802,10 @@ type
     procedure SetCERTIFICACIONValue(const aValue: String); virtual;
     function GetCERTIFICACIONIsNull: Boolean; virtual;
     procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
+    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
+    function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID: Integer read GetIDValue write SetIDValue;
@@ -1848,6 +1874,8 @@ type
     property HOMOLOGADOIsNull: Boolean read GetHOMOLOGADOIsNull write SetHOMOLOGADOIsNull;
     property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
     property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
+    property IGNORAR_CONTABILIDAD: Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+    property IGNORAR_CONTABILIDADIsNull: Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -1857,7 +1885,7 @@ type
 
   { IEmpleados }
   IEmpleados = interface(IDAStronglyTypedDataTable)
-  ['{710C416F-BD6B-4C34-AC34-1986426909E9}']
+  ['{6A39017E-6CFF-4DA5-9685-9CA1F72AD052}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2040,7 +2068,7 @@ type
   end;
 
   { TEmpleadosDataTableRules }
-  TEmpleadosDataTableRules = class(TDADataTableRules, IEmpleados)
+  TEmpleadosDataTableRules = class(TIntfObjectDADataTableRules, IEmpleados)
   private
     f_NOTAS: IROStrings;
     f_FORMACION_BASE: IROStrings;
@@ -2240,7 +2268,7 @@ type
 
   { IDireccionesContacto }
   IDireccionesContacto = interface(IDAStronglyTypedDataTable)
-  ['{54D84CC9-316E-4C07-9706-B7C61098524E}']
+  ['{FC464110-B68D-47F7-B110-E8F0CAB02469}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2343,7 +2371,7 @@ type
   end;
 
   { TDireccionesContactoDataTableRules }
-  TDireccionesContactoDataTableRules = class(TDADataTableRules, IDireccionesContacto)
+  TDireccionesContactoDataTableRules = class(TIntfObjectDADataTableRules, IDireccionesContacto)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -2455,7 +2483,7 @@ type
 
   { IClientesDescuentos }
   IClientesDescuentos = interface(IDAStronglyTypedDataTable)
-  ['{FFE1721A-DDEB-4441-BA4D-C690D29ED039}']
+  ['{E18F5CD7-822B-48C7-9C22-A13591398D44}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2493,7 +2521,7 @@ type
   end;
 
   { TClientesDescuentosDataTableRules }
-  TClientesDescuentosDataTableRules = class(TDADataTableRules, IClientesDescuentos)
+  TClientesDescuentosDataTableRules = class(TIntfObjectDADataTableRules, IClientesDescuentos)
   private
   protected
     { Property getters and setters }
@@ -2538,7 +2566,7 @@ type
 
   { IGruposProveedor }
   IGruposProveedor = interface(IDAStronglyTypedDataTable)
-  ['{E11DB2D2-063E-4057-97A1-E407BF2BF7D2}']
+  ['{CA3DAC4A-3007-47A3-89C2-B8D256F3302E}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2552,7 +2580,7 @@ type
   end;
 
   { TGruposProveedorDataTableRules }
-  TGruposProveedorDataTableRules = class(TDADataTableRules, IGruposProveedor)
+  TGruposProveedorDataTableRules = class(TIntfObjectDADataTableRules, IGruposProveedor)
   private
   protected
     { Property getters and setters }
@@ -2573,7 +2601,7 @@ type
 
   { IGruposEmpleado }
   IGruposEmpleado = interface(IDAStronglyTypedDataTable)
-  ['{C1EDA3D0-AB74-460D-ACE5-66ABBB2DB007}']
+  ['{69A5969A-4106-4587-BAED-06541567A599}']
     { Property getters and setters }
     function GetDESCRIPCIONValue: String;
     procedure SetDESCRIPCIONValue(const aValue: String);
@@ -2587,7 +2615,7 @@ type
   end;
 
   { TGruposEmpleadoDataTableRules }
-  TGruposEmpleadoDataTableRules = class(TDADataTableRules, IGruposEmpleado)
+  TGruposEmpleadoDataTableRules = class(TIntfObjectDADataTableRules, IGruposEmpleado)
   private
   protected
     { Property getters and setters }
@@ -2608,7 +2636,7 @@ type
 
   { IContactos_Refresh }
   IContactos_Refresh = interface(IDAStronglyTypedDataTable)
-  ['{5CA1791F-1EE5-4894-9282-EDE57B721677}']
+  ['{862C6067-8EDC-4805-8BA3-3131D61764C6}']
     { Property getters and setters }
     function GetIDValue: Integer;
     procedure SetIDValue(const aValue: Integer);
@@ -2741,7 +2769,7 @@ type
   end;
 
   { TContactos_RefreshDataTableRules }
-  TContactos_RefreshDataTableRules = class(TDADataTableRules, IContactos_Refresh)
+  TContactos_RefreshDataTableRules = class(TIntfObjectDADataTableRules, IContactos_Refresh)
   private
     f_NOTAS: IROStrings;
     procedure NOTAS_OnChange(Sender: TObject);
@@ -4491,6 +4519,27 @@ begin
     DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null;
 end;
 
+function TClientesDataTableRules.GetIGNORAR_CONTABILIDADValue: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger;
+end;
+
+procedure TClientesDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger := aValue;
+end;
+
+function TClientesDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].IsNull;
+end;
+
+procedure TClientesDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsVariant := Null;
+end;
+
 
 { TProveedoresDataTableRules }
 constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable);
@@ -5203,6 +5252,27 @@ begin
     DataTable.Fields[idx_ProveedoresCERTIFICACION].AsVariant := Null;
 end;
 
+function TProveedoresDataTableRules.GetIGNORAR_CONTABILIDADValue: Integer;
+begin
+  result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
+end;
+
+procedure TProveedoresDataTableRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
+begin
+  DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := aValue;
+end;
+
+function TProveedoresDataTableRules.GetIGNORAR_CONTABILIDADIsNull: boolean;
+begin
+  result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].IsNull;
+end;
+
+procedure TProveedoresDataTableRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsVariant := Null;
+end;
+
 
 { TEmpleadosDataTableRules }
 constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

Source/Modulos/Contactos/Model/schContactosServer_Intf.pas

@@ -9,23 +9,23 @@ 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 = '{5B506DC8-4BEB-403B-A19C-F1EBF4C6A0DF}';
+  RID_SubCuentasContactoDelta = '{C61B54E1-F314-4542-997D-397E249D61FA}';
-  RID_ContactosDelta = '{025485B6-6802-4164-B843-EE188E7BE7F9}';
+  RID_ContactosDelta = '{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}';
-  RID_GruposClienteDelta = '{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}';
+  RID_GruposClienteDelta = '{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}';
-  RID_DatosBancariosDelta = '{129907FB-F58D-490B-B218-54A501539647}';
+  RID_DatosBancariosDelta = '{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}';
-  RID_ClientesDelta = '{86DFD53C-4819-4245-A6F3-BB96B7532388}';
+  RID_ClientesDelta = '{DB2F0740-6510-4933-8319-A6C42A41B1D3}';
-  RID_ProveedoresDelta = '{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}';
+  RID_ProveedoresDelta = '{4F4D8353-5DFD-493F-98A7-098340C343A0}';
-  RID_EmpleadosDelta = '{6C1E2150-8536-48CB-A19C-28836A07D0C9}';
+  RID_EmpleadosDelta = '{D89254AA-A456-4113-9356-87878DD0342B}';
-  RID_DireccionesContactoDelta = '{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}';
+  RID_DireccionesContactoDelta = '{488B60E5-27F3-4A85-B8CF-A78A05CE3555}';
-  RID_ClientesDescuentosDelta = '{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}';
+  RID_ClientesDescuentosDelta = '{0E2CBA43-B994-4B22-9560-96C73CE304F3}';
-  RID_GruposProveedorDelta = '{11E1D581-8AF0-4A90-85D1-2F750318A7BB}';
+  RID_GruposProveedorDelta = '{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}';
-  RID_GruposEmpleadoDelta = '{051B0E6E-74A9-4169-9680-390315179437}';
+  RID_GruposEmpleadoDelta = '{784E3585-2E4F-441F-9B7C-ACF190737701}';
-  RID_Contactos_RefreshDelta = '{B6D16683-2657-4890-927A-0870813D9B96}';
+  RID_Contactos_RefreshDelta = '{141705B2-3547-40A3-B6B9-4ABFDE30CD10}';
 
 type
   { ISubCuentasContactoDelta }
   ISubCuentasContactoDelta = interface(ISubCuentasContacto)
-  ['{5B506DC8-4BEB-403B-A19C-F1EBF4C6A0DF}']
+  ['{C61B54E1-F314-4542-997D-397E249D61FA}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldREF_SUBCUENTAValue : String;
@@ -119,7 +119,7 @@ type
 
   { IContactosDelta }
   IContactosDelta = interface(IContactos)
-  ['{025485B6-6802-4164-B843-EE188E7BE7F9}']
+  ['{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -418,7 +418,7 @@ type
 
   { IGruposClienteDelta }
   IGruposClienteDelta = interface(IGruposCliente)
-  ['{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}']
+  ['{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -452,7 +452,7 @@ type
 
   { IDatosBancariosDelta }
   IDatosBancariosDelta = interface(IDatosBancarios)
-  ['{129907FB-F58D-490B-B218-54A501539647}']
+  ['{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -582,7 +582,7 @@ type
 
   { IClientesDelta }
   IClientesDelta = interface(IClientes)
-  ['{86DFD53C-4819-4245-A6F3-BB96B7532388}']
+  ['{DB2F0740-6510-4933-8319-A6C42A41B1D3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -618,6 +618,7 @@ type
     function GetOldID_FORMA_PAGOValue : Integer;
     function GetOldTIENDA_WEBValue : SmallInt;
     function GetOldCODIGO_ASIGNADOValue : String;
+    function GetOldIGNORAR_CONTABILIDADValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -654,6 +655,7 @@ type
     property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
     property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
     property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
+    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
   end;
 
   { TClientesBusinessProcessorRules }
@@ -866,6 +868,12 @@ type
     function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual;
     procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual;
     procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
+    function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
+    function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+    function GetOldIGNORAR_CONTABILIDADValue: Integer; virtual;
+    function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
+    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1004,6 +1012,10 @@ type
     property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
     property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
     property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull;
+    property IGNORAR_CONTABILIDAD : Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+    property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
+    property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1013,7 +1025,7 @@ type
 
   { IProveedoresDelta }
   IProveedoresDelta = interface(IProveedores)
-  ['{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}']
+  ['{4F4D8353-5DFD-493F-98A7-098340C343A0}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1048,6 +1060,7 @@ type
     function GetOldTIENDA_WEBValue : SmallInt;
     function GetOldHOMOLOGADOValue : SmallInt;
     function GetOldCERTIFICACIONValue : String;
+    function GetOldIGNORAR_CONTABILIDADValue : Integer;
 
     { Properties }
     property OldID : Integer read GetOldIDValue;
@@ -1083,6 +1096,7 @@ type
     property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
     property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue;
     property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
+    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
   end;
 
   { TProveedoresBusinessProcessorRules }
@@ -1289,6 +1303,12 @@ type
     function GetOldCERTIFICACIONIsNull: Boolean; virtual;
     procedure SetCERTIFICACIONValue(const aValue: String); virtual;
     procedure SetCERTIFICACIONIsNull(const aValue: Boolean); virtual;
+    function GetIGNORAR_CONTABILIDADValue: Integer; virtual;
+    function GetIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+    function GetOldIGNORAR_CONTABILIDADValue: Integer; virtual;
+    function GetOldIGNORAR_CONTABILIDADIsNull: Boolean; virtual;
+    procedure SetIGNORAR_CONTABILIDADValue(const aValue: Integer); virtual;
+    procedure SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean); virtual;
 
     { Properties }
     property ID : Integer read GetIDValue write SetIDValue;
@@ -1423,6 +1443,10 @@ type
     property CERTIFICACIONIsNull : Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull;
     property OldCERTIFICACION : String read GetOldCERTIFICACIONValue;
     property OldCERTIFICACIONIsNull : Boolean read GetOldCERTIFICACIONIsNull;
+    property IGNORAR_CONTABILIDAD : Integer read GetIGNORAR_CONTABILIDADValue write SetIGNORAR_CONTABILIDADValue;
+    property IGNORAR_CONTABILIDADIsNull : Boolean read GetIGNORAR_CONTABILIDADIsNull write SetIGNORAR_CONTABILIDADIsNull;
+    property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue;
+    property OldIGNORAR_CONTABILIDADIsNull : Boolean read GetOldIGNORAR_CONTABILIDADIsNull;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -1432,7 +1456,7 @@ type
 
   { IEmpleadosDelta }
   IEmpleadosDelta = interface(IEmpleados)
-  ['{6C1E2150-8536-48CB-A19C-28836A07D0C9}']
+  ['{D89254AA-A456-4113-9356-87878DD0342B}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CATEGORIAValue : Integer;
@@ -1819,7 +1843,7 @@ type
 
   { IDireccionesContactoDelta }
   IDireccionesContactoDelta = interface(IDireccionesContacto)
-  ['{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}']
+  ['{488B60E5-27F3-4A85-B8CF-A78A05CE3555}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CONTACTOValue : Integer;
@@ -2034,7 +2058,7 @@ type
 
   { IClientesDescuentosDelta }
   IClientesDescuentosDelta = interface(IClientesDescuentos)
-  ['{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}']
+  ['{0E2CBA43-B994-4B22-9560-96C73CE304F3}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldID_CLIENTEValue : Integer;
@@ -2116,7 +2140,7 @@ type
 
   { IGruposProveedorDelta }
   IGruposProveedorDelta = interface(IGruposProveedor)
-  ['{11E1D581-8AF0-4A90-85D1-2F750318A7BB}']
+  ['{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2150,7 +2174,7 @@ type
 
   { IGruposEmpleadoDelta }
   IGruposEmpleadoDelta = interface(IGruposEmpleado)
-  ['{051B0E6E-74A9-4169-9680-390315179437}']
+  ['{784E3585-2E4F-441F-9B7C-ACF190737701}']
     { Property getters and setters }
     function GetOldDESCRIPCIONValue : String;
 
@@ -2184,7 +2208,7 @@ type
 
   { IContactos_RefreshDelta }
   IContactos_RefreshDelta = interface(IContactos_Refresh)
-  ['{B6D16683-2657-4890-927A-0870813D9B96}']
+  ['{141705B2-3547-40A3-B6B9-4ABFDE30CD10}']
     { Property getters and setters }
     function GetOldIDValue : Integer;
     function GetOldNIF_CIFValue : String;
@@ -4800,6 +4824,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null;
 end;
 
+function TClientesBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
+end;
+
+function TClientesBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]);
+end;
+
+function TClientesBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
+end;
+
+function TClientesBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesIGNORAR_CONTABILIDAD]);
+end;
+
+procedure TClientesBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := aValue;
+end;
+
+procedure TClientesBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD] := Null;
+end;
+
 
 { TProveedoresBusinessProcessorRules }
 constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@@ -5843,6 +5898,37 @@ begin
     BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCERTIFICACION] := Null;
 end;
 
+function TProveedoresBusinessProcessorRules.GetIGNORAR_CONTABILIDADValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
+end;
+
+function TProveedoresBusinessProcessorRules.GetIGNORAR_CONTABILIDADIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]);
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADValue: Integer;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
+end;
+
+function TProveedoresBusinessProcessorRules.GetOldIGNORAR_CONTABILIDADIsNull: Boolean;
+begin
+  result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD]);
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetIGNORAR_CONTABILIDADValue(const aValue: Integer);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := aValue;
+end;
+
+procedure TProveedoresBusinessProcessorRules.SetIGNORAR_CONTABILIDADIsNull(const aValue: Boolean);
+begin
+  if aValue then
+    BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD] := Null;
+end;
+
 
 { TEmpleadosBusinessProcessorRules }
 constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

Source/Modulos/Contactos/Model/uBizClientesServer.pas

@@ -76,7 +76,7 @@ begin
       ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
       ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
-
+      ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
       Execute;
     end;
   finally
@@ -113,7 +113,8 @@ begin
       ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
       ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
-      ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];      
+      ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
+      ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD];
       Execute;
     end;
   finally

Source/Modulos/Contactos/Model/uBizContactos.pas

@@ -93,6 +93,10 @@ type
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
     property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
+
+    function GetIgnorar_Contabilidad: Integer;
+    procedure SetIgnorar_Contabilidad(const Value: Integer);
+    property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
   end;
 
   IBizProveedor = interface (IBizContacto)
@@ -141,6 +145,10 @@ type
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
     property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
+
+    function GetIgnorar_Contabilidad: Integer;
+    procedure SetIgnorar_Contabilidad(const Value: Integer);
+    property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
   end;
 
   IBizEmpleado = interface (IBizContacto)
@@ -253,6 +261,9 @@ type
     function GetDescuentos: IBizClienteDescuentos;
     procedure SetDescuentos(Value: IBizClienteDescuentos);
 
+    function GetIgnorar_Contabilidad: Integer;
+    procedure SetIgnorar_Contabilidad(const Value: Integer);
+
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
 
@@ -272,6 +283,7 @@ type
     property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
     property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
     property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
+    property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
   end;
 
 
@@ -310,6 +322,9 @@ type
     function GetGRUPO_PROVEEDORValue: String;
     procedure SetGRUPO_PROVEEDORValue(const aValue: String);
 
+    function GetIgnorar_Contabilidad: Integer;
+    procedure SetIgnorar_Contabilidad(const Value: Integer);
+
     function GetSubCuentas: IBizSubCuentasContacto;
     procedure SetSubCuentas(const Value: IBizSubCuentasContacto);
 
@@ -328,6 +343,7 @@ type
     property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue;
     property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
     property SubCuentas : IBizSubCuentasContacto read GetSubCuentas write SetSubCuentas;
+    property IGNORAR_CONTABILIDAD: Integer read GetIgnorar_Contabilidad write SetIgnorar_Contabilidad;
   end;
 
 
@@ -496,6 +512,11 @@ begin
   result := DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger;
 end;
 
+function TBizCliente.GetIgnorar_Contabilidad: Integer;
+begin
+  result := DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger;
+end;
+
 function TBizCliente.GetMOTIVO_BLOQUEOValue: String;
 begin
   result := DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString;
@@ -532,6 +553,11 @@ begin
   DataTable.Fields[idx_ClientesID_TIPO_IVA].AsInteger := aValue;
 end;
 
+procedure TBizCliente.SetIgnorar_Contabilidad(const Value: Integer);
+begin
+  DataTable.Fields[idx_ClientesIGNORAR_CONTABILIDAD].AsInteger := Value;
+end;
+
 procedure TBizCliente.SetMOTIVO_BLOQUEOValue(const aValue: String);
 begin
   DataTable.Fields[idx_ClientesMOTIVO_BLOQUEO].AsString := aValue;
@@ -601,6 +627,7 @@ begin
   BLOQUEADO := 0;
   RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA;
   REGIMEN_IVA := CLIENTE_REGIMEN_IVA;
+  IGNORAR_CONTABILIDAD := 1;
 end;
 
 { TBizProveedor }
@@ -625,6 +652,11 @@ begin
   result := DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger;
 end;
 
+function TBizProveedor.GetIgnorar_Contabilidad: Integer;
+begin
+  result := DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger;
+end;
+
 function TBizProveedor.GetREGIMEN_IVAValue: String;
 begin
   result := DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString;
@@ -645,6 +677,7 @@ begin
   inherited;
   ID_CATEGORIA := CATEGORIA_PROVEEDOR;
   REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA;
+  IGNORAR_CONTABILIDAD := 1;
 end;
 
 constructor TBizProveedor.Create(aDataTable: TDADataTable);
@@ -723,6 +756,11 @@ begin
   DataTable.Fields[idx_ProveedoresID_TIPO_IVA].AsInteger := aValue;
 end;
 
+procedure TBizProveedor.SetIgnorar_Contabilidad(const Value: Integer);
+begin
+  DataTable.Fields[idx_ProveedoresIGNORAR_CONTABILIDAD].AsInteger := Value;
+end;
+
 procedure TBizProveedor.SetREGIMEN_IVAValue(const aValue: String);
 begin
   DataTable.Fields[idx_ProveedoresREGIMEN_IVA].AsString := aValue;

Source/Modulos/Contactos/Model/uBizProveedoresServer.pas

@@ -20,7 +20,7 @@ type
 implementation
 
 uses
-  uDataModuleServer, uDAClasses, 
+  uDataModuleServer, uDAClasses,
   schContactosClient_Intf, uBusinessUtils;
 
 { TBizProveedorServer }
@@ -74,6 +74,7 @@ begin
       ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
       ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
       ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
+      ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
       Execute;
     end;
   finally
@@ -108,7 +109,8 @@ begin
       ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB];
       ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO];
       ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION];
-      ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];      
+      ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
+      ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ProveedoresIGNORAR_CONTABILIDAD];
       Execute;
     end;
   finally

Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -590,6 +590,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'CODIGO_ASIGNADO'
                 TableField = 'CODIGO_ASIGNADO'
+              end
+              item
+                DatasetField = 'IGNORAR_CONTABILIDAD'
+                TableField = 'IGNORAR_CONTABILIDAD'
               end>
           end>
         Name = 'Clientes'
@@ -706,10 +710,12 @@ object srvContactos: TsrvContactos
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
+            DictionaryEntry = 'Clientes_FECHA_ALTA'
           end
           item
             Name = 'FECHA_MODIFICACION'
             DataType = datDateTime
+            DictionaryEntry = 'Clientes_FECHA_MODIFICACION'
           end
           item
             Name = 'USUARIO'
@@ -787,6 +793,12 @@ object srvContactos: TsrvContactos
             Name = 'CODIGO_ASIGNADO'
             DataType = datString
             Size = 255
+            DictionaryEntry = 'Clientes_CODIGO_ASIGNADO'
+          end
+          item
+            Name = 'IGNORAR_CONTABILIDAD'
+            DataType = datInteger
+            DictionaryEntry = 'Clientes_IGNORAR_CONTABILIDAD'
           end>
       end
       item
@@ -928,6 +940,10 @@ object srvContactos: TsrvContactos
               item
                 DatasetField = 'CERTIFICACION'
                 TableField = 'CERTIFICACION'
+              end
+              item
+                DatasetField = 'IGNORAR_CONTABILIDAD'
+                TableField = 'IGNORAR_CONTABILIDAD'
               end>
           end>
         Name = 'Proveedores'
@@ -1044,10 +1060,12 @@ object srvContactos: TsrvContactos
           item
             Name = 'FECHA_ALTA'
             DataType = datDateTime
+            DictionaryEntry = 'Proveedores_FECHA_ALTA'
           end
           item
             Name = 'FECHA_MODIFICACION'
             DataType = datDateTime
+            DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
           end
           item
             Name = 'USUARIO'
@@ -1087,7 +1105,7 @@ object srvContactos: TsrvContactos
           item
             Name = 'GRUPO_PROVEEDOR'
             DataType = datString
-            Size = 255
+            DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
           end
           item
             Name = 'REGIMEN_IVA'
@@ -1120,6 +1138,11 @@ object srvContactos: TsrvContactos
             DataType = datString
             Size = 255
             DictionaryEntry = 'Proveedores_CERTIFICACION'
+          end
+          item
+            Name = 'IGNORAR_CONTABILIDAD'
+            DataType = datInteger
+            DictionaryEntry = 'Proveedores_IGNORAR_CONTABILIDAD'
           end>
       end
       item
@@ -2615,6 +2638,10 @@ object srvContactos: TsrvContactos
           item
             Name = 'CODIGO_ASIGNADO'
             Value = ''
+          end
+          item
+            Name = 'IGNORAR_CONTABILIDAD'
+            Value = ''
           end>
         Statements = <
           item
@@ -2624,11 +2651,11 @@ object srvContactos: TsrvContactos
               'INSERT'#10'  INTO CLIENTES_DATOS'#10'    (ID_CLIENTE, GRUPO_CLIENTE, REC' +
               'ARGO_EQUIVALENCIA,'#10'     NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS, ' +
               'BLOQUEADO, MOTIVO_BLOQUEO,'#10'     REGIMEN_IVA, ID_TIPO_IVA, ID_FOR' +
-              'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO)'#10'  VALUES'#10'    (:ID_CLIENTE,' +
+              'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD)'#10'  VA' +
-              ' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10'     :NOMBRE_COMERCIAL, ' +
+              'LUES'#10'    (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10'  ' +
-              ':VENCIMIENTO_FACTURAS,'#10'     :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' +
+              '   :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10'     :BLOQUEADO, :M' +
-              'N_IVA,'#10'     :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_A' +
+              'OTIVO_BLOQUEO, :REGIMEN_IVA,'#10'     :ID_TIPO_IVA, :ID_FORMA_PAGO, ' +
-              'SIGNADO)'#10
+              ':TIENDA_WEB, :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2704,6 +2731,10 @@ object srvContactos: TsrvContactos
             Name = 'CODIGO_ASIGNADO'
             Value = ''
           end
+          item
+            Name = 'IGNORAR_CONTABILIDAD'
+            Value = ''
+          end
           item
             Name = 'OLD_ID_CLIENTE'
             Value = ''
@@ -2720,8 +2751,8 @@ object srvContactos: TsrvContactos
               'NCIMIENTO_FACTURAS,'#10'    BLOQUEADO = :BLOQUEADO,'#10'    REGIMEN_IVA ' +
               '= :REGIMEN_IVA,'#10'    ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    ID_FORMA_PAG' +
               'O = :ID_FORMA_PAGO,'#10'    TIENDA_WEB = :TIENDA_WEB,'#10'    CODIGO_ASI' +
-              'GNADO = :CODIGO_ASIGNADO'#10'  WHERE'#10'    (ID_CLIENTE = :OLD_ID_CLIEN' +
+              'GNADO = :CODIGO_ASIGNADO,'#10'    IGNORAR_CONTABILIDAD = :IGNORAR_CO' +
-              'TE)'#10
+              'NTABILIDAD'#10'  WHERE'#10'    (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2731,74 +2762,51 @@ object srvContactos: TsrvContactos
         Params = <
           item
             Name = 'ID_PROVEEDOR'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'REGIMEN_IVA'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'DESCUENTO'
-            DataType = datFloat
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'DESCRIPCION_PROVEEDOR'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'CODIGO_ASIGNADO'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_TIPO_IVA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_FORMA_PAGO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'TIENDA_WEB'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'HOMOLOGADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'CERTIFICACION'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'GRUPO_PROVEEDOR'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'IGNORAR_CONTABILIDAD'
+            Value = ''
           end>
         Statements = <
           item
@@ -2808,10 +2816,11 @@ object srvContactos: TsrvContactos
               'INSERT'#10'  INTO PROVEEDORES_DATOS'#10'    (ID_PROVEEDOR, REGIMEN_IVA, ' +
               'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10'    CODIGO_ASIGNADO, ID_TIPO_I' +
               'VA,'#10'    ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' +
-              'UPO_PROVEEDOR)'#10'  VALUES'#10'    (:ID_PROVEEDOR, :REGIMEN_IVA, :DESCU' +
+              'UPO_PROVEEDOR,'#10'    IGNORAR_CONTABILIDAD)'#10'  VALUES'#10'    (:ID_PROVE' +
-              'ENTO, :DESCRIPCION_PROVEEDOR,'#10'    :CODIGO_ASIGNADO, :ID_TIPO_IVA' +
+              'EDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10'    :COD' +
-              ','#10'    :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, ' +
+              'IGO_ASIGNADO, :ID_TIPO_IVA,'#10'    :ID_FORMA_PAGO, :TIENDA_WEB, :HO' +
-              ':GRUPO_PROVEEDOR)'
+              'MOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10'    :IGNORAR_CONTABI' +
+              'LIDAD)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -2841,80 +2850,55 @@ object srvContactos: TsrvContactos
         Params = <
           item
             Name = 'ID_PROVEEDOR'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'REGIMEN_IVA'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'DESCUENTO'
-            DataType = datFloat
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'DESCRIPCION_PROVEEDOR'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'CODIGO_ASIGNADO'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_TIPO_IVA'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'ID_FORMA_PAGO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'TIENDA_WEB'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'HOMOLOGADO'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'CERTIFICACION'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
           end
           item
             Name = 'GRUPO_PROVEEDOR'
-            DataType = datString
-            Size = 255
             Value = ''
-            ParamType = daptInput
+          end
+          item
+            Name = 'IGNORAR_CONTABILIDAD'
+            Value = ''
           end
           item
             Name = 'OLD_ID_PROVEEDOR'
-            DataType = datInteger
             Value = ''
-            ParamType = daptInput
           end>
         Statements = <
           item
@@ -2927,8 +2911,9 @@ object srvContactos: TsrvContactos
               'IGNADO = :CODIGO_ASIGNADO,'#10'    ID_TIPO_IVA = :ID_TIPO_IVA,'#10'    I' +
               'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10'    TIENDA_WEB = :TIENDA_WEB,'#10'   ' +
               ' HOMOLOGADO = :HOMOLOGADO,'#10'    CERTIFICACION = :CERTIFICACION,'#10' ' +
-              '   GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR'#10'  WHERE'#10'    (ID_PROVEEDOR ' +
+              '   GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10'    IGNORAR_CONTABILIDAD ' +
-              '= :OLD_ID_PROVEEDOR)'
+              '= :IGNORAR_CONTABILIDAD'#10'  WHERE'#10'    (ID_PROVEEDOR = :OLD_ID_PROV' +
+              'EEDOR)'#10
             StatementType = stSQL
             ColumnMappings = <>
           end>
@@ -4319,6 +4304,35 @@ object srvContactos: TsrvContactos
       item
         Name = 'SubCuentasContacto_ID_CONTACTO'
         DataType = datInteger
+      end
+      item
+        Name = 'Proveedores_FECHA_ALTA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Proveedores_FECHA_MODIFICACION'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Proveedores_IGNORAR_CONTABILIDAD'
+        DataType = datInteger
+      end
+      item
+        Name = 'Clientes_FECHA_ALTA'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Clientes_FECHA_MODIFICACION'
+        DataType = datDateTime
+      end
+      item
+        Name = 'Clientes_CODIGO_ASIGNADO'
+        DataType = datString
+        Size = 255
+      end
+      item
+        Name = 'Clientes_IGNORAR_CONTABILIDAD'
+        DataType = datInteger
       end>
     Left = 126
     Top = 14

Source/Modulos/Contactos/Views/uEditorCliente.dfm

@@ -65,7 +65,6 @@ inherited fEditorCliente: TfEditorCliente
   inherited pgPaginas: TPageControl
     Width = 656
     Height = 490
-    ActivePage = pagContabilidad
     ExplicitWidth = 656
     ExplicitHeight = 490
     inherited pagGeneral: TTabSheet
@@ -293,9 +292,23 @@ inherited fEditorCliente: TfEditorCliente
           Width = 648
           LookAndFeel = dxLayoutOfficeLookAndFeel
           ExplicitWidth = 648
+          inherited eEntidad: TcxDBTextEdit
+            ExplicitWidth = 114
+            Width = 114
+          end
           inherited eSucursal: TcxDBTextEdit
-            Left = 419
+            Left = 418
-            ExplicitLeft = 419
+            ExplicitLeft = 418
+            ExplicitWidth = 112
+            Width = 112
+          end
+          inherited eCuenta: TcxDBTextEdit
+            ExplicitWidth = 194
+            Width = 194
+          end
+          inherited eTitular: TcxDBTextEdit
+            ExplicitWidth = 194
+            Width = 194
           end
         end
       end
@@ -345,14 +358,20 @@ inherited fEditorCliente: TfEditorCliente
           inherited cbRegimenIVA: TcxDBComboBox
             Top = 30
             ExplicitTop = 30
+            ExplicitWidth = 121
+            Width = 121
           end
           inherited cbRecargoEquivalencia: TcxDBCheckBox
             Top = 111
             ExplicitTop = 111
+            ExplicitWidth = 121
+            Width = 121
           end
           inherited cbFormaPago: TcxDBLookupComboBox
             Top = 57
             ExplicitTop = 57
+            ExplicitWidth = 121
+            Width = 121
           end
           inherited bFormasPago: TButton
             Left = 180
@@ -363,6 +382,8 @@ inherited fEditorCliente: TfEditorCliente
           inherited eIVA: TcxDBLookupComboBox
             Top = 84
             ExplicitTop = 84
+            ExplicitWidth = 121
+            Width = 121
           end
           inherited bTiposIVA: TButton
             Left = 180
@@ -529,10 +550,18 @@ inherited fEditorCliente: TfEditorCliente
           Height = 462
           ExplicitWidth = 648
           ExplicitHeight = 462
+          inherited eRefSubCuenta: TcxDBTextEdit
+            ExplicitWidth = 346
+            Width = 346
+          end
           inherited BitBtn3: TBitBtn
             Left = 401
             ExplicitLeft = 401
           end
+          inherited eSubCuenta: TcxDBTextEdit
+            ExplicitWidth = 265
+            Width = 265
+          end
           inherited BitBtn1: TBitBtn
             Left = 482
             ExplicitLeft = 482
@@ -541,6 +570,11 @@ inherited fEditorCliente: TfEditorCliente
             Left = 563
             ExplicitLeft = 563
           end
+          inherited cbIgnorarContabilidad: TcxDBCheckBox
+            DataBinding.DataSource = frViewCliente1.dsContacto
+            ExplicitWidth = 300
+            Width = 300
+          end
         end
       end
     end

Source/Modulos/Contactos/Views/uEditorContactos.dfm

@@ -2,6 +2,7 @@ inherited fEditorContactos: TfEditorContactos
   Left = 285
   Top = 448
   Caption = 'Lista de contactos'
+  ExplicitWidth = 320
   ExplicitHeight = 471
   PixelsPerInch = 96
   TextHeight = 13

Source/Modulos/Contactos/Views/uEditorContactos.pas

@@ -152,8 +152,6 @@ procedure TfEditorContactos.DuplicarInterno;
 var
   AContacto : IBizContacto;
 begin
-AppFactuGES.ShowCapado;
-{
   inherited;
   AContacto := FController.Duplicar(Contactos);
   try
@@ -161,7 +159,6 @@ AppFactuGES.ShowCapado;
   finally
     actRefrescar.Execute;
   end;
-}
 end;
 
 procedure TfEditorContactos.EliminarInterno;

Source/Modulos/Contactos/Views/uEditorProveedor.dfm

@@ -3,7 +3,7 @@ inherited fEditorProveedor: TfEditorProveedor
   ClientHeight = 590
   ClientWidth = 648
   ExplicitWidth = 656
-  ExplicitHeight = 617
+  ExplicitHeight = 624
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
@@ -55,7 +55,6 @@ inherited fEditorProveedor: TfEditorProveedor
   inherited pgPaginas: TPageControl
     Width = 648
     Height = 495
-    ActivePage = PagContabilidad
     ExplicitWidth = 648
     ExplicitHeight = 495
     inherited pagGeneral: TTabSheet
@@ -399,34 +398,6 @@ inherited fEditorProveedor: TfEditorProveedor
         inherited ToolBar1: TToolBar
           Width = 640
           ExplicitWidth = 640
-          inherited ToolButton1: TToolButton
-            Top = 0
-            ExplicitTop = 0
-            ExplicitWidth = 62
-          end
-          inherited ToolButton4: TToolButton
-            Top = 0
-            ExplicitTop = 0
-            ExplicitWidth = 74
-          end
-          inherited ToolButton5: TToolButton
-            Top = 0
-            ExplicitTop = 0
-          end
-          inherited ToolButton2: TToolButton
-            Top = 0
-            ExplicitTop = 0
-            ExplicitWidth = 67
-          end
-          inherited ToolButton6: TToolButton
-            Top = 0
-            ExplicitTop = 0
-          end
-          inherited ToolButton7: TToolButton
-            Top = 0
-            ExplicitTop = 0
-            ExplicitWidth = 117
-          end
         end
       end
     end
@@ -448,14 +419,25 @@ inherited fEditorProveedor: TfEditorProveedor
         ParentFont = False
         TabOrder = 0
         ReadOnly = False
+        ExplicitWidth = 640
+        ExplicitHeight = 467
         inherited layoutApunte: TdxLayoutControl
           Width = 640
           Height = 467
-          ExplicitHeight = 304
+          ExplicitWidth = 640
+          ExplicitHeight = 467
+          inherited eRefSubCuenta: TcxDBTextEdit
+            ExplicitWidth = 346
+            Width = 346
+          end
           inherited BitBtn3: TBitBtn
             Left = 393
             ExplicitLeft = 393
           end
+          inherited eSubCuenta: TcxDBTextEdit
+            ExplicitWidth = 265
+            Width = 265
+          end
           inherited BitBtn1: TBitBtn
             Left = 474
             ExplicitLeft = 474
@@ -464,6 +446,11 @@ inherited fEditorProveedor: TfEditorProveedor
             Left = 555
             ExplicitLeft = 555
           end
+          inherited cbIgnorarContabilidad: TcxDBCheckBox
+            DataBinding.DataSource = frViewProveedor1.dsContacto
+            ExplicitWidth = 300
+            Width = 300
+          end
         end
       end
     end

Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm

@@ -75,5 +75,33 @@ inherited frViewDireccionesEntrega: TfrViewDireccionesEntrega
   inherited ToolBar1: TToolBar
     Width = 583
     ExplicitWidth = 583
+    inherited ToolButton1: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 62
+    end
+    inherited ToolButton4: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 74
+    end
+    inherited ToolButton5: TToolButton
+      Top = 0
+      ExplicitTop = 0
+    end
+    inherited ToolButton2: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 67
+    end
+    inherited ToolButton6: TToolButton
+      Top = 0
+      ExplicitTop = 0
+    end
+    inherited ToolButton7: TToolButton
+      Top = 0
+      ExplicitTop = 0
+      ExplicitWidth = 117
+    end
   end
 end

Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas

@@ -24,6 +24,7 @@ type
     cxGridViewEMAIL: TcxGridDBColumn;
     cxGridViewPORTE: TcxGridDBColumn;
     procedure cxGridViewDblClick(Sender: TObject);
+    procedure actEliminarExecute(Sender: TObject);
   protected
     procedure AnadirInterno; override;
     procedure ModificarInterno; override;
@@ -36,7 +37,13 @@ implementation
 {$R *.dfm}
 
 uses
-  uDireccionesContactoController, uBizDireccionesContacto;
+  uDialogUtils, uDireccionesContactoController, uBizDireccionesContacto;
+
+procedure TfrViewDireccionesEntrega.actEliminarExecute(Sender: TObject);
+begin
+  if (ShowConfirmMessage('Eliminar una dirección', '¿Desea eliminar esta dirección?') = IDYES) then
+    inherited;
+end;
 
 procedure TfrViewDireccionesEntrega.AnadirInterno;
 begin

Source/Modulos/Contactos/Views/uViewProveedor.dfm

@@ -7,19 +7,19 @@ inherited frViewProveedor: TfrViewProveedor
     Height = 454
     ExplicitHeight = 454
     inherited PngSpeedButton1: TPngSpeedButton
-      Left = 613
+      Left = 612
-      ExplicitLeft = 613
+      ExplicitLeft = 612
     end
     inherited PngSpeedButton2: TPngSpeedButton
-      Left = 613
+      Left = 612
-      ExplicitLeft = 613
+      ExplicitLeft = 612
     end
     inherited PngSpeedButton3: TPngSpeedButton
-      Left = 613
+      Left = 612
-      ExplicitLeft = 613
+      ExplicitLeft = 612
     end
     object Label1: TLabel [3]
-      Left = 372
+      Left = 371
       Top = 307
       Width = 342
       Height = 26
@@ -56,10 +56,10 @@ inherited frViewProveedor: TfrViewProveedor
       Width = 163
     end
     inherited eCodigoPostal: TcxDBTextEdit
-      Left = 277
+      Left = 276
       Top = 331
       TabOrder = 11
-      ExplicitLeft = 277
+      ExplicitLeft = 276
       ExplicitTop = 331
     end
     inherited eObservaciones: TcxDBMemo
@@ -70,7 +70,7 @@ inherited frViewProveedor: TfrViewProveedor
       Height = 20
     end
     object cxDBCheckBox1: TcxDBCheckBox [9]
-      Left = 372
+      Left = 371
       Top = 280
       Caption = 'Incluir este proveedor en la tienda web'
       DataBinding.DataField = 'TIENDA_WEB'
@@ -200,30 +200,30 @@ inherited frViewProveedor: TfrViewProveedor
       Width = 221
     end
     inherited eTlfParticular: TcxDBTextEdit
-      Left = 467
+      Left = 466
       TabOrder = 14
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 91
       Width = 91
     end
     inherited eTlfTrabajo: TcxDBTextEdit
-      Left = 467
+      Left = 466
       TabOrder = 13
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 127
       Width = 127
     end
     inherited eTlfMovil: TcxDBTextEdit
-      Left = 467
+      Left = 466
       TabOrder = 15
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 155
       Width = 155
     end
     inherited eFax: TcxDBTextEdit
-      Left = 467
+      Left = 466
       TabOrder = 16
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 121
       Width = 121
     end
@@ -240,25 +240,25 @@ inherited frViewProveedor: TfrViewProveedor
       Width = 205
     end
     inherited eMailTrabajo: TcxDBHyperLinkEdit
-      Left = 467
+      Left = 466
       Properties.Prefix = 'mailto:'
       TabOrder = 17
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 133
       Width = 133
     end
     inherited eMailParticular: TcxDBHyperLinkEdit
-      Left = 467
+      Left = 466
       Properties.Prefix = 'mailto:'
       TabOrder = 18
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 133
       Width = 133
     end
     inherited ePaginaWeb: TcxDBHyperLinkEdit
-      Left = 467
+      Left = 466
       TabOrder = 19
-      ExplicitLeft = 467
+      ExplicitLeft = 466
       ExplicitWidth = 133
       Width = 133
     end
@@ -299,6 +299,7 @@ inherited frViewProveedor: TfrViewProveedor
           end
           object dxLayoutControlContactoGroup14: TdxLayoutGroup [1]
             Caption = 'Homologaci'#243'n'
+            Visible = False
             object dxLayoutControlContactoItem22: TdxLayoutItem
               Caption = 'El proveedor est'#225' homologado'
               ShowCaption = False

Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm

@@ -1,6 +1,6 @@
 inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
   Width = 451
-  Height = 304
+  Height = 149
   Align = alClient
   AutoSize = True
   OnCreate = CustomViewCreate
@@ -11,20 +11,22 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
     Left = 0
     Top = 0
     Width = 451
-    Height = 304
+    Height = 149
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
+    ExplicitHeight = 177
     DesignSize = (
       451
-      304)
+      149)
     object eRefSubCuenta: TcxDBTextEdit
       Left = 93
-      Top = 10
+      Top = 37
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'REF_SUBCUENTA'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Properties.ReadOnly = True
       Properties.ValidateOnEnter = True
       Style.BorderColor = clWindowFrame
@@ -35,24 +37,25 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 0
+      TabOrder = 1
       Width = 346
     end
     object BitBtn3: TBitBtn
       Left = 204
-      Top = 10
+      Top = 37
       Width = 75
       Height = 25
       Action = actElegirSubCuenta
       Caption = 'Elegir subcuenta'
-      TabOrder = 1
+      TabOrder = 2
     end
     object eSubCuenta: TcxDBTextEdit
       Left = 93
-      Top = 41
+      Top = 68
       Anchors = [akLeft, akTop, akRight]
       DataBinding.DataField = 'DESCRIPCION'
       DataBinding.DataSource = DADataSource
+      Enabled = False
       Properties.ReadOnly = True
       Properties.ValidateOnEnter = True
       Style.BorderColor = clWindowFrame
@@ -63,26 +66,49 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
       StyleDisabled.LookAndFeel.NativeStyle = True
       StyleFocused.LookAndFeel.NativeStyle = True
       StyleHot.LookAndFeel.NativeStyle = True
-      TabOrder = 4
+      TabOrder = 5
       Width = 265
     end
     object BitBtn1: TBitBtn
       Left = 285
-      Top = 10
+      Top = 37
       Width = 75
       Height = 25
       Action = actAnadirSubcuenta
       Caption = 'A'#241'adir subcuenta'
-      TabOrder = 2
+      TabOrder = 3
     end
     object BitBtn2: TBitBtn
       Left = 366
-      Top = 10
+      Top = 37
       Width = 75
       Height = 25
       Action = actVerSubcuenta
       Caption = 'Ver subcuenta'
-      TabOrder = 3
+      TabOrder = 4
+    end
+    object cbIgnorarContabilidad: TcxDBCheckBox
+      Left = 10
+      Top = 10
+      Caption = 'Ignorar en contabilidad'
+      DataBinding.DataField = 'IGNORAR_CONTABILIDAD'
+      Properties.NullStyle = nssUnchecked
+      Properties.ValueChecked = 1
+      Properties.ValueUnchecked = 0
+      Properties.OnChange = cbIgnorarContabilidadPropertiesChange
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
+      Style.HotTrack = False
+      Style.LookAndFeel.Kind = lfStandard
+      Style.LookAndFeel.NativeStyle = True
+      StyleDisabled.LookAndFeel.Kind = lfStandard
+      StyleDisabled.LookAndFeel.NativeStyle = True
+      StyleFocused.LookAndFeel.Kind = lfStandard
+      StyleFocused.LookAndFeel.NativeStyle = True
+      StyleHot.LookAndFeel.Kind = lfStandard
+      StyleHot.LookAndFeel.NativeStyle = True
+      TabOrder = 0
+      Width = 300
     end
     object layoutApunteGroup_Root: TdxLayoutGroup
       ShowCaption = False
@@ -98,29 +124,39 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
         object layoutApunteGroup3: TdxLayoutGroup
           ShowCaption = False
           Hidden = True
-          LayoutDirection = ldHorizontal
           ShowBorder = False
-          object layoutApunteItem2: TdxLayoutItem
+          object layoutApunteItem6: TdxLayoutItem
-            AutoAligns = [aaVertical]
+            ShowCaption = False
-            AlignHorz = ahClient
+            Control = cbIgnorarContabilidad
-            Caption = 'Ref. subcuenta:'
-            Control = eRefSubCuenta
             ControlOptions.ShowBorder = False
           end
-          object layoutApunteItem4: TdxLayoutItem
+          object layoutApunteGroup2: TdxLayoutGroup
             ShowCaption = False
-            Control = BitBtn3
+            Hidden = True
-            ControlOptions.ShowBorder = False
+            LayoutDirection = ldHorizontal
-          end
+            ShowBorder = False
-          object layoutApunteItem1: TdxLayoutItem
+            object layoutApunteItem2: TdxLayoutItem
-            ShowCaption = False
+              AutoAligns = [aaVertical]
-            Control = BitBtn1
+              AlignHorz = ahClient
-            ControlOptions.ShowBorder = False
+              Caption = 'Ref. subcuenta:'
-          end
+              Control = eRefSubCuenta
-          object layoutApunteItem3: TdxLayoutItem
+              ControlOptions.ShowBorder = False
-            ShowCaption = False
+            end
-            Control = BitBtn2
+            object layoutApunteItem4: TdxLayoutItem
-            ControlOptions.ShowBorder = False
+              ShowCaption = False
+              Control = BitBtn3
+              ControlOptions.ShowBorder = False
+            end
+            object layoutApunteItem1: TdxLayoutItem
+              ShowCaption = False
+              Control = BitBtn1
+              ControlOptions.ShowBorder = False
+            end
+            object layoutApunteItem3: TdxLayoutItem
+              ShowCaption = False
+              Control = BitBtn2
+              ControlOptions.ShowBorder = False
+            end
           end
         end
         object layoutApunteItem5: TdxLayoutItem
@@ -135,12 +171,13 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
     Left = 24
     Top = 88
   end
-  object png: TActionList
+  object actLista: TActionList
     Left = 64
     Top = 88
     object actElegirSubCuenta: TAction
       Caption = 'Elegir subcuenta'
       OnExecute = actElegirSubCuentaExecute
+      OnUpdate = actElegirSubCuentaUpdate
     end
     object actVerSubcuenta: TAction
       Caption = 'Ver subcuenta'
@@ -150,6 +187,7 @@ inherited frViewSubCuentaContacto: TfrViewSubCuentaContacto
     object actAnadirSubcuenta: TAction
       Caption = 'A'#241'adir subcuenta'
       OnExecute = actAnadirSubcuentaExecute
+      OnUpdate = actAnadirSubcuentaUpdate
     end
   end
   object LargeImages: TPngImageList

Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas

@@ -9,7 +9,7 @@ uses
   JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
   cxDBEdit, dxLayoutControl, uDAInterfaces, cxGraphics, cxDropDownEdit,
   cxImageComboBox, cxMaskEdit, cxCalendar, ImgList, PngImageList, ActnList,
-  cxCurrencyEdit, uSubCuentasController;
+  cxCurrencyEdit, uSubCuentasController, cxCheckBox;
 
 type
   IViewSubCuenta = interface(IViewBase)
@@ -28,7 +28,7 @@ type
     eRefSubCuenta: TcxDBTextEdit;
     layoutApunteItem4: TdxLayoutItem;
     BitBtn3: TBitBtn;
-    png: TActionList;
+    actLista: TActionList;
     actElegirSubCuenta: TAction;
     LargeImages: TPngImageList;
     layoutApunteItem5: TdxLayoutItem;
@@ -40,11 +40,17 @@ type
     BitBtn1: TBitBtn;
     layoutApunteItem3: TdxLayoutItem;
     BitBtn2: TBitBtn;
+    layoutApunteItem6: TdxLayoutItem;
+    cbIgnorarContabilidad: TcxDBCheckBox;
+    layoutApunteGroup2: TdxLayoutGroup;
     procedure CustomViewCreate(Sender: TObject);
     procedure CustomViewDestroy(Sender: TObject);
     procedure actElegirSubCuentaExecute(Sender: TObject);
     procedure actAnadirSubcuentaExecute(Sender: TObject);
     procedure actVerSubcuentaExecute(Sender: TObject);
+    procedure cbIgnorarContabilidadPropertiesChange(Sender: TObject);
+    procedure actElegirSubCuentaUpdate(Sender: TObject);
+    procedure actAnadirSubcuentaUpdate(Sender: TObject);
     procedure actVerSubcuentaUpdate(Sender: TObject);
 
   protected
@@ -69,11 +75,17 @@ implementation
 procedure TfrViewSubCuentaContacto.actAnadirSubcuentaExecute(Sender: TObject);
 begin
   inherited;
-{  if Supports(IBizCliente, FContacto) then
+  if Supports(FContacto, IBizCliente) then
-     FController.VerSubCuentaContacto((Contacto as IBizCliente).SubCuentas)
+     FController.AnadirSubCuentaContacto((Contacto as IBizCliente).SubCuentas, CTE_CUENTASCLIENTE)
-  else if Supports(IBizProveedor, FContacto) then
+  else if Supports(FContacto, IBizProveedor) then
-     FController.VerSubCuentaContacto((Contacto as IBizProveedor).SubCuentas);
+     FController.AnadirSubCuentaContacto((Contacto as IBizProveedor).SubCuentas, CTE_CUENTASPROVEEDOR);
-}     
+end;
+
+procedure TfrViewSubCuentaContacto.actAnadirSubcuentaUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
+                              and (DADataSource.DataTable.IsEmpty);
 end;
 
 procedure TfrViewSubCuentaContacto.actElegirSubCuentaExecute(Sender: TObject);
@@ -85,6 +97,13 @@ begin
      FController.ElegirSubCuentaContacto((Contacto as IBizProveedor).SubCuentas, CTE_CUENTASPROVEEDOR);
 end;
 
+procedure TfrViewSubCuentaContacto.actElegirSubCuentaUpdate(Sender: TObject);
+begin
+  inherited;
+  (Sender as TAction).Enabled := (not (cbIgnorarContabilidad.Checked))
+                                 and (DADataSource.DataTable.IsEmpty);
+end;
+
 procedure TfrViewSubCuentaContacto.actVerSubcuentaExecute(Sender: TObject);
 begin
   inherited;
@@ -97,7 +116,22 @@ end;
 procedure TfrViewSubCuentaContacto.actVerSubcuentaUpdate(Sender: TObject);
 begin
   inherited;
-  (Sender as TAction).Enabled := not eRefSubCuenta.DataBinding.Field.IsNull;
+  (Sender as TAction).Enabled := (not eRefSubCuenta.DataBinding.Field.IsNull)
+                                and (not cbIgnorarContabilidad.Checked);
+end;
+
+procedure TfrViewSubCuentaContacto.cbIgnorarContabilidadPropertiesChange(Sender: TObject);
+begin
+  inherited;
+  if cbIgnorarContabilidad.Checked then
+  begin
+    if Supports(FContacto, IBizCliente) then
+       FController.EliminarSubCuentaContacto((Contacto as IBizCliente).SubCuentas)
+    else if Supports(FContacto, IBizProveedor) then
+       FController.EliminarSubCuentaContacto((Contacto as IBizProveedor).SubCuentas);
+  end
+  else
+    //Rellenar automaticamente la cuenta según la tienda a la que pertenezca
 end;
 
 {