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, ID_FORMA_PAGO TIPO_ID,
TIENDA_WEB TIPO_BOOLEANO, TIENDA_WEB TIPO_BOOLEANO,
DESCUENTO TIPO_PORCENTAJE, DESCUENTO TIPO_PORCENTAJE,
CODIGO_ASIGNADO VARCHAR(255),
VENCIMIENTO_FACTURAS_1 SMALLINT, VENCIMIENTO_FACTURAS_1 SMALLINT,
VENCIMIENTO_FACTURAS_2 SMALLINT, VENCIMIENTO_FACTURAS_2 SMALLINT,
VENCIMIENTO_FACTURAS_3 SMALLINT, VENCIMIENTO_FACTURAS_3 SMALLINT,
@ -500,7 +499,8 @@ CREATE TABLE CONTACTOS (
FECHA_MODIFICACION TIMESTAMP, FECHA_MODIFICACION TIMESTAMP,
USUARIO TIPO_USUARIO, USUARIO TIPO_USUARIO,
REFERENCIA VARCHAR(255), REFERENCIA VARCHAR(255),
PERSONA_CONTACTO VARCHAR(255) PERSONA_CONTACTO VARCHAR(255),
PAIS VARCHAR(255) COLLATE ES_ES
); );
CREATE TABLE CONTACTOS_CATEGORIAS ( CREATE TABLE CONTACTOS_CATEGORIAS (
@ -1053,7 +1053,6 @@ CREATE TABLE PROVEEDORES_DATOS (
TIENDA_WEB TIPO_BOOLEANO, TIENDA_WEB TIPO_BOOLEANO,
GRUPO_PROVEEDOR VARCHAR(255), GRUPO_PROVEEDOR VARCHAR(255),
DESCRIPCION_PROVEEDOR VARCHAR(255), DESCRIPCION_PROVEEDOR VARCHAR(255),
CODIGO_ASIGNADO VARCHAR(255),
CERTIFICACION VARCHAR(255), CERTIFICACION VARCHAR(255),
HOMOLOGADO SMALLINT, HOMOLOGADO SMALLINT,
SUBCONTRATA TIPO_BOOLEANO, SUBCONTRATA TIPO_BOOLEANO,
@ -1681,7 +1680,8 @@ CREATE VIEW V_CONTACTOS(
FECHA_MODIFICACION, FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA) REFERENCIA,
PAIS)
AS AS
SELECT CONTACTOS.ID, SELECT CONTACTOS.ID,
CONTACTOS_CATEGORIAS.ID_CATEGORIA, CONTACTOS_CATEGORIAS.ID_CATEGORIA,
@ -1705,7 +1705,8 @@ SELECT CONTACTOS.ID,
CONTACTOS.FECHA_MODIFICACION, CONTACTOS.FECHA_MODIFICACION,
CONTACTOS.USUARIO, CONTACTOS.USUARIO,
EMPRESAS_CONTACTOS.ID_EMPRESA, EMPRESAS_CONTACTOS.ID_EMPRESA,
CONTACTOS.REFERENCIA CONTACTOS.REFERENCIA,
CONTACTOS.PAIS
FROM CONTACTOS FROM CONTACTOS
INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO = INNER JOIN CONTACTOS_CATEGORIAS ON (CONTACTOS_CATEGORIAS.ID_CONTACTO =
CONTACTOS.ID) CONTACTOS.ID)
@ -1740,6 +1741,7 @@ CREATE VIEW V_CLIENTES(
USUARIO, USUARIO,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
PAIS,
GRUPO_CLIENTE, GRUPO_CLIENTE,
NOMBRE_COMERCIAL, NOMBRE_COMERCIAL,
VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_1,
@ -1752,7 +1754,6 @@ CREATE VIEW V_CLIENTES(
ID_TIPO_IVA, ID_TIPO_IVA,
ID_FORMA_PAGO, ID_FORMA_PAGO,
TIENDA_WEB, TIENDA_WEB,
CODIGO_ASIGNADO,
DESCUENTO, DESCUENTO,
FELICITACION) FELICITACION)
AS AS
@ -1780,6 +1781,7 @@ SELECT
V_CONTACTOS.USUARIO, V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA, V_CONTACTOS.REFERENCIA,
V_CONTACTOS.PAIS,
CLIENTES_DATOS.GRUPO_CLIENTE, CLIENTES_DATOS.GRUPO_CLIENTE,
CLIENTES_DATOS.NOMBRE_COMERCIAL, CLIENTES_DATOS.NOMBRE_COMERCIAL,
CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1, CLIENTES_DATOS.VENCIMIENTO_FACTURAS_1,
@ -1792,7 +1794,6 @@ SELECT
CLIENTES_DATOS.ID_TIPO_IVA, CLIENTES_DATOS.ID_TIPO_IVA,
CLIENTES_DATOS.ID_FORMA_PAGO, CLIENTES_DATOS.ID_FORMA_PAGO,
CLIENTES_DATOS.TIENDA_WEB, CLIENTES_DATOS.TIENDA_WEB,
CLIENTES_DATOS.CODIGO_ASIGNADO,
CLIENTES_DATOS.DESCUENTO, CLIENTES_DATOS.DESCUENTO,
CLIENTES_DATOS.FELICITACION CLIENTES_DATOS.FELICITACION
FROM FROM
@ -1907,6 +1908,7 @@ FECHA_MODIFICACION,
USUARIO, USUARIO,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
PAIS,
COMISION) COMISION)
AS AS
SELECT V_CONTACTOS.ID, SELECT V_CONTACTOS.ID,
@ -1932,6 +1934,7 @@ SELECT V_CONTACTOS.ID,
V_CONTACTOS.USUARIO, V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA, V_CONTACTOS.REFERENCIA,
V_CONTACTOS.PAIS,
VENDEDORES_DATOS.COMISION VENDEDORES_DATOS.COMISION
FROM V_CONTACTOS FROM V_CONTACTOS
@ -3169,9 +3172,9 @@ CREATE VIEW V_PROVEEDORES(
USUARIO, USUARIO,
ID_EMPRESA, ID_EMPRESA,
REFERENCIA, REFERENCIA,
PAIS,
DESCUENTO, DESCUENTO,
DESCRIPCION_PROVEEDOR, DESCRIPCION_PROVEEDOR,
CODIGO_ASIGNADO,
GRUPO_PROVEEDOR, GRUPO_PROVEEDOR,
REGIMEN_IVA, REGIMEN_IVA,
ID_TIPO_IVA, ID_TIPO_IVA,
@ -3208,9 +3211,9 @@ SELECT
V_CONTACTOS.USUARIO, V_CONTACTOS.USUARIO,
V_CONTACTOS.ID_EMPRESA, V_CONTACTOS.ID_EMPRESA,
V_CONTACTOS.REFERENCIA, V_CONTACTOS.REFERENCIA,
V_CONTACTOS.PAIS,
PROVEEDORES_DATOS.DESCUENTO, PROVEEDORES_DATOS.DESCUENTO,
PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR, PROVEEDORES_DATOS.DESCRIPCION_PROVEEDOR,
PROVEEDORES_DATOS.CODIGO_ASIGNADO,
PROVEEDORES_DATOS.GRUPO_PROVEEDOR, PROVEEDORES_DATOS.GRUPO_PROVEEDOR,
PROVEEDORES_DATOS.REGIMEN_IVA, PROVEEDORES_DATOS.REGIMEN_IVA,
PROVEEDORES_DATOS.ID_TIPO_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 inherited Bin2DataStreamer: TDABin2DataStreamer
Top = 136 Top = 136
end 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 inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -337,6 +179,11 @@ inherited DataModuleClientes: TDataModuleClientes
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA' DictionaryEntry = 'Clientes_REFERENCIA'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
DataType = datString DataType = datString
@ -404,14 +251,9 @@ inherited DataModuleClientes: TDataModuleClientes
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB' DictionaryEntry = 'Clientes_TIENDA_WEB'
end end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'FELICITACION' Name = 'FELICITACION'

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

@ -11,12 +11,12 @@ inherited DataModuleContactos: TDataModuleContactos
Top = 16 Top = 16
end end
object rda_Contactos: TDARemoteDataAdapter object rda_Contactos: TDARemoteDataAdapter
DataStreamer = Bin2DataStreamer
GetSchemaCall.RemoteService = RORemoteService GetSchemaCall.RemoteService = RORemoteService
GetDataCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService
UpdateDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService
GetScriptsCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService
RemoteService = RORemoteService RemoteService = RORemoteService
DataStreamer = Bin2DataStreamer
Left = 43 Left = 43
Top = 143 Top = 143
end end
@ -181,13 +181,16 @@ inherited DataModuleContactos: TDataModuleContactos
DisplayLabel = 'Referencia' DisplayLabel = 'Referencia'
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA' DictionaryEntry = 'Contactos_REFERENCIA'
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Contactos' LogicalName = 'Contactos'
IndexDefs = <> IndexDefs = <>
Left = 176 Left = 176
@ -313,8 +316,6 @@ inherited DataModuleContactos: TDataModuleContactos
MasterSource = ds_Contactos MasterSource = ds_Contactos
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_CONTACTO' DetailFields = 'ID_CONTACTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DireccionesContacto' LogicalName = 'DireccionesContacto'
IndexDefs = <> IndexDefs = <>
Left = 320 Left = 320
@ -393,8 +394,6 @@ inherited DataModuleContactos: TDataModuleContactos
MasterSource = ds_Contactos MasterSource = ds_Contactos
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_CONTACTO' DetailFields = 'ID_CONTACTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'DatosBancarios' LogicalName = 'DatosBancarios'
IndexDefs = <> IndexDefs = <>
Left = 176 Left = 176
@ -486,8 +485,6 @@ inherited DataModuleContactos: TDataModuleContactos
MasterSource = ds_Contactos MasterSource = ds_Contactos
MasterFields = 'ID' MasterFields = 'ID'
DetailFields = 'ID_CONTACTO' DetailFields = 'ID_CONTACTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PersonalContacto' LogicalName = 'PersonalContacto'
IndexDefs = <> IndexDefs = <>
Left = 456 Left = 456

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

@ -1,164 +1,6 @@
inherited DataModuleEmpleados: TDataModuleEmpleados inherited DataModuleEmpleados: TDataModuleEmpleados
Height = 302 Height = 302
Width = 543 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 inherited ds_Contactos: TDADataSource
DataSet = tbl_Contactos.Dataset DataSet = tbl_Contactos.Dataset
end end
@ -400,8 +242,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Empleados' LogicalName = 'Empleados'
IndexDefs = <> IndexDefs = <>
Left = 296 Left = 296
@ -435,8 +275,6 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposEmpleado' LogicalName = 'GruposEmpleado'
IndexDefs = <> IndexDefs = <>
Left = 448 Left = 448

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

@ -41,8 +41,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'GruposProveedor' LogicalName = 'GruposProveedor'
IndexDefs = <> IndexDefs = <>
Left = 536 Left = 536
@ -215,6 +213,11 @@ inherited DataModuleProveedores: TDataModuleProveedores
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Proveedores_REFERENCIA' DictionaryEntry = 'Proveedores_REFERENCIA'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
@ -228,13 +231,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
DisplayLabel = 'Proveedor de...' DisplayLabel = 'Proveedor de...'
DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR' DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR'
end end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DisplayLabel = 'C'#243'digo asignado'
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
end
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString DataType = datString
@ -298,8 +294,6 @@ inherited DataModuleProveedores: TDataModuleProveedores
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos RemoteDataAdapter = rda_Contactos
LocalDataStreamer = Bin2DataStreamer LocalDataStreamer = Bin2DataStreamer
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Proveedores' LogicalName = 'Proveedores'
IndexDefs = <> IndexDefs = <>
Left = 296 Left = 296

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

@ -9,21 +9,21 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_Contactos = '{A1CF6237-ADAC-42E6-AE86-84987E1D9A8A}'; RID_Contactos = '{5939CC4C-98CD-4418-AE8E-E1DA5899B100}';
RID_GruposCliente = '{426F8320-5441-4BF4-B7F9-71D02177057C}'; RID_GruposCliente = '{686F98AF-A391-438F-996F-2E8376E9C756}';
RID_DatosBancarios = '{01BE961A-FF3F-4B62-915C-A08398C216B0}'; RID_DatosBancarios = '{D9139452-F46D-4EDB-9332-BA358EF1BA5A}';
RID_Vendedores = '{1727E068-2906-459B-A1CE-7FB4EE19047F}'; RID_Vendedores = '{68A7BE98-0EA2-49CE-87AA-BECC0EAFDB21}';
RID_Clientes = '{445569C9-B8CA-43C9-836E-701F6D584591}'; RID_Clientes = '{A043C7D9-602B-4CE5-904A-748EF25CAA33}';
RID_Proveedores = '{8816F065-39E8-4369-8250-6909A74234D6}'; RID_Proveedores = '{F34AE78A-927A-471A-930E-70476275378E}';
RID_Empleados = '{51EDCDDE-D2EF-415A-AA14-E91BE3F06034}'; RID_Empleados = '{DC15408D-F82B-40B5-ABBF-7EC9B74EE6C4}';
RID_DireccionesContacto = '{4604C16C-DEAF-4F60-BEDC-8CF3E6DB85EF}'; RID_DireccionesContacto = '{23F3B0A4-8058-4E86-9126-07B019F41A86}';
RID_ClientesDescuentos = '{5145DC3B-13B9-4A12-808B-74A6D36DA114}'; RID_ClientesDescuentos = '{9221F17D-4216-4B56-8266-D3A3CD27B9C0}';
RID_GruposProveedor = '{43C92773-4D36-4B3F-BF7E-8ECE4C3C57F9}'; RID_GruposProveedor = '{17C56F46-1FC5-4ECA-AEEF-35E9F0E37824}';
RID_GruposEmpleado = '{50E1E891-C651-4961-AD9C-EC0615F97853}'; RID_GruposEmpleado = '{2B172CD8-6608-4817-9888-732E289BDCD5}';
RID_Contactos_Refresh = '{97FBFB9B-C20B-498B-911B-53D65F760099}'; RID_Contactos_Refresh = '{AE8F079E-E59A-4AD4-959A-7E64693B346C}';
RID_ContratosEmpleados = '{674BE5D7-5D36-4740-9F1B-774F6284BD0B}'; RID_ContratosEmpleados = '{635F5995-E674-43A9-8905-1582162D9A10}';
RID_DescripcionesProveedores = '{23D7C3B8-6E6E-4082-98AD-63D1237794D8}'; RID_DescripcionesProveedores = '{1EDD4D3F-8608-4916-A739-A5FE584A9271}';
RID_PersonalContacto = '{8F9DDF1A-0719-4F38-9A7B-3DA787476947}'; RID_PersonalContacto = '{522A1340-5FCA-4907-A7D6-C5646908ABD1}';
{ Data table names } { Data table names }
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
@ -66,6 +66,7 @@ const
fld_ContactosUSUARIO = 'USUARIO'; fld_ContactosUSUARIO = 'USUARIO';
fld_ContactosID_EMPRESA = 'ID_EMPRESA'; fld_ContactosID_EMPRESA = 'ID_EMPRESA';
fld_ContactosREFERENCIA = 'REFERENCIA'; fld_ContactosREFERENCIA = 'REFERENCIA';
fld_ContactosPAIS = 'PAIS';
{ Contactos field indexes } { Contactos field indexes }
idx_ContactosID = 0; idx_ContactosID = 0;
@ -91,6 +92,7 @@ const
idx_ContactosUSUARIO = 20; idx_ContactosUSUARIO = 20;
idx_ContactosID_EMPRESA = 21; idx_ContactosID_EMPRESA = 21;
idx_ContactosREFERENCIA = 22; idx_ContactosREFERENCIA = 22;
idx_ContactosPAIS = 23;
{ GruposCliente fields } { GruposCliente fields }
fld_GruposClienteID = 'ID'; fld_GruposClienteID = 'ID';
@ -198,6 +200,7 @@ const
fld_ClientesUSUARIO = 'USUARIO'; fld_ClientesUSUARIO = 'USUARIO';
fld_ClientesID_EMPRESA = 'ID_EMPRESA'; fld_ClientesID_EMPRESA = 'ID_EMPRESA';
fld_ClientesREFERENCIA = 'REFERENCIA'; fld_ClientesREFERENCIA = 'REFERENCIA';
fld_ClientesPAIS = 'PAIS';
fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE'; fld_ClientesGRUPO_CLIENTE = 'GRUPO_CLIENTE';
fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL'; fld_ClientesNOMBRE_COMERCIAL = 'NOMBRE_COMERCIAL';
fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1'; fld_ClientesVENCIMIENTO_FACTURAS_1 = 'VENCIMIENTO_FACTURAS_1';
@ -210,7 +213,6 @@ const
fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ClientesID_TIPO_IVA = 'ID_TIPO_IVA';
fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO'; fld_ClientesID_FORMA_PAGO = 'ID_FORMA_PAGO';
fld_ClientesTIENDA_WEB = 'TIENDA_WEB'; fld_ClientesTIENDA_WEB = 'TIENDA_WEB';
fld_ClientesCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ClientesDESCUENTO = 'DESCUENTO'; fld_ClientesDESCUENTO = 'DESCUENTO';
fld_ClientesFELICITACION = 'FELICITACION'; fld_ClientesFELICITACION = 'FELICITACION';
@ -238,19 +240,19 @@ const
idx_ClientesUSUARIO = 20; idx_ClientesUSUARIO = 20;
idx_ClientesID_EMPRESA = 21; idx_ClientesID_EMPRESA = 21;
idx_ClientesREFERENCIA = 22; idx_ClientesREFERENCIA = 22;
idx_ClientesGRUPO_CLIENTE = 23; idx_ClientesPAIS = 23;
idx_ClientesNOMBRE_COMERCIAL = 24; idx_ClientesGRUPO_CLIENTE = 24;
idx_ClientesVENCIMIENTO_FACTURAS_1 = 25; idx_ClientesNOMBRE_COMERCIAL = 25;
idx_ClientesVENCIMIENTO_FACTURAS_2 = 26; idx_ClientesVENCIMIENTO_FACTURAS_1 = 26;
idx_ClientesVENCIMIENTO_FACTURAS_3 = 27; idx_ClientesVENCIMIENTO_FACTURAS_2 = 27;
idx_ClientesBLOQUEADO = 28; idx_ClientesVENCIMIENTO_FACTURAS_3 = 28;
idx_ClientesREGIMEN_IVA = 29; idx_ClientesBLOQUEADO = 29;
idx_ClientesMOTIVO_BLOQUEO = 30; idx_ClientesREGIMEN_IVA = 30;
idx_ClientesRECARGO_EQUIVALENCIA = 31; idx_ClientesMOTIVO_BLOQUEO = 31;
idx_ClientesID_TIPO_IVA = 32; idx_ClientesRECARGO_EQUIVALENCIA = 32;
idx_ClientesID_FORMA_PAGO = 33; idx_ClientesID_TIPO_IVA = 33;
idx_ClientesTIENDA_WEB = 34; idx_ClientesID_FORMA_PAGO = 34;
idx_ClientesCODIGO_ASIGNADO = 35; idx_ClientesTIENDA_WEB = 35;
idx_ClientesDESCUENTO = 36; idx_ClientesDESCUENTO = 36;
idx_ClientesFELICITACION = 37; idx_ClientesFELICITACION = 37;
@ -278,9 +280,9 @@ const
fld_ProveedoresUSUARIO = 'USUARIO'; fld_ProveedoresUSUARIO = 'USUARIO';
fld_ProveedoresID_EMPRESA = 'ID_EMPRESA'; fld_ProveedoresID_EMPRESA = 'ID_EMPRESA';
fld_ProveedoresREFERENCIA = 'REFERENCIA'; fld_ProveedoresREFERENCIA = 'REFERENCIA';
fld_ProveedoresPAIS = 'PAIS';
fld_ProveedoresDESCUENTO = 'DESCUENTO'; fld_ProveedoresDESCUENTO = 'DESCUENTO';
fld_ProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR'; fld_ProveedoresDESCRIPCION_PROVEEDOR = 'DESCRIPCION_PROVEEDOR';
fld_ProveedoresCODIGO_ASIGNADO = 'CODIGO_ASIGNADO';
fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR'; fld_ProveedoresGRUPO_PROVEEDOR = 'GRUPO_PROVEEDOR';
fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA'; fld_ProveedoresREGIMEN_IVA = 'REGIMEN_IVA';
fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA'; fld_ProveedoresID_TIPO_IVA = 'ID_TIPO_IVA';
@ -317,9 +319,9 @@ const
idx_ProveedoresUSUARIO = 20; idx_ProveedoresUSUARIO = 20;
idx_ProveedoresID_EMPRESA = 21; idx_ProveedoresID_EMPRESA = 21;
idx_ProveedoresREFERENCIA = 22; idx_ProveedoresREFERENCIA = 22;
idx_ProveedoresDESCUENTO = 23; idx_ProveedoresPAIS = 23;
idx_ProveedoresDESCRIPCION_PROVEEDOR = 24; idx_ProveedoresDESCUENTO = 24;
idx_ProveedoresCODIGO_ASIGNADO = 25; idx_ProveedoresDESCRIPCION_PROVEEDOR = 25;
idx_ProveedoresGRUPO_PROVEEDOR = 26; idx_ProveedoresGRUPO_PROVEEDOR = 26;
idx_ProveedoresREGIMEN_IVA = 27; idx_ProveedoresREGIMEN_IVA = 27;
idx_ProveedoresID_TIPO_IVA = 28; idx_ProveedoresID_TIPO_IVA = 28;
@ -492,6 +494,7 @@ const
fld_Contactos_RefreshUSUARIO = 'USUARIO'; fld_Contactos_RefreshUSUARIO = 'USUARIO';
fld_Contactos_RefreshREFERENCIA = 'REFERENCIA'; fld_Contactos_RefreshREFERENCIA = 'REFERENCIA';
fld_Contactos_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO'; fld_Contactos_RefreshPERSONA_CONTACTO = 'PERSONA_CONTACTO';
fld_Contactos_RefreshPAIS = 'PAIS';
{ Contactos_Refresh field indexes } { Contactos_Refresh field indexes }
idx_Contactos_RefreshID = 0; idx_Contactos_RefreshID = 0;
@ -515,6 +518,7 @@ const
idx_Contactos_RefreshUSUARIO = 18; idx_Contactos_RefreshUSUARIO = 18;
idx_Contactos_RefreshREFERENCIA = 19; idx_Contactos_RefreshREFERENCIA = 19;
idx_Contactos_RefreshPERSONA_CONTACTO = 20; idx_Contactos_RefreshPERSONA_CONTACTO = 20;
idx_Contactos_RefreshPAIS = 21;
{ ContratosEmpleados fields } { ContratosEmpleados fields }
fld_ContratosEmpleadosCONTRATO = 'CONTRATO'; fld_ContratosEmpleadosCONTRATO = 'CONTRATO';
@ -555,7 +559,7 @@ const
type type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{C7934361-0344-4AEA-BFA4-144630740B11}'] ['{50009CF6-F80E-4F1F-A421-6C016FB350B5}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -648,6 +652,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: Boolean); procedure SetREFERENCIAIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -697,6 +705,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
end; end;
{ TContactosDataTableRules } { TContactosDataTableRules }
@ -797,6 +807,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -845,6 +859,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PAIS: String read GetPAISValue write SetPAISValue;
property PAISIsNull: Boolean read GetPAISIsNull write SetPAISIsNull;
public public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -854,7 +870,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{102B395B-EA51-40BA-9517-392F849648B3}'] ['{D15C83D9-E697-4B83-9A49-4B09DCB7F520}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -901,7 +917,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{51757B84-1D4D-46EA-9CD9-4AC552EFEB7D}'] ['{3C83C36A-B5A7-4019-8EA7-0B71F0E2A326}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1032,7 +1048,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{FC903BBD-4F5D-44F3-A1E8-50A8C465A548}'] ['{9759F724-E96E-4C08-BDEA-23D9C275C679}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1343,7 +1359,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{F7755B64-ECA3-4B91-BEB4-0CD322904DD8}'] ['{A0EBE95B-5810-4106-8B6A-66729CAE424F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1436,6 +1452,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: 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; function GetGRUPO_CLIENTEValue: String;
procedure SetGRUPO_CLIENTEValue(const aValue: String); procedure SetGRUPO_CLIENTEValue(const aValue: String);
function GetGRUPO_CLIENTEIsNull: Boolean; function GetGRUPO_CLIENTEIsNull: Boolean;
@ -1484,12 +1504,8 @@ type
procedure SetTIENDA_WEBValue(const aValue: SmallInt); procedure SetTIENDA_WEBValue(const aValue: SmallInt);
function GetTIENDA_WEBIsNull: Boolean; function GetTIENDA_WEBIsNull: Boolean;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); procedure SetTIENDA_WEBIsNull(const aValue: Boolean);
function GetCODIGO_ASIGNADOValue: String; function GetDESCUENTOValue: Currency;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); procedure SetDESCUENTOValue(const aValue: Currency);
function GetCODIGO_ASIGNADOIsNull: Boolean;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean);
function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean; function GetDESCUENTOIsNull: Boolean;
procedure SetDESCUENTOIsNull(const aValue: Boolean); procedure SetDESCUENTOIsNull(const aValue: Boolean);
function GetFELICITACIONValue: SmallInt; function GetFELICITACIONValue: SmallInt;
@ -1545,6 +1561,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; 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_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; 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 ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
@ -1675,6 +1691,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: 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; function GetGRUPO_CLIENTEValue: String; virtual;
procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual; procedure SetGRUPO_CLIENTEValue(const aValue: String); virtual;
function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
@ -1723,12 +1743,8 @@ type
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
function GetTIENDA_WEBIsNull: Boolean; virtual; function GetTIENDA_WEBIsNull: Boolean; virtual;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual; function GetDESCUENTOValue: Currency; virtual;
procedure SetCODIGO_ASIGNADOValue(const aValue: String); virtual; procedure SetDESCUENTOValue(const aValue: Currency); virtual;
function GetCODIGO_ASIGNADOIsNull: Boolean; virtual;
procedure SetCODIGO_ASIGNADOIsNull(const aValue: Boolean); virtual;
function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONValue: SmallInt; virtual;
@ -1783,6 +1799,8 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; 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_CLIENTE: String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull: Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property NOMBRE_COMERCIAL: String read GetNOMBRE_COMERCIALValue write SetNOMBRE_COMERCIALValue; 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 ID_FORMA_PAGOIsNull: Boolean read GetID_FORMA_PAGOIsNull write SetID_FORMA_PAGOIsNull;
property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: SmallInt read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property TIENDA_WEBIsNull: Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property CODIGO_ASIGNADO: String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property DESCUENTO: Currency read GetDESCUENTOValue write SetDESCUENTOValue;
property CODIGO_ASIGNADOIsNull: Boolean read GetCODIGO_ASIGNADOIsNull write SetCODIGO_ASIGNADOIsNull;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION: SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull: Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
@ -1822,7 +1838,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{117DF76C-65CE-4B27-9A1C-29E814758355}'] ['{B9739EE6-8C5F-4FF5-9110-ED16F630EECF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1915,6 +1931,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); procedure SetREFERENCIAValue(const aValue: String);
function GetREFERENCIAIsNull: Boolean; function GetREFERENCIAIsNull: Boolean;
procedure SetREFERENCIAIsNull(const aValue: 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; function GetDESCUENTOValue: Float;
procedure SetDESCUENTOValue(const aValue: Float); procedure SetDESCUENTOValue(const aValue: Float);
function GetDESCUENTOIsNull: Boolean; function GetDESCUENTOIsNull: Boolean;
@ -1923,10 +1943,6 @@ type
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
function GetDESCRIPCION_PROVEEDORIsNull: Boolean; function GetDESCRIPCION_PROVEEDORIsNull: Boolean;
procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: 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; function GetGRUPO_PROVEEDORValue: String;
procedure SetGRUPO_PROVEEDORValue(const aValue: String); procedure SetGRUPO_PROVEEDORValue(const aValue: String);
function GetGRUPO_PROVEEDORIsNull: Boolean; function GetGRUPO_PROVEEDORIsNull: Boolean;
@ -2020,12 +2036,12 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; 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 DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; 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_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
@ -2148,6 +2164,10 @@ type
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
function GetREFERENCIAIsNull: Boolean; virtual; function GetREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAIsNull(const aValue: 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; function GetDESCUENTOValue: Float; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOValue(const aValue: Float); virtual;
function GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
@ -2156,10 +2176,6 @@ type
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; function GetDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: 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; function GetGRUPO_PROVEEDORValue: String; virtual;
procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual; procedure SetGRUPO_PROVEEDORValue(const aValue: String); virtual;
function GetGRUPO_PROVEEDORIsNull: Boolean; virtual; function GetGRUPO_PROVEEDORIsNull: Boolean; virtual;
@ -2252,12 +2268,12 @@ type
property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull; property ID_EMPRESAIsNull: Boolean read GetID_EMPRESAIsNull write SetID_EMPRESAIsNull;
property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue; property REFERENCIA: String read GetREFERENCIAValue write SetREFERENCIAValue;
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; 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 DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull: Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue;
property DESCRIPCION_PROVEEDORIsNull: Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; 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_PROVEEDOR: String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property GRUPO_PROVEEDORIsNull: Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
@ -2289,7 +2305,7 @@ type
{ IEmpleados } { IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable) IEmpleados = interface(IDAStronglyTypedDataTable)
['{9504B80C-3095-4E8B-BC52-323CCD57C131}'] ['{39609E2C-7624-4D4F-B872-9F289DE7937D}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2720,7 +2736,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{C1B52BCF-C2A2-48A3-AEF6-41F708493841}'] ['{4B93EF20-3992-48B7-BDBC-A57487E53E79}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2935,7 +2951,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{3150E9EF-9538-432A-B26E-5DA75531C702}'] ['{7035995A-EC52-4E8F-9125-6C6F3BC775D9}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3018,7 +3034,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{5A7A04F2-FBE8-41C9-BF4C-2721A50C76FD}'] ['{A61D9648-2122-4FA8-A42F-0CE36F65026A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3065,7 +3081,7 @@ type
{ IGruposEmpleado } { IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable) IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{D1CF82BD-3AE2-4FDC-88F8-A79B181C7BFE}'] ['{E336809F-9CCC-475C-81EC-A9A214F8190F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3112,7 +3128,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{9046F0B4-E194-4050-A796-F7129BDE7A16}'] ['{A34B665C-EB99-4B5C-89AE-EBC2B1F3C04E}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3197,6 +3213,10 @@ type
procedure SetPERSONA_CONTACTOValue(const aValue: String); procedure SetPERSONA_CONTACTOValue(const aValue: String);
function GetPERSONA_CONTACTOIsNull: Boolean; function GetPERSONA_CONTACTOIsNull: Boolean;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean);
function GetPAISValue: String;
procedure SetPAISValue(const aValue: String);
function GetPAISIsNull: Boolean;
procedure SetPAISIsNull(const aValue: Boolean);
{ Properties } { Properties }
@ -3242,6 +3262,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; 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; end;
{ TContactos_RefreshDataTableRules } { TContactos_RefreshDataTableRules }
@ -3334,6 +3356,10 @@ type
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
function GetPERSONA_CONTACTOIsNull: Boolean; virtual; function GetPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: 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 } { Properties }
property ID: Integer read GetIDValue write SetIDValue; property ID: Integer read GetIDValue write SetIDValue;
@ -3378,6 +3404,8 @@ type
property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull: Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue; property PERSONA_CONTACTO: String read GetPERSONA_CONTACTOValue write SetPERSONA_CONTACTOValue;
property PERSONA_CONTACTOIsNull: Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; 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 public
constructor Create(aDataTable: TDADataTable); override; constructor Create(aDataTable: TDADataTable); override;
@ -3387,7 +3415,7 @@ type
{ IContratosEmpleados } { IContratosEmpleados }
IContratosEmpleados = interface(IDAStronglyTypedDataTable) IContratosEmpleados = interface(IDAStronglyTypedDataTable)
['{8B8ECB16-A934-4365-BAC6-13022B79269E}'] ['{13D56F00-3B17-4139-8C9C-4D824F100B29}']
{ Property getters and setters } { Property getters and setters }
function GetCONTRATOValue: String; function GetCONTRATOValue: String;
procedure SetCONTRATOValue(const aValue: String); procedure SetCONTRATOValue(const aValue: String);
@ -3422,7 +3450,7 @@ type
{ IDescripcionesProveedores } { IDescripcionesProveedores }
IDescripcionesProveedores = interface(IDAStronglyTypedDataTable) IDescripcionesProveedores = interface(IDAStronglyTypedDataTable)
['{18DD39A9-3E32-4D1A-AD50-309FF1965707}'] ['{6349752A-7AE2-40FF-8A52-255597E6E0E9}']
{ Property getters and setters } { Property getters and setters }
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
@ -3457,7 +3485,7 @@ type
{ IPersonalContacto } { IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable) IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{E13E09AE-DFD1-4B74-BA1E-9FA1E40E722F}'] ['{119539A2-3D42-4359-A16E-B2ED25BE299F}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -4103,6 +4131,27 @@ begin
DataTable.Fields[idx_ContactosREFERENCIA].AsVariant := Null; DataTable.Fields[idx_ContactosREFERENCIA].AsVariant := Null;
end; 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 } { TGruposClienteDataTableRules }
constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable); constructor TGruposClienteDataTableRules.Create(aDataTable: TDADataTable);
@ -5383,6 +5432,27 @@ begin
DataTable.Fields[idx_ClientesREFERENCIA].AsVariant := Null; DataTable.Fields[idx_ClientesREFERENCIA].AsVariant := Null;
end; 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; function TClientesDataTableRules.GetGRUPO_CLIENTEValue: String;
begin begin
result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString; result := DataTable.Fields[idx_ClientesGRUPO_CLIENTE].AsString;
@ -5635,35 +5705,14 @@ begin
DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null; DataTable.Fields[idx_ClientesTIENDA_WEB].AsVariant := Null;
end; end;
function TClientesDataTableRules.GetCODIGO_ASIGNADOValue: String; function TClientesDataTableRules.GetDESCUENTOValue: Currency;
begin begin
result := DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString; result := DataTable.Fields[idx_ClientesDESCUENTO].AsCurrency;
end; end;
procedure TClientesDataTableRules.SetCODIGO_ASIGNADOValue(const aValue: String); procedure TClientesDataTableRules.SetDESCUENTOValue(const aValue: Currency);
begin begin
DataTable.Fields[idx_ClientesCODIGO_ASIGNADO].AsString := aValue; DataTable.Fields[idx_ClientesDESCUENTO].AsCurrency := 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;
end; end;
function TClientesDataTableRules.GetDESCUENTOIsNull: boolean; function TClientesDataTableRules.GetDESCUENTOIsNull: boolean;
@ -6200,6 +6249,27 @@ begin
DataTable.Fields[idx_ProveedoresREFERENCIA].AsVariant := Null; DataTable.Fields[idx_ProveedoresREFERENCIA].AsVariant := Null;
end; 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; function TProveedoresDataTableRules.GetDESCUENTOValue: Float;
begin begin
result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat; result := DataTable.Fields[idx_ProveedoresDESCUENTO].AsFloat;
@ -6242,27 +6312,6 @@ begin
DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsVariant := Null; DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsVariant := Null;
end; 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; function TProveedoresDataTableRules.GetGRUPO_PROVEEDORValue: String;
begin begin
result := DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString; result := DataTable.Fields[idx_ProveedoresGRUPO_PROVEEDOR].AsString;
@ -8287,6 +8336,27 @@ begin
DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].AsVariant := Null; DataTable.Fields[idx_Contactos_RefreshPERSONA_CONTACTO].AsVariant := Null;
end; 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 } { TContratosEmpleadosDataTableRules }
constructor TContratosEmpleadosDataTableRules.Create(aDataTable: TDADataTable); constructor TContratosEmpleadosDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,26 +9,26 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_ContactosDelta = '{9BDE25F2-7BDE-4D22-BF7E-66AE44521AAE}'; RID_ContactosDelta = '{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}';
RID_GruposClienteDelta = '{ECD51523-CFDC-4373-9A05-79BB438E7FBB}'; RID_GruposClienteDelta = '{27585B84-7756-4555-A6C8-FEB6918E681C}';
RID_DatosBancariosDelta = '{C98E544A-1635-49DE-A36F-CCB35E100511}'; RID_DatosBancariosDelta = '{0E0F05AE-194D-46D2-8E16-B68300F69D4B}';
RID_VendedoresDelta = '{B982EFCF-B572-461B-AE81-4986117F3982}'; RID_VendedoresDelta = '{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}';
RID_ClientesDelta = '{5266A7F5-C1E1-4488-8228-F9489F614E23}'; RID_ClientesDelta = '{C269BFF3-0DF8-4830-A609-980977CB69E7}';
RID_ProveedoresDelta = '{945D63D8-4D00-499A-A9F2-7F32031B7DFC}'; RID_ProveedoresDelta = '{013010DB-7E71-47A7-A53E-467CF4C830E4}';
RID_EmpleadosDelta = '{7DF4DC2D-402C-4068-AA25-FF0898A50272}'; RID_EmpleadosDelta = '{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}';
RID_DireccionesContactoDelta = '{ED48ADE8-DE49-491B-884F-C80631F13C81}'; RID_DireccionesContactoDelta = '{98B972CF-1202-4B4B-954B-44C2854A60CA}';
RID_ClientesDescuentosDelta = '{8A886F27-2311-469C-BEB6-365405639C58}'; RID_ClientesDescuentosDelta = '{F5BE7170-6DD7-4D2F-9798-761D099BDD61}';
RID_GruposProveedorDelta = '{5C7DFC7C-95CA-4B4F-B1C9-6DA162E941E0}'; RID_GruposProveedorDelta = '{CE166657-6C53-480E-81F6-E05E1E94240D}';
RID_GruposEmpleadoDelta = '{A465A4A2-7B8F-47B5-A20E-5B444B27376C}'; RID_GruposEmpleadoDelta = '{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}';
RID_Contactos_RefreshDelta = '{CF3A1DF8-8F5C-439E-8908-9AFB100422CD}'; RID_Contactos_RefreshDelta = '{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}';
RID_ContratosEmpleadosDelta = '{D01B787D-9A4F-4DE4-935E-F65AA7EC6E73}'; RID_ContratosEmpleadosDelta = '{76026549-3C22-4EF1-8452-F8B09E430989}';
RID_DescripcionesProveedoresDelta = '{F3E3C88C-9995-4F34-A9F1-B26D897BD3AF}'; RID_DescripcionesProveedoresDelta = '{724AB8D8-F8BB-4C45-8A20-0AA19291160D}';
RID_PersonalContactoDelta = '{33B35E63-AE8B-489F-A124-89FFA1DA9726}'; RID_PersonalContactoDelta = '{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}';
type type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{9BDE25F2-7BDE-4D22-BF7E-66AE44521AAE}'] ['{D6952F1E-C7D5-4FD8-86A2-9086CF96322C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -53,6 +53,7 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldPAISValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -78,6 +79,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldPAIS : String read GetOldPAISValue;
end; end;
{ TContactosBusinessProcessorRules } { TContactosBusinessProcessorRules }
@ -224,6 +226,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -318,6 +326,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -327,7 +339,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{ECD51523-CFDC-4373-9A05-79BB438E7FBB}'] ['{27585B84-7756-4555-A6C8-FEB6918E681C}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -373,7 +385,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{C98E544A-1635-49DE-A36F-CCB35E100511}'] ['{0E0F05AE-194D-46D2-8E16-B68300F69D4B}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -503,7 +515,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{B982EFCF-B572-461B-AE81-4986117F3982}'] ['{9760F5D1-81E3-4BCF-8E2E-F34D024CC9E1}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -814,7 +826,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{5266A7F5-C1E1-4488-8228-F9489F614E23}'] ['{C269BFF3-0DF8-4830-A609-980977CB69E7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -839,6 +851,7 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldPAISValue : String;
function GetOldGRUPO_CLIENTEValue : String; function GetOldGRUPO_CLIENTEValue : String;
function GetOldNOMBRE_COMERCIALValue : String; function GetOldNOMBRE_COMERCIALValue : String;
function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt; function GetOldVENCIMIENTO_FACTURAS_1Value : SmallInt;
@ -851,8 +864,7 @@ type
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
function GetOldID_FORMA_PAGOValue : Integer; function GetOldID_FORMA_PAGOValue : Integer;
function GetOldTIENDA_WEBValue : SmallInt; function GetOldTIENDA_WEBValue : SmallInt;
function GetOldCODIGO_ASIGNADOValue : String; function GetOldDESCUENTOValue : Currency;
function GetOldDESCUENTOValue : Float;
function GetOldFELICITACIONValue : SmallInt; function GetOldFELICITACIONValue : SmallInt;
{ Properties } { Properties }
@ -879,6 +891,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldPAIS : String read GetOldPAISValue;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue; property OldNOMBRE_COMERCIAL : String read GetOldNOMBRE_COMERCIALValue;
property OldVENCIMIENTO_FACTURAS_1 : SmallInt read GetOldVENCIMIENTO_FACTURAS_1Value; 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_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue; property OldID_FORMA_PAGO : Integer read GetOldID_FORMA_PAGOValue;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue; property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldFELICITACION : SmallInt read GetOldFELICITACIONValue; property OldFELICITACION : SmallInt read GetOldFELICITACIONValue;
end; end;
@ -1040,6 +1052,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); 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_CLIENTEValue: String; virtual;
function GetGRUPO_CLIENTEIsNull: Boolean; virtual; function GetGRUPO_CLIENTEIsNull: Boolean; virtual;
function GetOldGRUPO_CLIENTEValue: String; virtual; function GetOldGRUPO_CLIENTEValue: String; virtual;
@ -1112,17 +1130,11 @@ type
function GetOldTIENDA_WEBIsNull: Boolean; virtual; function GetOldTIENDA_WEBIsNull: Boolean; virtual;
procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual; procedure SetTIENDA_WEBValue(const aValue: SmallInt); virtual;
procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual; procedure SetTIENDA_WEBIsNull(const aValue: Boolean); virtual;
function GetCODIGO_ASIGNADOValue: String; virtual; function GetDESCUENTOValue: Currency; 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 GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Currency; virtual;
function GetOldDESCUENTOIsNull: Boolean; virtual; function GetOldDESCUENTOIsNull: Boolean; virtual;
procedure SetDESCUENTOValue(const aValue: Float); virtual; procedure SetDESCUENTOValue(const aValue: Currency); virtual;
procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual; procedure SetDESCUENTOIsNull(const aValue: Boolean); virtual;
function GetFELICITACIONValue: SmallInt; virtual; function GetFELICITACIONValue: SmallInt; virtual;
function GetFELICITACIONIsNull: Boolean; virtual; function GetFELICITACIONIsNull: Boolean; virtual;
@ -1224,6 +1236,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; 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_CLIENTE : String read GetGRUPO_CLIENTEValue write SetGRUPO_CLIENTEValue;
property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull; property GRUPO_CLIENTEIsNull : Boolean read GetGRUPO_CLIENTEIsNull write SetGRUPO_CLIENTEIsNull;
property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue; property OldGRUPO_CLIENTE : String read GetOldGRUPO_CLIENTEValue;
@ -1272,13 +1288,9 @@ type
property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull; property TIENDA_WEBIsNull : Boolean read GetTIENDA_WEBIsNull write SetTIENDA_WEBIsNull;
property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue; property OldTIENDA_WEB : SmallInt read GetOldTIENDA_WEBValue;
property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull; property OldTIENDA_WEBIsNull : Boolean read GetOldTIENDA_WEBIsNull;
property CODIGO_ASIGNADO : String read GetCODIGO_ASIGNADOValue write SetCODIGO_ASIGNADOValue; property DESCUENTO : Currency read GetDESCUENTOValue write SetDESCUENTOValue;
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 DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Currency read GetOldDESCUENTOValue;
property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull; property OldDESCUENTOIsNull : Boolean read GetOldDESCUENTOIsNull;
property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue; property FELICITACION : SmallInt read GetFELICITACIONValue write SetFELICITACIONValue;
property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull; property FELICITACIONIsNull : Boolean read GetFELICITACIONIsNull write SetFELICITACIONIsNull;
@ -1293,7 +1305,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{945D63D8-4D00-499A-A9F2-7F32031B7DFC}'] ['{013010DB-7E71-47A7-A53E-467CF4C830E4}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1318,9 +1330,9 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldID_EMPRESAValue : Integer; function GetOldID_EMPRESAValue : Integer;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldPAISValue : String;
function GetOldDESCUENTOValue : Float; function GetOldDESCUENTOValue : Float;
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
function GetOldCODIGO_ASIGNADOValue : String;
function GetOldGRUPO_PROVEEDORValue : String; function GetOldGRUPO_PROVEEDORValue : String;
function GetOldREGIMEN_IVAValue : String; function GetOldREGIMEN_IVAValue : String;
function GetOldID_TIPO_IVAValue : Integer; function GetOldID_TIPO_IVAValue : Integer;
@ -1357,9 +1369,9 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue; property OldID_EMPRESA : Integer read GetOldID_EMPRESAValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldPAIS : String read GetOldPAISValue;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
property OldCODIGO_ASIGNADO : String read GetOldCODIGO_ASIGNADOValue;
property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue; property OldREGIMEN_IVA : String read GetOldREGIMEN_IVAValue;
property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue; property OldID_TIPO_IVA : Integer read GetOldID_TIPO_IVAValue;
@ -1517,6 +1529,12 @@ type
function GetOldREFERENCIAIsNull: Boolean; virtual; function GetOldREFERENCIAIsNull: Boolean; virtual;
procedure SetREFERENCIAValue(const aValue: String); virtual; procedure SetREFERENCIAValue(const aValue: String); virtual;
procedure SetREFERENCIAIsNull(const aValue: Boolean); 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 GetDESCUENTOValue: Float; virtual;
function GetDESCUENTOIsNull: Boolean; virtual; function GetDESCUENTOIsNull: Boolean; virtual;
function GetOldDESCUENTOValue: Float; virtual; function GetOldDESCUENTOValue: Float; virtual;
@ -1529,12 +1547,6 @@ type
function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual; function GetOldDESCRIPCION_PROVEEDORIsNull: Boolean; virtual;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual; procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); virtual;
procedure SetDESCRIPCION_PROVEEDORIsNull(const aValue: Boolean); 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_PROVEEDORValue: String; virtual;
function GetGRUPO_PROVEEDORIsNull: Boolean; virtual; function GetGRUPO_PROVEEDORIsNull: Boolean; virtual;
function GetOldGRUPO_PROVEEDORValue: String; virtual; function GetOldGRUPO_PROVEEDORValue: String; virtual;
@ -1695,6 +1707,10 @@ type
property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull; property REFERENCIAIsNull : Boolean read GetREFERENCIAIsNull write SetREFERENCIAIsNull;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldREFERENCIAIsNull : Boolean read GetOldREFERENCIAIsNull; 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 DESCUENTO : Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull; property DESCUENTOIsNull : Boolean read GetDESCUENTOIsNull write SetDESCUENTOIsNull;
property OldDESCUENTO : Float read GetOldDESCUENTOValue; property OldDESCUENTO : Float read GetOldDESCUENTOValue;
@ -1703,10 +1719,6 @@ type
property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull; property DESCRIPCION_PROVEEDORIsNull : Boolean read GetDESCRIPCION_PROVEEDORIsNull write SetDESCRIPCION_PROVEEDORIsNull;
property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue; property OldDESCRIPCION_PROVEEDOR : String read GetOldDESCRIPCION_PROVEEDORValue;
property OldDESCRIPCION_PROVEEDORIsNull : Boolean read GetOldDESCRIPCION_PROVEEDORIsNull; 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_PROVEEDOR : String read GetGRUPO_PROVEEDORValue write SetGRUPO_PROVEEDORValue;
property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull; property GRUPO_PROVEEDORIsNull : Boolean read GetGRUPO_PROVEEDORIsNull write SetGRUPO_PROVEEDORIsNull;
property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue; property OldGRUPO_PROVEEDOR : String read GetOldGRUPO_PROVEEDORValue;
@ -1760,7 +1772,7 @@ type
{ IEmpleadosDelta } { IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados) IEmpleadosDelta = interface(IEmpleados)
['{7DF4DC2D-402C-4068-AA25-FF0898A50272}'] ['{F762DAD3-8D36-4ED7-9F25-9F0DC2FAAA33}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -2195,7 +2207,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{ED48ADE8-DE49-491B-884F-C80631F13C81}'] ['{98B972CF-1202-4B4B-954B-44C2854A60CA}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2410,7 +2422,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{8A886F27-2311-469C-BEB6-365405639C58}'] ['{F5BE7170-6DD7-4D2F-9798-761D099BDD61}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2492,7 +2504,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{5C7DFC7C-95CA-4B4F-B1C9-6DA162E941E0}'] ['{CE166657-6C53-480E-81F6-E05E1E94240D}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2538,7 +2550,7 @@ type
{ IGruposEmpleadoDelta } { IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado) IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{A465A4A2-7B8F-47B5-A20E-5B444B27376C}'] ['{2AF2DC5D-9184-4BEE-9BD0-C51A6645AD63}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2584,7 +2596,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{CF3A1DF8-8F5C-439E-8908-9AFB100422CD}'] ['{F398F2D8-2192-450A-AA1B-5D0D9E179CC8}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2607,6 +2619,7 @@ type
function GetOldUSUARIOValue : String; function GetOldUSUARIOValue : String;
function GetOldREFERENCIAValue : String; function GetOldREFERENCIAValue : String;
function GetOldPERSONA_CONTACTOValue : String; function GetOldPERSONA_CONTACTOValue : String;
function GetOldPAISValue : String;
{ Properties } { Properties }
property OldID : Integer read GetOldIDValue; property OldID : Integer read GetOldIDValue;
@ -2630,6 +2643,7 @@ type
property OldUSUARIO : String read GetOldUSUARIOValue; property OldUSUARIO : String read GetOldUSUARIOValue;
property OldREFERENCIA : String read GetOldREFERENCIAValue; property OldREFERENCIA : String read GetOldREFERENCIAValue;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldPAIS : String read GetOldPAISValue;
end; end;
{ TContactos_RefreshBusinessProcessorRules } { TContactos_RefreshBusinessProcessorRules }
@ -2764,6 +2778,12 @@ type
function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual; function GetOldPERSONA_CONTACTOIsNull: Boolean; virtual;
procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual; procedure SetPERSONA_CONTACTOValue(const aValue: String); virtual;
procedure SetPERSONA_CONTACTOIsNull(const aValue: Boolean); 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 } { Properties }
property ID : Integer read GetIDValue write SetIDValue; property ID : Integer read GetIDValue write SetIDValue;
@ -2850,6 +2870,10 @@ type
property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull; property PERSONA_CONTACTOIsNull : Boolean read GetPERSONA_CONTACTOIsNull write SetPERSONA_CONTACTOIsNull;
property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue; property OldPERSONA_CONTACTO : String read GetOldPERSONA_CONTACTOValue;
property OldPERSONA_CONTACTOIsNull : Boolean read GetOldPERSONA_CONTACTOIsNull; 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 public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override; constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -2859,7 +2883,7 @@ type
{ IContratosEmpleadosDelta } { IContratosEmpleadosDelta }
IContratosEmpleadosDelta = interface(IContratosEmpleados) IContratosEmpleadosDelta = interface(IContratosEmpleados)
['{D01B787D-9A4F-4DE4-935E-F65AA7EC6E73}'] ['{76026549-3C22-4EF1-8452-F8B09E430989}']
{ Property getters and setters } { Property getters and setters }
function GetOldCONTRATOValue : String; function GetOldCONTRATOValue : String;
@ -2893,7 +2917,7 @@ type
{ IDescripcionesProveedoresDelta } { IDescripcionesProveedoresDelta }
IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores) IDescripcionesProveedoresDelta = interface(IDescripcionesProveedores)
['{F3E3C88C-9995-4F34-A9F1-B26D897BD3AF}'] ['{724AB8D8-F8BB-4C45-8A20-0AA19291160D}']
{ Property getters and setters } { Property getters and setters }
function GetOldDESCRIPCION_PROVEEDORValue : String; function GetOldDESCRIPCION_PROVEEDORValue : String;
@ -2927,7 +2951,7 @@ type
{ IPersonalContactoDelta } { IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto) IPersonalContactoDelta = interface(IPersonalContacto)
['{33B35E63-AE8B-489F-A124-89FFA1DA9726}'] ['{1A784A0F-7ACC-4FA2-8EB9-40E1E3FCCE57}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -3804,6 +3828,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ContactosREFERENCIA] := Null;
end; 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 } { TGruposClienteBusinessProcessorRules }
constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TGruposClienteBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
@ -5666,6 +5721,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesREFERENCIA] := Null;
end; 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; function TClientesBusinessProcessorRules.GetGRUPO_CLIENTEValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesGRUPO_CLIENTE];
@ -6038,38 +6124,7 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesTIENDA_WEB] := Null;
end; end;
function TClientesBusinessProcessorRules.GetCODIGO_ASIGNADOValue: String; function TClientesBusinessProcessorRules.GetDESCUENTOValue: Currency;
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;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO];
end; end;
@ -6079,7 +6134,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]); result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO]);
end; end;
function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Float; function TClientesBusinessProcessorRules.GetOldDESCUENTOValue: Currency;
begin begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]; result := BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO];
end; end;
@ -6089,7 +6144,7 @@ begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]); result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ClientesDESCUENTO]);
end; end;
procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Float); procedure TClientesBusinessProcessorRules.SetDESCUENTOValue(const aValue: Currency);
begin begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := aValue; BusinessProcessor.CurrentChange.NewValueByName[fld_ClientesDESCUENTO] := aValue;
end; end;
@ -6864,6 +6919,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresREFERENCIA] := Null;
end; 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; function TProveedoresBusinessProcessorRules.GetDESCUENTOValue: Float;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCUENTO];
@ -6926,37 +7012,6 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR] := Null;
end; 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; function TProveedoresBusinessProcessorRules.GetGRUPO_PROVEEDORValue: String;
begin begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR]; result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProveedoresGRUPO_PROVEEDOR];
@ -9898,6 +9953,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := Null; BusinessProcessor.CurrentChange.NewValueByName[fld_Contactos_RefreshPERSONA_CONTACTO] := Null;
end; 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 } { TContratosEmpleadosBusinessProcessorRules }
constructor TContratosEmpleadosBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); 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_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; 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_TIPO_IVA').Value := aChange.NewValueByName[fld_ClientesID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO]; ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ClientesID_FORMA_PAGO];
ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB]; ParamByName('TIENDA_WEB').Value := aChange.NewValueByName[fld_ClientesTIENDA_WEB];
ParamByName('CODIGO_ASIGNADO').Value := aChange.NewValueByName[fld_ClientesCODIGO_ASIGNADO];
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ClientesDESCUENTO];
ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1]; ParamByName('VENCIMIENTO_FACTURAS_1').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_1];
ParamByName('VENCIMIENTO_FACTURAS_2').Value := aChange.NewValueByName[fld_ClientesVENCIMIENTO_FACTURAS_2]; 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; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetID_TIPO_IVAValue: Integer; function GetID_TIPO_IVAValue: Integer;
procedure SetID_TIPO_IVAValue(const aValue: Integer); procedure SetID_TIPO_IVAValue(const aValue: Integer);
@ -161,7 +158,6 @@ type
property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue; property REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; 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_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 ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue; property TIENDA_WEB: Integer read GetTIENDA_WEBValue write SetTIENDA_WEBValue;
@ -351,9 +347,6 @@ type
function GetDESCRIPCION_PROVEEDORValue: String; function GetDESCRIPCION_PROVEEDORValue: String;
procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure SetDESCRIPCION_PROVEEDORValue(const aValue: String);
function GetCODIGO_ASIGNADOValue: String;
procedure SetCODIGO_ASIGNADOValue(const aValue: String);
function GetREGIMEN_IVAValue: String; function GetREGIMEN_IVAValue: String;
procedure SetREGIMEN_IVAValue(const aValue: String); procedure SetREGIMEN_IVAValue(const aValue: String);
@ -390,7 +383,6 @@ type
procedure IniciarValoresContactoNuevo; override; procedure IniciarValoresContactoNuevo; override;
property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue; property DESCUENTO: Float read GetDESCUENTOValue write SetDESCUENTOValue;
property DESCRIPCION_PROVEEDOR: String read GetDESCRIPCION_PROVEEDORValue write SetDESCRIPCION_PROVEEDORValue; 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 REGIMEN_IVA: String read GetREGIMEN_IVAValue write SetREGIMEN_IVAValue;
property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue; property ID_TIPO_IVA: Integer read GetID_TIPO_IVAValue write SetID_TIPO_IVAValue;
property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue; property ID_FORMA_PAGO: Integer read GetID_FORMA_PAGOValue write SetID_FORMA_PAGOValue;
@ -807,11 +799,6 @@ begin
result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString; result := DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString;
end; end;
function TBizProveedor.GetCODIGO_ASIGNADOValue: String;
begin
result := DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString;
end;
function TBizProveedor.GetDESCRIPCION_PROVEEDORValue: String; function TBizProveedor.GetDESCRIPCION_PROVEEDORValue: String;
begin begin
result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString; result := DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString;
@ -827,11 +814,6 @@ begin
DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue; DataTable.Fields[idx_ProveedoresCERTIFICACION].AsString := aValue;
end; end;
procedure TBizProveedor.SetCODIGO_ASIGNADOValue(const aValue: String);
begin
DataTable.Fields[idx_ProveedoresCODIGO_ASIGNADO].AsString := aValue;
end;
procedure TBizProveedor.SetDESCRIPCION_PROVEEDORValue(const aValue: String); procedure TBizProveedor.SetDESCRIPCION_PROVEEDORValue(const aValue: String);
begin begin
DataTable.Fields[idx_ProveedoresDESCRIPCION_PROVEEDOR].AsString := aValue; 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('ID_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresID];
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ProveedoresDESCUENTO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ProveedoresDESCUENTO];
ParamByName('DESCRIPCION_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; 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('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; 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('ID_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresID];
ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ProveedoresDESCUENTO]; ParamByName('DESCUENTO').Value := aChange.NewValueByName[fld_ProveedoresDESCUENTO];
ParamByName('DESCRIPCION_PROVEEDOR').Value := aChange.NewValueByName[fld_ProveedoresDESCRIPCION_PROVEEDOR]; 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('REGIMEN_IVA').Value := aChange.NewValueByName[fld_ProveedoresREGIMEN_IVA];
ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA]; ParamByName('ID_TIPO_IVA').Value := aChange.NewValueByName[fld_ProveedoresID_TIPO_IVA];
ParamByName('ID_FORMA_PAGO').Value := aChange.NewValueByName[fld_ProveedoresID_FORMA_PAGO]; 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 LogChanges = False
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]
RemoteFetchEnabled = False RemoteFetchEnabled = False
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
IndexDefs = <> IndexDefs = <>
Left = 264 Left = 264
Top = 128 Top = 128
@ -64,8 +62,8 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
TargetTable = 'V_CONTACTOS' TargetTable = 'V_CONTACTOS'
SQL = SQL =
'select'#10' ID,'#10' NIF_CIF,'#10' NOMBRE,'#10' PERSONA_CONTACTO,'#10' ' + 'select'#10' ID,'#10' NIF_CIF,'#10' NOMBRE,'#10' PERSONA_CONTACTO,'#10' ' +
' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL'#10'from CO' + ' CALLE,'#10' POBLACION,'#10' PROVINCIA,'#10' CODIGO_POSTAL,'#10' PA' +
'NTACTOS' 'IS'#10'from CONTACTOS'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -99,6 +97,10 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
item item
DatasetField = 'CODIGO_POSTAL' DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL' TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'InformeEtiquetasContacto' Name = 'InformeEtiquetasContacto'
@ -141,6 +143,11 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end> end>
JoinDataTables = <> JoinDataTables = <>
@ -347,7 +354,7 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
Top = 158 Top = 158
end end
object frxReport: TfrxReport object frxReport: TfrxReport
Version = '4.3' Version = '4.7.71'
DotMatrixReport = False DotMatrixReport = False
IniFile = '\Software\Fast Reports' IniFile = '\Software\Fast Reports'
PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick] PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
@ -421,6 +428,7 @@ object RptEtiquetasContacto: TRptEtiquetasContacto
UserName = 'frxDBCabecera' UserName = 'frxDBCabecera'
CloseDataSource = False CloseDataSource = False
DataSource = DADataCabecera DataSource = DADataCabecera
BCDToCurrency = False
Left = 264 Left = 264
Top = 16 Top = 16
end end

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

@ -23,9 +23,9 @@ type
frxChartObject1: TfrxChartObject; frxChartObject1: TfrxChartObject;
frxDBCabecera: TfrxDBDataset; frxDBCabecera: TfrxDBDataset;
frxReport: TfrxReport; frxReport: TfrxReport;
Bin2DataStreamer: TDABin2DataStreamer;
schReport: TDASchema; schReport: TDASchema;
DataDictionary: TDADataDictionary; DataDictionary: TDADataDictionary;
Bin2DataStreamer: TDABin2DataStreamer;
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
private private

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

@ -112,6 +112,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'REFERENCIA' DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA' TableField = 'REFERENCIA'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Contactos' Name = 'Contactos'
@ -250,6 +254,11 @@ object srvContactos: TsrvContactos
Size = 255 Size = 255
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA' DictionaryEntry = 'Contactos_REFERENCIA'
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -490,6 +499,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'COMISION' DatasetField = 'COMISION'
TableField = 'COMISION' TableField = 'COMISION'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Vendedores' Name = 'Vendedores'
@ -630,6 +643,11 @@ object srvContactos: TsrvContactos
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Vendedores_REFERENCIA' DictionaryEntry = 'Vendedores_REFERENCIA'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item item
Name = 'COMISION' Name = 'COMISION'
DataType = datCurrency DataType = datCurrency
@ -772,10 +790,6 @@ object srvContactos: TsrvContactos
DatasetField = 'TIENDA_WEB' DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB' TableField = 'TIENDA_WEB'
end end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
item item
DatasetField = 'DESCUENTO' DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO' TableField = 'DESCUENTO'
@ -795,6 +809,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'FELICITACION' DatasetField = 'FELICITACION'
TableField = 'FELICITACION' TableField = 'FELICITACION'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Clientes' Name = 'Clientes'
@ -934,6 +952,11 @@ object srvContactos: TsrvContactos
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA' DictionaryEntry = 'Clientes_REFERENCIA'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item item
Name = 'GRUPO_CLIENTE' Name = 'GRUPO_CLIENTE'
DataType = datString DataType = datString
@ -995,14 +1018,9 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB' DictionaryEntry = 'Clientes_TIENDA_WEB'
end end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datCurrency
end end
item item
Name = 'FELICITACION' Name = 'FELICITACION'
@ -1118,10 +1136,6 @@ object srvContactos: TsrvContactos
DatasetField = 'DESCRIPCION_PROVEEDOR' DatasetField = 'DESCRIPCION_PROVEEDOR'
TableField = 'DESCRIPCION_PROVEEDOR' TableField = 'DESCRIPCION_PROVEEDOR'
end end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
item item
DatasetField = 'GRUPO_PROVEEDOR' DatasetField = 'GRUPO_PROVEEDOR'
TableField = 'GRUPO_PROVEEDOR' TableField = 'GRUPO_PROVEEDOR'
@ -1165,6 +1179,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'VENCIMIENTO_FACTURAS_3' DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3' TableField = 'VENCIMIENTO_FACTURAS_3'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Proveedores' Name = 'Proveedores'
@ -1306,6 +1324,11 @@ object srvContactos: TsrvContactos
ServerAutoRefresh = True ServerAutoRefresh = True
DictionaryEntry = 'Proveedores_REFERENCIA' DictionaryEntry = 'Proveedores_REFERENCIA'
end end
item
Name = 'PAIS'
DataType = datString
Size = 255
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datFloat DataType = datFloat
@ -1317,12 +1340,6 @@ object srvContactos: TsrvContactos
Size = 255 Size = 255
DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR' DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR'
end end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
end
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString DataType = datString
@ -2038,8 +2055,8 @@ object srvContactos: TsrvContactos
'SELECT '#10' ID, NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' + 'SELECT '#10' ID, NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' +
'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' + 'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' +
' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' + ' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' +
'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO'#10' FROM'#10' ' + 'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO, PAIS'#10' FR' +
' CONTACTOS'#10' WHERE ID = :ID'#10 'OM'#10' CONTACTOS'#10' WHERE ID = :ID'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = < ColumnMappings = <
item item
@ -2125,6 +2142,10 @@ object srvContactos: TsrvContactos
item item
DatasetField = 'PERSONA_CONTACTO' DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO' TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'PAIS'
TableField = 'PAIS'
end> end>
end> end>
Name = 'Contactos_Refresh' Name = 'Contactos_Refresh'
@ -2233,6 +2254,11 @@ object srvContactos: TsrvContactos
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PAIS'
DataType = datString
Size = 255
end> end>
end end
item item
@ -2409,132 +2435,119 @@ object srvContactos: TsrvContactos
DataType = datAutoInc DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID' GeneratorName = 'GEN_CONTACTOS_ID'
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NIF_CIF' Name = 'NIF_CIF'
DataType = datString DataType = datString
Size = 15 Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO_2' Name = 'TELEFONO_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_2' Name = 'EMAIL_2'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end> end>
Statements = < Statements = <
item item
@ -2544,11 +2557,11 @@ object srvContactos: TsrvContactos
'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' + 'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' +
'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' + 'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' +
' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' + ' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' +
'NA_WEB, NOTAS, USUARIO, REFERENCIA)'#10' VALUES'#10' (:ID, :NIF_CIF,' + 'NA_WEB, NOTAS, USUARIO, REFERENCIA, PAIS)'#10' VALUES'#10' (:ID, :NI' +
' :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PROVINCIA,'#10' ' + 'F_CIF, :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PROVINCI' +
' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10' :MOV' + 'A,'#10' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10' ' +
'IL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' :USUA' + ' :MOVIL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' ' +
'RIO, :REFERENCIA)' ' :USUARIO, :REFERENCIA, :PAIS)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -2579,131 +2592,117 @@ object srvContactos: TsrvContactos
DataType = datString DataType = datString
Size = 15 Size = 15
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOMBRE' Name = 'NOMBRE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PERSONA_CONTACTO' Name = 'PERSONA_CONTACTO'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CALLE' Name = 'CALLE'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'POBLACION' Name = 'POBLACION'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PROVINCIA' Name = 'PROVINCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'CODIGO_POSTAL' Name = 'CODIGO_POSTAL'
DataType = datString DataType = datString
Size = 10 Size = 10
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO_1' Name = 'TELEFONO_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'TELEFONO_2' Name = 'TELEFONO_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_1' Name = 'MOVIL_1'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'MOVIL_2' Name = 'MOVIL_2'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'FAX' Name = 'FAX'
DataType = datString DataType = datString
Size = 25 Size = 25
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_1' Name = 'EMAIL_1'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'EMAIL_2' Name = 'EMAIL_2'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'PAGINA_WEB' Name = 'PAGINA_WEB'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'NOTAS' Name = 'NOTAS'
DataType = datMemo DataType = datMemo
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'USUARIO' Name = 'USUARIO'
DataType = datString DataType = datString
Size = 20 Size = 30
Value = '' Value = ''
ParamType = daptInput
end end
item item
Name = 'REFERENCIA' Name = 'REFERENCIA'
DataType = datString DataType = datString
Size = 255 Size = 255
Value = '' Value = ''
ParamType = daptInput end
item
Name = 'PAIS'
DataType = datString
Size = 255
Value = ''
end end
item item
Name = 'OLD_ID' Name = 'OLD_ID'
DataType = datInteger
Value = '' Value = ''
ParamType = daptInput
end> end>
Statements = < Statements = <
item item
@ -2718,7 +2717,7 @@ object srvContactos: TsrvContactos
'MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' ' + 'MOVIL_2 = :MOVIL_2, '#10' FAX = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' ' +
' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS' + ' EMAIL_2 = :EMAIL_2, '#10' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS' +
' = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA' + ' = :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 StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3095,12 +3094,6 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency DataType = datCurrency
@ -3133,14 +3126,14 @@ object srvContactos: TsrvContactos
SQL = SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' + 'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' + 'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' + 'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, D' +
'ODIGO_ASIGNADO, DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' + 'ESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, V' +
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VAL' + 'ENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VALUES'#10' (:ID_CLIE' +
'UES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NO' + 'NTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NOMBRE_COMERCIAL,'#10' ' +
'MBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, ' + ' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, :ID_TIPO_IVA, :ID' +
':ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO' + '_FORMA_PAGO,'#10' :TIENDA_WEB, :DESCUENTO,'#10' :VENCIMIENTO_FAC' +
', :DESCUENTO,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURA' + 'TURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACTURAS_3,'#10' ' +
'S_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10 ':FELICITACION)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3296,12 +3289,6 @@ object srvContactos: TsrvContactos
DataType = datSmallInt DataType = datSmallInt
Value = '' Value = ''
end end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = ''
end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency DataType = datCurrency
@ -3342,11 +3329,11 @@ object srvContactos: TsrvContactos
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' + 'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' +
' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#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 + ' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 +
' CODIGO_ASIGNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUEN' + ' DESCUENTO = :DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIM' +
'TO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VE' + 'IENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACT' +
'NCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_' + 'URAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' ' +
'FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICI' + ' FELICITACION = :FELICITACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID' +
'TACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10 '_CLIENTE)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3356,62 +3343,76 @@ object srvContactos: TsrvContactos
Params = < Params = <
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION_PROVEEDOR' Name = 'DESCRIPCION_PROVEEDOR'
Value = '' DataType = datString
end Size = 255
item
Name = 'CODIGO_ASIGNADO'
Value = '' Value = ''
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'SUBCONTRATA' Name = 'SUBCONTRATA'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIENDA_WEB' Name = 'TIENDA_WEB'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'HOMOLOGADO' Name = 'HOMOLOGADO'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'CERTIFICACION' Name = 'CERTIFICACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'VENCIMIENTO_FACTURAS_2' Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
Value = '' Value = ''
end> end>
Statements = < Statements = <
@ -3420,15 +3421,14 @@ object srvContactos: TsrvContactos
TargetTable = 'PROVEEDORES_DATOS' TargetTable = 'PROVEEDORES_DATOS'
SQL = SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' + 'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' + 'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' ID_TIPO_IVA, SUBCONTRATA, ' +
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' + 'ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERTIFICACION, GRUPO_' +
'IFICACION, GRUPO_PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' + 'PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIENTO_FACTURAS_2, V' +
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEE' + 'ENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEEDOR, :REGIMEN_IVA' +
'DOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODI' + ', :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :ID_TIPO_IVA, :SUBCONT' +
'GO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :ID_FORMA_PAGO, :TIENDA' + 'RATA, :ID_FORMA_PAGO, :TIENDA_WEB,'#10' :HOMOLOGADO, :CERTIFICACI' +
'_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :VE' + 'ON, :GRUPO_PROVEEDOR,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_' +
'NCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACT' + 'FACTURAS_2, :VENCIMIENTO_FACTURAS_3)'#10
'URAS_3)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>
@ -3458,62 +3458,76 @@ object srvContactos: TsrvContactos
Params = < Params = <
item item
Name = 'ID_PROVEEDOR' Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'REGIMEN_IVA' Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'DESCUENTO' Name = 'DESCUENTO'
DataType = datCurrency
Value = '' Value = ''
end end
item item
Name = 'DESCRIPCION_PROVEEDOR' Name = 'DESCRIPCION_PROVEEDOR'
Value = '' DataType = datString
end Size = 255
item
Name = 'CODIGO_ASIGNADO'
Value = '' Value = ''
end end
item item
Name = 'ID_TIPO_IVA' Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'ID_FORMA_PAGO' Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = '' Value = ''
end end
item item
Name = 'TIENDA_WEB' Name = 'TIENDA_WEB'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'HOMOLOGADO' Name = 'HOMOLOGADO'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'CERTIFICACION' Name = 'CERTIFICACION'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'GRUPO_PROVEEDOR' Name = 'GRUPO_PROVEEDOR'
DataType = datString
Size = 255
Value = '' Value = ''
end end
item item
Name = 'SUBCONTRATA' Name = 'SUBCONTRATA'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'VENCIMIENTO_FACTURAS_1' Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'VENCIMIENTO_FACTURAS_2' Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
Name = 'VENCIMIENTO_FACTURAS_3' Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
Value = '' Value = ''
end end
item item
@ -3527,15 +3541,14 @@ object srvContactos: TsrvContactos
SQL = SQL =
'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' + 'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' +
', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' + ', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
' DESCRIPCION_PROVEEDOR = :DESCRIPCION_PROVEEDOR,'#10' CODIGO_AS' + ' DESCRIPCION_PROVEEDOR = :DESCRIPCION_PROVEEDOR,'#10' ID_TIPO_I' +
'IGNADO = :CODIGO_ASIGNADO,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' I' + 'VA = :ID_TIPO_IVA,'#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIEND' +
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' + 'A_WEB = :TIENDA_WEB,'#10' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICA' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' + 'CION = :CERTIFICACION,'#10' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' + ' SUBCONTRATA = :SUBCONTRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VEN' +
'TRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' ' + 'CIMIENTO_FACTURAS_1,'#10' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_F' +
' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIEN' + 'ACTURAS_2,'#10' VENCIMIENTO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10 +
'TO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDO' + ' WHERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'#10
'R = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL StatementType = stSQL
ColumnMappings = <> ColumnMappings = <>
end> end>

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

@ -126,7 +126,7 @@ contains
uViewVendedores in 'uViewVendedores.pas' {frViewVendedores: TCustomView}, uViewVendedores in 'uViewVendedores.pas' {frViewVendedores: TCustomView},
uViewVendedor in 'uViewVendedor.pas' {frViewVendedor: TCustomView}, uViewVendedor in 'uViewVendedor.pas' {frViewVendedor: TCustomView},
uEditorVendedores in 'uEditorVendedores.pas' {fEditorVendedores: TCustomEditor}, 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. end.

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

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

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

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

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

@ -175,44 +175,44 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 342 ExplicitWidth = 342
end end
inherited eCalle: TcxDBTextEdit 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 Top = 267
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 366 ExplicitWidth = 265
Width = 366 Width = 265
end end
inherited cbProvincia: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 294 Top = 294
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 294 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 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 403 Left = 403
Top = 294 Top = 267
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 403 ExplicitLeft = 403
ExplicitTop = 294 ExplicitTop = 267
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 399 Top = 399
@ -227,32 +227,32 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 772 Width = 772
end end
inherited cxDBCheckBox2: TcxDBCheckBox 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 Top = 189
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189 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 ExplicitWidth = 366
Width = 366 Width = 366
end end
inherited cbGrupoProveedor: TcxDBComboBox inherited cbGrupoProveedor: TcxDBComboBox
Top = 138 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 138 ExplicitTop = 111
ExplicitWidth = 277 ExplicitWidth = 277
Width = 277 Width = 277
end end
@ -266,16 +266,6 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end 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 inherited eTlfParticular: TcxDBTextEdit
Left = 591 Left = 591
Top = 57 Top = 57
@ -336,13 +326,13 @@ inherited fEditorProveedor: TfEditorProveedor
end end
inherited cxDBCheckBox3: TcxDBCheckBox inherited cxDBCheckBox3: TcxDBCheckBox
Left = 385 Left = 385
Top = 138 Top = 111
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 385 ExplicitLeft = 385
ExplicitTop = 138 ExplicitTop = 111
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 258 Left = 258
@ -426,6 +416,16 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitWidth = 366 ExplicitWidth = 366
Width = 366 Width = 366
end 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 dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -433,9 +433,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited dxLayoutControlContactoItem21: TdxLayoutItem inherited dxLayoutControlContactoItem21: TdxLayoutItem
Visible = False Visible = False
end end
inherited dxLayoutControlContactoItem24: TdxLayoutItem
Visible = False
end
inherited dxLayoutControlContactoGroup15: TdxLayoutGroup inherited dxLayoutControlContactoGroup15: TdxLayoutGroup
Visible = False Visible = False
end end
@ -639,6 +636,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 816 Width = 816
ExplicitWidth = 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 end
end end

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

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

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

@ -23,54 +23,54 @@ inherited frViewCliente: TfrViewCliente
ExplicitLeft = 733 ExplicitLeft = 733
end end
inherited eCalle: TcxDBTextEdit 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 Top = 277
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
ExplicitLeft = 132 ExplicitLeft = 121
ExplicitTop = 277 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 ExplicitWidth = 159
Width = 159 Width = 159
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Left = 132 Left = 121
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
Top = 304 Top = 304
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 10
ExplicitLeft = 309 ExplicitLeft = 121
ExplicitTop = 304 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 end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 415 Top = 415
@ -86,7 +86,7 @@ inherited frViewCliente: TfrViewCliente
Width = 733 Width = 733
end end
object eNombreComercial: TcxDBTextEdit [8] object eNombreComercial: TcxDBTextEdit [8]
Left = 132 Left = 121
Top = 82 Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL' DataBinding.DataField = 'NOMBRE_COMERCIAL'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -107,7 +107,7 @@ inherited frViewCliente: TfrViewCliente
end end
object cbClienteBloqueado: TcxDBCheckBox [9] object cbClienteBloqueado: TcxDBCheckBox [9]
Left = 22 Left = 22
Top = 193 Top = 166
Action = actBloqueoCliente Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO' DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -126,12 +126,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 5
Width = 370 Width = 370
end end
object cbGrupoCliente: TcxDBComboBox [10] object cbGrupoCliente: TcxDBComboBox [10]
Left = 132 Left = 121
Top = 136 Top = 109
DataBinding.DataField = 'GRUPO_CLIENTE' DataBinding.DataField = 'GRUPO_CLIENTE'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ImmediatePost = True Properties.ImmediatePost = True
@ -150,12 +150,12 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 4
Width = 260 Width = 260
end end
object eBloqueo: TcxDBTextEdit [11] object eBloqueo: TcxDBTextEdit [11]
Left = 132 Left = 121
Top = 220 Top = 193
DataBinding.DataField = 'MOTIVO_BLOQUEO' DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -169,27 +169,7 @@ inherited frViewCliente: TfrViewCliente
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 TabOrder = 6
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
Width = 260 Width = 260
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
@ -237,23 +217,47 @@ inherited frViewCliente: TfrViewCliente
Width = 238 Width = 238
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 132 Left = 121
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132 ExplicitLeft = 121
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end 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 inherited eNIFCIF: TcxDBTextEdit
Left = 283 Left = 279
Properties.OnValidate = eNIFCIFPropertiesValidate Properties.OnValidate = eNIFCIFPropertiesValidate
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 283 ExplicitLeft = 279
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
@ -281,30 +285,6 @@ inherited frViewCliente: TfrViewCliente
ExplicitWidth = 209 ExplicitWidth = 209
Width = 209 Width = 209
end 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 inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 499 Left = 499
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
@ -317,26 +297,37 @@ inherited frViewCliente: TfrViewCliente
Width = 209 Width = 209
end end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Left = 132 Left = 121
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 132 ExplicitLeft = 121
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 132 Left = 121
Top = 358 Top = 358
Style.LookAndFeel.SkinName = '' Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 12
ExplicitLeft = 132 ExplicitLeft = 121
ExplicitTop = 358 ExplicitTop = 358
ExplicitWidth = 260 ExplicitWidth = 260
Width = 260 Width = 260
end 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 inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avBottom AlignVert = avBottom
@ -348,11 +339,6 @@ inherited frViewCliente: TfrViewCliente
Control = eNombreComercial Control = eNombreComercial
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem22: TdxLayoutItem
Caption = 'C'#243'digo de proveedor:'
Control = eCodigoAsignado
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem object dxLayoutControlContactoItem19: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient

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

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

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

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

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

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

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

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

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

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

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

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

5
Source/Servidor/FactuGES_Server.dproj
View File

@ -36,11 +36,6 @@
<Borland.ProjectType /> <Borland.ProjectType />
<BorlandProject> <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> <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 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> </Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions> </ProjectExtensions>