From 709430d66732e013c1761f207319ead6e3237d7f Mon Sep 17 00:00:00 2001 From: david Date: Thu, 18 Dec 2008 15:38:17 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adaptan=20las=20fichas=20de=20cliente=20y?= =?UTF-8?q?=20de=20proveedor=20para=20que=20acepten=20varios=20dias=20de?= =?UTF-8?q?=20pago=20(en=20los=20clientes=20se=20desactiva=20para=20acana)?= =?UTF-8?q?,=20ademas=20de=20retocar=20la=20l=C3=B3gica=20de=20generacion?= =?UTF-8?q?=20de=20los=20recibos=20asociados=20a=20las=20facturas.?= 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@368 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Contactos/Data/uDataModuleClientes.dfm | 18 +- .../Contactos/Data/uDataModuleProveedores.dfm | 12 + .../Model/schContactosClient_Intf.pas | 323 ++++++++++++---- .../Model/schContactosServer_Intf.pas | 357 ++++++++++++++---- .../Contactos/Model/uBizClientesServer.pas | 12 +- .../Modulos/Contactos/Model/uBizContactos.pas | 111 +++++- .../Contactos/Model/uBizProveedoresServer.pas | 9 + .../Contactos/Servidor/srvContactos_Impl.dfm | 152 ++++++-- .../Contactos/Views/uEditorCliente.dfm | 97 ++--- .../Contactos/Views/uEditorCliente.pas | 3 +- .../Contactos/Views/uEditorProveedor.dfm | 136 +++++-- .../Contactos/Views/uEditorProveedor.pas | 3 +- .../Views/uViewClienteDatosComerciales.dfm | 103 ++++- .../Views/uViewClienteDatosComerciales.pas | 4 + .../Views/uViewProveedorDatosComerciales.dfm | 250 +++++++++--- .../Views/uViewProveedorDatosComerciales.pas | 10 + 16 files changed, 1268 insertions(+), 332 deletions(-) diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index dddb9249..635a26bc 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -205,12 +205,6 @@ inherited DataModuleClientes: TDataModuleClientes DisplayLabel = 'Nombre comercial' DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' end - item - Name = 'VENCIMIENTO_FACTURAS' - DataType = datInteger - DisplayLabel = 'Vencimiento' - DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS' - end item Name = 'BLOQUEADO' DataType = datSmallInt @@ -275,6 +269,18 @@ inherited DataModuleClientes: TDataModuleClientes Size = 255 DisplayLabel = 'Clientes_PROCEDENCIA_CLIENTE' DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE' + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm index 90cc796d..25dd5574 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm @@ -302,6 +302,18 @@ inherited DataModuleProveedores: TDataModuleProveedores item Name = 'ES_ACREEDOR' DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index 036c01d6..c4c1b87a 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,20 +9,20 @@ 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_PersonalContacto = '{72AC6BFD-BAC4-42A3-9D57-8A39C408F0B6}'; - RID_DarTiendaDeUsuario = '{C60E8268-B657-4D79-8D39-FB2BBD7C9A9C}'; - RID_SubCuentasContacto = '{1E056E61-ADFD-4989-AB59-03B790458F58}'; - RID_Contactos = '{98A3BC5C-8827-4E10-AF42-E0697B8B2A48}'; - RID_GruposCliente = '{0C8C6F79-4D64-4EC3-BB36-D4C152D61256}'; - RID_DatosBancarios = '{C1CC001F-5BD9-4DD4-B687-5E1B091D3430}'; - RID_Clientes = '{1B75257E-3A1B-42D4-83C3-214A06582B5D}'; - RID_Proveedores = '{A8E52EFB-F601-4D35-8AEF-875312B435D1}'; - RID_Vendedores = '{094768D6-A0E0-4FEA-BEF6-60FC3E569425}'; - RID_DireccionesContacto = '{8060C203-A78C-4000-8DAA-8C1F677F4481}'; - RID_ClientesDescuentos = '{05FF232F-E798-4FFD-8CF2-99687BE644B7}'; - RID_ProcedenciasCliente = '{7E7AE2C9-9D29-472B-954B-AFEF756ADD5B}'; - RID_GruposProveedor = '{0D48BF67-135E-47F2-9105-E833DB8035C5}'; - RID_Contactos_Refresh = '{BA3C07F7-9B68-4D45-ADCD-2EB0F9A3B4F9}'; + RID_PersonalContacto = '{10850DAC-8A04-46B8-882A-D9D05178F533}'; + RID_DarTiendaDeUsuario = '{4A3CFB9A-64F8-41D3-8B67-D3BD773EC6F0}'; + RID_SubCuentasContacto = '{98A05B2F-8C31-4012-A9C3-40E3FD982FEF}'; + RID_Contactos = '{EC034344-6F48-4962-B530-9C8590FFA881}'; + RID_GruposCliente = '{0C0F2DE5-1C7D-42ED-AF00-57BB3F081EEA}'; + RID_DatosBancarios = '{8120C3EA-4394-4FA5-AA19-9DE1AABDABD6}'; + RID_Clientes = '{D01FA8E7-3AEC-4B37-9F26-015F3CD695CA}'; + RID_Proveedores = '{510572A1-E390-401D-A8CE-007F4104350C}'; + RID_Vendedores = '{DEDAD190-7EF1-42A4-BAED-CFFD9D5CED4D}'; + RID_DireccionesContacto = '{58A83B78-7C3F-4742-87CD-CC211F2D553F}'; + RID_ClientesDescuentos = '{BFBA6A41-1628-4808-B100-11561E0ED847}'; + RID_ProcedenciasCliente = '{E65DD5CD-347E-4C08-BB87-DDF77C45AEE6}'; + RID_GruposProveedor = '{4A8B2052-F645-428F-92D7-E8897E201BEC}'; + RID_Contactos_Refresh = '{A7344712-243B-40A9-A854-7EB1096E03B0}'; { Data table names } nme_PersonalContacto = 'PersonalContacto'; @@ -198,7 +198,6 @@ const fld_ClientesTIENDA = 'TIENDA'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; - fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS'; fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; @@ -210,6 +209,9 @@ const fld_ClientesIGNORAR_CONTABILIDAD = 'IGNORAR_CONTABILIDAD'; fld_ClientesTIENE_SUBCUENTA = 'TIENE_SUBCUENTA'; fld_ClientesPROCEDENCIA_CLIENTE = 'PROCEDENCIA_CLIENTE'; + fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; + fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; + fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; { Clientes field indexes } idx_ClientesID = 0; @@ -239,18 +241,20 @@ const idx_ClientesTIENDA = 24; idx_ClientesGRUPO_CLIENTE = 25; idx_ClientesNOMBRE_COMERCIAL = 26; - idx_ClientesVENCIMIENTO_FACTURAS = 27; - idx_ClientesBLOQUEADO = 28; - idx_ClientesREGIMEN_IVA = 29; - idx_ClientesMOTIVO_BLOQUEO = 30; - idx_ClientesRECARGO_EQUIVALENCIA = 31; - idx_ClientesID_TIPO_IVA = 32; - idx_ClientesID_FORMA_PAGO = 33; - idx_ClientesTIENDA_WEB = 34; - idx_ClientesCODIGO_ASIGNADO = 35; - idx_ClientesIGNORAR_CONTABILIDAD = 36; - idx_ClientesTIENE_SUBCUENTA = 37; - idx_ClientesPROCEDENCIA_CLIENTE = 38; + idx_ClientesBLOQUEADO = 27; + idx_ClientesREGIMEN_IVA = 28; + idx_ClientesMOTIVO_BLOQUEO = 29; + idx_ClientesRECARGO_EQUIVALENCIA = 30; + idx_ClientesID_TIPO_IVA = 31; + idx_ClientesID_FORMA_PAGO = 32; + idx_ClientesTIENDA_WEB = 33; + idx_ClientesCODIGO_ASIGNADO = 34; + idx_ClientesIGNORAR_CONTABILIDAD = 35; + idx_ClientesTIENE_SUBCUENTA = 36; + idx_ClientesPROCEDENCIA_CLIENTE = 37; + idx_ClientesVENCIMIENTO_FACTURAS_1 = 38; + idx_ClientesVENCIMIENTO_FACTURAS_2 = 39; + idx_ClientesVENCIMIENTO_FACTURAS_3 = 40; { Proveedores fields } fld_ProveedoresID = 'ID'; @@ -292,6 +296,9 @@ const fld_ProveedoresTIENE_SUBCUENTA = 'TIENE_SUBCUENTA'; fld_ProveedoresNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ProveedoresES_ACREEDOR = 'ES_ACREEDOR'; + fld_ProveedoresVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; + fld_ProveedoresVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; + fld_ProveedoresVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; { Proveedores field indexes } idx_ProveedoresID = 0; @@ -333,6 +340,9 @@ const idx_ProveedoresTIENE_SUBCUENTA = 36; idx_ProveedoresNOMBRE_COMERCIAL = 37; idx_ProveedoresES_ACREEDOR = 38; + idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 39; + idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 40; + idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 41; { Vendedores fields } fld_VendedoresID = 'ID'; @@ -509,7 +519,7 @@ const type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{2A8A2DA0-3149-4746-B9E1-4A11C5277976}'] + ['{DEAA6039-614F-4B15-B4F2-F9C9B4DB3A15}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -652,7 +662,7 @@ type { IDarTiendaDeUsuario } IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable) - ['{EB039772-223A-40A0-B5D2-C89B476B082E}'] + ['{88F010C0-E12E-4427-8C13-90DCB2CBF53C}'] { Property getters and setters } function GetID_TIENDAValue: Integer; procedure SetID_TIENDAValue(const aValue: Integer); @@ -687,7 +697,7 @@ type { ISubCuentasContacto } ISubCuentasContacto = interface(IDAStronglyTypedDataTable) - ['{1FB29B7D-89ED-45D7-80CD-702E245E14F0}'] + ['{835A0070-997F-416F-9718-CB82124338A8}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -782,7 +792,7 @@ type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{5E99E772-2F16-4796-BCC8-3C547E65DF87}'] + ['{B479C112-135D-46D0-B72B-2A46C8D32A87}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1105,7 +1115,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{88BEFB2C-1CFD-4887-98B8-F59A4EEBAC41}'] + ['{F4F42BF3-C319-4CAC-A11E-435ACF830CC5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1152,7 +1162,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{DCA7CB6A-F958-45AE-B309-9EA1D1C5BB08}'] + ['{5BC08B80-5030-40F7-92FB-59256E2C0E75}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1283,7 +1293,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{85F251D9-E428-4D10-A4E8-EB207D2DD0BF}'] + ['{48D18C28-B5EE-4C37-B313-A8AF373F3D64}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1392,10 +1402,6 @@ type procedure SetNOMBRE_COMERCIALValue(const aValue: String); function GetNOMBRE_COMERCIALIsNull: Boolean; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); - function GetVENCIMIENTO_FACTURASValue: Integer; - procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); - function GetVENCIMIENTO_FACTURASIsNull: Boolean; - procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); function GetBLOQUEADOValue: SmallInt; procedure SetBLOQUEADOValue(const aValue: SmallInt); function GetBLOQUEADOIsNull: Boolean; @@ -1440,6 +1446,18 @@ type procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); function GetPROCEDENCIA_CLIENTEIsNull: Boolean; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_1Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_2Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_3Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); { Properties } @@ -1497,8 +1515,6 @@ type property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; - property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; - property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; @@ -1521,6 +1537,12 @@ type property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; end; { TClientesDataTableRules } @@ -1637,10 +1659,6 @@ type procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; function GetNOMBRE_COMERCIALIsNull: Boolean; virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; - function GetVENCIMIENTO_FACTURASValue: Integer; virtual; - procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual; - function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual; - procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; function GetBLOQUEADOIsNull: Boolean; virtual; @@ -1685,6 +1703,18 @@ type procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual; function GetPROCEDENCIA_CLIENTEIsNull: Boolean; virtual; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1741,8 +1771,6 @@ type property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; - property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; - property VENCIMIENTO_FACTURASIsNull: Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; @@ -1765,6 +1793,12 @@ type property TIENE_SUBCUENTAIsNull: Boolean read GetTIENE_SUBCUENTAIsNull write SetTIENE_SUBCUENTAIsNull; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property PROCEDENCIA_CLIENTEIsNull: Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -1774,7 +1808,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{A746CF89-1F05-4785-9ACD-C7FAA8986B7B}'] + ['{A92DE88A-7E08-4CD2-9E99-757ECD192475}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1931,6 +1965,18 @@ type procedure SetES_ACREEDORValue(const aValue: SmallInt); function GetES_ACREEDORIsNull: Boolean; procedure SetES_ACREEDORIsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_1Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_2Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_3Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); { Properties } @@ -2012,6 +2058,12 @@ type property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue; property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; end; { TProveedoresDataTableRules } @@ -2176,6 +2228,18 @@ type procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual; function GetES_ACREEDORIsNull: Boolean; virtual; procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -2256,6 +2320,12 @@ type property NOMBRE_COMERCIALIsNull: Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property ES_ACREEDOR: SmallInt read GetES_ACREEDORValue write SetES_ACREEDORValue; property ES_ACREEDORIsNull: Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_1IsNull: Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_2IsNull: Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -2265,7 +2335,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{AC791BCF-44E7-4C31-AAB0-991AC21F4D09}'] + ['{D1EF06EF-DA47-4324-AA3F-481CB71ACFDD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2612,7 +2682,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{98C623D9-465F-44A7-AFBF-BB6A7CDD9EBA}'] + ['{333D0482-701A-4BB6-AA51-1F1F34D6A8F1}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2839,7 +2909,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{9A9DB00C-8F08-4F5A-AC2B-43BC2B4D30CA}'] + ['{A1F86ADF-8673-4E8F-B3C4-F864F7A5FEBB}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2922,7 +2992,7 @@ type { IProcedenciasCliente } IProcedenciasCliente = interface(IDAStronglyTypedDataTable) - ['{830CA7BC-63BD-42FE-B404-35F104D4CF4A}'] + ['{9789278E-8F6D-427E-82D1-6386D8AB21AE}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2969,7 +3039,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{EABF7056-21C6-484A-90A5-2AB4EAE1D3D8}'] + ['{F0DACCCA-7AB3-4862-BD6D-6D9C401378AA}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3016,7 +3086,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{B271D47C-045D-4B48-ACE6-5F36B7D42236}'] + ['{6041072A-9CB7-4096-88CF-5069C7EA0833}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -5070,27 +5140,6 @@ begin DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null; end; -function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer; -begin - result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; -end; - -procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); -begin - DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; -end; - -function TClientesDataTableRules.GetVENCIMIENTO_FACTURASIsNull: boolean; -begin - result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].IsNull; -end; - -procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsVariant := Null; -end; - function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt; begin result := DataTable.Fields[idx_ClientesBLOQUEADO].AsSmallInt; @@ -5322,6 +5371,69 @@ begin DataTable.Fields[idx_ClientesPROCEDENCIA_CLIENTE].AsVariant := Null; end; +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := aValue; +end; + +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].IsNull; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsVariant := Null; +end; + +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := aValue; +end; + +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].IsNull; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsVariant := Null; +end; + +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := aValue; +end; + +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].IsNull; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsVariant := Null; +end; + { TProveedoresDataTableRules } constructor TProveedoresDataTableRules.Create(aDataTable: TDADataTable); @@ -6160,6 +6272,69 @@ begin DataTable.Fields[idx_ProveedoresES_ACREEDOR].AsVariant := Null; end; +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := aValue; +end; + +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].IsNull; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsVariant := Null; +end; + +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := aValue; +end; + +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_2IsNull: boolean; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].IsNull; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsVariant := Null; +end; + +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue; +end; + +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_3IsNull: boolean; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].IsNull; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsVariant := Null; +end; + { TVendedoresDataTableRules } constructor TVendedoresDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index a0ebc2cf..3536c0b3 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,25 +9,25 @@ 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_PersonalContactoDelta = '{845C4940-7BFD-40A8-9E33-AD056E3C2A27}'; - RID_DarTiendaDeUsuarioDelta = '{D50280BB-652F-4F52-A3E1-0C8EC19492DF}'; - RID_SubCuentasContactoDelta = '{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}'; - RID_ContactosDelta = '{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}'; - RID_GruposClienteDelta = '{E08A27A2-0C3D-4880-A705-8E9E599A094A}'; - RID_DatosBancariosDelta = '{3B9A634C-4586-4A72-B982-AB25BF2E6C24}'; - RID_ClientesDelta = '{4192433E-E014-410F-BDE6-1D0D1CC50823}'; - RID_ProveedoresDelta = '{061A9581-0319-4275-A02F-F56419EA77D7}'; - RID_VendedoresDelta = '{57099FD5-396F-4C40-B270-5652ECB6D973}'; - RID_DireccionesContactoDelta = '{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}'; - RID_ClientesDescuentosDelta = '{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}'; - RID_ProcedenciasClienteDelta = '{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}'; - RID_GruposProveedorDelta = '{DDE12288-B000-45AA-A36C-24C4555CA432}'; - RID_Contactos_RefreshDelta = '{F7D74B95-D7FE-4362-AC9B-433041EB9053}'; + RID_PersonalContactoDelta = '{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}'; + RID_DarTiendaDeUsuarioDelta = '{7AFE4420-13DD-420E-A8DE-93464EF93F59}'; + RID_SubCuentasContactoDelta = '{0FAD99B4-0F6F-43AB-A6A2-D05725700767}'; + RID_ContactosDelta = '{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}'; + RID_GruposClienteDelta = '{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}'; + RID_DatosBancariosDelta = '{AE0DA606-F1FC-4725-94C3-F1F22858DF25}'; + RID_ClientesDelta = '{6CD74F52-43BA-4DDD-9626-374A140E486C}'; + RID_ProveedoresDelta = '{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}'; + RID_VendedoresDelta = '{365B6366-050C-443E-8A11-66EB0D7F9E0B}'; + RID_DireccionesContactoDelta = '{BFBF154C-C62B-4DFC-B816-4C7649222909}'; + RID_ClientesDescuentosDelta = '{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}'; + RID_ProcedenciasClienteDelta = '{1D54F076-4D87-414E-B567-2052949AF687}'; + RID_GruposProveedorDelta = '{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}'; + RID_Contactos_RefreshDelta = '{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}'; type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{845C4940-7BFD-40A8-9E33-AD056E3C2A27}'] + ['{5E077D9B-D4D9-4B7D-B1F4-8236A79DC607}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -169,7 +169,7 @@ type { IDarTiendaDeUsuarioDelta } IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario) - ['{D50280BB-652F-4F52-A3E1-0C8EC19492DF}'] + ['{7AFE4420-13DD-420E-A8DE-93464EF93F59}'] { Property getters and setters } function GetOldID_TIENDAValue : Integer; @@ -203,7 +203,7 @@ type { ISubCuentasContactoDelta } ISubCuentasContactoDelta = interface(ISubCuentasContacto) - ['{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}'] + ['{0FAD99B4-0F6F-43AB-A6A2-D05725700767}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldREF_SUBCUENTAValue : String; @@ -297,7 +297,7 @@ type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}'] + ['{29E47B8B-30E6-4B4E-B218-6E3CB867BDC8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -620,7 +620,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{E08A27A2-0C3D-4880-A705-8E9E599A094A}'] + ['{8B15524D-83C1-4F38-ACCE-2A0CA45DBFEF}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -666,7 +666,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{3B9A634C-4586-4A72-B982-AB25BF2E6C24}'] + ['{AE0DA606-F1FC-4725-94C3-F1F22858DF25}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -796,7 +796,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{4192433E-E014-410F-BDE6-1D0D1CC50823}'] + ['{6CD74F52-43BA-4DDD-9626-374A140E486C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -825,7 +825,6 @@ type function GetOldTIENDAValue : String; function GetOldGRUPO_CLIENTEValue : String; function GetOldNOMBRE_COMERCIALValue : String; - function GetOldVENCIMIENTO_FACTURASValue : Integer; function GetOldBLOQUEADOValue : SmallInt; function GetOldREGIMEN_IVAValue : String; function GetOldMOTIVO_BLOQUEOValue : String; @@ -837,6 +836,9 @@ type function GetOldIGNORAR_CONTABILIDADValue : Integer; function GetOldTIENE_SUBCUENTAValue : Integer; function GetOldPROCEDENCIA_CLIENTEValue : String; + function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; + function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; + function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; { Properties } property OldID : Integer read GetOldIDValue; @@ -866,7 +868,6 @@ type property OldTIENDA : String read GetOldTIENDAValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; - property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; @@ -878,6 +879,9 @@ type property OldIGNORAR_CONTABILIDAD : Integer read GetOldIGNORAR_CONTABILIDADValue; property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue; property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue; + property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; end; { TClientesBusinessProcessorRules } @@ -1048,12 +1052,6 @@ type function GetOldNOMBRE_COMERCIALIsNull: Boolean; virtual; procedure SetNOMBRE_COMERCIALValue(const aValue: String); virtual; procedure SetNOMBRE_COMERCIALIsNull(const aValue: Boolean); virtual; - function GetVENCIMIENTO_FACTURASValue: Integer; virtual; - function GetVENCIMIENTO_FACTURASIsNull: Boolean; virtual; - function GetOldVENCIMIENTO_FACTURASValue: Integer; virtual; - function GetOldVENCIMIENTO_FACTURASIsNull: Boolean; virtual; - procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); virtual; - procedure SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; function GetBLOQUEADOIsNull: Boolean; virtual; function GetOldBLOQUEADOValue: SmallInt; virtual; @@ -1120,6 +1118,24 @@ type function GetOldPROCEDENCIA_CLIENTEIsNull: Boolean; virtual; procedure SetPROCEDENCIA_CLIENTEValue(const aValue: String); virtual; procedure SetPROCEDENCIA_CLIENTEIsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual; + function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual; + function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual; + function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -1230,10 +1246,6 @@ type property NOMBRE_COMERCIALIsNull : Boolean read GetNOMBRE_COMERCIALIsNull write SetNOMBRE_COMERCIALIsNull; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIALIsNull : Boolean read GetOldNOMBRE_COMERCIALIsNull; - property VENCIMIENTO_FACTURAS : Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; - property VENCIMIENTO_FACTURASIsNull : Boolean read GetVENCIMIENTO_FACTURASIsNull write SetVENCIMIENTO_FACTURASIsNull; - property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; - property OldVENCIMIENTO_FACTURASIsNull : Boolean read GetOldVENCIMIENTO_FACTURASIsNull; property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; @@ -1278,6 +1290,18 @@ type property PROCEDENCIA_CLIENTEIsNull : Boolean read GetPROCEDENCIA_CLIENTEIsNull write SetPROCEDENCIA_CLIENTEIsNull; property OldPROCEDENCIA_CLIENTE : String read GetOldPROCEDENCIA_CLIENTEValue; property OldPROCEDENCIA_CLIENTEIsNull : Boolean read GetOldPROCEDENCIA_CLIENTEIsNull; + property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; + property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; + property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; + property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; + property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1287,7 +1311,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{061A9581-0319-4275-A02F-F56419EA77D7}'] + ['{45BEDF42-D57A-4B27-9A39-DAA56D0EFDAA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1328,6 +1352,9 @@ type function GetOldTIENE_SUBCUENTAValue : Integer; function GetOldNOMBRE_COMERCIALValue : String; function GetOldES_ACREEDORValue : SmallInt; + function GetOldVENCIMIENTO_FACTURAS_1Value : Integer; + function GetOldVENCIMIENTO_FACTURAS_2Value : Integer; + function GetOldVENCIMIENTO_FACTURAS_3Value : Integer; { Properties } property OldID : Integer read GetOldIDValue; @@ -1369,6 +1396,9 @@ type property OldTIENE_SUBCUENTA : Integer read GetOldTIENE_SUBCUENTAValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue; + property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; end; { TProveedoresBusinessProcessorRules } @@ -1611,6 +1641,24 @@ type function GetOldES_ACREEDORIsNull: Boolean; virtual; procedure SetES_ACREEDORValue(const aValue: SmallInt); virtual; procedure SetES_ACREEDORIsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_1Value: Integer; virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_1Value: Integer; virtual; + function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: Integer; virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_2Value: Integer; virtual; + function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: Integer; virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_3Value: Integer; virtual; + function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -1769,6 +1817,18 @@ type property ES_ACREEDORIsNull : Boolean read GetES_ACREEDORIsNull write SetES_ACREEDORIsNull; property OldES_ACREEDOR : SmallInt read GetOldES_ACREEDORValue; property OldES_ACREEDORIsNull : Boolean read GetOldES_ACREEDORIsNull; + property VENCIMIENTO_FACTURAS_1 : Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_1IsNull : Boolean read GetVENCIMIENTO_FACTURAS_1IsNull write SetVENCIMIENTO_FACTURAS_1IsNull; + property OldVENCIMIENTO_FACTURAS_1 : Integer read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2 : Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_2IsNull : Boolean read GetVENCIMIENTO_FACTURAS_2IsNull write SetVENCIMIENTO_FACTURAS_2IsNull; + property OldVENCIMIENTO_FACTURAS_2 : Integer read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3 : Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull : Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; + property OldVENCIMIENTO_FACTURAS_3 : Integer read GetOldVENCIMIENTO_FACTURAS_3Value; + property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1778,7 +1838,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{57099FD5-396F-4C40-B270-5652ECB6D973}'] + ['{365B6366-050C-443E-8A11-66EB0D7F9E0B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2125,7 +2185,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}'] + ['{BFBF154C-C62B-4DFC-B816-4C7649222909}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2352,7 +2412,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}'] + ['{75E242C6-00BE-4179-AE7F-4393F5AE9B4A}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2434,7 +2494,7 @@ type { IProcedenciasClienteDelta } IProcedenciasClienteDelta = interface(IProcedenciasCliente) - ['{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}'] + ['{1D54F076-4D87-414E-B567-2052949AF687}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2480,7 +2540,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{DDE12288-B000-45AA-A36C-24C4555CA432}'] + ['{C3A6BA6F-15EC-486F-8212-0CEB2A66D6A1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2526,7 +2586,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{F7D74B95-D7FE-4362-AC9B-433041EB9053}'] + ['{F1DF7DB2-6FC0-43D6-B14B-E6E6DE744DE4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -5383,37 +5443,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null; end; -function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; -end; - -function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]); -end; - -function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; -end; - -function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]); -end; - -procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue; -end; - -procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := Null; -end; - function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesBLOQUEADO]; @@ -5755,6 +5784,99 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE] := Null; end; +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; +end; + +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]); +end; + +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; +end; + +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]); +end; + +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null; +end; + +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; +end; + +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]); +end; + +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; +end; + +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]); +end; + +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2] := Null; +end; + +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; +end; + +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]); +end; + +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; +end; + +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]); +end; + +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3] := Null; +end; + { TProveedoresBusinessProcessorRules } constructor TProveedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -6984,6 +7106,99 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresES_ACREEDOR] := Null; end; +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; +end; + +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]); +end; + +function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; +end; + +function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]); +end; + +procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := aValue; +end; + +procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1] := Null; +end; + +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; +end; + +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]); +end; + +function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; +end; + +function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]); +end; + +procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := aValue; +end; + +procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2] := Null; +end; + +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; +end; + +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]); +end; + +function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; +end; + +function TProveedoresBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]); +end; + +procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := aValue; +end; + +procedure TProveedoresBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3] := Null; +end; + { TVendedoresBusinessProcessorRules } constructor TVendedoresBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index 838cb697..98362938 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -145,7 +145,6 @@ begin // ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; - ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; @@ -157,6 +156,11 @@ begin ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA]; ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]; + + ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; + ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; + ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; + Execute; end; @@ -194,7 +198,6 @@ begin // ParamByName('ID_AGENTE').Value := aChange.NewValueByName[fld_ClientesID_AGENTE]; ParamByName('GRUPO_CLIENTE').Value := aChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL]; - ParamByName('VENCIMIENTO_FACTURAS').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; ParamByName('BLOQUEADO').Value := aChange.NewValueByName[fld_ClientesBLOQUEADO]; ParamByName('MOTIVO_BLOQUEO').Value := aChange.NewValueByName[fld_ClientesMOTIVO_BLOQUEO]; ParamByName('RECARGO_EQUIVALENCIA').Value := aChange.NewValueByName[fld_ClientesRECARGO_EQUIVALENCIA]; @@ -206,6 +209,11 @@ begin ParamByName('IGNORAR_CONTABILIDAD').Value := aChange.NewValueByName[fld_ClientesIGNORAR_CONTABILIDAD]; ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ClientesTIENE_SUBCUENTA]; ParamByName('PROCEDENCIA_CLIENTE').Value := aChange.NewValueByName[fld_ClientesPROCEDENCIA_CLIENTE]; + + ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; + ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; + ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; + Execute; end; diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index baede925..63d7167c 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -54,8 +54,14 @@ type function GetNOMBRE_COMERCIALValue: String; procedure SetNOMBRE_COMERCIALValue(const aValue: String); - function GetVENCIMIENTO_FACTURASValue: Integer; - procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_1Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_2Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_3Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); function GetBLOQUEADOValue: Integer; procedure SetBLOQUEADOValue(const aValue: Integer); @@ -85,7 +91,9 @@ type property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; - property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; @@ -121,6 +129,15 @@ type function GetNOMBRE_COMERCIALValue: String; procedure SetNOMBRE_COMERCIALValue(const aValue: String); + function GetVENCIMIENTO_FACTURAS_1Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_2Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_3Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); + function GetCODIGO_ASIGNADOValue: String; procedure SetCODIGO_ASIGNADOValue(const aValue: String); @@ -153,6 +170,9 @@ type property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; function GetSubCuentas: IBizSubCuentasContacto; procedure SetSubCuentas(const Value: IBizSubCuentasContacto); @@ -244,8 +264,14 @@ type function GetNOMBRE_COMERCIALValue: String; procedure SetNOMBRE_COMERCIALValue(const aValue: String); - function GetVENCIMIENTO_FACTURASValue: Integer; - procedure SetVENCIMIENTO_FACTURASValue(const aValue: Integer); + function GetVENCIMIENTO_FACTURAS_1Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_2Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_3Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); function GetBLOQUEADOValue: Integer; procedure SetBLOQUEADOValue(const aValue: Integer); @@ -288,7 +314,9 @@ type property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property PROCEDENCIA_CLIENTE: String read GetPROCEDENCIA_CLIENTEValue write SetPROCEDENCIA_CLIENTEValue; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; - property VENCIMIENTO_FACTURAS: Integer read GetVENCIMIENTO_FACTURASValue write SetVENCIMIENTO_FACTURASValue; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property BLOQUEADO: Integer read GetBLOQUEADOValue write SetBLOQUEADOValue; property MOTIVO_BLOQUEO: String read GetMOTIVO_BLOQUEOValue write SetMOTIVO_BLOQUEOValue; property RECARGO_EQUIVALENCIA: Integer read GetRECARGO_EQUIVALENCIAValue write SetRECARGO_EQUIVALENCIAValue; @@ -322,6 +350,15 @@ type function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); + function GetVENCIMIENTO_FACTURAS_1Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_2Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); + + function GetVENCIMIENTO_FACTURAS_3Value: Integer; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); + function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); @@ -362,6 +399,9 @@ type property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; + property VENCIMIENTO_FACTURAS_1: Integer read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Integer read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Integer read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; @@ -639,9 +679,19 @@ begin result := DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger; end; -function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer; +function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: Integer; begin - result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger; +end; + +function TBizCliente.GetVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger; +end; + +function TBizCliente.GetVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger; end; procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); @@ -670,16 +720,25 @@ begin DataTable.Fields[idx_ClientesTIENE_SUBCUENTA].AsInteger := Value; end; -procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); +procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); begin - DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsInteger := aValue; +end; + +procedure TBizCliente.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsInteger := aValue; +end; + +procedure TBizCliente.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsInteger := aValue; end; procedure TBizCliente.IniciarValoresContactoNuevo; begin inherited; ID_CATEGORIA := CATEGORIA_CLIENTE; - VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO; BLOQUEADO := 0; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; REGIMEN_IVA := AppFactuGES.Configuracion.GetSettingAsString('Clientes.RegimenIVA', CLIENTE_REGIMEN_IVA); @@ -748,6 +807,21 @@ begin result := DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger; end; +function TBizProveedor.GetVENCIMIENTO_FACTURAS_1Value: Integer; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger; +end; + +function TBizProveedor.GetVENCIMIENTO_FACTURAS_2Value: Integer; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger; +end; + +function TBizProveedor.GetVENCIMIENTO_FACTURAS_3Value: Integer; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger; +end; + procedure TBizProveedor.IniciarValoresContactoNuevo; begin inherited; @@ -884,6 +958,21 @@ begin DataTable.Fields[idx_ProveedoresTIENE_SUBCUENTA].AsInteger := Value; end; +procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_1Value(const aValue: Integer); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsInteger := aValue; +end; + +procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_2Value(const aValue: Integer); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsInteger := aValue; +end; + +procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_3Value(const aValue: Integer); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsInteger := aValue; +end; + { TBizVendedor } diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 4b3dd5c6..a5a34998 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas @@ -157,6 +157,10 @@ begin ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL]; ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR]; + ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; + ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; + ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; + Execute; end; @@ -203,6 +207,11 @@ begin ParamByName('TIENE_SUBCUENTA').Value := aChange.NewValueByName[fld_ProveedoresTIENE_SUBCUENTA]; ParamByName('NOMBRE_COMERCIAL').Value := aChange.NewValueByName[fld_ProveedoresNOMBRE_COMERCIAL]; ParamByName('ES_ACREEDOR').Value := aChange.NewValueByName[fld_ProveedoresES_ACREEDOR]; + + ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_1]; + ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_2]; + ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ProveedoresVENCIMIENTO_FACTURAS_3]; + Execute; end; diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 69f1c00e..45c6f93f 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -741,10 +741,6 @@ object srvContactos: TsrvContactos DatasetField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL' end - item - DatasetField = 'VENCIMIENTO_FACTURAS' - TableField = 'VENCIMIENTO_FACTURAS' - end item DatasetField = 'BLOQUEADO' TableField = 'BLOQUEADO' @@ -788,6 +784,18 @@ object srvContactos: TsrvContactos item DatasetField = 'PROCEDENCIA_CLIENTE' TableField = 'PROCEDENCIA_CLIENTE' + end + item + DatasetField = 'VENCIMIENTO_FACTURAS_1' + TableField = 'VENCIMIENTO_FACTURAS_1' + end + item + DatasetField = 'VENCIMIENTO_FACTURAS_2' + TableField = 'VENCIMIENTO_FACTURAS_2' + end + item + DatasetField = 'VENCIMIENTO_FACTURAS_3' + TableField = 'VENCIMIENTO_FACTURAS_3' end> end> Name = 'Clientes' @@ -952,11 +960,6 @@ object srvContactos: TsrvContactos Size = 255 DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' end - item - Name = 'VENCIMIENTO_FACTURAS' - DataType = datInteger - DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS' - end item Name = 'BLOQUEADO' DataType = datSmallInt @@ -1014,6 +1017,18 @@ object srvContactos: TsrvContactos DataType = datString Size = 255 DictionaryEntry = 'Clientes_PROCEDENCIA_CLIENTE' + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datInteger end> end item @@ -1179,6 +1194,18 @@ object srvContactos: TsrvContactos item DatasetField = 'ES_ACREEDOR' TableField = 'ES_ACREEDOR' + end + item + DatasetField = 'VENCIMIENTO_FACTURAS_1' + TableField = 'VENCIMIENTO_FACTURAS_1' + end + item + DatasetField = 'VENCIMIENTO_FACTURAS_2' + TableField = 'VENCIMIENTO_FACTURAS_2' + end + item + DatasetField = 'VENCIMIENTO_FACTURAS_3' + TableField = 'VENCIMIENTO_FACTURAS_3' end> end> Name = 'Proveedores' @@ -1403,6 +1430,18 @@ object srvContactos: TsrvContactos item Name = 'ES_ACREEDOR' DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datInteger + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datInteger end> end item @@ -2771,10 +2810,6 @@ object srvContactos: TsrvContactos Name = 'NOMBRE_COMERCIAL' Value = '' end - item - Name = 'VENCIMIENTO_FACTURAS' - Value = '' - end item Name = 'BLOQUEADO' Value = '' @@ -2814,6 +2849,18 @@ object srvContactos: TsrvContactos item Name = 'TIENE_SUBCUENTA' Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + Value = '' end> Statements = < item @@ -2821,15 +2868,16 @@ object srvContactos: TsrvContactos TargetTable = 'CLIENTES_DATOS' SQL = '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, IGNORAR_CONTABILIDAD,'#10' ' + - ' PROCEDENCIA_CLIENTE, TIENE_SUBCUENTA)'#10' VALUES'#10' (:ID_CLIENTE' + - ', :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NOMBRE_COMERCIAL,' + - ' :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIM' + - 'EN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIENDA_WEB, :CODIGO_' + - 'ASIGNADO, :IGNORAR_CONTABILIDAD,'#10' :PROCEDENCIA_CLIENTE, :TIE' + - 'NE_SUBCUENTA)'#10 + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL, BLOQUEADO,'#10' MOTIVO_BLOQ' + + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB,'#10' C' + + 'ODIGO_ASIGNADO, IGNORAR_CONTABILIDAD, PROCEDENCIA_CLIENTE, TIENE' + + '_SUBCUENTA,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2,' + + ' VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENTE, :GRUPO_CLIEN' + + 'TE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL, :BLOQUEADO,'#10' :' + + 'MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIE' + + 'NDA_WEB,'#10' :CODIGO_ASIGNADO, :IGNORAR_CONTABILIDAD, :PROCEDEN' + + 'CIA_CLIENTE, :TIENE_SUBCUENTA,'#10' :VENCIMIENTO_FACTURAS_1, :VE' + + 'NCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2917,6 +2965,18 @@ object srvContactos: TsrvContactos Name = 'PROCEDENCIA_CLIENTE' Value = '' end + item + Name = 'VENCIMIENTO_FACTURAS_1' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + Value = '' + end item Name = 'OLD_ID_CLIENTE' Value = '' @@ -2935,8 +2995,10 @@ object srvContactos: TsrvContactos 'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' + 'GNADO = :CODIGO_ASIGNADO,'#10' IGNORAR_CONTABILIDAD = :IGNORAR_CO' + 'NTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,'#10' PROCEDEN' + - 'CIA_CLIENTE = :PROCEDENCIA_CLIENTE'#10' WHERE'#10' (ID_CLIENTE = :OL' + - 'D_ID_CLIENTE)'#10 + 'CIA_CLIENTE = :PROCEDENCIA_CLIENTE,'#10' VENCIMIENTO_FACTURAS_1 =' + + ' :VENCIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIE' + + 'NTO_FACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTUR' + + 'AS_3'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3003,6 +3065,18 @@ object srvContactos: TsrvContactos item Name = 'ES_ACREEDOR' Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + Value = '' end> Statements = < item @@ -3013,11 +3087,14 @@ object srvContactos: TsrvContactos 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'VA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERTIFICACION, GR' + 'UPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD, TIENE_SUBCUENTA, NOMBRE' + - '_COMERCIAL, ES_ACREEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_I' + - 'VA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO, :I' + - 'D_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLOGADO, :CERTI' + - 'FICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDAD, :TIENE_SU' + - 'BCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR)'#10 + '_COMERCIAL, ES_ACREEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO' + + '_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR' + + ', :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_' + + 'ASIGNADO, :ID_TIPO_IVA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :HOMOLO' + + 'GADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :IGNORAR_CONTABILIDA' + + 'D, :TIENE_SUBCUENTA, :NOMBRE_COMERCIAL, :ES_ACREEDOR,'#10' :VENCI' + + 'MIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURA' + + 'S_3)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3105,6 +3182,18 @@ object srvContactos: TsrvContactos Name = 'ES_ACREEDOR' Value = '' end + item + Name = 'VENCIMIENTO_FACTURAS_1' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + Value = '' + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + Value = '' + end item Name = 'OLD_ID_PROVEEDOR' Value = '' @@ -3123,7 +3212,10 @@ object srvContactos: TsrvContactos ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' IGNORAR_CONTABILIDAD ' + '= :IGNORAR_CONTABILIDAD,'#10' TIENE_SUBCUENTA = :TIENE_SUBCUENTA,' + #10' NOMBRE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' ES_ACREEDOR = :ES' + - '_ACREEDOR'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10 + '_ACREEDOR,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,' + + #10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCI' + + 'MIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROV' + + 'EEDOR = :OLD_ID_PROVEEDOR)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.dfm b/Source/Modulos/Contactos/Views/uEditorCliente.dfm index 2135597c..19ee00cc 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm @@ -65,7 +65,7 @@ inherited fEditorCliente: TfEditorCliente inherited pgPaginas: TPageControl Width = 890 Height = 544 - ActivePage = pagContabilidad + ActivePage = pagDatosComerciales ExplicitWidth = 890 ExplicitHeight = 544 inherited pagGeneral: TTabSheet @@ -112,44 +112,44 @@ inherited fEditorCliente: TfEditorCliente ExplicitTop = 162 end inherited eCalle: TcxDBTextEdit + Top = 216 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitTop = 216 + ExplicitWidth = 428 + Width = 428 + end + inherited cbProvincia: TcxDBComboBox Top = 243 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 243 - ExplicitWidth = 428 - Width = 428 + ExplicitWidth = 336 + Width = 336 end - inherited cbProvincia: TcxDBComboBox + inherited cbPoblacion: TcxDBComboBox Top = 270 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 270 - ExplicitWidth = 336 - Width = 336 - end - inherited cbPoblacion: TcxDBComboBox - Top = 297 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitTop = 297 ExplicitWidth = 428 Width = 428 end inherited eCodigoPostal: TcxDBTextEdit Left = 504 - Top = 270 + Top = 243 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 504 - ExplicitTop = 270 + ExplicitTop = 243 end inherited eObservaciones: TcxDBMemo Top = 426 @@ -342,12 +342,12 @@ inherited fEditorCliente: TfEditorCliente Width = 104 end inherited ePersonaContacto: TcxDBTextEdit - Top = 216 + Top = 297 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitTop = 216 + ExplicitTop = 297 ExplicitWidth = 428 Width = 428 end @@ -429,6 +429,38 @@ inherited fEditorCliente: TfEditorCliente end end end + inherited pagPersonal: TTabSheet + ExplicitWidth = 882 + ExplicitHeight = 516 + inherited frViewPersonalContacto1: TfrViewPersonalContacto + Width = 882 + Height = 516 + ExplicitWidth = 882 + ExplicitHeight = 516 + inherited cxGrid: TcxGrid + Width = 882 + Height = 491 + ExplicitWidth = 882 + ExplicitHeight = 491 + end + inherited ToolBar1: TToolBar + Width = 882 + ExplicitWidth = 882 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end + end + end + end object pagDatosComerciales: TTabSheet Caption = 'Datos comerciales' ImageIndex = 4 @@ -455,27 +487,8 @@ inherited fEditorCliente: TfEditorCliente ExplicitWidth = 882 ExplicitHeight = 193 inherited Label1: TLabel - Left = 570 - Top = 30 - Width = 281 - Caption = - 'Puede indicar el d'#237'a del mes que el cliente desea realizar el pa' + - 'go de sus recibos.' - ExplicitLeft = 570 - ExplicitTop = 30 - ExplicitWidth = 281 end inherited eDiasVencimiento: TcxDBSpinEdit - Left = 696 - Top = 62 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 696 - ExplicitTop = 62 - ExplicitWidth = 160 - Width = 160 end inherited cbRegimenIVA: TcxDBComboBox Top = 30 @@ -508,9 +521,9 @@ inherited fEditorCliente: TfEditorCliente Width = 289 end inherited bFormasPago: TButton - Left = 410 + Left = 415 Top = 57 - ExplicitLeft = 410 + ExplicitLeft = 415 ExplicitTop = 57 end inherited eIVA: TcxDBLookupComboBox @@ -524,15 +537,15 @@ inherited fEditorCliente: TfEditorCliente Width = 289 end inherited bTiposIVA: TButton - Left = 410 + Left = 415 Top = 84 - ExplicitLeft = 410 + ExplicitLeft = 415 ExplicitTop = 84 end inherited dxLayoutGroup1: TdxLayoutGroup inherited dxLayoutControl1Group5: TdxLayoutGroup inherited dxLayoutControl1Item2: TdxLayoutItem - Caption = 'D'#237'a del mes para el pago:' + Caption = 'D'#237'a del mes 1:' end end end diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas index ebcdb4c5..afc5677f 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.pas +++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas @@ -14,7 +14,8 @@ uses uIEditorCliente, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos, uViewContactoDatosBancarios, dxLayoutLookAndFeels, - uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto; + uViewClienteDatosComerciales, uDAInterfaces, uViewSubCuentaContacto, + uViewPersonalContacto; type TfEditorCliente = class(TfEditorContacto, IEditorCliente) diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index ae3f96b6..730f3f14 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -55,7 +55,7 @@ inherited fEditorProveedor: TfEditorProveedor inherited pgPaginas: TPageControl Width = 642 Height = 489 - ActivePage = PagContabilidad + ActivePage = pagDatosComerciales ExplicitWidth = 642 ExplicitHeight = 489 inherited pagGeneral: TTabSheet @@ -102,44 +102,44 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitTop = 162 end inherited eCalle: TcxDBTextEdit + Top = 216 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitTop = 216 + ExplicitWidth = 174 + Width = 174 + end + inherited cbProvincia: TcxDBComboBox Top = 243 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 243 - ExplicitWidth = 174 - Width = 174 + ExplicitWidth = 175 + Width = 175 end - inherited cbProvincia: TcxDBComboBox + inherited cbPoblacion: TcxDBComboBox Top = 270 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 270 - ExplicitWidth = 175 - Width = 175 - end - inherited cbPoblacion: TcxDBComboBox - Top = 297 - Style.LookAndFeel.SkinName = '' - StyleDisabled.LookAndFeel.SkinName = '' - StyleFocused.LookAndFeel.SkinName = '' - StyleHot.LookAndFeel.SkinName = '' - ExplicitTop = 297 ExplicitWidth = 267 Width = 267 end inherited eCodigoPostal: TcxDBTextEdit Left = 310 - Top = 270 + Top = 243 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' ExplicitLeft = 310 - ExplicitTop = 270 + ExplicitTop = 243 end inherited eObservaciones: TcxDBMemo Top = 426 @@ -332,12 +332,12 @@ inherited fEditorProveedor: TfEditorProveedor Width = 100 end inherited ePersonaContacto: TcxDBTextEdit - Top = 216 + Top = 297 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitTop = 216 + ExplicitTop = 297 ExplicitWidth = 253 Width = 253 end @@ -419,6 +419,38 @@ inherited fEditorProveedor: TfEditorProveedor end end end + inherited pagPersonal: TTabSheet + ExplicitWidth = 634 + ExplicitHeight = 461 + inherited frViewPersonalContacto1: TfrViewPersonalContacto + Width = 634 + Height = 461 + ExplicitWidth = 634 + ExplicitHeight = 461 + inherited cxGrid: TcxGrid + Width = 634 + Height = 436 + ExplicitWidth = 634 + ExplicitHeight = 436 + end + inherited ToolBar1: TToolBar + Width = 634 + ExplicitWidth = 634 + inherited ToolButton1: TToolButton + ExplicitWidth = 62 + end + inherited ToolButton4: TToolButton + ExplicitWidth = 74 + end + inherited ToolButton2: TToolButton + ExplicitWidth = 67 + end + inherited ToolButton7: TToolButton + ExplicitWidth = 117 + end + end + end + end object pagDatosComerciales: TTabSheet Caption = 'Datos comerciales' ImageIndex = 2 @@ -426,7 +458,7 @@ inherited fEditorProveedor: TfEditorProveedor Left = 0 Top = 0 Width = 634 - Height = 121 + Height = 225 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -437,19 +469,25 @@ inherited fEditorProveedor: TfEditorProveedor TabOrder = 0 ReadOnly = False ExplicitWidth = 634 - ExplicitHeight = 121 + ExplicitHeight = 225 inherited dxLayoutControl1: TdxLayoutControl Width = 634 LookAndFeel = dxLayoutOfficeLookAndFeel ExplicitWidth = 634 inherited Label1: TLabel - Left = 412 - Top = 30 + Top = 135 Width = 190 - ExplicitLeft = 412 - ExplicitTop = 30 + ExplicitTop = 135 ExplicitWidth = 190 end + inherited Label2: TLabel + Left = 394 + Top = 30 + Width = 149 + ExplicitLeft = 394 + ExplicitTop = 30 + ExplicitWidth = 149 + end inherited cbRegimenIVA: TcxDBComboBox Top = 30 Style.LookAndFeel.SkinName = '' @@ -471,9 +509,9 @@ inherited fEditorProveedor: TfEditorProveedor Width = 121 end inherited bFormasPago: TButton - Left = 252 + Left = 234 Top = 57 - ExplicitLeft = 252 + ExplicitLeft = 234 ExplicitTop = 57 end inherited eIVA: TcxDBLookupComboBox @@ -487,23 +525,57 @@ inherited fEditorProveedor: TfEditorProveedor Width = 121 end inherited bTiposIVA: TButton - Left = 252 + Left = 234 Top = 84 - ExplicitLeft = 252 + ExplicitLeft = 234 ExplicitTop = 84 end inherited eDescuento: TcxDBSpinEdit - Left = 456 - Top = 62 + Top = 167 Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' - ExplicitLeft = 456 - ExplicitTop = 62 + ExplicitTop = 167 ExplicitWidth = 73 Width = 73 end + inherited eDiasVencimiento1: TcxDBSpinEdit + Left = 466 + Top = 75 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 466 + ExplicitTop = 75 + ExplicitWidth = 79 + Width = 79 + end + inherited eDiasVencimiento2: TcxDBSpinEdit + Left = 466 + Top = 102 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 466 + ExplicitTop = 102 + ExplicitWidth = 79 + Width = 79 + end + inherited eDiasVencimiento3: TcxDBSpinEdit + Left = 466 + Top = 129 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 466 + ExplicitTop = 129 + ExplicitWidth = 79 + Width = 79 + end end end end diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas index 64023043..6b442939 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.pas +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.pas @@ -14,7 +14,8 @@ uses cxSpinEdit, cxDBEdit, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar, dxLayoutLookAndFeels, uViewContactoDatosBancarios, uBizContactos, uViewProveedorDatosComerciales, uViewDetallesGenerico, uViewDireccionesEntrega, - uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls; + uDAInterfaces, uViewSubCuentaContacto, StdCtrls, DBCtrls, + uViewPersonalContacto; type TfEditorProveedor = class(TfEditorContacto, IEditorProveedor) diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm index 982c83fe..95d852ed 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm @@ -16,20 +16,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales TabStop = False AutoContentSizes = [acsWidth] object Label1: TLabel - Left = 317 + Left = 327 Top = 28 - Width = 299 + Width = 277 Height = 26 Caption = - 'Puede indicar los d'#237'as de vencimiento predeterminados que se uti' + - 'lizar'#225'n para las facturas de este cliente.' + 'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' + + 'agos.' Transparent = True WordWrap = True end object eDiasVencimiento: TcxDBSpinEdit - Left = 384 + Left = 404 Top = 60 - DataBinding.DataField = 'VENCIMIENTO_FACTURAS' + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' DataBinding.DataSource = dsDatosComerciales Properties.AssignedValues.MinValue = True Properties.ImmediatePost = True @@ -38,13 +38,17 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 6 Width = 79 end @@ -62,14 +66,18 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 180 end @@ -88,12 +96,16 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 5 Width = 180 end @@ -118,19 +130,23 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 42 end object bFormasPago: TButton - Left = 155 + Left = 165 Top = 55 Width = 132 Height = 21 @@ -159,19 +175,23 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 Width = 42 end object bTiposIVA: TButton - Left = 155 + Left = 165 Top = 82 Width = 132 Height = 21 @@ -179,6 +199,58 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales TabOrder = 4 OnClick = bTiposIVAClick end + object cxDBSpinEdit1: TcxDBSpinEdit + Left = 404 + Top = 87 + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2' + DataBinding.DataSource = dsDatosComerciales + Properties.AssignedValues.MinValue = True + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 7 + Width = 79 + end + object cxDBSpinEdit2: TcxDBSpinEdit + Left = 404 + Top = 114 + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3' + DataBinding.DataSource = dsDatosComerciales + Properties.AssignedValues.MinValue = True + Properties.ImmediatePost = True + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 8 + Width = 79 + end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True @@ -248,6 +320,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales AutoAligns = [aaVertical] AlignHorz = ahClient Caption = 'Datos para facturaci'#243'n' + Visible = False object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient @@ -259,10 +332,22 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales end object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] - Caption = 'D'#237'as de vto.:' + Caption = 'D'#237'as del mes 1:' Control = eDiasVencimiento ControlOptions.ShowBorder = False end + object dxLayoutControl1Item1: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 2:' + Control = cxDBSpinEdit1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item10: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 3:' + Control = cxDBSpinEdit2 + ControlOptions.ShowBorder = False + end end end end diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas index e2041b2d..cd61d080 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas @@ -45,6 +45,10 @@ type dsTiposIVA: TDADataSource; dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup; + dxLayoutControl1Item1: TdxLayoutItem; + cxDBSpinEdit1: TcxDBSpinEdit; + dxLayoutControl1Item10: TdxLayoutItem; + cxDBSpinEdit2: TcxDBSpinEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); diff --git a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm index 042a830c..7a912997 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm @@ -1,23 +1,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Width = 642 - Height = 266 + Height = 241 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 642 - ExplicitHeight = 266 + ExplicitHeight = 241 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 642 - Height = 129 + Height = 225 Align = alTop ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth] object Label1: TLabel - Left = 417 - Top = 28 + Left = 22 + Top = 139 Width = 190 Height = 26 Caption = @@ -26,6 +26,17 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Transparent = True WordWrap = True end + object Label2: TLabel + Left = 453 + Top = 28 + Width = 149 + Height = 39 + Caption = + 'Puede indicar el d'#237'a del mes en el cual el proveedor realiza los' + + ' cobros.' + Transparent = True + WordWrap = True + end object cbRegimenIVA: TcxDBComboBox Left = 107 Top = 28 @@ -40,14 +51,18 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 0 Width = 280 end @@ -70,19 +85,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 1 Width = 142 end object bFormasPago: TButton - Left = 255 + Left = 291 Top = 55 Width = 132 Height = 21 @@ -109,19 +128,23 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D Style.PopupBorderStyle = epbsFrame3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 3 Width = 142 end object bTiposIVA: TButton - Left = 255 + Left = 291 Top = 82 Width = 132 Height = 21 @@ -130,8 +153,8 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales OnClick = bTiposIVAClick end object eDescuento: TcxDBSpinEdit - Left = 461 - Top = 60 + Left = 107 + Top = 171 DataBinding.DataField = 'DESCUENTO' DataBinding.DataSource = dsDatosComerciales Style.BorderColor = clWindowFrame @@ -139,90 +162,211 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Style.HotTrack = False Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' Style.ButtonStyle = bts3D StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' TabOrder = 5 Width = 159 end + object eDiasVencimiento1: TcxDBSpinEdit + Left = 525 + Top = 73 + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' + DataBinding.DataSource = dsDatosComerciales + Properties.DisplayFormat = '##' + Properties.ImmediatePost = True + Properties.SpinButtons.Visible = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 6 + Width = 79 + end + object eDiasVencimiento2: TcxDBSpinEdit + Left = 525 + Top = 100 + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_2' + DataBinding.DataSource = dsDatosComerciales + Properties.DisplayFormat = '##' + Properties.ImmediatePost = True + Properties.SpinButtons.Visible = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 7 + Width = 79 + end + object eDiasVencimiento3: TcxDBSpinEdit + Left = 525 + Top = 127 + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_3' + DataBinding.DataSource = dsDatosComerciales + Properties.DisplayFormat = '##' + Properties.ImmediatePost = True + Properties.SpinButtons.Visible = False + Style.BorderColor = clWindowFrame + Style.BorderStyle = ebs3D + Style.HotTrack = False + Style.LookAndFeel.Kind = lfStandard + Style.LookAndFeel.NativeStyle = True + Style.LookAndFeel.SkinName = '' + Style.ButtonStyle = bts3D + StyleDisabled.LookAndFeel.Kind = lfStandard + StyleDisabled.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.Kind = lfStandard + StyleFocused.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.Kind = lfStandard + StyleHot.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.SkinName = '' + TabOrder = 8 + Width = 79 + end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False Hidden = True LayoutDirection = ldHorizontal ShowBorder = False - object dxLayoutControl1Group3: TdxLayoutGroup + object dxLayoutControl1Group6: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Datos comerciales' - object dxLayoutControl1Item3: TdxLayoutItem + ShowCaption = False + Hidden = True + ShowBorder = False + object dxLayoutControl1Group3: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'R'#233'gimen de IVA:' - Control = cbRegimenIVA - ControlOptions.ShowBorder = False - end - object dxLayoutControl1Group2: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item5: TdxLayoutItem + Caption = 'Datos comerciales' + object dxLayoutControl1Item3: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Forma de pago:' - Control = cbFormaPago + Caption = 'R'#233'gimen de IVA:' + Control = cbRegimenIVA ControlOptions.ShowBorder = False end - object dxLayoutControl1Item7: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - Caption = 'Button1' + object dxLayoutControl1Group2: TdxLayoutGroup ShowCaption = False - Control = bFormasPago - ControlOptions.ShowBorder = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item5: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Forma de pago:' + Control = cbFormaPago + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item7: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + Caption = 'Button1' + ShowCaption = False + Control = bFormasPago + ControlOptions.ShowBorder = False + end + end + object dxLayoutControl1Group1: TdxLayoutGroup + ShowCaption = False + Hidden = True + LayoutDirection = ldHorizontal + ShowBorder = False + object dxLayoutControl1Item8: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'IVA por defecto' + Control = eIVA + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item9: TdxLayoutItem + AutoAligns = [aaVertical] + AlignHorz = ahRight + ShowCaption = False + Control = bTiposIVA + ControlOptions.ShowBorder = False + end end end - object dxLayoutControl1Group1: TdxLayoutGroup - ShowCaption = False - Hidden = True - LayoutDirection = ldHorizontal - ShowBorder = False - object dxLayoutControl1Item8: TdxLayoutItem + object dxLayoutControl1Group5: TdxLayoutGroup + AutoAligns = [aaVertical] + AlignHorz = ahClient + Caption = 'Descuento por defecto' + object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'IVA por defecto' - Control = eIVA + Caption = 'Label1' + ShowCaption = False + Control = Label1 + ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end - object dxLayoutControl1Item9: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahRight - ShowCaption = False - Control = bTiposIVA + object dxLayoutControl1Item10: TdxLayoutItem + Caption = '% Dto.:' + Control = eDescuento ControlOptions.ShowBorder = False end end end - object dxLayoutControl1Group5: TdxLayoutGroup + object dxLayoutControl1Group4: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Descuento por defecto' - object dxLayoutControl1Item6: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'Label1' + Caption = 'Datos para facturaci'#243'n' + object dxLayoutControl1Item1: TdxLayoutItem ShowCaption = False - Control = Label1 + Control = Label2 ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end - object dxLayoutControl1Item10: TdxLayoutItem - Caption = '% Dto.:' - Control = eDescuento + object dxLayoutControl1Item2: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'Dia del mes 1:' + Control = eDiasVencimiento1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item4: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 2:' + Control = eDiasVencimiento2 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item11: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 3:' + Control = eDiasVencimiento3 ControlOptions.ShowBorder = False end end diff --git a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas index 3e3d4b86..5266db8c 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas @@ -43,6 +43,16 @@ type dxLayoutControl1Group2: TdxLayoutGroup; dxLayoutControl1Item10: TdxLayoutItem; eDescuento: TcxDBSpinEdit; + dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutControl1Group6: TdxLayoutGroup; + dxLayoutControl1Item1: TdxLayoutItem; + Label2: TLabel; + dxLayoutControl1Item2: TdxLayoutItem; + eDiasVencimiento1: TcxDBSpinEdit; + dxLayoutControl1Item4: TdxLayoutItem; + eDiasVencimiento2: TcxDBSpinEdit; + dxLayoutControl1Item11: TdxLayoutItem; + eDiasVencimiento3: TcxDBSpinEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject);