From 5c11095e875d92114a72272a3695b3ab9e3a42e6 Mon Sep 17 00:00:00 2001 From: roberto Date: Mon, 21 Dec 2009 17:56:36 +0000 Subject: [PATCH] Repaso de general de contactos git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@9 f33bb606-9f5c-448d-9c99-757f00063c96 --- Database/scripts/factuges.sql | 21 +- .../Contactos/Data/uDataModuleClientes.dfm | 170 +-------- .../Contactos/Data/uDataModuleContactos.dfm | 15 +- .../Contactos/Data/uDataModuleEmpleados.dfm | 162 --------- .../Contactos/Data/uDataModuleProveedores.dfm | 16 +- .../Model/schContactosClient_Intf.pas | 318 +++++++++------- .../Model/schContactosServer_Intf.pas | 338 +++++++++++------- .../Contactos/Model/uBizClientesServer.pas | 2 - .../Modulos/Contactos/Model/uBizContactos.pas | 18 - .../Contactos/Model/uBizProveedoresServer.pas | 2 - .../Reports/uRptEtiquetasContacto_Server.dfm | 18 +- .../Reports/uRptEtiquetasContacto_Server.pas | 2 +- .../Contactos/Servidor/srvContactos_Impl.dfm | 253 ++++++------- .../Contactos/Views/Contactos_view.dpk | 4 +- .../Contactos/Views/Contactos_view.dproj | 116 +++--- .../Contactos/Views/uEditorCliente.dfm | 146 ++++---- .../Contactos/Views/uEditorProveedor.dfm | 93 ++--- .../Contactos/Views/uEditorVendedor.dfm | 84 +++-- .../Modulos/Contactos/Views/uViewCliente.dfm | 178 +++++---- .../Modulos/Contactos/Views/uViewCliente.pas | 2 - .../Modulos/Contactos/Views/uViewContacto.dfm | 51 ++- .../Modulos/Contactos/Views/uViewContacto.pas | 2 + .../Modulos/Contactos/Views/uViewEmpleado.dfm | 203 +++++++---- .../Contactos/Views/uViewProveedor.dfm | 221 +++++++----- .../Contactos/Views/uViewProveedor.pas | 2 - Source/Servidor/FactuGES_Server.dproj | 5 - 26 files changed, 1202 insertions(+), 1240 deletions(-) diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index f74d799..db5411a 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -440,7 +440,6 @@ CREATE TABLE CLIENTES_DATOS ( ID_FORMA_PAGO TIPO_ID, TIENDA_WEB TIPO_BOOLEANO, DESCUENTO TIPO_PORCENTAJE, - CODIGO_ASIGNADO VARCHAR(255), VENCIMIENTO_FACTURAS_1 SMALLINT, VENCIMIENTO_FACTURAS_2 SMALLINT, VENCIMIENTO_FACTURAS_3 SMALLINT, @@ -500,7 +499,8 @@ CREATE TABLE CONTACTOS ( FECHA_MODIFICACION TIMESTAMP, USUARIO TIPO_USUARIO, REFERENCIA VARCHAR(255), - PERSONA_CONTACTO VARCHAR(255) + PERSONA_CONTACTO VARCHAR(255), + PAIS VARCHAR(255) COLLATE ES_ES ); CREATE TABLE CONTACTOS_CATEGORIAS ( @@ -1053,7 +1053,6 @@ CREATE TABLE PROVEEDORES_DATOS ( TIENDA_WEB TIPO_BOOLEANO, GRUPO_PROVEEDOR VARCHAR(255), DESCRIPCION_PROVEEDOR VARCHAR(255), - CODIGO_ASIGNADO VARCHAR(255), CERTIFICACION VARCHAR(255), HOMOLOGADO SMALLINT, SUBCONTRATA TIPO_BOOLEANO, @@ -1681,7 +1680,8 @@ CREATE VIEW V_CONTACTOS( FECHA_MODIFICACION, USUARIO, ID_EMPRESA, - REFERENCIA) + REFERENCIA, + PAIS) AS SELECT CONTACTOS.ID, CONTACTOS_CATEGORIAS.ID_CATEGORIA, @@ -1705,7 +1705,8 @@ SELECT CONTACTOS.ID, CONTACTOS.FECHA_MODIFICACION, CONTACTOS.USUARIO, EMPRESAS_CONTACTOS.ID_EMPRESA, - CONTACTOS.REFERENCIA + CONTACTOS.REFERENCIA, + CONTACTOS.PAIS FROM CONTACTOS INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO = CONTACTOS.ID) @@ -1740,6 +1741,7 @@ CREATE VIEW V_CLIENTES( USUARIO, ID_EMPRESA, REFERENCIA, + PAIS, GRUPO_CLIENTE, NOMBRE_COMERCIAL, VENCIMIENTO_FACTURAS_1, @@ -1752,7 +1754,6 @@ CREATE VIEW V_CLIENTES( ID_TIPO_IVA, ID_FORMA_PAGO, TIENDA_WEB, - CODIGO_ASIGNADO, DESCUENTO, FELICITACION) AS @@ -1780,6 +1781,7 @@ SELECT V_CONTACTOS.USUARIO, V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.REFERENCIA, + V_CONTACTOS.PAIS, CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, @@ -1792,7 +1794,6 @@ SELECT CLIENTES_DATOS.ID_TIPO_IVA, CLIENTES_DATOS.ID_FORMA_PAGO, CLIENTES_DATOS.TIENDA_WEB, - CLIENTES_DATOS.CODIGO_ASIGNADO, CLIENTES_DATOS.DESCUENTO, CLIENTES_DATOS.FELICITACION FROM @@ -1907,6 +1908,7 @@ FECHA_MODIFICACION, USUARIO, ID_EMPRESA, REFERENCIA, +PAIS, COMISION) AS SELECT V_CONTACTOS.ID, @@ -1932,6 +1934,7 @@ SELECT V_CONTACTOS.ID, V_CONTACTOS.USUARIO, V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.REFERENCIA, + V_CONTACTOS.PAIS, VENDEDORES_DATOS.COMISION FROM V_CONTACTOS @@ -3169,9 +3172,9 @@ CREATE VIEW V_PROVEEDORES( USUARIO, ID_EMPRESA, REFERENCIA, + PAIS, DESCUENTO, DESCRIPCION_PROVEEDOR, - CODIGO_ASIGNADO, GRUPO_PROVEEDOR, REGIMEN_IVA, ID_TIPO_IVA, @@ -3208,9 +3211,9 @@ SELECT V_CONTACTOS.USUARIO, V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.REFERENCIA, + V_CONTACTOS.PAIS, PROVEEDORES_DATOS.DESCUENTO, PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR, - PROVEEDORES_DATOS.CODIGO_ASIGNADO, PROVEEDORES_DATOS.GRUPO_PROVEEDOR, PROVEEDORES_DATOS.REGIMEN_IVA, PROVEEDORES_DATOS.ID_TIPO_IVA, diff --git a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm index bc833b1..6ee2f17 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleClientes.dfm @@ -7,164 +7,6 @@ inherited DataModuleClientes: TDataModuleClientes inherited Bin2DataStreamer: TDABin2DataStreamer Top = 136 end - inherited tbl_Contactos: TDAMemDataTable - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONTACTOS_ID' - ServerAutoRefresh = True - DictionaryEntry = 'Contactos_ID' - InPrimaryKey = True - end - item - Name = 'ID_CATEGORIA' - DataType = datInteger - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - DisplayLabel = 'NIF/CIF' - DictionaryEntry = 'Contactos_NIF_CIF' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - Required = True - DisplayLabel = 'Nombre' - DictionaryEntry = 'Contactos_NOMBRE' - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - DisplayLabel = 'Persona de contacto' - DictionaryEntry = 'Contactos_PERSONA_CONTACTO' - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - DisplayLabel = 'Direcci'#243'n' - DictionaryEntry = 'Contactos_CALLE' - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DisplayLabel = 'Poblaci'#243'n' - DictionaryEntry = 'Contactos_POBLACION' - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Provincia' - DictionaryEntry = 'Contactos_PROVINCIA' - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - DisplayLabel = 'C'#243'digo postal' - DictionaryEntry = 'Contactos_CODIGO_POSTAL' - end - item - Name = 'TELEFONO_1' - DataType = datString - Size = 25 - DisplayLabel = 'Tlf. trabajo' - DictionaryEntry = 'Contactos_TELEFONO_1' - end - item - Name = 'TELEFONO_2' - DataType = datString - Size = 25 - DisplayLabel = 'Tlf. particular' - DictionaryEntry = 'Contactos_TELEFONO_2' - end - item - Name = 'MOVIL_1' - DataType = datString - Size = 25 - DisplayLabel = 'M'#243'vil' - DictionaryEntry = 'Contactos_MOVIL_1' - end - item - Name = 'MOVIL_2' - DataType = datString - Size = 25 - DictionaryEntry = 'Contactos_MOVIL_2' - end - item - Name = 'FAX' - DataType = datString - Size = 25 - DisplayLabel = 'Fax' - DictionaryEntry = 'Contactos_FAX' - end - item - Name = 'EMAIL_1' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail trabajo' - DictionaryEntry = 'Contactos_EMAIL_1' - end - item - Name = 'EMAIL_2' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail particular' - DictionaryEntry = 'Contactos_EMAIL_2' - end - item - Name = 'PAGINA_WEB' - DataType = datString - Size = 255 - DisplayLabel = 'Web' - DictionaryEntry = 'Contactos_PAGINA_WEB' - end - item - Name = 'NOTAS' - DataType = datMemo - BlobType = dabtMemo - DisplayLabel = 'Observaciones' - DictionaryEntry = 'Contactos_NOTAS' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DisplayLabel = 'Fecha de alta' - DictionaryEntry = 'Contactos_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DisplayLabel = 'Fecha de modificaci'#243'n' - DictionaryEntry = 'Contactos_FECHA_MODIFICACION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DisplayLabel = 'Usuario' - DictionaryEntry = 'Contactos_USUARIO' - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Referencia' - ServerAutoRefresh = True - DictionaryEntry = 'Contactos_REFERENCIA' - end> - end inherited ds_Contactos: TDADataSource DataSet = tbl_Contactos.Dataset end @@ -337,6 +179,11 @@ inherited DataModuleClientes: TDataModuleClientes ServerAutoRefresh = True DictionaryEntry = 'Clientes_REFERENCIA' end + item + Name = 'PAIS' + DataType = datString + Size = 255 + end item Name = 'GRUPO_CLIENTE' DataType = datString @@ -404,14 +251,9 @@ inherited DataModuleClientes: TDataModuleClientes DataType = datSmallInt DictionaryEntry = 'Clientes_TIENDA_WEB' end - item - Name = 'CODIGO_ASIGNADO' - DataType = datString - Size = 255 - end item Name = 'DESCUENTO' - DataType = datFloat + DataType = datCurrency end item Name = 'FELICITACION' diff --git a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm index 4bacb40..7bc0e3a 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleContactos.dfm @@ -11,12 +11,12 @@ inherited DataModuleContactos: TDataModuleContactos Top = 16 end object rda_Contactos: TDARemoteDataAdapter + DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService - DataStreamer = Bin2DataStreamer Left = 43 Top = 143 end @@ -181,13 +181,16 @@ inherited DataModuleContactos: TDataModuleContactos DisplayLabel = 'Referencia' ServerAutoRefresh = True DictionaryEntry = 'Contactos_REFERENCIA' + end + item + Name = 'PAIS' + DataType = datString + Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Contactos' IndexDefs = <> Left = 176 @@ -313,8 +316,6 @@ inherited DataModuleContactos: TDataModuleContactos MasterSource = ds_Contactos MasterFields = 'ID' DetailFields = 'ID_CONTACTO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'DireccionesContacto' IndexDefs = <> Left = 320 @@ -393,8 +394,6 @@ inherited DataModuleContactos: TDataModuleContactos MasterSource = ds_Contactos MasterFields = 'ID' DetailFields = 'ID_CONTACTO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'DatosBancarios' IndexDefs = <> Left = 176 @@ -486,8 +485,6 @@ inherited DataModuleContactos: TDataModuleContactos MasterSource = ds_Contactos MasterFields = 'ID' DetailFields = 'ID_CONTACTO' - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PersonalContacto' IndexDefs = <> Left = 456 diff --git a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm index 9e07e39..381fb10 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm @@ -1,164 +1,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados Height = 302 Width = 543 - inherited tbl_Contactos: TDAMemDataTable - Fields = < - item - Name = 'ID' - DataType = datAutoInc - GeneratorName = 'GEN_CONTACTOS_ID' - ServerAutoRefresh = True - DictionaryEntry = 'Contactos_ID' - InPrimaryKey = True - end - item - Name = 'ID_CATEGORIA' - DataType = datInteger - end - item - Name = 'NIF_CIF' - DataType = datString - Size = 15 - DisplayLabel = 'NIF/CIF' - DictionaryEntry = 'Contactos_NIF_CIF' - end - item - Name = 'NOMBRE' - DataType = datString - Size = 255 - Required = True - DisplayLabel = 'Nombre' - DictionaryEntry = 'Contactos_NOMBRE' - end - item - Name = 'PERSONA_CONTACTO' - DataType = datString - Size = 255 - DisplayLabel = 'Persona de contacto' - DictionaryEntry = 'Contactos_PERSONA_CONTACTO' - end - item - Name = 'CALLE' - DataType = datString - Size = 255 - DisplayLabel = 'Direcci'#243'n' - DictionaryEntry = 'Contactos_CALLE' - end - item - Name = 'POBLACION' - DataType = datString - Size = 255 - DisplayLabel = 'Poblaci'#243'n' - DictionaryEntry = 'Contactos_POBLACION' - end - item - Name = 'PROVINCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Provincia' - DictionaryEntry = 'Contactos_PROVINCIA' - end - item - Name = 'CODIGO_POSTAL' - DataType = datString - Size = 10 - DisplayLabel = 'C'#243'digo postal' - DictionaryEntry = 'Contactos_CODIGO_POSTAL' - end - item - Name = 'TELEFONO_1' - DataType = datString - Size = 25 - DisplayLabel = 'Tlf. trabajo' - DictionaryEntry = 'Contactos_TELEFONO_1' - end - item - Name = 'TELEFONO_2' - DataType = datString - Size = 25 - DisplayLabel = 'Tlf. particular' - DictionaryEntry = 'Contactos_TELEFONO_2' - end - item - Name = 'MOVIL_1' - DataType = datString - Size = 25 - DisplayLabel = 'M'#243'vil' - DictionaryEntry = 'Contactos_MOVIL_1' - end - item - Name = 'MOVIL_2' - DataType = datString - Size = 25 - DictionaryEntry = 'Contactos_MOVIL_2' - end - item - Name = 'FAX' - DataType = datString - Size = 25 - DisplayLabel = 'Fax' - DictionaryEntry = 'Contactos_FAX' - end - item - Name = 'EMAIL_1' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail trabajo' - DictionaryEntry = 'Contactos_EMAIL_1' - end - item - Name = 'EMAIL_2' - DataType = datString - Size = 255 - DisplayLabel = 'E-mail particular' - DictionaryEntry = 'Contactos_EMAIL_2' - end - item - Name = 'PAGINA_WEB' - DataType = datString - Size = 255 - DisplayLabel = 'Web' - DictionaryEntry = 'Contactos_PAGINA_WEB' - end - item - Name = 'NOTAS' - DataType = datMemo - BlobType = dabtMemo - DisplayLabel = 'Observaciones' - DictionaryEntry = 'Contactos_NOTAS' - end - item - Name = 'FECHA_ALTA' - DataType = datDateTime - DisplayLabel = 'Fecha de alta' - DictionaryEntry = 'Contactos_FECHA_ALTA' - end - item - Name = 'FECHA_MODIFICACION' - DataType = datDateTime - DisplayLabel = 'Fecha de modificaci'#243'n' - DictionaryEntry = 'Contactos_FECHA_MODIFICACION' - end - item - Name = 'USUARIO' - DataType = datString - Size = 20 - DisplayLabel = 'Usuario' - DictionaryEntry = 'Contactos_USUARIO' - end - item - Name = 'ID_EMPRESA' - DataType = datInteger - end - item - Name = 'REFERENCIA' - DataType = datString - Size = 255 - DisplayLabel = 'Referencia' - ServerAutoRefresh = True - DictionaryEntry = 'Contactos_REFERENCIA' - end> - end inherited ds_Contactos: TDADataSource DataSet = tbl_Contactos.Dataset end @@ -400,8 +242,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Empleados' IndexDefs = <> Left = 296 @@ -435,8 +275,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'GruposEmpleado' IndexDefs = <> Left = 448 diff --git a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm index 8cf87ef..e24d0c2 100644 --- a/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm +++ b/Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm @@ -41,8 +41,6 @@ inherited DataModuleProveedores: TDataModuleProveedores StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'GruposProveedor' IndexDefs = <> Left = 536 @@ -215,6 +213,11 @@ inherited DataModuleProveedores: TDataModuleProveedores ServerAutoRefresh = True DictionaryEntry = 'Proveedores_REFERENCIA' end + item + Name = 'PAIS' + DataType = datString + Size = 255 + end item Name = 'DESCUENTO' DataType = datFloat @@ -228,13 +231,6 @@ inherited DataModuleProveedores: TDataModuleProveedores DisplayLabel = 'Proveedor de...' DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR' end - item - Name = 'CODIGO_ASIGNADO' - DataType = datString - Size = 255 - DisplayLabel = 'C'#243'digo asignado' - DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO' - end item Name = 'GRUPO_PROVEEDOR' DataType = datString @@ -298,8 +294,6 @@ inherited DataModuleProveedores: TDataModuleProveedores StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Contactos LocalDataStreamer = Bin2DataStreamer - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Proveedores' IndexDefs = <> Left = 296 diff --git a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas index 215f98c..8ec71d1 100644 --- a/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosClient_Intf.pas @@ -9,21 +9,21 @@ 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 = '{A1CF6237-ADAC-42E6-AE86-84987E1D9A8A}'; - RID_GruposCliente = '{426F8320-5441-4BF4-B7F9-71D02177057C}'; - RID_DatosBancarios = '{01BE961A-FF3F-4B62-915C-A08398C216B0}'; - RID_Vendedores = '{1727E068-2906-459B-A1CE-7FB4EE19047F}'; - RID_Clientes = '{445569C9-B8CA-43C9-836E-701F6D584591}'; - RID_Proveedores = '{8816F065-39E8-4369-8250-6909A74234D6}'; - RID_Empleados = '{51EDCDDE-D2EF-415A-AA14-E91BE3F06034}'; - RID_DireccionesContacto = '{4604C16C-DEAF-4F60-BEDC-8CF3E6DB85EF}'; - RID_ClientesDescuentos = '{5145DC3B-13B9-4A12-808B-74A6D36DA114}'; - RID_GruposProveedor = '{43C92773-4D36-4B3F-BF7E-8ECE4C3C57F9}'; - RID_GruposEmpleado = '{50E1E891-C651-4961-AD9C-EC0615F97853}'; - RID_Contactos_Refresh = '{97FBFB9B-C20B-498B-911B-53D65F760099}'; - RID_ContratosEmpleados = '{674BE5D7-5D36-4740-9F1B-774F6284BD0B}'; - RID_DescripcionesProveedores = '{23D7C3B8-6E6E-4082-98AD-63D1237794D8}'; - RID_PersonalContacto = '{8F9DDF1A-0719-4F38-9A7B-3DA787476947}'; + RID_Contactos = '{5939CC4C-98CD-4418-AE8E-E1DA5899B100}'; + RID_GruposCliente = '{686F98AF-A391-438F-996F-2E8376E9C756}'; + RID_DatosBancarios = '{D9139452-F46D-4EDB-9332-BA358EF1BA5A}'; + RID_Vendedores = '{68A7BE98-0EA2-49CE-87AA-BECC0EAFDB21}'; + RID_Clientes = '{A043C7D9-602B-4CE5-904A-748EF25CAA33}'; + RID_Proveedores = '{F34AE78A-927A-471A-930E-70476275378E}'; + RID_Empleados = '{DC15408D-F82B-40B5-ABBF-7EC9B74EE6C4}'; + RID_DireccionesContacto = '{23F3B0A4-8058-4E86-9126-07B019F41A86}'; + RID_ClientesDescuentos = '{9221F17D-4216-4B56-8266-D3A3CD27B9C0}'; + RID_GruposProveedor = '{17C56F46-1FC5-4ECA-AEEF-35E9F0E37824}'; + RID_GruposEmpleado = '{2B172CD8-6608-4817-9888-732E289BDCD5}'; + RID_Contactos_Refresh = '{AE8F079E-E59A-4AD4-959A-7E64693B346C}'; + RID_ContratosEmpleados = '{635F5995-E674-43A9-8905-1582162D9A10}'; + RID_DescripcionesProveedores = '{1EDD4D3F-8608-4916-A739-A5FE584A9271}'; + RID_PersonalContacto = '{522A1340-5FCA-4907-A7D6-C5646908ABD1}'; { Data table names } nme_Contactos = 'Contactos'; @@ -66,6 +66,7 @@ const fld_ContactosUSUARIO = 'USUARIO'; fld_ContactosID_EMPRESA = 'ID_EMPRESA'; fld_ContactosREFERENCIA = 'REFERENCIA'; + fld_ContactosPAIS = 'PAIS'; { Contactos field indexes } idx_ContactosID = 0; @@ -91,6 +92,7 @@ const idx_ContactosUSUARIO = 20; idx_ContactosID_EMPRESA = 21; idx_ContactosREFERENCIA = 22; + idx_ContactosPAIS = 23; { GruposCliente fields } fld_GruposClienteID = 'ID'; @@ -198,6 +200,7 @@ const fld_ClientesUSUARIO = 'USUARIO'; fld_ClientesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesREFERENCIA = 'REFERENCIA'; + fld_ClientesPAIS = 'PAIS'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; @@ -210,7 +213,6 @@ const fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; - fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ClientesDESCUENTO = 'DESCUENTO'; fld_ClientesFELICITACION = 'FELICITACION'; @@ -238,19 +240,19 @@ const idx_ClientesUSUARIO = 20; idx_ClientesID_EMPRESA = 21; idx_ClientesREFERENCIA = 22; - idx_ClientesGRUPO_CLIENTE = 23; - idx_ClientesNOMBRE_COMERCIAL = 24; - 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_ClientesPAIS = 23; + idx_ClientesGRUPO_CLIENTE = 24; + idx_ClientesNOMBRE_COMERCIAL = 25; + idx_ClientesVENCIMIENTO_FACTURAS_1 = 26; + idx_ClientesVENCIMIENTO_FACTURAS_2 = 27; + idx_ClientesVENCIMIENTO_FACTURAS_3 = 28; + idx_ClientesBLOQUEADO = 29; + idx_ClientesREGIMEN_IVA = 30; + idx_ClientesMOTIVO_BLOQUEO = 31; + idx_ClientesRECARGO_EQUIVALENCIA = 32; + idx_ClientesID_TIPO_IVA = 33; + idx_ClientesID_FORMA_PAGO = 34; + idx_ClientesTIENDA_WEB = 35; idx_ClientesDESCUENTO = 36; idx_ClientesFELICITACION = 37; @@ -278,9 +280,9 @@ const fld_ProveedoresUSUARIO = 'USUARIO'; fld_ProveedoresID_EMPRESA = 'ID_EMPRESA'; fld_ProveedoresREFERENCIA = 'REFERENCIA'; + fld_ProveedoresPAIS = 'PAIS'; fld_ProveedoresDESCUENTO = 'DESCUENTO'; fld_ProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR'; - fld_ProveedoresCODIGO_ASIGNADO = 'CODIGO_ASIGNADO'; fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR'; fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA'; fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; @@ -317,9 +319,9 @@ const idx_ProveedoresUSUARIO = 20; idx_ProveedoresID_EMPRESA = 21; idx_ProveedoresREFERENCIA = 22; - idx_ProveedoresDESCUENTO = 23; - idx_ProveedoresDESCRIPCION_PROVEEDOR = 24; - idx_ProveedoresCODIGO_ASIGNADO = 25; + idx_ProveedoresPAIS = 23; + idx_ProveedoresDESCUENTO = 24; + idx_ProveedoresDESCRIPCION_PROVEEDOR = 25; idx_ProveedoresGRUPO_PROVEEDOR = 26; idx_ProveedoresREGIMEN_IVA = 27; idx_ProveedoresID_TIPO_IVA = 28; @@ -492,6 +494,7 @@ const fld_Contactos_RefreshUSUARIO = 'USUARIO'; fld_Contactos_RefreshREFERENCIA = 'REFERENCIA'; fld_Contactos_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO'; + fld_Contactos_RefreshPAIS = 'PAIS'; { Contactos_Refresh field indexes } idx_Contactos_RefreshID = 0; @@ -515,6 +518,7 @@ const idx_Contactos_RefreshUSUARIO = 18; idx_Contactos_RefreshREFERENCIA = 19; idx_Contactos_RefreshPERSONA_CONTACTO = 20; + idx_Contactos_RefreshPAIS = 21; { ContratosEmpleados fields } fld_ContratosEmpleadosCONTRATO = 'CONTRATO'; @@ -555,7 +559,7 @@ const type { IContactos } IContactos = interface(IDAStronglyTypedDataTable) - ['{C7934361-0344-4AEA-BFA4-144630740B11}'] + ['{50009CF6-F80E-4F1F-A421-6C016FB350B5}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -648,6 +652,10 @@ type procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetPAISValue: String; + procedure SetPAISValue(const aValue: String); + function GetPAISIsNull: Boolean; + procedure SetPAISIsNull(const aValue: Boolean); { Properties } @@ -697,6 +705,8 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; end; { TContactosDataTableRules } @@ -797,6 +807,10 @@ type procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + procedure SetPAISValue(const aValue: String); virtual; + function GetPAISIsNull: Boolean; virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -845,6 +859,8 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -854,7 +870,7 @@ type { IGruposCliente } IGruposCliente = interface(IDAStronglyTypedDataTable) - ['{102B395B-EA51-40BA-9517-392F849648B3}'] + ['{D15C83D9-E697-4B83-9A49-4B09DCB7F520}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -901,7 +917,7 @@ type { IDatosBancarios } IDatosBancarios = interface(IDAStronglyTypedDataTable) - ['{51757B84-1D4D-46EA-9CD9-4AC552EFEB7D}'] + ['{3C83C36A-B5A7-4019-8EA7-0B71F0E2A326}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1032,7 +1048,7 @@ type { IVendedores } IVendedores = interface(IDAStronglyTypedDataTable) - ['{FC903BBD-4F5D-44F3-A1E8-50A8C465A548}'] + ['{9759F724-E96E-4C08-BDEA-23D9C275C679}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1343,7 +1359,7 @@ type { IClientes } IClientes = interface(IDAStronglyTypedDataTable) - ['{F7755B64-ECA3-4B91-BEB4-0CD322904DD8}'] + ['{A0EBE95B-5810-4106-8B6A-66729CAE424F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1436,6 +1452,10 @@ type procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetPAISValue: String; + procedure SetPAISValue(const aValue: String); + function GetPAISIsNull: Boolean; + procedure SetPAISIsNull(const aValue: Boolean); function GetGRUPO_CLIENTEValue: String; procedure SetGRUPO_CLIENTEValue(const aValue: String); function GetGRUPO_CLIENTEIsNull: Boolean; @@ -1484,12 +1504,8 @@ type procedure SetTIENDA_WEBValue(const aValue: SmallInt); function GetTIENDA_WEBIsNull: Boolean; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); - function GetCODIGO_ASIGNADOValue: String; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); - function GetCODIGO_ASIGNADOIsNull: Boolean; - procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); - function GetDESCUENTOValue: Float; - procedure SetDESCUENTOValue(const aValue: Float); + function GetDESCUENTOValue: Currency; + procedure SetDESCUENTOValue(const aValue: Currency); function GetDESCUENTOIsNull: Boolean; procedure SetDESCUENTOIsNull(const aValue: Boolean); function GetFELICITACIONValue: SmallInt; @@ -1545,6 +1561,8 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; @@ -1569,9 +1587,7 @@ type property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; - property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; - property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; @@ -1675,6 +1691,10 @@ type procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + procedure SetPAISValue(const aValue: String); virtual; + function GetPAISIsNull: Boolean; virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; @@ -1723,12 +1743,8 @@ type procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; function GetTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; - function GetCODIGO_ASIGNADOValue: String; virtual; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; - function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; - procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; + function GetDESCUENTOValue: Currency; virtual; + procedure SetDESCUENTOValue(const aValue: Currency); virtual; function GetDESCUENTOIsNull: Boolean; virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; @@ -1783,6 +1799,8 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property GRUPO_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; @@ -1807,9 +1825,7 @@ type property ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; - property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; - property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; - property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; @@ -1822,7 +1838,7 @@ type { IProveedores } IProveedores = interface(IDAStronglyTypedDataTable) - ['{117DF76C-65CE-4B27-9A1C-29E814758355}'] + ['{B9739EE6-8C5F-4FF5-9110-ED16F630EECF}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1915,6 +1931,10 @@ type procedure SetREFERENCIAValue(const aValue: String); function GetREFERENCIAIsNull: Boolean; procedure SetREFERENCIAIsNull(const aValue: Boolean); + function GetPAISValue: String; + procedure SetPAISValue(const aValue: String); + function GetPAISIsNull: Boolean; + procedure SetPAISIsNull(const aValue: Boolean); function GetDESCUENTOValue: Float; procedure SetDESCUENTOValue(const aValue: Float); function GetDESCUENTOIsNull: Boolean; @@ -1923,10 +1943,6 @@ type procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); function GetDESCRIPCION_PROVEEDORIsNull: Boolean; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); - function GetCODIGO_ASIGNADOValue: String; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); - function GetCODIGO_ASIGNADOIsNull: Boolean; - procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); function GetGRUPO_PROVEEDORValue: String; procedure SetGRUPO_PROVEEDORValue(const aValue: String); function GetGRUPO_PROVEEDORIsNull: Boolean; @@ -2020,12 +2036,12 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; - property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; - property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; @@ -2148,6 +2164,10 @@ type procedure SetREFERENCIAValue(const aValue: String); virtual; function GetREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + procedure SetPAISValue(const aValue: String); virtual; + function GetPAISIsNull: Boolean; virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual; function GetDESCUENTOIsNull: Boolean; virtual; @@ -2156,10 +2176,6 @@ type procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCODIGO_ASIGNADOValue: String; virtual; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; - function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; - procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PROVEEDORValue: String; virtual; procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual; function GetGRUPO_PROVEEDORIsNull: Boolean; virtual; @@ -2252,12 +2268,12 @@ type property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; - property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; - property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; property GRUPO_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; @@ -2289,7 +2305,7 @@ type { IEmpleados } IEmpleados = interface(IDAStronglyTypedDataTable) - ['{9504B80C-3095-4E8B-BC52-323CCD57C131}'] + ['{39609E2C-7624-4D4F-B872-9F289DE7937D}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2720,7 +2736,7 @@ type { IDireccionesContacto } IDireccionesContacto = interface(IDAStronglyTypedDataTable) - ['{C1B52BCF-C2A2-48A3-AEF6-41F708493841}'] + ['{4B93EF20-3992-48B7-BDBC-A57487E53E79}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -2935,7 +2951,7 @@ type { IClientesDescuentos } IClientesDescuentos = interface(IDAStronglyTypedDataTable) - ['{3150E9EF-9538-432A-B26E-5DA75531C702}'] + ['{7035995A-EC52-4E8F-9125-6C6F3BC775D9}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3018,7 +3034,7 @@ type { IGruposProveedor } IGruposProveedor = interface(IDAStronglyTypedDataTable) - ['{5A7A04F2-FBE8-41C9-BF4C-2721A50C76FD}'] + ['{A61D9648-2122-4FA8-A42F-0CE36F65026A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3065,7 +3081,7 @@ type { IGruposEmpleado } IGruposEmpleado = interface(IDAStronglyTypedDataTable) - ['{D1CF82BD-3AE2-4FDC-88F8-A79B181C7BFE}'] + ['{E336809F-9CCC-475C-81EC-A9A214F8190F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3112,7 +3128,7 @@ type { IContactos_Refresh } IContactos_Refresh = interface(IDAStronglyTypedDataTable) - ['{9046F0B4-E194-4050-A796-F7129BDE7A16}'] + ['{A34B665C-EB99-4B5C-89AE-EBC2B1F3C04E}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -3197,6 +3213,10 @@ type procedure SetPERSONA_CONTACTOValue(const aValue: String); function GetPERSONA_CONTACTOIsNull: Boolean; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); + function GetPAISValue: String; + procedure SetPAISValue(const aValue: String); + function GetPAISIsNull: Boolean; + procedure SetPAISIsNull(const aValue: Boolean); { Properties } @@ -3242,6 +3262,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; end; { TContactos_RefreshDataTableRules } @@ -3334,6 +3356,10 @@ type procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + procedure SetPAISValue(const aValue: String); virtual; + function GetPAISIsNull: Boolean; virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -3378,6 +3404,8 @@ type property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; + property PAIS: String read GetPAISValue write SetPAISValue; + property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -3387,7 +3415,7 @@ type { IContratosEmpleados } IContratosEmpleados = interface(IDAStronglyTypedDataTable) - ['{8B8ECB16-A934-4365-BAC6-13022B79269E}'] + ['{13D56F00-3B17-4139-8C9C-4D824F100B29}'] { Property getters and setters } function GetCONTRATOValue: String; procedure SetCONTRATOValue(const aValue: String); @@ -3422,7 +3450,7 @@ type { IDescripcionesProveedores } IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) - ['{18DD39A9-3E32-4D1A-AD50-309FF1965707}'] + ['{6349752A-7AE2-40FF-8A52-255597E6E0E9}'] { Property getters and setters } function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); @@ -3457,7 +3485,7 @@ type { IPersonalContacto } IPersonalContacto = interface(IDAStronglyTypedDataTable) - ['{E13E09AE-DFD1-4B74-BA1E-9FA1E40E722F}'] + ['{119539A2-3D42-4359-A16E-B2ED25BE299F}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -4103,6 +4131,27 @@ begin DataTable.Fields[idx_ContactosREFERENCIA].AsVariant := Null; end; +function TContactosDataTableRules.GetPAISValue: String; +begin + result := DataTable.Fields[idx_ContactosPAIS].AsString; +end; + +procedure TContactosDataTableRules.SetPAISValue(const aValue: String); +begin + DataTable.Fields[idx_ContactosPAIS].AsString := aValue; +end; + +function TContactosDataTableRules.GetPAISIsNull: boolean; +begin + result := DataTable.Fields[idx_ContactosPAIS].IsNull; +end; + +procedure TContactosDataTableRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ContactosPAIS].AsVariant := Null; +end; + { TGruposClienteDataTableRules } constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable); @@ -5383,6 +5432,27 @@ begin DataTable.Fields[idx_ClientesREFERENCIA].AsVariant := Null; end; +function TClientesDataTableRules.GetPAISValue: String; +begin + result := DataTable.Fields[idx_ClientesPAIS].AsString; +end; + +procedure TClientesDataTableRules.SetPAISValue(const aValue: String); +begin + DataTable.Fields[idx_ClientesPAIS].AsString := aValue; +end; + +function TClientesDataTableRules.GetPAISIsNull: boolean; +begin + result := DataTable.Fields[idx_ClientesPAIS].IsNull; +end; + +procedure TClientesDataTableRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ClientesPAIS].AsVariant := Null; +end; + function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String; begin result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; @@ -5635,35 +5705,14 @@ begin DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null; end; -function TClientesDataTableRules.GetCODIGO_ASIGNADOValue: String; +function TClientesDataTableRules.GetDESCUENTOValue: Currency; begin - result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString; + result := DataTable.Fields[idx_ClientesDESCUENTO].AsCurrency; end; -procedure TClientesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String); +procedure TClientesDataTableRules.SetDESCUENTOValue(const aValue: Currency); begin - DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString := aValue; -end; - -function TClientesDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean; -begin - result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].IsNull; -end; - -procedure TClientesDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsVariant := Null; -end; - -function TClientesDataTableRules.GetDESCUENTOValue: Float; -begin - result := DataTable.Fields[idx_ClientesDESCUENTO].AsFloat; -end; - -procedure TClientesDataTableRules.SetDESCUENTOValue(const aValue: Float); -begin - DataTable.Fields[idx_ClientesDESCUENTO].AsFloat := aValue; + DataTable.Fields[idx_ClientesDESCUENTO].AsCurrency := aValue; end; function TClientesDataTableRules.GetDESCUENTOIsNull: boolean; @@ -6200,6 +6249,27 @@ begin DataTable.Fields[idx_ProveedoresREFERENCIA].AsVariant := Null; end; +function TProveedoresDataTableRules.GetPAISValue: String; +begin + result := DataTable.Fields[idx_ProveedoresPAIS].AsString; +end; + +procedure TProveedoresDataTableRules.SetPAISValue(const aValue: String); +begin + DataTable.Fields[idx_ProveedoresPAIS].AsString := aValue; +end; + +function TProveedoresDataTableRules.GetPAISIsNull: boolean; +begin + result := DataTable.Fields[idx_ProveedoresPAIS].IsNull; +end; + +procedure TProveedoresDataTableRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_ProveedoresPAIS].AsVariant := Null; +end; + function TProveedoresDataTableRules.GetDESCUENTOValue: Float; begin result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat; @@ -6242,27 +6312,6 @@ begin DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsVariant := Null; end; -function TProveedoresDataTableRules.GetCODIGO_ASIGNADOValue: String; -begin - result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString; -end; - -procedure TProveedoresDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String); -begin - DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString := aValue; -end; - -function TProveedoresDataTableRules.GetCODIGO_ASIGNADOIsNull: boolean; -begin - result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].IsNull; -end; - -procedure TProveedoresDataTableRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); -begin - if aValue then - DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsVariant := Null; -end; - function TProveedoresDataTableRules.GetGRUPO_PROVEEDORValue: String; begin result := DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString; @@ -8287,6 +8336,27 @@ begin DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].AsVariant := Null; end; +function TContactos_RefreshDataTableRules.GetPAISValue: String; +begin + result := DataTable.Fields[idx_Contactos_RefreshPAIS].AsString; +end; + +procedure TContactos_RefreshDataTableRules.SetPAISValue(const aValue: String); +begin + DataTable.Fields[idx_Contactos_RefreshPAIS].AsString := aValue; +end; + +function TContactos_RefreshDataTableRules.GetPAISIsNull: boolean; +begin + result := DataTable.Fields[idx_Contactos_RefreshPAIS].IsNull; +end; + +procedure TContactos_RefreshDataTableRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_Contactos_RefreshPAIS].AsVariant := Null; +end; + { TContratosEmpleadosDataTableRules } constructor TContratosEmpleadosDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas index 1be4f9e..a2454c7 100644 --- a/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas +++ b/Source/Modulos/Contactos/Model/schContactosServer_Intf.pas @@ -9,26 +9,26 @@ 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 = '{9BDE25F2-7BDE-4D22-BF7E-66AE44521AAE}'; - RID_GruposClienteDelta = '{ECD51523-CFDC-4373-9A05-79BB438E7FBB}'; - RID_DatosBancariosDelta = '{C98E544A-1635-49DE-A36F-CCB35E100511}'; - RID_VendedoresDelta = '{B982EFCF-B572-461B-AE81-4986117F3982}'; - RID_ClientesDelta = '{5266A7F5-C1E1-4488-8228-F9489F614E23}'; - RID_ProveedoresDelta = '{945D63D8-4D00-499A-A9F2-7F32031B7DFC}'; - RID_EmpleadosDelta = '{7DF4DC2D-402C-4068-AA25-FF0898A50272}'; - RID_DireccionesContactoDelta = '{ED48ADE8-DE49-491B-884F-C80631F13C81}'; - RID_ClientesDescuentosDelta = '{8A886F27-2311-469C-BEB6-365405639C58}'; - RID_GruposProveedorDelta = '{5C7DFC7C-95CA-4B4F-B1C9-6DA162E941E0}'; - RID_GruposEmpleadoDelta = '{A465A4A2-7B8F-47B5-A20E-5B444B27376C}'; - RID_Contactos_RefreshDelta = '{CF3A1DF8-8F5C-439E-8908-9AFB100422CD}'; - RID_ContratosEmpleadosDelta = '{D01B787D-9A4F-4DE4-935E-F65AA7EC6E73}'; - RID_DescripcionesProveedoresDelta = '{F3E3C88C-9995-4F34-A9F1-B26D897BD3AF}'; - RID_PersonalContactoDelta = '{33B35E63-AE8B-489F-A124-89FFA1DA9726}'; + RID_ContactosDelta = '{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}'; + RID_GruposClienteDelta = '{27585B84-7756-4555-A6C8-FEB6918E681C}'; + RID_DatosBancariosDelta = '{0E0F05AE-194D-46D2-8E16-B68300F69D4B}'; + RID_VendedoresDelta = '{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}'; + RID_ClientesDelta = '{C269BFF3-0DF8-4830-A609-980977CB69E7}'; + RID_ProveedoresDelta = '{013010DB-7E71-47A7-A53E-467CF4C830E4}'; + RID_EmpleadosDelta = '{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}'; + RID_DireccionesContactoDelta = '{98B972CF-1202-4B4B-954B-44C2854A60CA}'; + RID_ClientesDescuentosDelta = '{F5BE7170-6DD7-4D2F-9798-761D099BDD61}'; + RID_GruposProveedorDelta = '{CE166657-6C53-480E-81F6-E05E1E94240D}'; + RID_GruposEmpleadoDelta = '{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}'; + RID_Contactos_RefreshDelta = '{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}'; + RID_ContratosEmpleadosDelta = '{76026549-3C22-4EF1-8452-F8B09E430989}'; + RID_DescripcionesProveedoresDelta = '{724AB8D8-F8BB-4C45-8A20-0AA19291160D}'; + RID_PersonalContactoDelta = '{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}'; type { IContactosDelta } IContactosDelta = interface(IContactos) - ['{9BDE25F2-7BDE-4D22-BF7E-66AE44521AAE}'] + ['{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -53,6 +53,7 @@ type function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldPAISValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -78,6 +79,7 @@ type property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldPAIS : String read GetOldPAISValue; end; { TContactosBusinessProcessorRules } @@ -224,6 +226,12 @@ type function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + function GetPAISIsNull: Boolean; virtual; + function GetOldPAISValue: String; virtual; + function GetOldPAISIsNull: Boolean; virtual; + procedure SetPAISValue(const aValue: String); virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -318,6 +326,10 @@ type property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property PAIS : String read GetPAISValue write SetPAISValue; + property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; + property OldPAIS : String read GetOldPAISValue; + property OldPAISIsNull : Boolean read GetOldPAISIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -327,7 +339,7 @@ type { IGruposClienteDelta } IGruposClienteDelta = interface(IGruposCliente) - ['{ECD51523-CFDC-4373-9A05-79BB438E7FBB}'] + ['{27585B84-7756-4555-A6C8-FEB6918E681C}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -373,7 +385,7 @@ type { IDatosBancariosDelta } IDatosBancariosDelta = interface(IDatosBancarios) - ['{C98E544A-1635-49DE-A36F-CCB35E100511}'] + ['{0E0F05AE-194D-46D2-8E16-B68300F69D4B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -503,7 +515,7 @@ type { IVendedoresDelta } IVendedoresDelta = interface(IVendedores) - ['{B982EFCF-B572-461B-AE81-4986117F3982}'] + ['{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -814,7 +826,7 @@ type { IClientesDelta } IClientesDelta = interface(IClientes) - ['{5266A7F5-C1E1-4488-8228-F9489F614E23}'] + ['{C269BFF3-0DF8-4830-A609-980977CB69E7}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -839,6 +851,7 @@ type function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldPAISValue : String; function GetOldGRUPO_CLIENTEValue : String; function GetOldNOMBRE_COMERCIALValue : String; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; @@ -851,8 +864,7 @@ type function GetOldID_TIPO_IVAValue : Integer; function GetOldID_FORMA_PAGOValue : Integer; function GetOldTIENDA_WEBValue : SmallInt; - function GetOldCODIGO_ASIGNADOValue : String; - function GetOldDESCUENTOValue : Float; + function GetOldDESCUENTOValue : Currency; function GetOldFELICITACIONValue : SmallInt; { Properties } @@ -879,6 +891,7 @@ type property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldPAIS : String read GetOldPAISValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; @@ -891,8 +904,7 @@ type property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; - property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; end; @@ -1040,6 +1052,12 @@ type function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + function GetPAISIsNull: Boolean; virtual; + function GetOldPAISValue: String; virtual; + function GetOldPAISIsNull: Boolean; virtual; + procedure SetPAISValue(const aValue: String); virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetGRUPO_CLIENTEValue: String; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetOldGRUPO_CLIENTEValue: String; virtual; @@ -1112,17 +1130,11 @@ type function GetOldTIENDA_WEBIsNull: Boolean; virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; - function GetCODIGO_ASIGNADOValue: String; virtual; - function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; - function GetOldCODIGO_ASIGNADOValue: String; virtual; - function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; - procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; - function GetDESCUENTOValue: Float; virtual; + function GetDESCUENTOValue: Currency; virtual; function GetDESCUENTOIsNull: Boolean; virtual; - function GetOldDESCUENTOValue: Float; virtual; + function GetOldDESCUENTOValue: Currency; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual; - procedure SetDESCUENTOValue(const aValue: Float); virtual; + procedure SetDESCUENTOValue(const aValue: Currency); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONIsNull: Boolean; virtual; @@ -1224,6 +1236,10 @@ type property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property PAIS : String read GetPAISValue write SetPAISValue; + property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; + property OldPAIS : String read GetOldPAISValue; + property OldPAISIsNull : Boolean read GetOldPAISIsNull; property GRUPO_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue; property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; @@ -1272,13 +1288,9 @@ type property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull; - property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; - property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; - property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; - property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull; - property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; + property DESCUENTO : Currency read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; - property OldDESCUENTO : Float read GetOldDESCUENTOValue; + property OldDESCUENTO : Currency read GetOldDESCUENTOValue; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; @@ -1293,7 +1305,7 @@ type { IProveedoresDelta } IProveedoresDelta = interface(IProveedores) - ['{945D63D8-4D00-499A-A9F2-7F32031B7DFC}'] + ['{013010DB-7E71-47A7-A53E-467CF4C830E4}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -1318,9 +1330,9 @@ type function GetOldUSUARIOValue : String; function GetOldID_EMPRESAValue : Integer; function GetOldREFERENCIAValue : String; + function GetOldPAISValue : String; function GetOldDESCUENTOValue : Float; function GetOldDESCRIPCION_PROVEEDORValue : String; - function GetOldCODIGO_ASIGNADOValue : String; function GetOldGRUPO_PROVEEDORValue : String; function GetOldREGIMEN_IVAValue : String; function GetOldID_TIPO_IVAValue : Integer; @@ -1357,9 +1369,9 @@ type property OldUSUARIO : String read GetOldUSUARIOValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; + property OldPAIS : String read GetOldPAISValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; - property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; @@ -1517,6 +1529,12 @@ type function GetOldREFERENCIAIsNull: Boolean; virtual; procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + function GetPAISIsNull: Boolean; virtual; + function GetOldPAISValue: String; virtual; + function GetOldPAISIsNull: Boolean; virtual; + procedure SetPAISValue(const aValue: String); virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; function GetDESCUENTOValue: Float; virtual; function GetDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOValue: Float; virtual; @@ -1529,12 +1547,6 @@ type function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); virtual; - function GetCODIGO_ASIGNADOValue: String; virtual; - function GetCODIGO_ASIGNADOIsNull: Boolean; virtual; - function GetOldCODIGO_ASIGNADOValue: String; virtual; - function GetOldCODIGO_ASIGNADOIsNull: Boolean; virtual; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; - procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual; function GetGRUPO_PROVEEDORValue: String; virtual; function GetGRUPO_PROVEEDORIsNull: Boolean; virtual; function GetOldGRUPO_PROVEEDORValue: String; virtual; @@ -1695,6 +1707,10 @@ type property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; + property PAIS : String read GetPAISValue write SetPAISValue; + property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; + property OldPAIS : String read GetOldPAISValue; + property OldPAISIsNull : Boolean read GetOldPAISIsNull; property DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property OldDESCUENTO : Float read GetOldDESCUENTOValue; @@ -1703,10 +1719,6 @@ type property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull; - property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; - property CODIGO_ASIGNADOIsNull : Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull; - property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; - property OldCODIGO_ASIGNADOIsNull : Boolean read GetOldCODIGO_ASIGNADOIsNull; property GRUPO_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue; property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; @@ -1760,7 +1772,7 @@ type { IEmpleadosDelta } IEmpleadosDelta = interface(IEmpleados) - ['{7DF4DC2D-402C-4068-AA25-FF0898A50272}'] + ['{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CATEGORIAValue : Integer; @@ -2195,7 +2207,7 @@ type { IDireccionesContactoDelta } IDireccionesContactoDelta = interface(IDireccionesContacto) - ['{ED48ADE8-DE49-491B-884F-C80631F13C81}'] + ['{98B972CF-1202-4B4B-954B-44C2854A60CA}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -2410,7 +2422,7 @@ type { IClientesDescuentosDelta } IClientesDescuentosDelta = interface(IClientesDescuentos) - ['{8A886F27-2311-469C-BEB6-365405639C58}'] + ['{F5BE7170-6DD7-4D2F-9798-761D099BDD61}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CLIENTEValue : Integer; @@ -2492,7 +2504,7 @@ type { IGruposProveedorDelta } IGruposProveedorDelta = interface(IGruposProveedor) - ['{5C7DFC7C-95CA-4B4F-B1C9-6DA162E941E0}'] + ['{CE166657-6C53-480E-81F6-E05E1E94240D}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2538,7 +2550,7 @@ type { IGruposEmpleadoDelta } IGruposEmpleadoDelta = interface(IGruposEmpleado) - ['{A465A4A2-7B8F-47B5-A20E-5B444B27376C}'] + ['{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldDESCRIPCIONValue : String; @@ -2584,7 +2596,7 @@ type { IContactos_RefreshDelta } IContactos_RefreshDelta = interface(IContactos_Refresh) - ['{CF3A1DF8-8F5C-439E-8908-9AFB100422CD}'] + ['{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldNIF_CIFValue : String; @@ -2607,6 +2619,7 @@ type function GetOldUSUARIOValue : String; function GetOldREFERENCIAValue : String; function GetOldPERSONA_CONTACTOValue : String; + function GetOldPAISValue : String; { Properties } property OldID : Integer read GetOldIDValue; @@ -2630,6 +2643,7 @@ type property OldUSUARIO : String read GetOldUSUARIOValue; property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; + property OldPAIS : String read GetOldPAISValue; end; { TContactos_RefreshBusinessProcessorRules } @@ -2764,6 +2778,12 @@ type function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); virtual; + function GetPAISValue: String; virtual; + function GetPAISIsNull: Boolean; virtual; + function GetOldPAISValue: String; virtual; + function GetOldPAISIsNull: Boolean; virtual; + procedure SetPAISValue(const aValue: String); virtual; + procedure SetPAISIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -2850,6 +2870,10 @@ type property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; + property PAIS : String read GetPAISValue write SetPAISValue; + property PAISIsNull : Boolean read GetPAISIsNull write SetPAISIsNull; + property OldPAIS : String read GetOldPAISValue; + property OldPAISIsNull : Boolean read GetOldPAISIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -2859,7 +2883,7 @@ type { IContratosEmpleadosDelta } IContratosEmpleadosDelta = interface(IContratosEmpleados) - ['{D01B787D-9A4F-4DE4-935E-F65AA7EC6E73}'] + ['{76026549-3C22-4EF1-8452-F8B09E430989}'] { Property getters and setters } function GetOldCONTRATOValue : String; @@ -2893,7 +2917,7 @@ type { IDescripcionesProveedoresDelta } IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) - ['{F3E3C88C-9995-4F34-A9F1-B26D897BD3AF}'] + ['{724AB8D8-F8BB-4C45-8A20-0AA19291160D}'] { Property getters and setters } function GetOldDESCRIPCION_PROVEEDORValue : String; @@ -2927,7 +2951,7 @@ type { IPersonalContactoDelta } IPersonalContactoDelta = interface(IPersonalContacto) - ['{33B35E63-AE8B-489F-A124-89FFA1DA9726}'] + ['{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldID_CONTACTOValue : Integer; @@ -3804,6 +3828,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null; end; +function TContactosBusinessProcessorRules.GetPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]; +end; + +function TContactosBusinessProcessorRules.GetPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS]); +end; + +function TContactosBusinessProcessorRules.GetOldPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]; +end; + +function TContactosBusinessProcessorRules.GetOldPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ContactosPAIS]); +end; + +procedure TContactosBusinessProcessorRules.SetPAISValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS] := aValue; +end; + +procedure TContactosBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosPAIS] := Null; +end; + { TGruposClienteBusinessProcessorRules } constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); @@ -5666,6 +5721,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null; end; +function TClientesBusinessProcessorRules.GetPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]; +end; + +function TClientesBusinessProcessorRules.GetPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS]); +end; + +function TClientesBusinessProcessorRules.GetOldPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]; +end; + +function TClientesBusinessProcessorRules.GetOldPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesPAIS]); +end; + +procedure TClientesBusinessProcessorRules.SetPAISValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := aValue; +end; + +procedure TClientesBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesPAIS] := Null; +end; + function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; @@ -6038,38 +6124,7 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null; end; -function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; -end; - -function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]); -end; - -function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]; -end; - -function TClientesBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesCODIGO_ASIGNADO]); -end; - -procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := aValue; -end; - -procedure TClientesBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO] := Null; -end; - -function TClientesBusinessProcessorRules.GetDESCUENTOValue: Float; +function TClientesBusinessProcessorRules.GetDESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]; end; @@ -6079,7 +6134,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]); end; -function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Float; +function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Currency; begin result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]; end; @@ -6089,7 +6144,7 @@ begin result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]); end; -procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); +procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Currency); begin BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := aValue; end; @@ -6864,6 +6919,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null; end; +function TProveedoresBusinessProcessorRules.GetPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]; +end; + +function TProveedoresBusinessProcessorRules.GetPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS]); +end; + +function TProveedoresBusinessProcessorRules.GetOldPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]; +end; + +function TProveedoresBusinessProcessorRules.GetOldPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresPAIS]); +end; + +procedure TProveedoresBusinessProcessorRules.SetPAISValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := aValue; +end; + +procedure TProveedoresBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresPAIS] := Null; +end; + function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]; @@ -6926,37 +7012,6 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null; end; -function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String; -begin - result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]; -end; - -function TProveedoresBusinessProcessorRules.GetCODIGO_ASIGNADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]); -end; - -function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOValue: String; -begin - result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO]; -end; - -function TProveedoresBusinessProcessorRules.GetOldCODIGO_ASIGNADOIsNull: Boolean; -begin - result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProveedoresCODIGO_ASIGNADO]); -end; - -procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOValue(const aValue: String); -begin - BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := aValue; -end; - -procedure TProveedoresBusinessProcessorRules.SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); -begin - if aValue then - BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO] := Null; -end; - function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String; begin result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; @@ -9898,6 +9953,37 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := Null; end; +function TContactos_RefreshBusinessProcessorRules.GetPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS]; +end; + +function TContactos_RefreshBusinessProcessorRules.GetPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS]); +end; + +function TContactos_RefreshBusinessProcessorRules.GetOldPAISValue: String; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAIS]; +end; + +function TContactos_RefreshBusinessProcessorRules.GetOldPAISIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_Contactos_RefreshPAIS]); +end; + +procedure TContactos_RefreshBusinessProcessorRules.SetPAISValue(const aValue: String); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS] := aValue; +end; + +procedure TContactos_RefreshBusinessProcessorRules.SetPAISIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPAIS] := Null; +end; + { TContratosEmpleadosBusinessProcessorRules } constructor TContratosEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/Modulos/Contactos/Model/uBizClientesServer.pas b/Source/Modulos/Contactos/Model/uBizClientesServer.pas index c6fdcbe..e91dd71 100644 --- a/Source/Modulos/Contactos/Model/uBizClientesServer.pas +++ b/Source/Modulos/Contactos/Model/uBizClientesServer.pas @@ -91,7 +91,6 @@ begin ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; - ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; ParamByName('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]; @@ -132,7 +131,6 @@ begin ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; - ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO]; ParamByName('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]; diff --git a/Source/Modulos/Contactos/Model/uBizContactos.pas b/Source/Modulos/Contactos/Model/uBizContactos.pas index e7de524..d4635fa 100644 --- a/Source/Modulos/Contactos/Model/uBizContactos.pas +++ b/Source/Modulos/Contactos/Model/uBizContactos.pas @@ -125,9 +125,6 @@ type function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); - function GetCODIGO_ASIGNADOValue: String; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); - function GetID_TIPO_IVAValue: Integer; procedure SetID_TIPO_IVAValue(const aValue: Integer); @@ -161,7 +158,6 @@ type 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; - property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; @@ -351,9 +347,6 @@ type function GetDESCRIPCION_PROVEEDORValue: String; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); - function GetCODIGO_ASIGNADOValue: String; - procedure SetCODIGO_ASIGNADOValue(const aValue: String); - function GetREGIMEN_IVAValue: String; procedure SetREGIMEN_IVAValue(const aValue: String); @@ -390,7 +383,6 @@ type procedure IniciarValoresContactoNuevo; override; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; - property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; @@ -807,11 +799,6 @@ begin result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString; end; -function TBizProveedor.GetCODIGO_ASIGNADOValue: String; -begin - result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString; -end; - function TBizProveedor.GetDESCRIPCION_PROVEEDORValue: String; begin result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString; @@ -827,11 +814,6 @@ begin DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue; end; -procedure TBizProveedor.SetCODIGO_ASIGNADOValue(const aValue: String); -begin - DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString := aValue; -end; - procedure TBizProveedor.SetDESCRIPCION_PROVEEDORValue(const aValue: String); begin DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString := aValue; diff --git a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas index 128cb0a..22326fc 100644 --- a/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas +++ b/Source/Modulos/Contactos/Model/uBizProveedoresServer.pas @@ -82,7 +82,6 @@ begin ParamByName('ID_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresID]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ProveedoresDESCUENTO]; ParamByName('DESCRIPCION_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; - ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]; ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; @@ -122,7 +121,6 @@ begin ParamByName('ID_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresID]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ProveedoresDESCUENTO]; ParamByName('DESCRIPCION_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; - ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ProveedoresCODIGO_ASIGNADO]; ParamByName('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm index 5b7c5b8..c7ffcfd 100644 --- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm +++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm @@ -18,8 +18,6 @@ object RptEtiquetasContacto: TRptEtiquetasContacto LogChanges = False StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False - DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] - MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 264 Top = 128 @@ -64,8 +62,8 @@ object RptEtiquetasContacto: TRptEtiquetasContacto TargetTable = 'V_CONTACTOS' SQL = 'select'#10' ID,'#10' NIF_CIF,'#10' NOMBRE,'#10' PERSONA_CONTACTO,'#10' ' + - ' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL'#10'from CO' + - 'NTACTOS' + ' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' PA' + + 'IS'#10'from CONTACTOS'#10 StatementType = stSQL ColumnMappings = < item @@ -99,6 +97,10 @@ object RptEtiquetasContacto: TRptEtiquetasContacto item DatasetField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL' + end + item + DatasetField = 'PAIS' + TableField = 'PAIS' end> end> Name = 'InformeEtiquetasContacto' @@ -141,6 +143,11 @@ object RptEtiquetasContacto: TRptEtiquetasContacto Name = 'CODIGO_POSTAL' DataType = datString Size = 10 + end + item + Name = 'PAIS' + DataType = datString + Size = 255 end> end> JoinDataTables = <> @@ -347,7 +354,7 @@ object RptEtiquetasContacto: TRptEtiquetasContacto Top = 158 end object frxReport: TfrxReport - Version = '4.3' + Version = '4.7.71' DotMatrixReport = False IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] @@ -421,6 +428,7 @@ object RptEtiquetasContacto: TRptEtiquetasContacto UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera + BCDToCurrency = False Left = 264 Top = 16 end diff --git a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas index b87711d..3f17db1 100644 --- a/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas +++ b/Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas @@ -23,9 +23,9 @@ type frxChartObject1: TfrxChartObject; frxDBCabecera: TfrxDBDataset; frxReport: TfrxReport; + Bin2DataStreamer: TDABin2DataStreamer; schReport: TDASchema; DataDictionary: TDADataDictionary; - Bin2DataStreamer: TDABin2DataStreamer; procedure DataModuleCreate(Sender: TObject); procedure DataModuleDestroy(Sender: TObject); private diff --git a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm index 50f1af8..9366ade 100644 --- a/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm +++ b/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm @@ -112,6 +112,10 @@ object srvContactos: TsrvContactos item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' + end + item + DatasetField = 'PAIS' + TableField = 'PAIS' end> end> Name = 'Contactos' @@ -250,6 +254,11 @@ object srvContactos: TsrvContactos Size = 255 ServerAutoRefresh = True DictionaryEntry = 'Contactos_REFERENCIA' + end + item + Name = 'PAIS' + DataType = datString + Size = 255 end> end item @@ -490,6 +499,10 @@ object srvContactos: TsrvContactos item DatasetField = 'COMISION' TableField = 'COMISION' + end + item + DatasetField = 'PAIS' + TableField = 'PAIS' end> end> Name = 'Vendedores' @@ -630,6 +643,11 @@ object srvContactos: TsrvContactos ServerAutoRefresh = True DictionaryEntry = 'Vendedores_REFERENCIA' end + item + Name = 'PAIS' + DataType = datString + Size = 255 + end item Name = 'COMISION' DataType = datCurrency @@ -772,10 +790,6 @@ object srvContactos: TsrvContactos DatasetField = 'TIENDA_WEB' TableField = 'TIENDA_WEB' end - item - DatasetField = 'CODIGO_ASIGNADO' - TableField = 'CODIGO_ASIGNADO' - end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' @@ -795,6 +809,10 @@ object srvContactos: TsrvContactos item DatasetField = 'FELICITACION' TableField = 'FELICITACION' + end + item + DatasetField = 'PAIS' + TableField = 'PAIS' end> end> Name = 'Clientes' @@ -934,6 +952,11 @@ object srvContactos: TsrvContactos ServerAutoRefresh = True DictionaryEntry = 'Clientes_REFERENCIA' end + item + Name = 'PAIS' + DataType = datString + Size = 255 + end item Name = 'GRUPO_CLIENTE' DataType = datString @@ -995,14 +1018,9 @@ object srvContactos: TsrvContactos DataType = datSmallInt DictionaryEntry = 'Clientes_TIENDA_WEB' end - item - Name = 'CODIGO_ASIGNADO' - DataType = datString - Size = 255 - end item Name = 'DESCUENTO' - DataType = datFloat + DataType = datCurrency end item Name = 'FELICITACION' @@ -1118,10 +1136,6 @@ object srvContactos: TsrvContactos DatasetField = 'DESCRIPCION_PROVEEDOR' TableField = 'DESCRIPCION_PROVEEDOR' end - item - DatasetField = 'CODIGO_ASIGNADO' - TableField = 'CODIGO_ASIGNADO' - end item DatasetField = 'GRUPO_PROVEEDOR' TableField = 'GRUPO_PROVEEDOR' @@ -1165,6 +1179,10 @@ object srvContactos: TsrvContactos item DatasetField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3' + end + item + DatasetField = 'PAIS' + TableField = 'PAIS' end> end> Name = 'Proveedores' @@ -1306,6 +1324,11 @@ object srvContactos: TsrvContactos ServerAutoRefresh = True DictionaryEntry = 'Proveedores_REFERENCIA' end + item + Name = 'PAIS' + DataType = datString + Size = 255 + end item Name = 'DESCUENTO' DataType = datFloat @@ -1317,12 +1340,6 @@ object srvContactos: TsrvContactos Size = 255 DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR' end - item - Name = 'CODIGO_ASIGNADO' - DataType = datString - Size = 255 - DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO' - end item Name = 'GRUPO_PROVEEDOR' DataType = datString @@ -2038,8 +2055,8 @@ object srvContactos: TsrvContactos 'SELECT '#10' ID, NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' + 'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' + ' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' + - 'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO'#10' FROM'#10' ' + - ' CONTACTOS'#10' WHERE ID = :ID'#10 + 'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO, PAIS'#10' FR' + + 'OM'#10' CONTACTOS'#10' WHERE ID = :ID'#10 StatementType = stSQL ColumnMappings = < item @@ -2125,6 +2142,10 @@ object srvContactos: TsrvContactos item DatasetField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO' + end + item + DatasetField = 'PAIS' + TableField = 'PAIS' end> end> Name = 'Contactos_Refresh' @@ -2233,6 +2254,11 @@ object srvContactos: TsrvContactos Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 + end + item + Name = 'PAIS' + DataType = datString + Size = 255 end> end item @@ -2409,132 +2435,119 @@ object srvContactos: TsrvContactos DataType = datAutoInc GeneratorName = 'GEN_CONTACTOS_ID' Value = '' - ParamType = daptInput end item Name = 'NIF_CIF' DataType = datString Size = 15 Value = '' - ParamType = daptInput end item Name = 'NOMBRE' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'POBLACION' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 Value = '' - ParamType = daptInput end item Name = 'TELEFONO_1' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'TELEFONO_2' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'MOVIL_1' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'MOVIL_2' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'FAX' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'EMAIL_1' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'EMAIL_2' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'PAGINA_WEB' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'NOTAS' DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'USUARIO' DataType = datString - Size = 20 + Size = 30 Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' - ParamType = daptInput + end + item + Name = 'PAIS' + DataType = datString + Size = 255 + Value = '' end> Statements = < item @@ -2544,11 +2557,11 @@ object srvContactos: TsrvContactos 'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' + 'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' + ' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' + - 'NA_WEB, NOTAS, USUARIO, REFERENCIA)'#10' VALUES'#10' (:ID, :NIF_CIF,' + - ' :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PROVINCIA,'#10' ' + - ' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10' :MOV' + - 'IL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' :USUA' + - 'RIO, :REFERENCIA)' + 'NA_WEB, NOTAS, USUARIO, REFERENCIA, PAIS)'#10' VALUES'#10' (:ID, :NI' + + 'F_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PROVINCI' + + 'A,'#10' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10' ' + + ' :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' ' + + ' :USUARIO, :REFERENCIA, :PAIS)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -2579,131 +2592,117 @@ object srvContactos: TsrvContactos DataType = datString Size = 15 Value = '' - ParamType = daptInput end item Name = 'NOMBRE' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'CALLE' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'POBLACION' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'PROVINCIA' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 Value = '' - ParamType = daptInput end item Name = 'TELEFONO_1' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'TELEFONO_2' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'MOVIL_1' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'MOVIL_2' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'FAX' DataType = datString Size = 25 Value = '' - ParamType = daptInput end item Name = 'EMAIL_1' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'EMAIL_2' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'PAGINA_WEB' DataType = datString Size = 255 Value = '' - ParamType = daptInput end item Name = 'NOTAS' DataType = datMemo Value = '' - ParamType = daptInput end item Name = 'USUARIO' DataType = datString - Size = 20 + Size = 30 Value = '' - ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' - ParamType = daptInput + end + item + Name = 'PAIS' + DataType = datString + Size = 255 + Value = '' end item Name = 'OLD_ID' - DataType = datInteger Value = '' - ParamType = daptInput end> Statements = < item @@ -2718,7 +2717,7 @@ object srvContactos: TsrvContactos 'MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' ' + ' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS' + ' = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA' + - #10' WHERE'#10' (ID = :OLD_ID)'#10 + ','#10' PAIS = :PAIS'#10' WHERE'#10' (ID = :OLD_ID)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3095,12 +3094,6 @@ object srvContactos: TsrvContactos DataType = datSmallInt Value = '' end - item - Name = 'CODIGO_ASIGNADO' - DataType = datString - Size = 255 - Value = '' - end item Name = 'DESCUENTO' DataType = datCurrency @@ -3133,14 +3126,14 @@ object srvContactos: TsrvContactos SQL = 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' + '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' FELICITACION)'#10' VAL' + - 'UES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NO' + - 'MBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, ' + - ':ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO' + - ', :DESCUENTO,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURA' + - 'S_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10 + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' + + 'ESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, V' + + 'ENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' (:ID_CLIE' + + 'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' + + ' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID' + + '_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO,'#10' :VENCIMIENTO_FAC' + + 'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' ' + + ':FELICITACION)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3296,12 +3289,6 @@ object srvContactos: TsrvContactos DataType = datSmallInt Value = '' end - item - Name = 'CODIGO_ASIGNADO' - DataType = datString - Size = 255 - Value = '' - end item Name = 'DESCUENTO' DataType = datCurrency @@ -3342,11 +3329,11 @@ object srvContactos: TsrvContactos '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' FELICITACION = :FELICI' + - 'TACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 + ' DESCUENTO = :DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIM' + + 'IENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACT' + + 'URAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' ' + + ' FELICITACION = :FELICITACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID' + + '_CLIENTE)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3356,62 +3343,76 @@ object srvContactos: TsrvContactos Params = < item Name = 'ID_PROVEEDOR' + DataType = datInteger Value = '' end item Name = 'REGIMEN_IVA' + DataType = datString + Size = 255 Value = '' end item Name = 'DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'DESCRIPCION_PROVEEDOR' - Value = '' - end - item - Name = 'CODIGO_ASIGNADO' + DataType = datString + Size = 255 Value = '' end item Name = 'ID_TIPO_IVA' + DataType = datInteger Value = '' end item Name = 'SUBCONTRATA' + DataType = datSmallInt Value = '' end item Name = 'ID_FORMA_PAGO' + DataType = datInteger Value = '' end item Name = 'TIENDA_WEB' + DataType = datSmallInt Value = '' end item Name = 'HOMOLOGADO' + DataType = datSmallInt Value = '' end item Name = 'CERTIFICACION' + DataType = datString + Size = 255 Value = '' end item Name = 'GRUPO_PROVEEDOR' + DataType = datString + Size = 255 Value = '' end item Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datSmallInt Value = '' end item Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datSmallInt Value = '' end item Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datSmallInt Value = '' end> Statements = < @@ -3420,15 +3421,14 @@ object srvContactos: TsrvContactos TargetTable = 'PROVEEDORES_DATOS' SQL = 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + - 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + - '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 + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' ID_TIPO_IVA, SUBCONTRATA, ' + + 'ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERTIFICACION, GRUPO_' + + 'PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, V' + + 'ENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA' + + ', :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :ID_TIPO_IVA, :SUBCONT' + + 'RATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACI' + + 'ON, :GRUPO_PROVEEDOR,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_' + + 'FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10 StatementType = stSQL ColumnMappings = <> end> @@ -3458,62 +3458,76 @@ object srvContactos: TsrvContactos Params = < item Name = 'ID_PROVEEDOR' + DataType = datInteger Value = '' end item Name = 'REGIMEN_IVA' + DataType = datString + Size = 255 Value = '' end item Name = 'DESCUENTO' + DataType = datCurrency Value = '' end item Name = 'DESCRIPCION_PROVEEDOR' - Value = '' - end - item - Name = 'CODIGO_ASIGNADO' + DataType = datString + Size = 255 Value = '' end item Name = 'ID_TIPO_IVA' + DataType = datInteger Value = '' end item Name = 'ID_FORMA_PAGO' + DataType = datInteger Value = '' end item Name = 'TIENDA_WEB' + DataType = datSmallInt Value = '' end item Name = 'HOMOLOGADO' + DataType = datSmallInt Value = '' end item Name = 'CERTIFICACION' + DataType = datString + Size = 255 Value = '' end item Name = 'GRUPO_PROVEEDOR' + DataType = datString + Size = 255 Value = '' end item Name = 'SUBCONTRATA' + DataType = datSmallInt Value = '' end item Name = 'VENCIMIENTO_FACTURAS_1' + DataType = datSmallInt Value = '' end item Name = 'VENCIMIENTO_FACTURAS_2' + DataType = datSmallInt Value = '' end item Name = 'VENCIMIENTO_FACTURAS_3' + DataType = datSmallInt Value = '' end item @@ -3527,15 +3541,14 @@ object srvContactos: TsrvContactos SQL = 'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' + ', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' + - ' DESCRIPCION_PROVEEDOR = :DESCRIPCION_PROVEEDOR,'#10' CODIGO_AS' + - 'IGNADO = :CODIGO_ASIGNADO,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' I' + - 'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' + - ' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' + - ' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' + - '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 + ' DESCRIPCION_PROVEEDOR = :DESCRIPCION_PROVEEDOR,'#10' ID_TIPO_I' + + 'VA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIEND' + + 'A_WEB = :TIENDA_WEB,'#10' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICA' + + 'CION = :CERTIFICACION,'#10' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' ' + + ' SUBCONTRATA = :SUBCONTRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VEN' + + 'CIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_F' + + 'ACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10 + + ' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10 StatementType = stSQL ColumnMappings = <> end> diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dpk b/Source/Modulos/Contactos/Views/Contactos_view.dpk index 058d725..e9f20f6 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dpk +++ b/Source/Modulos/Contactos/Views/Contactos_view.dpk @@ -126,7 +126,7 @@ contains uViewVendedores in 'uViewVendedores.pas' {frViewVendedores: TCustomView}, uViewVendedor in 'uViewVendedor.pas' {frViewVendedor: TCustomView}, uEditorVendedores in 'uEditorVendedores.pas' {fEditorVendedores: TCustomEditor}, - uEditorVendedor in 'uEditorVendedor.pas' {fEditorVendedor: TCustomEditor}, - uEditorElegirVendedores in 'uEditorElegirVendedores.pas' {fEditorElegirVendedores: TCustomEditor}; + uEditorElegirVendedores in 'uEditorElegirVendedores.pas' {fEditorElegirVendedores: TCustomEditor}, + uEditorVendedor in 'uEditorVendedor.pas'{fEditorVendedor: TCustomEditor}; end. diff --git a/Source/Modulos/Contactos/Views/Contactos_view.dproj b/Source/Modulos/Contactos/Views/Contactos_view.dproj index 07bb40d..1efa02d 100644 --- a/Source/Modulos/Contactos/Views/Contactos_view.dproj +++ b/Source/Modulos/Contactos/Views/Contactos_view.dproj @@ -49,63 +49,56 @@ MainSource - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fEditorCliente
@@ -191,7 +184,7 @@ TCustomEditor -
fEditorVendedor
+
fEditorElegirVendedor
TCustomEditor @@ -278,6 +271,13 @@
frViewVendedores
TCustomView + + + + + + +