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
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -191,7 +184,7 @@
TCustomEditor
-
+
TCustomEditor
@@ -278,6 +271,13 @@
TCustomView
+
+
+
+
+
+
+