Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso de general de contactos

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@9 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2009-12-21 17:56:36 +00:00
parent ea2993a443
commit 5c11095e87
26 changed files with 1202 additions and 1240 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Database/scripts/factuges.sql
View File

@ -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,

170
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -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'

15
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -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

162
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -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

16
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -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

318
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -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);

338
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -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);

2
Source/Modulos/Contactos/Model/uBizClientesServer.pas
View File

@ -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];

18
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -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;

2
Source/Modulos/Contactos/Model/uBizProveedoresServer.pas
View File

@ -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];

18
Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.dfm
View File

@ -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

2
Source/Modulos/Contactos/Reports/uRptEtiquetasContacto_Server.pas
View File

@ -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

253
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -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>

4
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -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.

116
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,63 +49,56 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\bdertl.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\cxDataD11.dcp" />
<DCCReference Include="..\cxEditorsD11.dcp" />
<DCCReference Include="..\cxExportD11.dcp" />
<DCCReference Include="..\cxExtEditorsD11.dcp" />
<DCCReference Include="..\cxGridD11.dcp" />
<DCCReference Include="..\cxLibraryD11.dcp" />
<DCCReference Include="..\cxPageControlD11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclcxLibraryD11.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\dxComnD11.dcp" />
<DCCReference Include="..\dxCoreD11.dcp" />
<DCCReference Include="..\dxGDIPlusD11.dcp" />
<DCCReference Include="..\dxLayoutControlD11.dcp" />
<DCCReference Include="..\dxPSCoreD11.dcp" />
<DCCReference Include="..\dxPScxCommonD11.dcp" />
<DCCReference Include="..\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\dxPSLnksD11.dcp" />
<DCCReference Include="..\dxThemeD11.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11R.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\tb2k_d10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\vclshlctrls.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="bdertl.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="cxDataD11.dcp" />
<DCCReference Include="cxEditorsD11.dcp" />
<DCCReference Include="cxExportD11.dcp" />
<DCCReference Include="cxExtEditorsD11.dcp" />
<DCCReference Include="cxGridD11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="cxPageControlD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclcxLibraryD11.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxComnD11.dcp" />
<DCCReference Include="dxCoreD11.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxLayoutControlD11.dcp" />
<DCCReference Include="dxPSCoreD11.dcp" />
<DCCReference Include="dxPScxCommonD11.dcp" />
<DCCReference Include="dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="dxPSLnksD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11R.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="tb2k_d10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>
@ -191,7 +184,7 @@
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorVendedor.pas">
<Form>fEditorVendedor</Form>
<Form>fEditorElegirVendedor</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorVendedores.pas">
@ -278,6 +271,13 @@
<Form>frViewVendedores</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="vclshlctrls.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

146
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -164,6 +164,18 @@ inherited fEditorCliente: TfEditorCliente
ExplicitTop = 162
end
inherited eCalle: TcxDBTextEdit
Left = 138
Top = 240
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 240
ExplicitWidth = 246
Width = 246
end
inherited cbProvincia: TcxDBComboBox
Left = 138
Top = 267
Style.LookAndFeel.SkinName = ''
@ -172,42 +184,30 @@ inherited fEditorCliente: TfEditorCliente
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 267
ExplicitWidth = 246
Width = 246
end
inherited cbProvincia: TcxDBComboBox
Left = 138
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 294
ExplicitWidth = 145
Width = 145
end
inherited cbPoblacion: TcxDBComboBox
Left = 138
Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 321
ExplicitWidth = 246
Width = 246
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 306
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 306
ExplicitLeft = 138
ExplicitTop = 294
ExplicitWidth = 246
Width = 246
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 311
Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 311
ExplicitTop = 267
end
inherited eObservaciones: TcxDBMemo
Top = 399
@ -234,40 +234,16 @@ inherited fEditorCliente: TfEditorCliente
Width = 246
end
inherited cbClienteBloqueado: TcxDBCheckBox
Top = 189
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189
ExplicitTop = 162
ExplicitWidth = 356
Width = 356
end
inherited cbGrupoCliente: TcxDBComboBox
Left = 138
Top = 138
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 138
ExplicitWidth = 246
Width = 246
end
inherited eBloqueo: TcxDBTextEdit
Left = 138
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 216
ExplicitWidth = 246
Width = 246
end
inherited eCodigoAsignado: TcxDBTextEdit
Left = 138
Top = 111
Style.LookAndFeel.SkinName = ''
@ -279,50 +255,54 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246
Width = 246
end
inherited eBloqueo: TcxDBTextEdit
Left = 138
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 189
ExplicitWidth = 246
Width = 246
end
inherited eTlfParticular: TcxDBTextEdit
Left = 494
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 57
ExplicitWidth = 177
Width = 177
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 494
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 30
ExplicitWidth = 177
Width = 177
end
inherited eTlfMovil: TcxDBTextEdit
Left = 494
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 84
ExplicitWidth = 177
Width = 177
end
inherited eFax: TcxDBTextEdit
Left = 494
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 111
ExplicitWidth = 177
Width = 177
@ -339,60 +319,52 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246
Width = 246
end
inherited cbFelicitacion: TcxDBCheckBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited eNIFCIF: TcxDBTextEdit
Left = 217
Left = 219
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 217
ExplicitLeft = 219
ExplicitTop = 30
ExplicitWidth = 162
Width = 162
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 494
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 162
ExplicitWidth = 148
Width = 148
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 494
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 190
ExplicitWidth = 148
Width = 148
end
inherited cbFelicitacion: TcxDBCheckBox
Left = 399
Top = 270
ExplicitLeft = 399
ExplicitTop = 270
ExplicitWidth = 370
Width = 370
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 494
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 494
ExplicitTop = 217
ExplicitWidth = 148
Width = 148
@ -421,6 +393,18 @@ inherited fEditorCliente: TfEditorCliente
ExplicitWidth = 246
Width = 246
end
inherited ePais: TcxDBTextEdit
Left = 138
Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 138
ExplicitTop = 321
ExplicitWidth = 256
Width = 256
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -652,6 +636,18 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar
Width = 778
ExplicitWidth = 778
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end

93
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -175,44 +175,44 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 342
end
inherited eCalle: TcxDBTextEdit
Top = 240
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 240
ExplicitWidth = 366
Width = 366
end
inherited cbProvincia: TcxDBComboBox
Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 267
ExplicitWidth = 366
Width = 366
ExplicitWidth = 265
Width = 265
end
inherited cbProvincia: TcxDBComboBox
inherited cbPoblacion: TcxDBComboBox
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294
ExplicitWidth = 265
Width = 265
end
inherited cbPoblacion: TcxDBComboBox
Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 321
ExplicitWidth = 366
Width = 366
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 403
Top = 294
Top = 267
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 403
ExplicitTop = 294
ExplicitTop = 267
end
inherited eObservaciones: TcxDBMemo
Top = 399
@ -227,32 +227,32 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 772
end
inherited cxDBCheckBox2: TcxDBCheckBox
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 162
ExplicitWidth = 478
Width = 478
end
inherited eCertificaciones: TcxDBTextEdit
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189
ExplicitWidth = 478
Width = 478
end
inherited eCertificaciones: TcxDBTextEdit
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 366
Width = 366
end
inherited cbGrupoProveedor: TcxDBComboBox
Top = 138
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitTop = 111
ExplicitWidth = 277
Width = 277
end
@ -266,16 +266,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366
Width = 366
end
inherited eCodigoAsignado: TcxDBTextEdit
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 366
Width = 366
end
inherited eTlfParticular: TcxDBTextEdit
Left = 591
Top = 57
@ -336,13 +326,13 @@ inherited fEditorProveedor: TfEditorProveedor
end
inherited cxDBCheckBox3: TcxDBCheckBox
Left = 385
Top = 138
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385
ExplicitTop = 138
ExplicitTop = 111
end
inherited eNIFCIF: TcxDBTextEdit
Left = 258
@ -426,6 +416,16 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366
Width = 366
end
inherited ePais: TcxDBTextEdit
Top = 321
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 321
ExplicitWidth = 256
Width = 256
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -433,9 +433,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited dxLayoutControlContactoItem21: TdxLayoutItem
Visible = False
end
inherited dxLayoutControlContactoItem24: TdxLayoutItem
Visible = False
end
inherited dxLayoutControlContactoGroup15: TdxLayoutGroup
Visible = False
end
@ -639,6 +636,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 816
ExplicitWidth = 816
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end
end
end

84
Source/Modulos/Contactos/Views/uEditorVendedor.dfm
View File

@ -113,52 +113,48 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitTop = 162
end
inherited eCalle: TcxDBTextEdit
Top = 138
Top = 135
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138
ExplicitTop = 135
ExplicitWidth = 174
Width = 174
end
inherited cbProvincia: TcxDBComboBox
Top = 165
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 165
ExplicitWidth = 144
Width = 144
ExplicitTop = 162
end
inherited cbPoblacion: TcxDBComboBox
Top = 192
Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 192
ExplicitWidth = 236
Width = 236
ExplicitTop = 189
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 308
Top = 165
Left = 319
Top = 162
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 308
ExplicitTop = 165
ExplicitLeft = 319
ExplicitTop = 162
end
inherited eObservaciones: TcxDBMemo
Top = 270
Top = 294
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 270
ExplicitTop = 294
ExplicitWidth = 630
ExplicitHeight = 86
Height = 86
@ -168,53 +164,51 @@ inherited fEditorVendedor: TfEditorVendedor
Top = 84
Style.IsFontAssigned = True
ExplicitTop = 84
ExplicitWidth = 65
Width = 65
end
inherited eTlfParticular: TcxDBTextEdit
Left = 496
Left = 507
Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 496
Left = 507
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 30
ExplicitWidth = 172
Width = 172
end
inherited eTlfMovil: TcxDBTextEdit
Left = 496
Left = 507
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
end
inherited eFax: TcxDBTextEdit
Left = 496
Left = 507
Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 111
ExplicitWidth = 172
Width = 172
@ -226,58 +220,50 @@ inherited fEditorVendedor: TfEditorVendedor
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57
ExplicitWidth = 263
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit
Left = 217
Left = 222
Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 217
ExplicitLeft = 222
ExplicitTop = 30
ExplicitWidth = 194
Width = 194
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 496
Left = 507
Top = 162
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 496
Left = 507
Top = 190
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 190
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 496
Left = 507
Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 496
ExplicitLeft = 507
ExplicitTop = 217
ExplicitWidth = 165
Width = 165
end
inherited eReferencia: TcxDBTextEdit
Top = 30
@ -290,12 +276,22 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 97
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 219
Top = 243
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 219
ExplicitTop = 243
ExplicitWidth = 256
Width = 256
end
inherited ePais: TcxDBTextEdit
Top = 216
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 256
Width = 256
end

178
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -23,54 +23,54 @@ inherited frViewCliente: TfrViewCliente
ExplicitLeft = 733
end
inherited eCalle: TcxDBTextEdit
Left = 132
Left = 121
Top = 250
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
ExplicitLeft = 121
ExplicitTop = 250
ExplicitWidth = 260
Width = 260
end
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 277
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 132
ExplicitLeft = 121
ExplicitTop = 277
ExplicitWidth = 260
Width = 260
end
inherited cbProvincia: TcxDBComboBox
Left = 132
Top = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 304
ExplicitWidth = 159
Width = 159
end
inherited cbPoblacion: TcxDBComboBox
Left = 132
Top = 331
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 331
ExplicitWidth = 260
Width = 260
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 309
Left = 121
Top = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 309
ExplicitLeft = 121
ExplicitTop = 304
ExplicitWidth = 260
Width = 260
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 309
Top = 277
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 309
ExplicitTop = 277
end
inherited eObservaciones: TcxDBMemo
Top = 415
@ -86,7 +86,7 @@ inherited frViewCliente: TfrViewCliente
Width = 733
end
object eNombreComercial: TcxDBTextEdit [8]
Left = 132
Left = 121
Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL'
DataBinding.DataSource = dsContacto
@ -107,7 +107,7 @@ inherited frViewCliente: TfrViewCliente
end
object cbClienteBloqueado: TcxDBCheckBox [9]
Left = 22
Top = 193
Top = 166
Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto
@ -126,12 +126,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 5
Width = 370
end
object cbGrupoCliente: TcxDBComboBox [10]
Left = 132
Top = 136
Left = 121
Top = 109
DataBinding.DataField = 'GRUPO_CLIENTE'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
@ -150,12 +150,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 4
Width = 260
end
object eBloqueo: TcxDBTextEdit [11]
Left = 132
Top = 220
Left = 121
Top = 193
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -169,27 +169,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 260
end
object eCodigoAsignado: TcxDBTextEdit [12]
Left = 132
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.Color = clWindow
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
TabOrder = 6
Width = 260
end
inherited eTlfParticular: TcxDBTextEdit
@ -237,23 +217,47 @@ inherited frViewCliente: TfrViewCliente
Width = 238
end
inherited eNombre: TcxDBTextEdit
Left = 132
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
ExplicitLeft = 121
ExplicitWidth = 260
Width = 260
end
object cbFelicitacion: TcxDBCheckBox [17]
Left = 404
Top = 280
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
DataBinding.DataField = 'FELICITACION'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
Width = 370
end
inherited eNIFCIF: TcxDBTextEdit
Left = 283
Left = 279
Properties.OnValidate = eNIFCIFPropertiesValidate
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 283
ExplicitLeft = 279
ExplicitWidth = 91
Width = 91
end
@ -281,30 +285,6 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 209
Width = 209
end
object cbFelicitacion: TcxDBCheckBox [21]
Left = 404
Top = 280
Caption = 'Mandar felicitaci'#243'n navide'#241'a a este cliente'
DataBinding.DataField = 'FELICITACION'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Properties.ValueChecked = 1
Properties.ValueUnchecked = 0
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
Width = 370
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 499
Style.LookAndFeel.SkinName = ''
@ -317,26 +297,37 @@ inherited frViewCliente: TfrViewCliente
Width = 209
end
inherited eReferencia: TcxDBTextEdit
Left = 132
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132
ExplicitLeft = 121
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Left = 121
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 132
ExplicitLeft = 121
ExplicitTop = 358
ExplicitWidth = 260
Width = 260
end
inherited ePais: TcxDBTextEdit
Left = 121
Top = 331
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 331
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avBottom
@ -348,11 +339,6 @@ inherited frViewCliente: TfrViewCliente
Control = eNombreComercial
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'C'#243'digo de proveedor:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahClient

2
Source/Modulos/Contactos/Views/uViewCliente.pas
View File

@ -29,8 +29,6 @@ type
dxLayoutControlContactoItem16: TdxLayoutItem;
eBloqueo: TcxDBTextEdit;
actBloqueoCliente: TAction;
dxLayoutControlContactoItem22: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoGroup8: TdxLayoutGroup;
dxLayoutControlContactoItem20: TdxLayoutItem;
cbFelicitacion: TcxDBCheckBox;

51
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -105,7 +105,7 @@ inherited frViewContacto: TfrViewContacto
end
object eCalle: TcxDBTextEdit
Left = 115
Top = 142
Top = 115
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -127,7 +127,7 @@ inherited frViewContacto: TfrViewContacto
end
object cbProvincia: TcxDBComboBox
Left = 115
Top = 169
Top = 142
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
@ -155,7 +155,7 @@ inherited frViewContacto: TfrViewContacto
end
object cbPoblacion: TcxDBComboBox
Left = 115
Top = 196
Top = 169
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
@ -183,7 +183,7 @@ inherited frViewContacto: TfrViewContacto
end
object eCodigoPostal: TcxDBTextEdit
Left = 306
Top = 169
Top = 142
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -223,7 +223,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
TabOrder = 16
Height = 86
Width = 630
end
@ -246,7 +246,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
TabOrder = 10
Width = 156
end
object eTlfTrabajo: TcxDBTextEdit
@ -268,7 +268,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
TabOrder = 9
Width = 156
end
object eTlfMovil: TcxDBTextEdit
@ -290,7 +290,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
TabOrder = 11
Width = 156
end
object eFax: TcxDBTextEdit
@ -312,7 +312,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
TabOrder = 12
Width = 156
end
object eNombre: TcxDBTextEdit
@ -385,7 +385,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
TabOrder = 13
Width = 127
end
object eMailParticular: TcxDBHyperLinkEdit
@ -411,7 +411,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
TabOrder = 14
Width = 127
end
object ePaginaWeb: TcxDBHyperLinkEdit
@ -437,7 +437,7 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
TabOrder = 15
Width = 127
end
object eReferencia: TcxDBTextEdit
@ -486,6 +486,28 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
Width = 256
end
object ePais: TcxDBTextEdit
Left = 115
Top = 196
DataBinding.DataField = 'PAIS'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 256
end
@ -569,6 +591,11 @@ inherited frViewContacto: TfrViewContacto
Control = cbPoblacion
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem116: TdxLayoutItem
Caption = 'Pa'#237's:'
Control = ePais
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:'
Control = ePersonaContacto

2
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -85,6 +85,8 @@ type
dxLayoutControlContactoItem167: TdxLayoutItem;
ePersonaContacto: TcxDBTextEdit;
dxLayoutControlContactoGroup10: TdxLayoutGroup;
dxLayoutControlContactoItem116: TdxLayoutItem;
ePais: TcxDBTextEdit;
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
procedure actMandarCorreoParticularExecute(Sender: TObject);
procedure actMandarCorreoTrabajoExecute(Sender: TObject);

203
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -1,30 +1,34 @@
inherited frViewEmpleado: TfrViewEmpleado
Width = 673
Height = 424
Width = 690
Height = 473
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 673
ExplicitHeight = 424
ExplicitWidth = 690
ExplicitHeight = 473
inherited dxLayoutControlContacto: TdxLayoutControl
Width = 673
Height = 424
Width = 690
Height = 473
ExplicitWidth = 673
ExplicitHeight = 424
inherited PngSpeedButton1: TPngSpeedButton
Left = 611
ExplicitLeft = 611
Left = 645
ExplicitLeft = 645
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 611
ExplicitLeft = 611
Left = 645
ExplicitLeft = 645
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 611
ExplicitLeft = 611
Left = 645
ExplicitLeft = 645
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 247
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 121
ExplicitTop = 247
@ -34,6 +38,10 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 274
@ -43,6 +51,10 @@ inherited frViewEmpleado: TfrViewEmpleado
inherited cbPoblacion: TcxDBComboBox
Left = 121
Top = 301
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 121
ExplicitTop = 301
@ -50,16 +62,24 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 239
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 285
Left = 312
Top = 274
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 285
ExplicitLeft = 312
ExplicitTop = 274
end
inherited eObservaciones: TcxDBMemo
Top = 385
TabOrder = 22
ExplicitTop = 385
Top = 412
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 23
ExplicitTop = 412
ExplicitWidth = 629
ExplicitHeight = 38
Height = 38
@ -124,7 +144,7 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 239
end
object cbContrato: TcxDBComboBox [11]
Left = 475
Left = 502
Top = 280
DataBinding.DataField = 'CONTRATO'
DataBinding.DataSource = dsContacto
@ -144,11 +164,11 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 20
TabOrder = 21
Width = 166
end
object eDuracionContrato: TcxDBTextEdit [12]
Left = 475
Left = 502
Top = 307
DataBinding.DataField = 'DURACION'
DataBinding.DataSource = dsContacto
@ -162,88 +182,98 @@ inherited frViewEmpleado: TfrViewEmpleado
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 21
TabOrder = 22
Width = 166
end
inherited eTlfParticular: TcxDBTextEdit
Left = 475
TabOrder = 14
ExplicitLeft = 475
Left = 502
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 502
ExplicitWidth = 166
Width = 166
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 475
TabOrder = 13
ExplicitLeft = 475
Left = 502
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 502
ExplicitWidth = 166
Width = 166
end
inherited eTlfMovil: TcxDBTextEdit
Left = 475
TabOrder = 15
ExplicitLeft = 475
Left = 502
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 502
ExplicitWidth = 166
Width = 166
end
inherited eFax: TcxDBTextEdit
Left = 475
TabOrder = 16
ExplicitLeft = 475
Left = 502
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 502
ExplicitWidth = 166
Width = 166
end
inherited eNombre: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 239
Width = 239
end
inherited eNIFCIF: TcxDBTextEdit
Left = 225
ExplicitLeft = 225
Left = 240
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 240
ExplicitWidth = 126
Width = 126
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 475
Left = 502
Properties.Prefix = 'mailto:'
TabOrder = 17
ExplicitLeft = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 502
ExplicitWidth = 137
Width = 137
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 475
Left = 502
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 475
ExplicitWidth = 137
Width = 137
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 475
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 475
ExplicitLeft = 502
ExplicitWidth = 137
Width = 137
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 73
Width = 73
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 328
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
ExplicitWidth = 239
Width = 239
end
object eFechaBaja: TcxDBDateEdit [24]
object eFechaBaja: TcxDBDateEdit [21]
Left = 121
Top = 163
DataBinding.DataField = 'FECHA_BAJA'
@ -260,7 +290,7 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 6
Width = 229
end
object eCausaBaja: TcxDBTextEdit [25]
object eCausaBaja: TcxDBTextEdit [22]
Left = 121
Top = 190
DataBinding.DataField = 'CAUSA_BAJA'
@ -280,6 +310,51 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 7
Width = 229
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 502
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 502
ExplicitWidth = 137
Width = 137
end
inherited eReferencia: TcxDBTextEdit
Left = 121
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 121
ExplicitWidth = 73
Width = 73
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 355
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 121
ExplicitTop = 355
ExplicitWidth = 239
Width = 239
end
inherited ePais: TcxDBTextEdit
Left = 121
Top = 328
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 121
ExplicitTop = 328
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup

221
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -9,7 +9,7 @@ inherited frViewProveedor: TfrViewProveedor
Width = 799
Height = 492
ExplicitWidth = 799
ExplicitHeight = 454
ExplicitHeight = 492
inherited PngSpeedButton1: TPngSpeedButton
Left = 754
ExplicitLeft = 754
@ -34,36 +34,56 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited eCalle: TcxDBTextEdit
Left = 134
Top = 277
TabOrder = 9
Top = 250
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8
ExplicitLeft = 134
ExplicitTop = 277
ExplicitTop = 250
ExplicitWidth = 330
Width = 330
end
inherited cbProvincia: TcxDBComboBox
Left = 134
Top = 304
TabOrder = 10
Top = 277
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9
ExplicitLeft = 134
ExplicitTop = 304
ExplicitTop = 277
end
inherited cbPoblacion: TcxDBComboBox
Left = 134
Top = 331
TabOrder = 12
Top = 304
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11
ExplicitLeft = 134
ExplicitTop = 331
ExplicitTop = 304
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 379
Top = 304
TabOrder = 11
Top = 277
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10
ExplicitLeft = 379
ExplicitTop = 304
ExplicitTop = 277
end
inherited eObservaciones: TcxDBMemo
Top = 415
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 22
ExplicitTop = 415
ExplicitHeight = 20
@ -71,7 +91,7 @@ inherited frViewProveedor: TfrViewProveedor
end
object cxDBCheckBox2: TcxDBCheckBox [9]
Left = 22
Top = 193
Top = 166
Caption = 'El proveedor est'#225' homologado'
DataBinding.DataField = 'HOMOLOGADO'
DataBinding.DataSource = dsContacto
@ -90,12 +110,12 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
TabOrder = 6
Width = 442
end
object eCertificaciones: TcxDBTextEdit [10]
Left = 134
Top = 220
Top = 193
DataBinding.DataField = 'CERTIFICACION'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -109,12 +129,12 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 8
TabOrder = 7
Width = 330
end
object cbGrupoProveedor: TcxDBComboBox [11]
Left = 134
Top = 136
Top = 109
DataBinding.DataField = 'GRUPO_PROVEEDOR'
DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True
@ -133,7 +153,7 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5
TabOrder = 4
Width = 241
end
object cbDescripcionProveedor: TcxDBComboBox [12]
@ -160,27 +180,12 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 3
Width = 330
end
object eCodigoAsignado: TcxDBTextEdit [13]
Left = 134
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4
Width = 330
end
inherited eTlfParticular: TcxDBTextEdit
Left = 569
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 15
ExplicitLeft = 569
ExplicitWidth = 171
@ -188,6 +193,10 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 569
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14
ExplicitLeft = 569
ExplicitWidth = 171
@ -195,6 +204,10 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited eTlfMovil: TcxDBTextEdit
Left = 569
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16
ExplicitLeft = 569
ExplicitWidth = 171
@ -202,6 +215,10 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited eFax: TcxDBTextEdit
Left = 569
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 17
ExplicitLeft = 569
ExplicitWidth = 171
@ -209,35 +226,17 @@ inherited frViewProveedor: TfrViewProveedor
end
inherited eNombre: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 330
Width = 330
end
inherited eNIFCIF: TcxDBTextEdit
Left = 231
ExplicitLeft = 231
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 569
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 569
ExplicitWidth = 142
Width = 142
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 569
Properties.Prefix = 'mailto:'
TabOrder = 19
ExplicitLeft = 569
ExplicitWidth = 142
Width = 142
end
object cxDBCheckBox3: TcxDBCheckBox [22]
object cxDBCheckBox3: TcxDBCheckBox [18]
Left = 361
Top = 136
Top = 109
Caption = 'Subcontrata'
DataBinding.DataField = 'SUBCONTRATA'
DataBinding.DataSource = dsContacto
@ -256,32 +255,44 @@ inherited frViewProveedor: TfrViewProveedor
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6
TabOrder = 5
Width = 83
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
inherited eNIFCIF: TcxDBTextEdit
Left = 231
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 231
ExplicitWidth = 226
Width = 226
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 569
TabOrder = 20
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 18
ExplicitLeft = 569
ExplicitWidth = 142
Width = 142
end
inherited eReferencia: TcxDBTextEdit
Left = 134
ExplicitLeft = 134
ExplicitWidth = 51
Width = 51
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 569
Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 19
ExplicitLeft = 569
ExplicitWidth = 142
Width = 142
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 134
Top = 358
TabOrder = 13
ExplicitLeft = 134
ExplicitTop = 358
ExplicitWidth = 330
Width = 330
end
object cxDBCheckBox1: TcxDBCheckBox [26]
object cxDBCheckBox1: TcxDBCheckBox [22]
Left = 462
Top = 294
Caption = 'Incluir este proveedor en la tienda web'
@ -306,6 +317,51 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 21
Width = 236
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 569
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 20
ExplicitLeft = 569
ExplicitWidth = 142
Width = 142
end
inherited eReferencia: TcxDBTextEdit
Left = 134
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 134
ExplicitWidth = 51
Width = 51
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 134
Top = 358
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13
ExplicitLeft = 134
ExplicitTop = 358
ExplicitWidth = 330
Width = 330
end
inherited ePais: TcxDBTextEdit
Left = 134
Top = 331
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12
ExplicitLeft = 134
ExplicitTop = 331
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -315,11 +371,6 @@ inherited frViewProveedor: TfrViewProveedor
Control = cbDescripcionProveedor
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem24: TdxLayoutItem
Caption = 'C'#243'digo de cliente:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoGroup15: TdxLayoutGroup
ShowCaption = False
Hidden = True

2
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -25,8 +25,6 @@ type
cbGrupoProveedor: TcxDBComboBox;
dxLayoutControlContactoItem21: TdxLayoutItem;
cbDescripcionProveedor: TcxDBComboBox;
dxLayoutControlContactoItem24: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoItem26: TdxLayoutItem;
cxDBCheckBox3: TcxDBCheckBox;
dxLayoutControlContactoGroup15: TdxLayoutGroup;

5
Source/Servidor/FactuGES_Server.dproj
View File

@ -36,11 +36,6 @@
<Borland.ProjectType />
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 17 de diciembre de 2009 12:03</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD11.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>