From a4fc979e7859185a57d31a46e33238102aad452b Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 25 Sep 2008 17:28:31 +0000 Subject: [PATCH] =?UTF-8?q?Se=20adapta=20fichas=20de=20cliente=20y=20prove?= =?UTF-8?q?edor=20para=20que=20tengan=203=20d=C3=ADas=20de=20pago=20para?= =?UTF-8?q?=20los=20recibos=20y=20al=20generar=20la=20facturas=20se=20util?= =?UTF-8?q?izaran=20los=203.?= 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.Tecsitel_FactuGES2/trunk@626 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Contactos/Data/uDataModuleClientes.dfm | 14 +- .../Contactos/Data/uDataModuleProveedores.dfm | 12 + .../Model/schContactosClient_Intf.pas | 293 ++++++++++++--- .../Model/schContactosServer_Intf.pas | 319 +++++++++++++--- .../Contactos/Model/uBizClientesServer.pas | 11 +- .../Modulos/Contactos/Model/uBizContactos.pas | 120 +++++- .../Contactos/Model/uBizProveedoresServer.pas | 12 +- .../Contactos/Servidor/srvContactos_Impl.dfm | 157 ++++++-- .../Contactos/Views/uEditorCliente.dfm | 319 ++++++++++------ .../Contactos/Views/uEditorCliente.pas | 2 +- .../Contactos/Views/uEditorContacto.dfm | 6 +- .../Contactos/Views/uEditorContacto.pas | 2 +- .../Contactos/Views/uEditorProveedor.dfm | 346 +++++++++++++----- .../Contactos/Views/uEditorProveedor.pas | 3 +- .../Views/uViewClienteDatosComerciales.dfm | 98 ++++- .../Views/uViewClienteDatosComerciales.pas | 6 +- .../Views/uViewProveedorDatosComerciales.dfm | 192 ++++++++-- .../Views/uViewProveedorDatosComerciales.pas | 13 +- .../Controller/uFacturasClienteController.pas | 39 +- .../uFacturasProveedorController.pas | 29 +- Source/Servidor/FactuGES_Server.RES | Bin 23208 -> 23212 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/uDataModuleServer.dfm | 4 +- 24 files changed, 1562 insertions(+), 443 deletions(-) diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index 7ad3339b..549ffa45 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -352,10 +352,16 @@ inherited DataModuleClientes: TDataModuleClientes DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' end item - Name = 'VENCIMIENTO_FACTURAS' - DataType = datInteger - DisplayLabel = 'Vencimiento' - DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS' + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datSmallInt end item Name = 'BLOQUEADO' diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm index 361fd8c6..8cf87ef0 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm @@ -281,6 +281,18 @@ inherited DataModuleProveedores: TDataModuleProveedores DataType = datSmallInt DisplayLabel = 'Subcontrata' DictionaryEntry = 'Proveedores_SUBCONTRATA' + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datSmallInt end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index 0a33f18d..3ae97470 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_Contactos = '{BA38FE66-615B-443E-AC3B-35C54BDAFC7A}'; - RID_GruposCliente = '{ECDB7613-9634-41F2-A3E9-ACFC9A17B4F5}'; - RID_DatosBancarios = '{77786226-ACA0-48D9-AA44-100AA432FDEF}'; - RID_Clientes = '{6F4ADF37-1957-4D1E-B7E0-659C9DC9B27D}'; - RID_Proveedores = '{58992D88-A743-479E-BE3F-183331F83BEA}'; - RID_Empleados = '{D2941064-ABFB-4CE5-8832-8683F90888A8}'; - RID_DireccionesContacto = '{2FE736C9-BBC8-43AB-88FC-A6675E0644B2}'; - RID_ClientesDescuentos = '{F0E0984F-17C9-4C7D-8D57-18ED1698C080}'; - RID_GruposProveedor = '{FFA4AEFF-DC59-4422-9CFA-28857080FC60}'; - RID_GruposEmpleado = '{43140B72-AFD6-404D-A094-8612B4E8934D}'; - RID_Contactos_Refresh = '{301DA664-5CB6-4311-91C7-A12C42F115B1}'; - RID_ContratosEmpleados = '{49DF13A6-2C5B-4F25-A3CE-7326FAB32B84}'; - RID_DescripcionesProveedores = '{83FBF40E-6287-46F5-BFAF-C6D92FE7AF4F}'; - RID_PersonalContacto = '{0BF3EDA4-836A-4340-9F68-0C3312527D0B}'; + RID_Contactos = '{88717C58-84A8-470B-8059-994AF283CC87}'; + RID_GruposCliente = '{90F0D80D-0042-409F-A93C-D60BD9489A4E}'; + RID_DatosBancarios = '{41C82024-6751-44B3-86F0-E9B28C80A41E}'; + RID_Clientes = '{9BCF75EE-2AB3-4C30-9011-34AC743797E4}'; + RID_Proveedores = '{8E2A120D-0C53-448B-8D16-B6CB84FD1460}'; + RID_Empleados = '{DD85830B-87E7-4DD3-AF23-8275488E4FEE}'; + RID_DireccionesContacto = '{D8B8A3EE-3456-4C88-BED6-4E4D72D6298C}'; + RID_ClientesDescuentos = '{1662F266-6825-4D7F-9997-9C51E1C93268}'; + RID_GruposProveedor = '{82427930-F4BB-4FE4-9518-C4F54C0F1D2B}'; + RID_GruposEmpleado = '{F3BFF021-A070-412E-9598-663C15F3B32E}'; + RID_Contactos_Refresh = '{0CE3BACA-C2F3-40AB-90B2-96A8C154F878}'; + RID_ContratosEmpleados = '{7156547B-6339-4D6F-9C67-7AB4D18C9287}'; + RID_DescripcionesProveedores = '{69CF40B3-A1ED-49EA-8FF9-A290DCF31967}'; + RID_PersonalContacto = '{9CED0719-51EC-481B-99D3-9D5091DED177}'; { Data table names } nme_Contactos = 'Contactos'; @@ -146,7 +146,9 @@ const fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; - fld_ClientesVENCIMIENTO_FACTURAS = 'VENCIMIENTO_FACTURAS'; + fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; + fld_ClientesVENCIMIENTO_FACTURAS_2 = 'VENCIMIENTO_FACTURAS_2'; + fld_ClientesVENCIMIENTO_FACTURAS_3 = 'VENCIMIENTO_FACTURAS_3'; fld_ClientesBLOQUEADO = 'BLOQUEADO'; fld_ClientesREGIMEN_IVA = 'REGIMEN_IVA'; fld_ClientesMOTIVO_BLOQUEO = 'MOTIVO_BLOQUEO'; @@ -183,16 +185,18 @@ const idx_ClientesREFERENCIA = 22; idx_ClientesGRUPO_CLIENTE = 23; idx_ClientesNOMBRE_COMERCIAL = 24; - idx_ClientesVENCIMIENTO_FACTURAS = 25; - idx_ClientesBLOQUEADO = 26; - idx_ClientesREGIMEN_IVA = 27; - idx_ClientesMOTIVO_BLOQUEO = 28; - idx_ClientesRECARGO_EQUIVALENCIA = 29; - idx_ClientesID_TIPO_IVA = 30; - idx_ClientesID_FORMA_PAGO = 31; - idx_ClientesTIENDA_WEB = 32; - idx_ClientesCODIGO_ASIGNADO = 33; - idx_ClientesDESCUENTO = 34; + idx_ClientesVENCIMIENTO_FACTURAS_1 = 25; + idx_ClientesVENCIMIENTO_FACTURAS_2 = 26; + idx_ClientesVENCIMIENTO_FACTURAS_3 = 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_ClientesDESCUENTO = 36; { Proveedores fields } fld_ProveedoresID = 'ID'; @@ -229,6 +233,9 @@ const fld_ProveedoresHOMOLOGADO = 'HOMOLOGADO'; fld_ProveedoresCERTIFICACION = 'CERTIFICACION'; fld_ProveedoresSUBCONTRATA = 'SUBCONTRATA'; + 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; @@ -265,6 +272,9 @@ const idx_ProveedoresHOMOLOGADO = 31; idx_ProveedoresCERTIFICACION = 32; idx_ProveedoresSUBCONTRATA = 33; + idx_ProveedoresVENCIMIENTO_FACTURAS_1 = 34; + idx_ProveedoresVENCIMIENTO_FACTURAS_2 = 35; + idx_ProveedoresVENCIMIENTO_FACTURAS_3 = 36; { Empleados fields } fld_EmpleadosID = 'ID'; @@ -489,7 +499,7 @@ const type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{411FE58B-C504-42A1-881E-C645A05E3996}'] + ['{3D3289B5-C0D5-4B66-8805-D141DFD0F3B5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -788,7 +798,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{7C7B3A92-D0E8-4041-91B0-BFBED35FAAF1}'] + ['{D1AF4F9C-B92D-4F21-9443-BBCD429BD57A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -835,7 +845,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{0262BC83-1F74-45D2-A847-0E0348C36252}'] + ['{76A6EA81-8519-43E0-852F-FEBD576D1356}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -966,7 +976,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{9799E066-6E73-47CC-A9A4-9E816290C1D6}'] + ['{90497427-B985-42B3-86FE-B131BFB87831}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1067,10 +1077,18 @@ 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 GetVENCIMIENTO_FACTURAS_1Value: SmallInt; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); function GetBLOQUEADOValue: SmallInt; procedure SetBLOQUEADOValue(const aValue: SmallInt); function GetBLOQUEADOIsNull: Boolean; @@ -1160,8 +1178,12 @@ 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 VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; @@ -1288,10 +1310,18 @@ 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 GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; procedure SetBLOQUEADOValue(const aValue: SmallInt); virtual; function GetBLOQUEADOIsNull: Boolean; virtual; @@ -1380,8 +1410,12 @@ 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 VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO: SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull: Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; @@ -1409,7 +1443,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{7EBD5AEC-9F83-44E3-A329-B74A389C9814}'] + ['{250B746E-0268-4403-B61C-8DA02AB23E18}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1546,6 +1580,18 @@ type procedure SetSUBCONTRATAValue(const aValue: SmallInt); function GetSUBCONTRATAIsNull: Boolean; procedure SetSUBCONTRATAIsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); + function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); { Properties } @@ -1617,6 +1663,12 @@ type property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; + property VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; + property VENCIMIENTO_FACTURAS_3IsNull: Boolean read GetVENCIMIENTO_FACTURAS_3IsNull write SetVENCIMIENTO_FACTURAS_3IsNull; end; { TProveedoresDataTableRules } @@ -1761,6 +1813,18 @@ type procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual; function GetSUBCONTRATAIsNull: Boolean; virtual; procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -1831,6 +1895,12 @@ type property CERTIFICACIONIsNull: Boolean read GetCERTIFICACIONIsNull write SetCERTIFICACIONIsNull; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; property SUBCONTRATAIsNull: Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; + property VENCIMIENTO_FACTURAS_1: SmallInt 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: SmallInt 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: SmallInt 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; @@ -1840,7 +1910,7 @@ type { IEmpleados } IEmpleados = interface(IDAStronglyTypedDataTable) - ['{7FADA31E-8655-459C-83CF-22C5B4E04828}'] + ['{3614AEDF-A5C6-49A3-9224-018A2080B884}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2271,7 +2341,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{5B3F654F-2625-40E8-A6F7-F83DE29B3AF2}'] + ['{14C481DB-4878-4FF1-A4A0-1F6A1CA94358}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2486,7 +2556,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{5DA8AAC1-7E71-496C-83E2-CB4A5DEA2D89}'] + ['{D833E457-3E68-4FB7-B2A3-30DB1FA76212}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2569,7 +2639,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{AF7D8134-2E25-47ED-B907-F122AAECFDC4}'] + ['{6AE5C79F-BE48-4B9D-9B76-D4DDA6C1F9BD}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2616,7 +2686,7 @@ type { IGruposEmpleado } IGruposEmpleado = interface(IDAStronglyTypedDataTable) - ['{6D69900D-66A4-45F4-B39D-F553E5040214}'] + ['{5D14CA3F-E109-4CB0-8A5B-21D6FB2C08E0}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2663,7 +2733,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{E71CEE7C-252B-4AD6-952F-1D4A6DCCB33C}'] + ['{2929B073-299D-4AE6-8549-239C114B6773}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2938,7 +3008,7 @@ type { IContratosEmpleados } IContratosEmpleados = interface(IDAStronglyTypedDataTable) - ['{31774D76-B4F1-4DC8-9A99-040A137AC446}'] + ['{EA7CCC36-96F3-4B1D-8F78-D03AF5C0E35F}'] { Property getters and setters } function GetCONTRATOValue: String; procedure SetCONTRATOValue(const aValue: String); @@ -2973,7 +3043,7 @@ type { IDescripcionesProveedores } IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) - ['{EAFB7FCC-50C5-49F7-9A09-F407F1BCEEAC}'] + ['{18711C3F-5D12-4EE5-9BF3-9447FA00C6B1}'] { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); @@ -3008,7 +3078,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{A05D0D86-2240-4E70-95EC-C4C0252EDB5F}'] + ['{1D234231-A4D4-4114-B9C2-FADD996CBF04}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -4453,25 +4523,67 @@ begin DataTable.Fields[idx_ClientesNOMBRE_COMERCIAL].AsVariant := Null; end; -function TClientesDataTableRules.GetVENCIMIENTO_FACTURASValue: Integer; +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin - result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt; end; -procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin - DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue; end; -function TClientesDataTableRules.GetVENCIMIENTO_FACTURASIsNull: boolean; +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_1IsNull: boolean; begin - result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].IsNull; + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].IsNull; end; -procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then - DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsVariant := Null; + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsVariant := Null; +end; + +function TClientesDataTableRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt := 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: SmallInt; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt; +end; + +procedure TClientesDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt := 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; function TClientesDataTableRules.GetBLOQUEADOValue: SmallInt; @@ -5396,6 +5508,69 @@ begin DataTable.Fields[idx_ProveedoresSUBCONTRATA].AsVariant := Null; end; +function TProveedoresDataTableRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt := 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: SmallInt; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt := 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: SmallInt; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt; +end; + +procedure TProveedoresDataTableRules.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt := 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; + { TEmpleadosDataTableRules } constructor TEmpleadosDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 9b253407..363172c0 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_ContactosDelta = '{76362088-C1EE-4136-B602-2F4FE5B4E65F}'; - RID_GruposClienteDelta = '{4E47FE40-C579-45F2-8D30-E8A67549374E}'; - RID_DatosBancariosDelta = '{155E0B8B-5958-4383-A845-188DCB34D694}'; - RID_ClientesDelta = '{DD3F0937-1632-4E02-81AA-D9F9DB99752E}'; - RID_ProveedoresDelta = '{E1C41362-DAC0-4923-AF1B-3E7151FCB617}'; - RID_EmpleadosDelta = '{BB760188-169E-4A71-85E1-76DACB9C2960}'; - RID_DireccionesContactoDelta = '{9DB84202-F502-4E91-8182-C05343B87D04}'; - RID_ClientesDescuentosDelta = '{34323D2F-6886-4CE0-B598-715E117C439C}'; - RID_GruposProveedorDelta = '{E5D84743-C153-4EE6-8F3B-66D11843D594}'; - RID_GruposEmpleadoDelta = '{9BEC700D-7D02-415D-8BCE-A5230A37D7DB}'; - RID_Contactos_RefreshDelta = '{9B20DE7E-89CE-41AE-910E-8B2A8C93976B}'; - RID_ContratosEmpleadosDelta = '{9EDC7470-B7F4-4DC6-8329-7D7AD29B6770}'; - RID_DescripcionesProveedoresDelta = '{BA14BEED-A34C-4CF6-937B-7491E24D854B}'; - RID_PersonalContactoDelta = '{2C7A84B7-C510-47E2-8975-3EC5F7BA0BC4}'; + RID_ContactosDelta = '{1C5B32B2-64A7-46DC-80ED-D55EC2EAB36E}'; + RID_GruposClienteDelta = '{DBE23906-43B6-40D4-89A6-8C43DE5D0199}'; + RID_DatosBancariosDelta = '{38A6CAFD-4A4A-4428-8FBD-B69CDA95CD55}'; + RID_ClientesDelta = '{64BFD4A6-E90F-4DA2-B05F-5F502159D5A0}'; + RID_ProveedoresDelta = '{1670C1F4-BF8D-452C-842A-B0ED16A60DC0}'; + RID_EmpleadosDelta = '{3A92EF9C-7A9F-4B3D-8DFF-D64D46E5AD46}'; + RID_DireccionesContactoDelta = '{C30F8EFB-4A0F-42B8-9F1F-6278977F2027}'; + RID_ClientesDescuentosDelta = '{77E7EAAB-0BAB-4FC2-A30D-D829675B9158}'; + RID_GruposProveedorDelta = '{EFDF5B68-9988-4B1F-BAAB-58D7364DBF52}'; + RID_GruposEmpleadoDelta = '{3E423ADF-172F-41AD-B354-2E4B5527CCDA}'; + RID_Contactos_RefreshDelta = '{76D97E59-A5FC-4DE6-8562-180558DF00C0}'; + RID_ContratosEmpleadosDelta = '{9779B5A3-C2B5-45B6-A303-D965A44A0A20}'; + RID_DescripcionesProveedoresDelta = '{E4568314-2296-4F51-8A69-5D98C83B7D6F}'; + RID_PersonalContactoDelta = '{EA96B4AB-F363-4868-88B7-D29F001991C5}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{76362088-C1EE-4136-B602-2F4FE5B4E65F}'] + ['{1C5B32B2-64A7-46DC-80ED-D55EC2EAB36E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -326,7 +326,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{4E47FE40-C579-45F2-8D30-E8A67549374E}'] + ['{DBE23906-43B6-40D4-89A6-8C43DE5D0199}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -372,7 +372,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{155E0B8B-5958-4383-A845-188DCB34D694}'] + ['{38A6CAFD-4A4A-4428-8FBD-B69CDA95CD55}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -502,7 +502,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{DD3F0937-1632-4E02-81AA-D9F9DB99752E}'] + ['{64BFD4A6-E90F-4DA2-B05F-5F502159D5A0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -529,7 +529,9 @@ type function GetOldREFERENCIAValue : String; function GetOldGRUPO_CLIENTEValue : String; function GetOldNOMBRE_COMERCIALValue : String; - function GetOldVENCIMIENTO_FACTURASValue : Integer; + function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; + function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt; + function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt; function GetOldBLOQUEADOValue : SmallInt; function GetOldREGIMEN_IVAValue : String; function GetOldMOTIVO_BLOQUEOValue : String; @@ -566,7 +568,9 @@ type property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; - property OldVENCIMIENTO_FACTURAS : Integer read GetOldVENCIMIENTO_FACTURASValue; + property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldMOTIVO_BLOQUEO : String read GetOldMOTIVO_BLOQUEOValue; @@ -734,12 +738,24 @@ 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 GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; + function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; + function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; + function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; function GetBLOQUEADOValue: SmallInt; virtual; function GetBLOQUEADOIsNull: Boolean; virtual; function GetOldBLOQUEADOValue: SmallInt; virtual; @@ -896,10 +912,18 @@ 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 VENCIMIENTO_FACTURAS_1 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; + property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; property BLOQUEADO : SmallInt read GetBLOQUEADOValue write SetBLOQUEADOValue; property BLOQUEADOIsNull : Boolean read GetBLOQUEADOIsNull write SetBLOQUEADOIsNull; property OldBLOQUEADO : SmallInt read GetOldBLOQUEADOValue; @@ -945,7 +969,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{E1C41362-DAC0-4923-AF1B-3E7151FCB617}'] + ['{1670C1F4-BF8D-452C-842A-B0ED16A60DC0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -981,6 +1005,9 @@ type function GetOldHOMOLOGADOValue : SmallInt; function GetOldCERTIFICACIONValue : String; function GetOldSUBCONTRATAValue : SmallInt; + function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; + function GetOldVENCIMIENTO_FACTURAS_2Value : SmallInt; + function GetOldVENCIMIENTO_FACTURAS_3Value : SmallInt; { Properties } property OldID : Integer read GetOldIDValue; @@ -1017,6 +1044,9 @@ type property OldHOMOLOGADO : SmallInt read GetOldHOMOLOGADOValue; property OldCERTIFICACION : String read GetOldCERTIFICACIONValue; property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue; + property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_2 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_3 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; end; { TProveedoresBusinessProcessorRules } @@ -1229,6 +1259,24 @@ type function GetOldSUBCONTRATAIsNull: Boolean; virtual; procedure SetSUBCONTRATAValue(const aValue: SmallInt); virtual; procedure SetSUBCONTRATAIsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; + function GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; virtual; + function GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); virtual; + procedure SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; + function GetVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_2Value: SmallInt; virtual; + function GetOldVENCIMIENTO_FACTURAS_2IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); virtual; + procedure SetVENCIMIENTO_FACTURAS_2IsNull(const aValue: Boolean); virtual; + function GetVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; + function GetVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + function GetOldVENCIMIENTO_FACTURAS_3Value: SmallInt; virtual; + function GetOldVENCIMIENTO_FACTURAS_3IsNull: Boolean; virtual; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); virtual; + procedure SetVENCIMIENTO_FACTURAS_3IsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -1367,6 +1415,18 @@ type property SUBCONTRATAIsNull : Boolean read GetSUBCONTRATAIsNull write SetSUBCONTRATAIsNull; property OldSUBCONTRATA : SmallInt read GetOldSUBCONTRATAValue; property OldSUBCONTRATAIsNull : Boolean read GetOldSUBCONTRATAIsNull; + property VENCIMIENTO_FACTURAS_1 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; + property OldVENCIMIENTO_FACTURAS_1IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_1IsNull; + property VENCIMIENTO_FACTURAS_2 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_2Value; + property OldVENCIMIENTO_FACTURAS_2IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_2IsNull; + property VENCIMIENTO_FACTURAS_3 : SmallInt 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 : SmallInt read GetOldVENCIMIENTO_FACTURAS_3Value; + property OldVENCIMIENTO_FACTURAS_3IsNull : Boolean read GetOldVENCIMIENTO_FACTURAS_3IsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -1376,7 +1436,7 @@ type { IEmpleadosDelta } IEmpleadosDelta = interface(IEmpleados) - ['{BB760188-169E-4A71-85E1-76DACB9C2960}'] + ['{3A92EF9C-7A9F-4B3D-8DFF-D64D46E5AD46}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1811,7 +1871,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{9DB84202-F502-4E91-8182-C05343B87D04}'] + ['{C30F8EFB-4A0F-42B8-9F1F-6278977F2027}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2026,7 +2086,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{34323D2F-6886-4CE0-B598-715E117C439C}'] + ['{77E7EAAB-0BAB-4FC2-A30D-D829675B9158}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2108,7 +2168,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{E5D84743-C153-4EE6-8F3B-66D11843D594}'] + ['{EFDF5B68-9988-4B1F-BAAB-58D7364DBF52}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2154,7 +2214,7 @@ type { IGruposEmpleadoDelta } IGruposEmpleadoDelta = interface(IGruposEmpleado) - ['{9BEC700D-7D02-415D-8BCE-A5230A37D7DB}'] + ['{3E423ADF-172F-41AD-B354-2E4B5527CCDA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2200,7 +2260,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{9B20DE7E-89CE-41AE-910E-8B2A8C93976B}'] + ['{76D97E59-A5FC-4DE6-8562-180558DF00C0}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -2475,7 +2535,7 @@ type { IContratosEmpleadosDelta } IContratosEmpleadosDelta = interface(IContratosEmpleados) - ['{9EDC7470-B7F4-4DC6-8329-7D7AD29B6770}'] + ['{9779B5A3-C2B5-45B6-A303-D965A44A0A20}'] { Property getters and setters } function GetOldCONTRATOValue : String; @@ -2509,7 +2569,7 @@ type { IDescripcionesProveedoresDelta } IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) - ['{BA14BEED-A34C-4CF6-937B-7491E24D854B}'] + ['{E4568314-2296-4F51-8A69-5D98C83B7D6F}'] { Property getters and setters } function GetOldDESCRIPCION_PROVEEDORValue : String; @@ -2543,7 +2603,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{2C7A84B7-C510-47E2-8975-3EC5F7BA0BC4}'] + ['{EA96B4AB-F363-4868-88B7-D29F001991C5}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -4580,35 +4640,97 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesNOMBRE_COMERCIAL] := Null; end; -function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASValue: Integer; +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; end; -function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURASIsNull: Boolean; +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1IsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS]); + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]); end; -function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASValue: Integer; +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1Value: SmallInt; begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]; + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; end; -function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURASIsNull: Boolean; +function TClientesBusinessProcessorRules.GetOldVENCIMIENTO_FACTURAS_1IsNull: Boolean; begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS]); + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]); end; -procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := aValue; + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := aValue; end; -procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURASIsNull(const aValue: Boolean); +procedure TClientesBusinessProcessorRules.SetVENCIMIENTO_FACTURAS_1IsNull(const aValue: Boolean); begin if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS] := Null; + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1] := Null; +end; + +function TClientesBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; +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: SmallInt; +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: SmallInt); +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: SmallInt; +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: SmallInt; +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: SmallInt); +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; function TClientesBusinessProcessorRules.GetBLOQUEADOValue: SmallInt; @@ -5964,6 +6086,99 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresSUBCONTRATA] := Null; end; +function TProveedoresBusinessProcessorRules.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; +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: SmallInt; +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: SmallInt); +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: SmallInt; +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: SmallInt; +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: SmallInt); +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: SmallInt; +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: SmallInt; +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: SmallInt); +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; + { TEmpleadosBusinessProcessorRules } constructor TEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index 33918be1..a2f45f3b 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -84,7 +84,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]; @@ -94,7 +93,9 @@ begin ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; - + ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; + ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; + ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; Execute; end; finally @@ -123,7 +124,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]; @@ -132,7 +132,10 @@ begin ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; - ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; + ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; + ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; + ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; + ParamByName('VENCIMIENTO_FACTURAS_3').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_3]; Execute; end; finally diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index 056f5b36..ff6a65f9 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -19,6 +19,7 @@ const PROVEEDOR_REGIMEN_IVA = 'General'; CLIENTE_REGIMEN_IVA = 'General'; + PROVEEDOR_DIAS_VENCIMIENTO = 20; CLIENTE_DIAS_VENCIMIENTO = 15; CLIENTE_RECARGO_EQUIVALENCIA = 0; @@ -55,8 +56,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: Smallint; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Smallint); + + function GetVENCIMIENTO_FACTURAS_2Value: Smallint; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Smallint); + + function GetVENCIMIENTO_FACTURAS_3Value: Smallint; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Smallint); function GetBLOQUEADOValue: Integer; procedure SetBLOQUEADOValue(const aValue: Integer); @@ -87,9 +94,10 @@ type property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_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: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Smallint 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; @@ -135,6 +143,15 @@ type function GetSUBCONTRATAValue: SmallInt; procedure SetSUBCONTRATAValue(const aValue: SmallInt); + function GetVENCIMIENTO_FACTURAS_1Value: Smallint; + function GetVENCIMIENTO_FACTURAS_2Value: Smallint; + + function GetVENCIMIENTO_FACTURAS_3Value: Smallint; + procedure SetVENCIMIENTO_FACTURAS_1Value(const Value: Smallint); + + procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint); + procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint); + property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; @@ -145,7 +162,10 @@ type property HOMOLOGADO: Integer read GetHOMOLOGADOValue write SetHOMOLOGADOValue; property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; - property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; + property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; + property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; end; IBizEmpleado = interface (IBizContacto) @@ -189,7 +209,7 @@ type property FORMACION_RECIBIDA: IROStrings read GetFORMACION_RECIBIDAValue write SetFORMACION_RECIBIDAValue; property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue write SetEXPERIENCIAValue; property FECHA_BAJA: TDateTime read GetFECHA_BAJAValue write SetFECHA_BAJAValue; - property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; + property FECHA_BAJAIsNull: Boolean read GetFECHA_BAJAIsNull write SetFECHA_BAJAIsNull; property CAUSA_BAJA: String read GetCAUSA_BAJAValue write SetCAUSA_BAJAValue; end; @@ -216,7 +236,7 @@ type procedure SetPersonal(AValue : IBizContactoPersonal); function GetPersonal : IBizContactoPersonal; - + procedure OnNewRecord(Sender: TDADataTable); override; public function EsNuevo : Boolean; @@ -250,8 +270,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: Smallint; + procedure SetVENCIMIENTO_FACTURAS_1Value(const aValue: Smallint); + + function GetVENCIMIENTO_FACTURAS_2Value: Smallint; + procedure SetVENCIMIENTO_FACTURAS_2Value(const aValue: Smallint); + + function GetVENCIMIENTO_FACTURAS_3Value: Smallint; + procedure SetVENCIMIENTO_FACTURAS_3Value(const aValue: Smallint); function GetBLOQUEADOValue: Integer; procedure SetBLOQUEADOValue(const aValue: Integer); @@ -286,7 +312,9 @@ type property Descuentos: IBizClienteDescuentos read GetDescuentos write SetDescuentos; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_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: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Smallint 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; @@ -332,6 +360,15 @@ type function GetSUBCONTRATAValue: SmallInt; procedure SetSUBCONTRATAValue(const aValue: SmallInt); + + function GetVENCIMIENTO_FACTURAS_1Value: Smallint; + function GetVENCIMIENTO_FACTURAS_2Value: Smallint; + function GetVENCIMIENTO_FACTURAS_3Value: Smallint; + + procedure SetVENCIMIENTO_FACTURAS_1Value(const Value: Smallint); + procedure SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint); + procedure SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint); + public procedure IniciarValoresContactoNuevo; override; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; @@ -345,6 +382,9 @@ type property CERTIFICACION: String read GetCERTIFICACIONValue write SetCERTIFICACIONValue; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property SUBCONTRATA: SmallInt read GetSUBCONTRATAValue write SetSUBCONTRATAValue; + property VENCIMIENTO_FACTURAS_1: Smallint read GetVENCIMIENTO_FACTURAS_1Value write SetVENCIMIENTO_FACTURAS_1Value; + property VENCIMIENTO_FACTURAS_2: Smallint read GetVENCIMIENTO_FACTURAS_2Value write SetVENCIMIENTO_FACTURAS_2Value; + property VENCIMIENTO_FACTURAS_3: Smallint read GetVENCIMIENTO_FACTURAS_3Value write SetVENCIMIENTO_FACTURAS_3Value; end; @@ -605,9 +645,19 @@ begin result := DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger; end; -function TBizCliente.GetVENCIMIENTO_FACTURASValue: Integer; +function TBizCliente.GetVENCIMIENTO_FACTURAS_1Value: SmallInt; begin - result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger; + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt; +end; + +function TBizCliente.GetVENCIMIENTO_FACTURAS_2Value: SmallInt; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt; +end; + +function TBizCliente.GetVENCIMIENTO_FACTURAS_3Value: SmallInt; +begin + result := DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt; end; procedure TBizCliente.SetRECARGO_EQUIVALENCIAValue(const aValue: Integer); @@ -625,16 +675,26 @@ begin DataTable.Fields[idx_ClientesTIENDA_WEB].AsInteger := aValue; end; -procedure TBizCliente.SetVENCIMIENTO_FACTURASValue(const aValue: Integer); +procedure TBizCliente.SetVENCIMIENTO_FACTURAS_1Value(const aValue: SmallInt); begin - DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS].AsInteger := aValue; + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_1].AsSmallInt := aValue; +end; + +procedure TBizCliente.SetVENCIMIENTO_FACTURAS_2Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_2].AsSmallInt := aValue; +end; + +procedure TBizCliente.SetVENCIMIENTO_FACTURAS_3Value(const aValue: SmallInt); +begin + DataTable.Fields[idx_ClientesVENCIMIENTO_FACTURAS_3].AsSmallInt := aValue; end; procedure TBizCliente.IniciarValoresContactoNuevo; begin inherited; ID_CATEGORIA := CATEGORIA_CLIENTE; - VENCIMIENTO_FACTURAS := CLIENTE_DIAS_VENCIMIENTO; + VENCIMIENTO_FACTURAS_1 := CLIENTE_DIAS_VENCIMIENTO; BLOQUEADO := 0; RECARGO_EQUIVALENCIA := CLIENTE_RECARGO_EQUIVALENCIA; REGIMEN_IVA := CLIENTE_REGIMEN_IVA; @@ -677,11 +737,27 @@ begin result := DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger; end; +function TBizProveedor.GetVENCIMIENTO_FACTURAS_1Value: Smallint; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt; +end; + +function TBizProveedor.GetVENCIMIENTO_FACTURAS_2Value: Smallint; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt; +end; + +function TBizProveedor.GetVENCIMIENTO_FACTURAS_3Value: Smallint; +begin + result := DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt; +end; + procedure TBizProveedor.IniciarValoresContactoNuevo; begin inherited; ID_CATEGORIA := CATEGORIA_PROVEEDOR; REGIMEN_IVA := PROVEEDOR_REGIMEN_IVA; + VENCIMIENTO_FACTURAS_1 := PROVEEDOR_DIAS_VENCIMIENTO; end; function TBizProveedor.GetCERTIFICACIONValue: String; @@ -759,6 +835,20 @@ begin DataTable.Fields[idx_ProveedoresTIENDA_WEB].AsInteger := aValue; end; +procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_1Value(const Value: Smallint); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_1].AsSmallInt := Value; +end; + +procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_2Value(const Value: Smallint); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_2].AsSmallInt := Value; +end; + +procedure TBizProveedor.SetVENCIMIENTO_FACTURAS_3Value(const Value: Smallint); +begin + DataTable.Fields[idx_ProveedoresVENCIMIENTO_FACTURAS_3].AsSmallInt := Value; +end; { TBizEmpleado } diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 28924fcc..128cb0a8 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas @@ -90,7 +90,11 @@ begin ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; - ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA]; + ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA]; + 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; finally @@ -125,8 +129,12 @@ begin ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ProveedoresTIENDA_WEB]; ParamByName('HOMOLOGADO').Value := aChange.NewValueByName[fld_ProveedoresHOMOLOGADO]; ParamByName('CERTIFICACION').Value := aChange.NewValueByName[fld_ProveedoresCERTIFICACION]; - ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; + ParamByName('GRUPO_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; ParamByName('SUBCONTRATA').Value := aChange.NewValueByName[fld_ProveedoresSUBCONTRATA]; + 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; finally diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 6ec20b49..e43c75c1 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -493,10 +493,6 @@ object srvContactos: TsrvContactos DatasetField = 'NOMBRE_COMERCIAL' TableField = 'NOMBRE_COMERCIAL' end - item - DatasetField = 'VENCIMIENTO_FACTURAS' - TableField = 'VENCIMIENTO_FACTURAS' - end item DatasetField = 'BLOQUEADO' TableField = 'BLOQUEADO' @@ -532,6 +528,18 @@ object srvContactos: TsrvContactos item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' + 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' @@ -684,9 +692,16 @@ object srvContactos: TsrvContactos DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL' end item - Name = 'VENCIMIENTO_FACTURAS' - DataType = datInteger - DictionaryEntry = 'Clientes_VENCIMIENTO_FACTURAS' + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datSmallInt end item Name = 'BLOQUEADO' @@ -878,6 +893,18 @@ object srvContactos: TsrvContactos item DatasetField = 'SUBCONTRATA' TableField = 'SUBCONTRATA' + 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' @@ -1077,6 +1104,18 @@ object srvContactos: TsrvContactos Name = 'SUBCONTRATA' DataType = datSmallInt DictionaryEntry = 'Proveedores_SUBCONTRATA' + end + item + Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datSmallInt + end + item + Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datSmallInt end> end item @@ -2758,10 +2797,6 @@ object srvContactos: TsrvContactos Name = 'NOMBRE_COMERCIAL' Value = '' end - item - Name = 'VENCIMIENTO_FACTURAS' - Value = '' - end item Name = 'BLOQUEADO' Value = '' @@ -2793,6 +2828,18 @@ object srvContactos: TsrvContactos item Name = 'DESCUENTO' 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 @@ -2800,13 +2847,15 @@ 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,'#10' DESCUENTO)'#10' VALUES'#10' ' + - ' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA,'#10' :NO' + - 'MBRE_COMERCIAL, :VENCIMIENTO_FACTURAS,'#10' :BLOQUEADO, :MOTIVO_' + - 'BLOQUEO, :REGIMEN_IVA,'#10' :ID_TIPO_IVA, :ID_FORMA_PAGO, :TIEND' + - 'A_WEB, :CODIGO_ASIGNADO,'#10' :DESCUENTO)'#10 + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' + + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' + + 'ODIGO_ASIGNADO, DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' + + 'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_CLIENT' + + 'E, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' + + ' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID_F' + + 'ORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO, :DESCUENTO,'#10' ' + + ':VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_F' + + 'ACTURAS_3)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2854,10 +2903,6 @@ object srvContactos: TsrvContactos Name = 'NOMBRE_COMERCIAL' Value = '' end - item - Name = 'VENCIMIENTO_FACTURAS' - Value = '' - end item Name = 'BLOQUEADO' Value = '' @@ -2886,6 +2931,18 @@ object srvContactos: TsrvContactos Name = 'DESCUENTO' 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 = '' @@ -2898,12 +2955,14 @@ object srvContactos: TsrvContactos 'UPDATE CLIENTES_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' + 'GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' MOTIVO_BLOQUEO = :MOTIVO_BLO' + 'QUEO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' NOMB' + - 'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' VENCIMIENTO_FACTURAS = :VE' + - 'NCIMIENTO_FACTURAS,'#10' BLOQUEADO = :BLOQUEADO,'#10' REGIMEN_IVA ' + - '= :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ID_FORMA_PAG' + - 'O = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' CODIGO_ASI' + - 'GNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUENTO'#10' WHERE'#10' ' + - ' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 + 'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' + + ' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' + + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 + + ' CODIGO_ASIGNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUEN' + + 'TO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VE' + + 'NCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_' + + 'FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_CLIENTE = :' + + 'OLD_ID_CLIENTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2958,6 +3017,18 @@ object srvContactos: TsrvContactos item Name = 'GRUPO_PROVEEDOR' 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 @@ -2966,11 +3037,14 @@ object srvContactos: TsrvContactos SQL = 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + - 'VA, SUBCONTRATA,'#10' ID_FORMA_PAGO, TIENDA_WEB, HOMOLOGADO, CERT' + - 'IFICACION, GRUPO_PROVEEDOR)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIME' + - 'N_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODIGO_ASIGNADO,' + - ' :ID_TIPO_IVA, :SUBCONTRATA,'#10' :ID_FORMA_PAGO, :TIENDA_WEB, :H' + - 'OMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR)'#10 + 'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' + + 'IFICACION, GRUPO_PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' + + 'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEE' + + 'DOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODI' + + 'GO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :ID_FORMA_PAGO, :TIENDA' + + '_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :VE' + + 'NCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACT' + + 'URAS_3)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3046,6 +3120,18 @@ object srvContactos: TsrvContactos Name = 'SUBCONTRATA' 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 = '' @@ -3062,7 +3148,10 @@ object srvContactos: TsrvContactos 'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' + ' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' + ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' + - 'TRATA'#10' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10 + 'TRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' ' + + ' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIEN' + + 'TO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDO' + + 'R = :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 d67cc923..4beb9a0c 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.dfm +++ b/Source/Modulos/Contactos/Views/uEditorCliente.dfm @@ -3,17 +3,17 @@ inherited fEditorCliente: TfEditorCliente Top = 297 Caption = 'Ficha de cliente' ClientHeight = 631 - ClientWidth = 714 - ExplicitWidth = 722 + ClientWidth = 792 + ExplicitWidth = 800 ExplicitHeight = 665 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader - Width = 714 + Width = 792 Caption = 'Ficha de cliente' - ExplicitWidth = 714 + ExplicitWidth = 792 inherited Image1: TImage - Left = 687 + Left = 765 Picture.Data = { 0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800 0000180806000000E0773DF80000000970485973000017120000171201679FD2 @@ -47,10 +47,14 @@ inherited fEditorCliente: TfEditorCliente AE426082} ExplicitLeft = 565 end + inherited lblDesbloquear: TcxLabel + Left = 667 + ExplicitLeft = 667 + end end inherited TBXDock: TTBXDock - Width = 714 - ExplicitWidth = 714 + Width = 792 + ExplicitWidth = 792 inherited tbxMain: TTBXToolbar ExplicitWidth = 446 object TBXItem7: TTBXItem [7] @@ -59,21 +63,22 @@ inherited fEditorCliente: TfEditorCliente end end inherited tbxMenu: TTBXToolbar - ExplicitWidth = 714 + ExplicitWidth = 792 end end inherited pgPaginas: TPageControl - Width = 708 + Width = 786 Height = 530 - ExplicitWidth = 708 + ActivePage = pagDatosComerciales + ExplicitWidth = 786 ExplicitHeight = 530 inherited pagGeneral: TTabSheet - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inline frViewCliente1: TfrViewCliente Left = 0 Top = 0 - Width = 700 + Width = 778 Height = 502 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -84,66 +89,86 @@ inherited fEditorCliente: TfEditorCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited dxLayoutControlContacto: TdxLayoutControl - Width = 700 + Width = 778 Height = 502 LookAndFeel = dxLayoutOfficeLookAndFeel - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited PngSpeedButton1: TPngSpeedButton - Left = 655 + Left = 733 Top = 218 - ExplicitLeft = 655 + ExplicitLeft = 733 ExplicitTop = 218 end inherited PngSpeedButton2: TPngSpeedButton - Left = 655 + Left = 733 Top = 190 - ExplicitLeft = 655 + ExplicitLeft = 733 ExplicitTop = 190 end inherited PngSpeedButton3: TPngSpeedButton - Left = 655 + Left = 733 Top = 162 - ExplicitLeft = 655 + ExplicitLeft = 733 ExplicitTop = 162 end inherited Label1: TLabel - Left = 395 + Left = 419 Top = 251 Width = 161 - ExplicitLeft = 395 + ExplicitLeft = 419 ExplicitTop = 251 ExplicitWidth = 161 end inherited eCalle: TcxDBTextEdit Top = 267 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 267 ExplicitWidth = 246 Width = 246 end inherited cbProvincia: TcxDBComboBox Top = 294 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 294 ExplicitWidth = 145 Width = 145 end inherited cbPoblacion: TcxDBComboBox Top = 321 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 321 ExplicitWidth = 246 Width = 246 end inherited eCodigoPostal: TcxDBTextEdit - Left = 313 + Left = 337 Top = 294 - ExplicitLeft = 313 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 337 ExplicitTop = 294 end inherited eObservaciones: TcxDBMemo Top = 399 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 399 ExplicitWidth = 656 ExplicitHeight = 87 @@ -152,122 +177,190 @@ inherited fEditorCliente: TfEditorCliente end inherited eNombreComercial: TcxDBTextEdit Top = 84 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 84 ExplicitWidth = 246 Width = 246 end inherited cbClienteBloqueado: TcxDBCheckBox Top = 189 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 189 ExplicitWidth = 356 Width = 356 end inherited cbGrupoCliente: TcxDBComboBox Top = 138 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 138 ExplicitWidth = 246 Width = 246 end inherited eBloqueo: TcxDBTextEdit Top = 216 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 216 ExplicitWidth = 246 Width = 246 end inherited eCodigoAsignado: TcxDBTextEdit Top = 111 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 111 ExplicitWidth = 246 Width = 246 end inherited eTlfParticular: TcxDBTextEdit - Left = 501 + Left = 525 Top = 57 - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 57 ExplicitWidth = 177 Width = 177 end inherited eTlfTrabajo: TcxDBTextEdit - Left = 501 + Left = 525 Top = 30 - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 30 ExplicitWidth = 177 Width = 177 end inherited eTlfMovil: TcxDBTextEdit - Left = 501 + Left = 525 Top = 84 - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 84 ExplicitWidth = 177 Width = 177 end inherited eFax: TcxDBTextEdit - Left = 501 + Left = 525 Top = 111 - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 111 ExplicitWidth = 177 Width = 177 end inherited eNombre: TcxDBTextEdit Top = 57 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 246 Width = 246 end inherited cxDBCheckBox1: TcxDBCheckBox - Left = 395 + Left = 419 Top = 322 - ExplicitLeft = 395 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 419 ExplicitTop = 322 - ExplicitWidth = 294 - Width = 294 + ExplicitWidth = 328 + Width = 328 end inherited eNIFCIF: TcxDBTextEdit - Left = 216 + Left = 226 Top = 30 - ExplicitLeft = 216 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 226 ExplicitTop = 30 ExplicitWidth = 162 Width = 162 end inherited eMailTrabajo: TcxDBHyperLinkEdit - Left = 501 + Left = 525 Top = 162 Properties.Prefix = 'mailto:' - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 162 ExplicitWidth = 148 Width = 148 end inherited eMailParticular: TcxDBHyperLinkEdit - Left = 501 + Left = 525 Top = 190 Properties.Prefix = 'mailto:' - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 190 ExplicitWidth = 148 Width = 148 end inherited ePaginaWeb: TcxDBHyperLinkEdit - Left = 501 + Left = 525 Top = 217 - ExplicitLeft = 501 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 525 ExplicitTop = 217 ExplicitWidth = 148 Width = 148 end inherited eReferencia: TcxDBTextEdit Top = 30 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 31 Width = 31 end inherited ePersonaContacto: TcxDBTextEdit Top = 348 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 348 ExplicitWidth = 246 Width = 246 @@ -280,22 +373,22 @@ inherited fEditorCliente: TfEditorCliente end end inherited pagDatosBancarios: TTabSheet - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios - Width = 700 + Width = 778 Height = 502 - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited cxGrid: TcxGrid - Width = 700 + Width = 778 Height = 477 - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 477 end inherited ToolBar1: TToolBar - Width = 700 - ExplicitWidth = 700 + Width = 778 + ExplicitWidth = 778 inherited ToolButton1: TToolButton ExplicitWidth = 62 end @@ -317,7 +410,7 @@ inherited fEditorCliente: TfEditorCliente inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales Left = 0 Top = 0 - Width = 700 + Width = 778 Height = 193 Align = alTop Font.Charset = DEFAULT_CHARSET @@ -328,17 +421,17 @@ inherited fEditorCliente: TfEditorCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 193 inherited dxLayoutControl1: TdxLayoutControl - Width = 700 + Width = 778 LookAndFeel = dxLayoutOfficeLookAndFeel - ExplicitWidth = 700 + ExplicitWidth = 778 inherited Label1: TLabel - Left = 452 + Left = 521 Top = 30 Width = 196 - ExplicitLeft = 452 + ExplicitLeft = 521 ExplicitTop = 30 ExplicitWidth = 196 end @@ -348,54 +441,86 @@ inherited fEditorCliente: TfEditorCliente ExplicitTop = 138 ExplicitWidth = 263 end - inherited eDiasVencimiento: TcxDBSpinEdit - Left = 515 - Top = 62 - ExplicitLeft = 515 - ExplicitTop = 62 - ExplicitWidth = 160 - Width = 160 - end inherited cbRegimenIVA: TcxDBComboBox Top = 30 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 307 Width = 307 end inherited cbRecargoEquivalencia: TcxDBCheckBox Top = 111 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 111 ExplicitWidth = 307 Width = 307 end inherited cbFormaPago: TcxDBLookupComboBox Top = 57 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 169 Width = 169 end inherited bFormasPago: TButton - Left = 292 + Left = 361 Top = 57 - ExplicitLeft = 292 + ExplicitLeft = 361 ExplicitTop = 57 end inherited eIVA: TcxDBLookupComboBox Top = 84 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 84 ExplicitWidth = 169 Width = 169 end inherited bTiposIVA: TButton - Left = 292 + Left = 361 Top = 84 - ExplicitLeft = 292 + ExplicitLeft = 361 ExplicitTop = 84 end inherited eDescuento: TcxDBSpinEdit Top = 149 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 149 end + inherited eDiasVencimiento2: TcxDBSpinEdit + Left = 593 + Top = 89 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 593 + ExplicitTop = 89 + end + inherited eDiasVencimiento3: TcxDBSpinEdit + Left = 593 + Top = 116 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 593 + ExplicitTop = 116 + end end end end @@ -405,7 +530,7 @@ inherited fEditorCliente: TfEditorCliente inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega Left = 0 Top = 0 - Width = 700 + Width = 778 Height = 502 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -416,12 +541,12 @@ inherited fEditorCliente: TfEditorCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited cxGrid: TcxGrid - Width = 700 + Width = 778 Height = 477 - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 477 inherited cxGridView: TcxGridDBTableView inherited cxGridViewID: TcxGridDBColumn @@ -431,20 +556,8 @@ inherited fEditorCliente: TfEditorCliente end end inherited ToolBar1: TToolBar - Width = 700 - ExplicitWidth = 700 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end + Width = 778 + ExplicitWidth = 778 end end end @@ -455,7 +568,7 @@ inherited fEditorCliente: TfEditorCliente inline frViewClienteDescuentos1: TfrViewClienteDescuentos Left = 0 Top = 0 - Width = 700 + Width = 778 Height = 502 Align = alClient Font.Charset = DEFAULT_CHARSET @@ -466,17 +579,17 @@ inherited fEditorCliente: TfEditorCliente ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited cxGrid: TcxGrid - Width = 700 + Width = 778 Height = 477 - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 477 end inherited ToolBar1: TToolBar - Width = 700 - ExplicitWidth = 700 + Width = 778 + ExplicitWidth = 778 inherited ToolButton1: TToolButton ExplicitWidth = 62 end @@ -493,22 +606,22 @@ inherited fEditorCliente: TfEditorCliente end end inherited pagPersonal: TTabSheet - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited frViewPersonalContacto1: TfrViewPersonalContacto - Width = 700 + Width = 778 Height = 502 - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 502 inherited cxGrid: TcxGrid - Width = 700 + Width = 778 Height = 477 - ExplicitWidth = 700 + ExplicitWidth = 778 ExplicitHeight = 477 end inherited ToolBar1: TToolBar - Width = 700 - ExplicitWidth = 700 + Width = 778 + ExplicitWidth = 778 inherited ToolButton1: TToolButton ExplicitWidth = 62 end @@ -527,9 +640,9 @@ inherited fEditorCliente: TfEditorCliente end inherited StatusBar: TJvStatusBar Top = 612 - Width = 714 + Width = 792 ExplicitTop = 612 - ExplicitWidth = 714 + ExplicitWidth = 792 end inherited EditorActionList: TActionList inherited actPrevisualizar: TAction diff --git a/Source/Modulos/Contactos/Views/uEditorCliente.pas b/Source/Modulos/Contactos/Views/uEditorCliente.pas index e8dce352..9d67ced7 100644 --- a/Source/Modulos/Contactos/Views/uEditorCliente.pas +++ b/Source/Modulos/Contactos/Views/uEditorCliente.pas @@ -15,7 +15,7 @@ uses uViewDireccionesEntrega, uViewDetallesGenerico, uViewClienteDescuentos, uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewClienteDatosComerciales, uDAInterfaces, uViewContactoListaDatosBancarios, - uViewPersonalContacto; + uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel; type TfEditorCliente = class(TfEditorContacto, IEditorCliente) diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.dfm b/Source/Modulos/Contactos/Views/uEditorContacto.dfm index eaf51c76..23961d93 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.dfm +++ b/Source/Modulos/Contactos/Views/uEditorContacto.dfm @@ -15,9 +15,13 @@ inherited fEditorContacto: TfEditorContacto Caption = 'Contacto' ExplicitWidth = 632 inherited Image1: TImage - Left = 605 + Left = 499 ExplicitLeft = 607 end + inherited lblDesbloquear: TcxLabel + Left = 534 + ExplicitLeft = 534 + end end inherited TBXDock: TTBXDock Width = 632 diff --git a/Source/Modulos/Contactos/Views/uEditorContacto.pas b/Source/Modulos/Contactos/Views/uEditorContacto.pas index 57093899..f30a9561 100644 --- a/Source/Modulos/Contactos/Views/uEditorContacto.pas +++ b/Source/Modulos/Contactos/Views/uEditorContacto.pas @@ -15,7 +15,7 @@ uses uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, uDAInterfaces, uViewDetallesGenerico, uViewContactoListaDatosBancarios, - uViewPersonalContacto; + uViewPersonalContacto, cxControls, cxContainer, cxEdit, cxLabel; type TfEditorContacto = class(TfEditorDBItem, IEditorContacto) diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm index f73c4427..d7480243 100644 --- a/Source/Modulos/Contactos/Views/uEditorProveedor.dfm +++ b/Source/Modulos/Contactos/Views/uEditorProveedor.dfm @@ -8,7 +8,7 @@ inherited fEditorProveedor: TfEditorProveedor TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader Width = 830 - ExplicitWidth = 839 + ExplicitWidth = 830 inherited Image1: TImage Left = 803 Picture.Data = { @@ -44,10 +44,14 @@ inherited fEditorProveedor: TfEditorProveedor FF01702244FEF5B056BE0000000049454E44AE426082} ExplicitLeft = 621 end + inherited lblDesbloquear: TcxLabel + Left = 705 + ExplicitLeft = 705 + end end inherited TBXDock: TTBXDock Width = 830 - ExplicitWidth = 839 + ExplicitWidth = 830 inherited tbxMain: TTBXToolbar ExplicitWidth = 330 end @@ -58,12 +62,12 @@ inherited fEditorProveedor: TfEditorProveedor inherited pgPaginas: TPageControl Width = 824 Height = 519 - ActivePage = pagGeneral - ExplicitWidth = 833 - ExplicitHeight = 516 + ActivePage = pagDatosComerciales + ExplicitWidth = 824 + ExplicitHeight = 519 inherited pagGeneral: TTabSheet - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inline frViewProveedor1: TfrViewProveedor Left = 0 Top = 0 @@ -78,14 +82,14 @@ inherited fEditorProveedor: TfEditorProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited dxLayoutControlContacto: TdxLayoutControl Width = 816 Height = 491 LookAndFeel = dxLayoutOfficeLookAndFeel - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited PngSpeedButton1: TPngSpeedButton Left = 771 Top = 218 @@ -105,37 +109,59 @@ inherited fEditorProveedor: TfEditorProveedor ExplicitTop = 162 end inherited Label1: TLabel - Left = 493 + Left = 485 Top = 251 - ExplicitLeft = 493 + Width = 342 + ExplicitLeft = 485 ExplicitTop = 251 + ExplicitWidth = 342 end inherited eCalle: TcxDBTextEdit Top = 267 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 267 ExplicitWidth = 366 Width = 366 end inherited cbProvincia: TcxDBComboBox Top = 294 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 294 ExplicitWidth = 265 Width = 265 end inherited cbPoblacion: TcxDBComboBox Top = 321 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 321 ExplicitWidth = 366 Width = 366 end inherited eCodigoPostal: TcxDBTextEdit - Left = 411 + Left = 403 Top = 294 - ExplicitLeft = 411 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 403 ExplicitTop = 294 end inherited eObservaciones: TcxDBMemo Top = 399 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 399 ExplicitWidth = 772 ExplicitHeight = 76 @@ -144,163 +170,247 @@ inherited fEditorProveedor: TfEditorProveedor end inherited cxDBCheckBox2: TcxDBCheckBox Top = 189 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 189 ExplicitWidth = 478 Width = 478 end inherited eCertificaciones: TcxDBTextEdit Top = 216 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 216 ExplicitWidth = 366 Width = 366 end inherited cbGrupoProveedor: TcxDBComboBox Top = 138 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 138 ExplicitWidth = 277 Width = 277 end inherited cbDescripcionProveedor: TcxDBComboBox Top = 84 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 84 ExplicitWidth = 366 Width = 366 end inherited eCodigoAsignado: TcxDBTextEdit Top = 111 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 111 ExplicitWidth = 366 Width = 366 end inherited eTlfParticular: TcxDBTextEdit - Left = 599 + Left = 591 Top = 57 - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 57 ExplicitWidth = 171 Width = 171 end inherited eTlfTrabajo: TcxDBTextEdit - Left = 599 + Left = 591 Top = 30 - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 30 ExplicitWidth = 171 Width = 171 end inherited eTlfMovil: TcxDBTextEdit - Left = 599 + Left = 591 Top = 84 - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 84 ExplicitWidth = 171 Width = 171 end inherited eFax: TcxDBTextEdit - Left = 599 + Left = 591 Top = 111 - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 111 ExplicitWidth = 171 Width = 171 end inherited eNombre: TcxDBTextEdit Top = 57 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 366 Width = 366 end + inherited cxDBCheckBox3: TcxDBCheckBox + Left = 385 + Top = 138 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 385 + ExplicitTop = 138 + end inherited eNIFCIF: TcxDBTextEdit - Left = 261 + Left = 258 Top = 30 - ExplicitLeft = 261 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 258 ExplicitTop = 30 ExplicitWidth = 229 Width = 229 end inherited eMailTrabajo: TcxDBHyperLinkEdit - Left = 599 + Left = 591 Top = 162 Properties.Prefix = 'mailto:' - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 162 ExplicitWidth = 142 Width = 142 end inherited eMailParticular: TcxDBHyperLinkEdit - Left = 599 + Left = 591 Top = 190 Properties.Prefix = 'mailto:' - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 190 ExplicitWidth = 142 Width = 142 end - inherited cxDBCheckBox3: TcxDBCheckBox - Left = 393 - Top = 138 - ExplicitLeft = 393 - ExplicitTop = 138 + inherited cxDBCheckBox1: TcxDBCheckBox + Left = 485 + Top = 283 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 485 + ExplicitTop = 283 + ExplicitWidth = 236 + Width = 236 end inherited ePaginaWeb: TcxDBHyperLinkEdit - Left = 599 + Left = 591 Top = 217 - ExplicitLeft = 599 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 591 ExplicitTop = 217 ExplicitWidth = 142 Width = 142 end inherited eReferencia: TcxDBTextEdit Top = 30 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 84 Width = 84 end inherited ePersonaContacto: TcxDBTextEdit Top = 348 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 348 ExplicitWidth = 366 Width = 366 end - inherited cxDBCheckBox1: TcxDBCheckBox - Left = 493 - Top = 283 - ExplicitLeft = 493 - ExplicitTop = 283 - end end end end inherited pagDatosBancarios: TTabSheet - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios Width = 816 Height = 491 - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited cxGrid: TcxGrid Width = 816 Height = 466 - ExplicitWidth = 825 - ExplicitHeight = 398 + ExplicitWidth = 816 + ExplicitHeight = 466 end inherited ToolBar1: TToolBar Width = 816 - ExplicitWidth = 825 + ExplicitWidth = 816 + 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 [2] Caption = 'Datos comerciales' ImageIndex = 2 - ExplicitWidth = 825 - ExplicitHeight = 488 inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales Left = 0 Top = 0 Width = 816 - Height = 121 + Height = 185 Align = alTop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText @@ -310,66 +420,116 @@ inherited fEditorProveedor: TfEditorProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 825 - ExplicitHeight = 121 + ExplicitWidth = 816 + ExplicitHeight = 185 inherited dxLayoutControl1: TdxLayoutControl Width = 816 LookAndFeel = dxLayoutOfficeLookAndFeel - ExplicitWidth = 825 + ExplicitWidth = 816 inherited Label1: TLabel - Left = 527 + Left = 584 Top = 30 Width = 190 - ExplicitLeft = 527 + Height = 26 + ExplicitLeft = 584 ExplicitTop = 30 ExplicitWidth = 190 + ExplicitHeight = 26 + end + inherited Bevel1: TBevel + Top = 111 + Width = 415 + ExplicitTop = 111 + ExplicitWidth = 415 end inherited cbRegimenIVA: TcxDBComboBox Top = 30 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 30 ExplicitWidth = 398 Width = 398 end inherited cbFormaPago: TcxDBLookupComboBox Top = 57 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 57 ExplicitWidth = 260 Width = 260 end inherited bFormasPago: TButton - Left = 367 + Left = 424 Top = 57 - ExplicitLeft = 367 + ExplicitLeft = 424 ExplicitTop = 57 end inherited eIVA: TcxDBLookupComboBox Top = 84 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' ExplicitTop = 84 ExplicitWidth = 260 Width = 260 end inherited bTiposIVA: TButton - Left = 367 + Left = 424 Top = 84 - ExplicitLeft = 367 + ExplicitLeft = 424 ExplicitTop = 84 end inherited eDescuento: TcxDBSpinEdit - Left = 571 - Top = 62 - ExplicitLeft = 571 - ExplicitTop = 62 + Top = 122 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitTop = 122 ExplicitWidth = 226 Width = 226 end + inherited eDiasVencimiento1: TcxDBSpinEdit + Left = 656 + Top = 62 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 656 + ExplicitTop = 62 + end + inherited eDiasVencimiento2: TcxDBSpinEdit + Left = 656 + Top = 89 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 656 + ExplicitTop = 89 + end + inherited eDiasVencimiento3: TcxDBSpinEdit + Left = 656 + Top = 116 + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' + ExplicitLeft = 656 + ExplicitTop = 116 + end end end end object pagDirecciones: TTabSheet [3] Caption = 'Direcciones' ImageIndex = 3 - ExplicitWidth = 825 - ExplicitHeight = 488 inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega Left = 0 Top = 0 @@ -384,49 +544,49 @@ inherited fEditorProveedor: TfEditorProveedor ParentFont = False TabOrder = 0 ReadOnly = False - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited cxGrid: TcxGrid Width = 816 Height = 466 - ExplicitWidth = 825 - ExplicitHeight = 398 + ExplicitWidth = 816 + ExplicitHeight = 466 end inherited ToolBar1: TToolBar Width = 816 - ExplicitWidth = 825 - inherited ToolButton1: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton4: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton2: TToolButton - ExplicitWidth = 113 - end - inherited ToolButton7: TToolButton - ExplicitWidth = 113 - end + ExplicitWidth = 816 end end end inherited pagPersonal: TTabSheet - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited frViewPersonalContacto1: TfrViewPersonalContacto Width = 816 Height = 491 - ExplicitWidth = 825 - ExplicitHeight = 488 + ExplicitWidth = 816 + ExplicitHeight = 491 inherited cxGrid: TcxGrid Width = 816 Height = 466 - ExplicitWidth = 825 - ExplicitHeight = 398 + ExplicitWidth = 816 + ExplicitHeight = 466 end inherited ToolBar1: TToolBar Width = 816 - ExplicitWidth = 825 + ExplicitWidth = 816 + 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 @@ -434,8 +594,8 @@ inherited fEditorProveedor: TfEditorProveedor inherited StatusBar: TJvStatusBar Top = 601 Width = 830 - ExplicitTop = 598 - ExplicitWidth = 839 + ExplicitTop = 601 + ExplicitWidth = 830 end inherited EditorActionList: TActionList Left = 32 diff --git a/Source/Modulos/Contactos/Views/uEditorProveedor.pas b/Source/Modulos/Contactos/Views/uEditorProveedor.pas index db7c12a5..33db434c 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, uViewContactoListaDatosBancarios, uViewPersonalContacto; + uDAInterfaces, uViewContactoListaDatosBancarios, uViewPersonalContacto, + cxLabel; type TfEditorProveedor = class(TfEditorContacto, IEditorProveedor) diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm index fb7f6f29..369a72eb 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.dfm @@ -1,27 +1,28 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales - Width = 637 + Width = 725 Height = 284 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy - ExplicitWidth = 637 + ExplicitWidth = 725 ExplicitHeight = 284 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 - Width = 637 + Width = 725 Height = 209 Align = alTop ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth] + ExplicitWidth = 637 object Label1: TLabel - Left = 412 + Left = 445 Top = 28 - Width = 196 + Width = 227 Height = 26 Caption = - 'Puede indicar el d'#237'a del mes en el cual es cliente realiza los p' + + 'Puede indicar el d'#237'a del mes en el cual el cliente realiza los p' + 'agos.' Transparent = True WordWrap = True @@ -33,14 +34,15 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Height = 5 Shape = bsBottomLine end - object eDiasVencimiento: TcxDBSpinEdit - Left = 475 + object eDiasVencimiento1: TcxDBSpinEdit + Left = 517 Top = 60 - DataBinding.DataField = 'VENCIMIENTO_FACTURAS' + DataBinding.DataField = 'VENCIMIENTO_FACTURAS_1' DataBinding.DataSource = dsDatosComerciales - Properties.AssignedValues.MinValue = True + Properties.DisplayFormat = '##' Properties.ImmediatePost = True Properties.SpinButtons.Visible = False + Properties.UseDisplayFormatWhenEditing = True Style.BorderColor = clWindowFrame Style.BorderStyle = ebs3D Style.HotTrack = False @@ -153,7 +155,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Width = 121 end object bFormasPago: TButton - Left = 250 + Left = 283 Top = 55 Width = 132 Height = 21 @@ -197,7 +199,7 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales Width = 121 end object bTiposIVA: TButton - Left = 250 + Left = 283 Top = 82 Width = 132 Height = 21 @@ -229,7 +231,61 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.SkinName = '' TabOrder = 6 - Width = 133 + Width = 190 + end + object eDiasVencimiento2: TcxDBSpinEdit + Left = 517 + Top = 87 + 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 = 8 + Width = 79 + end + object eDiasVencimiento3: TcxDBSpinEdit + Left = 517 + Top = 114 + 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 = 9 + Width = 79 end object dxLayoutGroup1: TdxLayoutGroup ShowCaption = False @@ -323,8 +379,20 @@ inherited frViewClienteDatosComerciales: TfrViewClienteDatosComerciales end object dxLayoutControl1Item2: TdxLayoutItem AutoAligns = [aaVertical] - Caption = 'D'#237'a del mes:' - Control = eDiasVencimiento + Caption = 'D'#237'a del mes 1:' + Control = eDiasVencimiento1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item11: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 2:' + Control = eDiasVencimiento2 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item12: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 3:' + Control = eDiasVencimiento3 ControlOptions.ShowBorder = False end end diff --git a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas index a4e76956..14b6f4f2 100644 --- a/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewClienteDatosComerciales.pas @@ -24,7 +24,7 @@ type dxLayoutControl1Group3: TdxLayoutGroup; dsAgentes: TDADataSource; dxLayoutControl1Item2: TdxLayoutItem; - eDiasVencimiento: TcxDBSpinEdit; + eDiasVencimiento1: TcxDBSpinEdit; dxLayoutControl1Item3: TdxLayoutItem; cbRegimenIVA: TcxDBComboBox; dsDatosComerciales: TDADataSource; @@ -49,6 +49,10 @@ type eDescuento: TcxDBSpinEdit; Bevel1: TBevel; dxLayoutControl1Item10: TdxLayoutItem; + dxLayoutControl1Item11: TdxLayoutItem; + eDiasVencimiento2: TcxDBSpinEdit; + dxLayoutControl1Item12: TdxLayoutItem; + eDiasVencimiento3: 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 b5482ca9..51878c93 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm +++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.dfm @@ -1,33 +1,40 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales Width = 642 - Height = 266 + Height = 191 OnCreate = CustomViewCreate OnDestroy = CustomViewDestroy ExplicitWidth = 642 - ExplicitHeight = 266 + ExplicitHeight = 191 object dxLayoutControl1: TdxLayoutControl Left = 0 Top = 0 Width = 642 - Height = 129 + Height = 177 Align = alTop ParentBackground = True TabOrder = 0 TabStop = False AutoContentSizes = [acsWidth] object Label1: TLabel - Left = 417 + Left = 468 Top = 28 - Width = 190 - Height = 26 + Width = 149 + Height = 39 Caption = - 'Puede indicar el descuento por defecto acordado con este proveed' + - 'or.' + 'Puede indicar el d'#237'a del mes en el cual el proveedor realiza los' + + ' pagos.' Transparent = True WordWrap = True end + object Bevel1: TBevel + Left = 22 + Top = 109 + Width = 415 + Height = 5 + Shape = bsBottomLine + end object cbRegimenIVA: TcxDBComboBox - Left = 107 + Left = 111 Top = 28 DataBinding.DataField = 'REGIMEN_IVA' DataBinding.DataSource = dsDatosComerciales @@ -40,19 +47,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 = 0 Width = 121 end object cbFormaPago: TcxDBLookupComboBox - Left = 107 + Left = 111 Top = 55 DataBinding.DataField = 'ID_FORMA_PAGO' DataBinding.DataSource = dsDatosComerciales @@ -70,19 +81,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 = 121 end object bFormasPago: TButton - Left = 255 + Left = 306 Top = 55 Width = 132 Height = 21 @@ -91,7 +106,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales OnClick = bFormasPagoClick end object eIVA: TcxDBLookupComboBox - Left = 107 + Left = 111 Top = 82 DataBinding.DataField = 'ID_TIPO_IVA' DataBinding.DataSource = dsDatosComerciales @@ -109,19 +124,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 = 121 end object bTiposIVA: TButton - Left = 255 + Left = 306 Top = 82 Width = 132 Height = 21 @@ -130,8 +149,8 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales OnClick = bTiposIVAClick end object eDescuento: TcxDBSpinEdit - Left = 461 - Top = 60 + Left = 111 + Top = 120 DataBinding.DataField = 'DESCUENTO' DataBinding.DataSource = dsDatosComerciales Style.BorderColor = clWindowFrame @@ -139,15 +158,100 @@ 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 = 73 + Width = 159 + end + object eDiasVencimiento1: TcxDBSpinEdit + Left = 540 + 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 = 540 + 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 = 540 + 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 @@ -189,20 +293,35 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales object dxLayoutControl1Group1: TdxLayoutGroup ShowCaption = False Hidden = True - LayoutDirection = ldHorizontal ShowBorder = False - object dxLayoutControl1Item8: TdxLayoutItem - AutoAligns = [aaVertical] - AlignHorz = ahClient - Caption = 'IVA por defecto' - Control = eIVA + object dxLayoutControl1Group4: 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 + object dxLayoutControl1Item2: TdxLayoutItem + Control = Bevel1 ControlOptions.ShowBorder = False end - object dxLayoutControl1Item9: TdxLayoutItem + object dxLayoutControl1Item1: TdxLayoutItem AutoAligns = [aaVertical] - AlignHorz = ahRight - ShowCaption = False - Control = bTiposIVA + Caption = 'Dto. por defecto:' + Control = eDescuento ControlOptions.ShowBorder = False end end @@ -210,7 +329,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales object dxLayoutControl1Group5: TdxLayoutGroup AutoAligns = [aaVertical] AlignHorz = ahClient - Caption = 'Descuento por defecto' + Caption = 'Datos para facturaci'#243'n' object dxLayoutControl1Item6: TdxLayoutItem AutoAligns = [aaVertical] AlignHorz = ahClient @@ -220,9 +339,22 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales ControlOptions.AutoColor = True ControlOptions.ShowBorder = False end - object dxLayoutControl1Item10: TdxLayoutItem - Caption = '% Dto.:' - Control = eDescuento + object dxLayoutControl1Item4: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 1:' + Control = eDiasVencimiento1 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item11: TdxLayoutItem + AutoAligns = [aaVertical] + Caption = 'D'#237'a del mes 2:' + Control = eDiasVencimiento2 + ControlOptions.ShowBorder = False + end + object dxLayoutControl1Item12: 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..4bb23db9 100644 --- a/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas +++ b/Source/Modulos/Contactos/Views/uViewProveedorDatosComerciales.pas @@ -8,7 +8,7 @@ uses cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit, uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController, - uDAInterfaces, uBizTiposIVA, uBizFormasPago; + uDAInterfaces, uBizTiposIVA, uBizFormasPago, ExtCtrls; type IViewProveedorDatosComerciales = interface(IViewBase) @@ -41,8 +41,17 @@ type dsTiposIVA: TDADataSource; dxLayoutControl1Group1: TdxLayoutGroup; dxLayoutControl1Group2: TdxLayoutGroup; - dxLayoutControl1Item10: TdxLayoutItem; + dxLayoutControl1Item1: TdxLayoutItem; eDescuento: TcxDBSpinEdit; + dxLayoutControl1Group4: TdxLayoutGroup; + dxLayoutControl1Item2: TdxLayoutItem; + Bevel1: TBevel; + dxLayoutControl1Item4: TdxLayoutItem; + eDiasVencimiento1: TcxDBSpinEdit; + dxLayoutControl1Item11: TdxLayoutItem; + eDiasVencimiento2: TcxDBSpinEdit; + dxLayoutControl1Item12: TdxLayoutItem; + eDiasVencimiento3: TcxDBSpinEdit; procedure CustomViewCreate(Sender: TObject); procedure CustomViewDestroy(Sender: TObject); procedure cbRegimenIVAPropertiesInitPopup(Sender: TObject); diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas index 736694c1..e20a04cf 100644 --- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas +++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas @@ -67,11 +67,12 @@ type function _Vacio : IBizFacturaCliente; procedure FiltrarEmpresa(AFactura: IBizFacturaCliente); - function ValidarFactura(AFactura: IBizFacturaCliente): Boolean; procedure GenerarRecibos(AFactura: IBizFacturaCliente); + protected procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override; + public property ClienteController: IClientesController read GetClienteController write SetClienteController; property DetallesController: IDetallesFacturaClienteController read GetDetallesController write SetDetallesController; @@ -1027,7 +1028,7 @@ begin Result.Edit; Result.TIPO := CTE_TIPO_ABONO; Result.Post; - + finally HideHourglassCursor; end; @@ -1041,6 +1042,9 @@ var ARecibos: IBizRecibosCliente; AFechaVencimiento: TDateTime; i: Integer; + ADiaVencimiento: Integer; + ADiasMas: Integer; + begin if not Assigned(AFactura) then Exit; @@ -1070,25 +1074,26 @@ begin ARecibos.Edit; ARecibos.ID_FACTURA := AFactura.ID; ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); + ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; - if (AFactura.Cliente.VENCIMIENTO_FACTURAS <> 0) then + if (AFactura.Cliente.VENCIMIENTO_FACTURAS_1 <> 0) + or (AFactura.Cliente.VENCIMIENTO_FACTURAS_2 <> 0) + or (AFactura.Cliente.VENCIMIENTO_FACTURAS_3 <> 0) then begin - if DayOf(AFechaVencimiento) > AFactura.Cliente.VENCIMIENTO_FACTURAS then - begin - AFechaVencimiento := IncDay(AFechaVencimiento, (DaysInMonth(AFechaVencimiento) - DayOf(AFechaVencimiento))); - AFechaVencimiento := IncDay(AFechaVencimiento, AFactura.Cliente.VENCIMIENTO_FACTURAS); - end - else - AFechaVencimiento := IncDay(AFechaVencimiento, (AFactura.Cliente.VENCIMIENTO_FACTURAS - DayOf(AFechaVencimiento))); + ADiaVencimiento := DayOf(AFechaVencimiento); + ADiasMas := 0; + while (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_1) + and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_2) + and (ADiaVencimiento <> AFactura.Cliente.VENCIMIENTO_FACTURAS_3) do + begin + Inc(ADiaVencimiento); + Inc(ADiasMas); + if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then + ADiaVencimiento := 0; + end; end; - - //Comprobamos que la fecha de vencimiento no sea febrero si es asi hay que tratarlo - if (AFactura.Cliente.VENCIMIENTO_FACTURAS > 28) - and (MonthOf(AFechaVencimiento) = 3) and (DayOf(AFechaVencimiento) < 3) then - AFechaVencimiento := IncDay(AFechaVencimiento, - DayOf(AFechaVencimiento)); - - ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; + AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index ee58c7a9..20b98902 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -117,7 +117,7 @@ uses uAlbaranesProveedorController, schAlbaranesProveedorClient_Intf, uDetallesAlbaranProveedorController, uBizPedidosProveedor, uPedidosProveedorController, uBizDetallesPedidoProveedor, - uRecibosProveedorController, uBizRecibosProveedor, + uRecibosProveedorController, uBizRecibosProveedor, uNumUtils, uFacturasProveedorReportController, DateUtils, Forms, Dialogs, uFormasPagoController, uBizFormasPago; @@ -851,7 +851,11 @@ var AFormaPago: IBizFormaPago; ARecibosProveedorController: IRecibosProveedorController; ARecibos: IBizRecibosProveedor; + AFechaVencimiento: TDateTime; i: Integer; + ADiaVencimiento: Integer; + ADiasMas: Integer; + begin if not Assigned(AFactura) then @@ -883,8 +887,29 @@ begin ARecibos.ID_FACTURA := AFactura.ID; ARecibos.REFERENCIA := AFactura.REFERENCIA + ' - ' + IntToStr(i); ARecibos.FECHA_EMISION := AFactura.FECHA_FACTURA; - ARecibos.FECHA_VENCIMIENTO := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + + AFechaVencimiento := AFactura.FECHA_FACTURA + AFormaPago.Plazos.NUM_DIAS; + if (AFactura.Proveedor.VENCIMIENTO_FACTURAS_1 <> 0) + or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_2 <> 0) + or (AFactura.Proveedor.VENCIMIENTO_FACTURAS_3 <> 0) then + begin + ADiaVencimiento := DayOf(AFechaVencimiento); + ADiasMas := 0; + while (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_1) + and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_2) + and (ADiaVencimiento <> AFactura.Proveedor.VENCIMIENTO_FACTURAS_3) do + begin + Inc(ADiaVencimiento); + Inc(ADiasMas); + if ADiaVencimiento = DaysInMonth(AFechaVencimiento) then + ADiaVencimiento := 0; + end; + end; + AFechaVencimiento := IncDay(AFechaVencimiento, ADiasMas); + ARecibos.FECHA_VENCIMIENTO := AFechaVencimiento; + ARecibos.IMPORTE := AFactura.IMPORTE_TOTAL * (AFormaPago.Plazos.PORCENTAJE / 100); + ARecibos.DESCRIPCION := 'Pago de factura ' + AFactura.REFERENCIA + ': son ' + CifraToLetras(ARecibos.IMPORTE); ARecibosProveedorController.Guardar(ARecibos); Inc(i); Next; diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES index 3bb3da55965ff3018f7f514154563df2bc108920..9a3910fa395c383ac592a19bed85d5e7d6ec6d7e 100644 GIT binary patch delta 57 zcmZ3nm2u5h#tnBO7&lD58zB!Q|3*YJ@=cD6RAziNxi+$zIgdeo^6$uaZbJqO1}g>= M21^Ep$%#?!0H&rC1poj5 delta 53 zcmZ3pm2t&Z#tnBO7}rd`8zB!Q|3*YJ@=T75RAziJxi+$zIfp@Q^6$uac1s2;22%#h I$*EE909u?A#{d8T diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr index 91633aa7..7601c908 100644 --- a/Source/Servidor/FactuGES_Server.dpr +++ b/Source/Servidor/FactuGES_Server.dpr @@ -107,8 +107,6 @@ uses schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas', uRptPresupuestosCliente_Server in '..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas' {RptPresupuestosCliente: TDataModule}, uRptWordPresupuestoCliente in '..\Modulos\Presupuestos de cliente\Reports\uRptWordPresupuestoCliente.pas' {RptWordPresupuestoCliente: TDataModule}, - schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', - schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas', schPedidosProveedorClient_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas', schPedidosProveedorServer_Intf in '..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas', srvGestorDocumentos_Impl in '..\Modulos\Gestion de documentos\Servidor\srvGestorDocumentos_Impl.pas' {srvGestorDocumentos: TDataAbstractService}, @@ -129,7 +127,9 @@ uses schFacturasClienteClient_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas', schFacturasClienteServer_Intf in '..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas', schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas', - schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas'; + schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas', + schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas', + schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas'; {$R *.res} {$R ..\Servicios\RODLFile.res} diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc index cef3a0ef..1d911254 100644 --- a/Source/Servidor/FactuGES_Server.rc +++ b/Source/Servidor/FactuGES_Server.rc @@ -14,7 +14,7 @@ BEGIN BEGIN VALUE "FileVersion", "1.3.4.0\0" VALUE "ProductVersion", "1.3.4.0\0" - VALUE "CompileDate", "jueves, 25 de septiembre de 2008 9:59\0" + VALUE "CompileDate", "jueves, 25 de septiembre de 2008 18:49\0" END END BLOCK "VarFileInfo" diff --git a/Source/Servidor/uDataModuleServer.dfm b/Source/Servidor/uDataModuleServer.dfm index 7f637cc1..4add0c65 100644 --- a/Source/Servidor/uDataModuleServer.dfm +++ b/Source/Servidor/uDataModuleServer.dfm @@ -39,8 +39,8 @@ object dmServer: TdmServer Name = 'IBX' ConnectionString = 'IBX?Server=localhost;Database=C:\Codigo Tecsitel\Output\Debug\Da' + - 'tabase\FACTUGES_PRODUCCION.FDB;UserID=sysdba;Password=masterkey;' + - 'Dialect=3;Charset=ISO8859_1;' + 'tabase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;C' + + 'harset=ISO8859_1;' ConnectionType = 'Interbase' Default = True end>