From 62b6dbe80a3cb9c532c703bc4a36a2ae6e298a92 Mon Sep 17 00:00:00 2001 From: david Date: Thu, 27 Dec 2007 10:34:42 +0000 Subject: [PATCH] =?UTF-8?q?Repaso=20al=20m=C3=B3dulo=20de=20contactos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@73 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Contactos/Contactos_Group.groupproj | 16 +- .../Controller/uClientesController.pas | 9 +- .../Controller/uContactosController.pas | 1 + .../Controller/uProveedoresController.pas | 20 ++- .../Contactos/Data/uDataModuleClientes.dfm | 14 ++ .../Contactos/Data/uDataModuleContactos.dfm | 1 + .../Contactos/Data/uDataModuleProveedores.dfm | 15 +- .../Model/schContactosClient_Intf.pas | 144 +++++++++++----- .../Model/schContactosServer_Intf.pas | 134 ++++++++++++--- .../Contactos/Model/uBizClientesServer.pas | 5 +- .../Modulos/Contactos/Model/uBizContactos.pas | 38 +++++ .../Contactos/Model/uBizProveedoresServer.pas | 6 +- .../Contactos/Servidor/srvContactos_Impl.dfm | 154 ++++++++++-------- .../Contactos/Views/uEditorCliente.dfm | 40 ++++- .../Contactos/Views/uEditorContactos.dfm | 1 + .../Contactos/Views/uEditorContactos.pas | 3 - .../Contactos/Views/uEditorProveedor.dfm | 49 ++---- .../Views/uViewDireccionesEntrega.dfm | 28 ++++ .../Views/uViewDireccionesEntrega.pas | 9 +- .../Contactos/Views/uViewProveedor.dfm | 49 +++--- .../Views/uViewSubCuentaContacto.dfm | 104 ++++++++---- .../Views/uViewSubCuentaContacto.pas | 50 +++++- 22 files changed, 645 insertions(+), 245 deletions(-) diff --git a/Source/Modulos/Contactos/Contactos_Group.groupproj b/Source/Modulos/Contactos/Contactos_Group.groupproj index 79e34855..83500c78 100644 --- a/Source/Modulos/Contactos/Contactos_Group.groupproj +++ b/Source/Modulos/Contactos/Contactos_Group.groupproj @@ -12,6 +12,7 @@ + @@ -141,14 +142,23 @@ + + + + + + + + + - + - + - + \ No newline at end of file diff --git a/Source/Modulos/Contactos/Controller/uClientesController.pas b/Source/Modulos/Contactos/Controller/uClientesController.pas index 7b853d07..380536b5 100644 --- a/Source/Modulos/Contactos/Controller/uClientesController.pas +++ b/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; diff --git a/Source/Modulos/Contactos/Controller/uContactosController.pas b/Source/Modulos/Contactos/Controller/uContactosController.pas index ab70111f..510fc0aa 100644 --- a/Source/Modulos/Contactos/Controller/uContactosController.pas +++ b/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; diff --git a/Source/Modulos/Contactos/Controller/uProveedoresController.pas b/Source/Modulos/Contactos/Controller/uProveedoresController.pas index 67e6f344..b1549a34 100644 --- a/Source/Modulos/Contactos/Controller/uProveedoresController.pas +++ b/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; diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 02afd0cc..5cd9d287 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/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 diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm index bb045a0d..1c8f72ec 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm +++ b/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 = <> diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm index 95345b90..ebd66f15 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm +++ b/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 diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index c3e28bc7..72b94746 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/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_Contactos = '{D1D6AE0C-CB9D-4339-85EF-EF5D108CF7B0}'; - RID_GruposCliente = '{F20ADBA3-4C7F-4E45-BC8F-028251137CE3}'; - RID_DatosBancarios = '{1CD5BB52-38A3-447E-BE75-670660841F72}'; - RID_Clientes = '{F15EADE4-FBD1-4132-8475-8DD722611D2E}'; - RID_Proveedores = '{7981FF66-06FD-4EE1-9564-EA37C676A319}'; - RID_Empleados = '{AC0D3CD8-C3E4-45B9-A657-C282E25D2217}'; - RID_DireccionesContacto = '{75EBF2E8-5F56-4CD1-8F11-BCF2F68889D3}'; - RID_ClientesDescuentos = '{C40E3AD8-AEA8-4376-81F2-37A001F88732}'; - RID_GruposProveedor = '{0411FDA9-31F7-47DE-BAC4-73C59992FBC0}'; - RID_GruposEmpleado = '{AD867ECC-C46F-4976-8315-208A5F9BCD34}'; - RID_Contactos_Refresh = '{EF5AFE33-8F5F-42F4-8C9F-96D6C5778708}'; + RID_SubCuentasContacto = '{4E9A4351-6088-4C3D-89BE-5C2045F3142E}'; + RID_Contactos = '{7488A5BA-619B-4BAB-A118-BCED33A85729}'; + RID_GruposCliente = '{3581CC88-21B9-4C30-A3AE-7565C18C3290}'; + RID_DatosBancarios = '{039C7134-AC7B-45EE-B678-BF31C4266A3E}'; + RID_Clientes = '{39651BB6-A46C-4E18-8370-B7E381F5E438}'; + RID_Proveedores = '{4E9E99D2-0F82-481A-9BD2-6178349034A0}'; + RID_Empleados = '{C0B6AA11-68AE-4658-9308-8C29C5F0936D}'; + RID_DireccionesContacto = '{EF3A2758-0CBE-4482-8770-91AD4F993A04}'; + RID_ClientesDescuentos = '{D64874F0-7499-4AC8-B3F1-DC1D63923CE9}'; + RID_GruposProveedor = '{86B9993A-ECB2-43E3-BA37-2C8DD53497A8}'; + RID_GruposEmpleado = '{877D71DA-AE8B-4B26-969F-AAA4DB1405D1}'; + 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); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index bbb8de5f..102305fc 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/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_ContactosDelta = '{025485B6-6802-4164-B843-EE188E7BE7F9}'; - RID_GruposClienteDelta = '{B03F1C25-B30E-4C63-8AA8-9F8340D8C69A}'; - RID_DatosBancariosDelta = '{129907FB-F58D-490B-B218-54A501539647}'; - RID_ClientesDelta = '{86DFD53C-4819-4245-A6F3-BB96B7532388}'; - RID_ProveedoresDelta = '{FA7BB965-5A6D-4BE9-A69F-B2F0C11BF85B}'; - RID_EmpleadosDelta = '{6C1E2150-8536-48CB-A19C-28836A07D0C9}'; - RID_DireccionesContactoDelta = '{0AF5A4B4-C3E7-4953-AA6D-6C0580A72F6A}'; - RID_ClientesDescuentosDelta = '{EE6B334D-D7F4-496D-B9C6-18EE75B86EF8}'; - RID_GruposProveedorDelta = '{11E1D581-8AF0-4A90-85D1-2F750318A7BB}'; - RID_GruposEmpleadoDelta = '{051B0E6E-74A9-4169-9680-390315179437}'; - RID_Contactos_RefreshDelta = '{B6D16683-2657-4890-927A-0870813D9B96}'; + RID_SubCuentasContactoDelta = '{C61B54E1-F314-4542-997D-397E249D61FA}'; + RID_ContactosDelta = '{D3E2A0CE-96A3-41A9-85B4-7BE8CFA3C79A}'; + RID_GruposClienteDelta = '{F5B47AD6-5B43-4FE1-9607-5CB39CB79A21}'; + RID_DatosBancariosDelta = '{C2A910E1-08F1-49F7-B0E9-85C448A3FA78}'; + RID_ClientesDelta = '{DB2F0740-6510-4933-8319-A6C42A41B1D3}'; + RID_ProveedoresDelta = '{4F4D8353-5DFD-493F-98A7-098340C343A0}'; + RID_EmpleadosDelta = '{D89254AA-A456-4113-9356-87878DD0342B}'; + RID_DireccionesContactoDelta = '{488B60E5-27F3-4A85-B8CF-A78A05CE3555}'; + RID_ClientesDescuentosDelta = '{0E2CBA43-B994-4B22-9560-96C73CE304F3}'; + RID_GruposProveedorDelta = '{EFF7AA25-B5B3-41EE-AB8F-2E889A72B8E6}'; + RID_GruposEmpleadoDelta = '{784E3585-2E4F-441F-9B7C-ACF190737701}'; + 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); diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index ccb98631..050bca0f 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/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 diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index c84b4fc0..8d883f1d 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/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; diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index f91c580b..96cb69b0 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/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 diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 3b06c57c..26f91996 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/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,' + - ' :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL, ' + - ':VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIME' + - 'N_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_A' + - 'SIGNADO)'#10 + 'MA_PAGO, TIENDA_WEB, CODIGO_ASIGNADO, IGNORAR_CONTABILIDAD)'#10' VA' + + 'LUES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' ' + + ' :NOMBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :M' + + 'OTIVO_BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, ' + + ':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' + - 'TE)'#10 + 'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' + + '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' + - 'ENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :ID_TIPO_IVA' + - ','#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTIFICACION, ' + - ':GRUPO_PROVEEDOR)' + 'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD)'#10' VALUES'#10' (:ID_PROVE' + + 'EDOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :COD' + + 'IGO_ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HO' + + '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 ' + - '= :OLD_ID_PROVEEDOR)' + ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' + + '= :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 diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm index 7a0c5942..a2685089 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/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 - ExplicitLeft = 419 + Left = 418 + 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 diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.dfm b/Source/Modulos/Contactos/Views/uEditorContactos.dfm index 55901294..c722fad7 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.dfm +++ b/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 diff --git a/Source/Modulos/Contactos/Views/uEditorContactos.pas b/Source/Modulos/Contactos/Views/uEditorContactos.pas index 921ef705..087817ff 100644 --- a/Source/Modulos/Contactos/Views/uEditorContactos.pas +++ b/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; diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index 6756394a..17eeda57 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/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 diff --git a/Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm b/Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm index 862fd540..b3d07cf0 100644 --- a/Source/Modulos/Contactos/Views/uViewDireccionesEntrega.dfm +++ b/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 diff --git a/Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas b/Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas index 5bd6e451..9e6b0567 100644 --- a/Source/Modulos/Contactos/Views/uViewDireccionesEntrega.pas +++ b/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 diff --git a/Source/Modulos/Contactos/Views/uViewProveedor.dfm b/Source/Modulos/Contactos/Views/uViewProveedor.dfm index aeffb00d..bf06d379 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedor.dfm @@ -7,19 +7,19 @@ inherited frViewProveedor: TfrViewProveedor Height = 454 ExplicitHeight = 454 inherited PngSpeedButton1: TPngSpeedButton - Left = 613 - ExplicitLeft = 613 + Left = 612 + ExplicitLeft = 612 end inherited PngSpeedButton2: TPngSpeedButton - Left = 613 - ExplicitLeft = 613 + Left = 612 + ExplicitLeft = 612 end inherited PngSpeedButton3: TPngSpeedButton - Left = 613 - ExplicitLeft = 613 + Left = 612 + 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 diff --git a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm index 3218aef2..d779c3b9 100644 --- a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.dfm +++ b/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 - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Ref. subcuenta:' - Control = eRefSubCuenta + object layoutApunteItem6: TdxLayoutItem + ShowCaption = False + Control = cbIgnorarContabilidad ControlOptions.ShowBorder = False end - object layoutApunteItem4: TdxLayoutItem + object layoutApunteGroup2: TdxLayoutGroup 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 + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object layoutApunteItem2: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Ref. subcuenta:' + Control = eRefSubCuenta + ControlOptions.ShowBorder = False + end + object layoutApunteItem4: TdxLayoutItem + 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 diff --git a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas b/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas index f6325df9..0479bf12 100644 --- a/Source/Modulos/Contactos/Views/uViewSubCuentaContacto.pas +++ b/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 - FController.VerSubCuentaContacto((Contacto as IBizCliente).SubCuentas) - else if Supports(IBizProveedor, FContacto) then - FController.VerSubCuentaContacto((Contacto as IBizProveedor).SubCuentas); -} + if Supports(FContacto, IBizCliente) then + FController.AnadirSubCuentaContacto((Contacto as IBizCliente).SubCuentas, CTE_CUENTASCLIENTE) + else if Supports(FContacto, IBizProveedor) then + 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; {