ConstruccionesCNJ_FactuGES/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
2007-06-21 15:50:59 +00:00

3089 lines
95 KiB
Plaintext

object srvContactos: TsrvContactos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
RequiresSession = True
AcquireConnection = True
ConnectionName = 'IBX'
ServiceSchema = schContactos
ServiceAdapter = BINAdapter
OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection
OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData
Height = 222
Width = 415
object schContactos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = '1'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'SELECT'#10' CONTACTOS.ID, CONTACTOS_CATEGORIAS.ID_CATEGORIA,'#10' ' +
'CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE, CONTACTOS.CALLE,'#10' CONTAC' +
'TOS.POBLACION, CONTACTOS.PROVINCIA, CONTACTOS.CODIGO_POSTAL,'#10' ' +
' CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_2, CONTACTOS.MOVIL_1,'#10 +
' CONTACTOS.MOVIL_2, CONTACTOS.FAX, CONTACTOS.EMAIL_1,'#10' CON' +
'TACTOS.EMAIL_2, CONTACTOS.PAGINA_WEB, CONTACTOS.NOTAS,'#10' CONTA' +
'CTOS.FECHA_ALTA, CONTACTOS.FECHA_MODIFICACION,'#10' CONTACTOS.USU' +
'ARIO, EMPRESAS_CONTACTOS.ID_EMPRESA'#10' FROM'#10' CONTACTOS'#10' INNER' +
' JOIN CONTACTOS_CATEGORIAS ON'#10' (CONTACTOS_CATEGORIAS.ID_CONTA' +
'CTO = CONTACTOS.ID)'#10' INNER JOIN EMPRESAS_CONTACTOS ON'#10' (EMPR' +
'ESAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)'#10' WHERE'#10' CONTACTOS' +
'_CATEGORIAS.ID_CATEGORIA = :ID_CATEGORIA'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
SQLOrigin = 'CONTACTOS_CATEGORIAS.ID_CATEGORIA'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
SQLOrigin = 'EMPRESAS_CONTACTOS.ID_EMPRESA'
end>
end>
Name = 'Contactos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_CATEGORIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PAGINA_WEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOTAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = '444'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DATOS_BANCO'
SQL =
'SELECT '#10' ID, ID_CONTACTO, TITULAR, ENTIDAD, SUCURSAL, DC, CUE' +
'NTA'#10' FROM'#10' CONTACTOS_DATOS_BANCO'#10' WHERE ID_CONTACTO = :ID_C' +
'ONTACTO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'TITULAR'
TableField = 'TITULAR'
end
item
DatasetField = 'ENTIDAD'
TableField = 'ENTIDAD'
end
item
DatasetField = 'SUCURSAL'
TableField = 'SUCURSAL'
end
item
DatasetField = 'DC'
TableField = 'DC'
end
item
DatasetField = 'CUENTA'
TableField = 'CUENTA'
end>
end>
Name = 'DatosBancarios'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_ID_CONTACTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_TITULAR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_ENTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_SUCURSAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DC'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_DC'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'DatosBancarios_CUENTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = '444'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_CATEGORIAS'
SQL =
'SELECT '#10' ID_CONTACTO, ID_CATEGORIA'#10' FROM'#10' CONTACTOS_CATEG' +
'ORIAS'#10' WHERE'#10' ID_CONTACTO = :ID_CONTACTO'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end>
end>
Name = 'ContactosCategorias'
Fields = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'SELECT'#10' CONTACTOS.ID, CONTACTOS_CATEGORIAS.ID_CATEGORIA,'#10' ' +
'CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE, CONTACTOS.CALLE,'#10' CONTAC' +
'TOS.POBLACION, CONTACTOS.PROVINCIA, CONTACTOS.CODIGO_POSTAL,'#10' ' +
' CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_2, CONTACTOS.MOVIL_1,'#10 +
' CONTACTOS.MOVIL_2, CONTACTOS.FAX, CONTACTOS.EMAIL_1,'#10' CON' +
'TACTOS.EMAIL_2, CONTACTOS.PAGINA_WEB, CONTACTOS.NOTAS,'#10' CONTA' +
'CTOS.FECHA_ALTA, CONTACTOS.FECHA_MODIFICACION,'#10' CONTACTOS.USU' +
'ARIO, EMPRESAS_CONTACTOS.ID_EMPRESA,'#10' VENDEDORES_DATOS.PORCEN' +
'TAJE_COMISION'#10' FROM'#10' CONTACTOS'#10' INNER JOIN CONTACTOS_CATEGO' +
'RIAS ON'#10' (CONTACTOS_CATEGORIAS.ID_CONTACTO = CONTACTOS.ID)'#10' ' +
'INNER JOIN EMPRESAS_CONTACTOS ON'#10' (EMPRESAS_CONTACTOS.ID_CONT' +
'ACTO = CONTACTOS.ID)'#10' LEFT JOIN VENDEDORES_DATOS ON'#10' (VENDED' +
'ORES_DATOS.ID_VENDEDOR = CONTACTOS.ID)'#10' WHERE'#10' CONTACTOS_CAT' +
'EGORIAS.ID_CATEGORIA = 3'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'PORCENTAJE_COMISION'
TableField = 'PORCENTAJE_COMISION'
end>
end>
Name = 'Vendedores'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_CATEGORIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PAGINA_WEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOTAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PORCENTAJE_COMISION'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Vendedores_PORCENTAJE_COMISION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'SELECT'#10' CONTACTOS.ID, CONTACTOS_CATEGORIAS.ID_CATEGORIA,'#10' ' +
'CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE, CONTACTOS.CALLE,'#10' CONTAC' +
'TOS.POBLACION, CONTACTOS.PROVINCIA, CONTACTOS.CODIGO_POSTAL,'#10' ' +
' CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_2, CONTACTOS.MOVIL_1,'#10 +
' CONTACTOS.MOVIL_2, CONTACTOS.FAX, CONTACTOS.EMAIL_1,'#10' CON' +
'TACTOS.EMAIL_2, CONTACTOS.PAGINA_WEB, CONTACTOS.NOTAS,'#10' CONTA' +
'CTOS.FECHA_ALTA, CONTACTOS.FECHA_MODIFICACION,'#10' CONTACTOS.USU' +
'ARIO, EMPRESAS_CONTACTOS.ID_EMPRESA,'#10' CLIENTES_DATOS.ID_VENDE' +
'DOR, CLIENTES_DATOS.PROCEDENCIA'#10' FROM'#10' CONTACTOS'#10' INNER JOI' +
'N CONTACTOS_CATEGORIAS ON'#10' (CONTACTOS_CATEGORIAS.ID_CONTACTO ' +
'= CONTACTOS.ID)'#10' INNER JOIN EMPRESAS_CONTACTOS ON'#10' (EMPRESAS' +
'_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)'#10' LEFT JOIN CLIENTES_DATO' +
'S ON'#10' (CLIENTES_DATOS.ID_CLIENTE = CONTACTOS.ID)'#10' WHERE'#10' ' +
'CONTACTOS_CATEGORIAS.ID_CATEGORIA = 1'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'ID_VENDEDOR'
TableField = 'ID_VENDEDOR'
end
item
DatasetField = 'PROCEDENCIA'
TableField = 'PROCEDENCIA'
end>
end>
Name = 'Clientes'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_CATEGORIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PAGINA_WEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOTAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Clientes_ID_VENDEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROCEDENCIA'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'Clientes_PROCEDENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'SELECT'#10' CONTACTOS.ID, CONTACTOS_CATEGORIAS.ID_CATEGORIA,'#10' ' +
'CONTACTOS.NIF_CIF, CONTACTOS.NOMBRE, CONTACTOS.CALLE,'#10' CONTAC' +
'TOS.POBLACION, CONTACTOS.PROVINCIA, CONTACTOS.CODIGO_POSTAL,'#10' ' +
' CONTACTOS.TELEFONO_1, CONTACTOS.TELEFONO_2, CONTACTOS.MOVIL_1,'#10 +
' CONTACTOS.MOVIL_2, CONTACTOS.FAX, CONTACTOS.EMAIL_1,'#10' CON' +
'TACTOS.EMAIL_2, CONTACTOS.PAGINA_WEB, CONTACTOS.NOTAS,'#10' CONTA' +
'CTOS.FECHA_ALTA, CONTACTOS.FECHA_MODIFICACION,'#10' CONTACTOS.USU' +
'ARIO, EMPRESAS_CONTACTOS.ID_EMPRESA,'#10' PROVEEDORES_DATOS.DISTR' +
'IBUYE, PROVEEDORES_DATOS.DESCUENTO'#10' FROM'#10' CONTACTOS'#10' INNER ' +
'JOIN CONTACTOS_CATEGORIAS ON'#10' (CONTACTOS_CATEGORIAS.ID_CONTAC' +
'TO = CONTACTOS.ID)'#10' INNER JOIN EMPRESAS_CONTACTOS ON'#10' (EMPRE' +
'SAS_CONTACTOS.ID_CONTACTO = CONTACTOS.ID)'#10' LEFT JOIN PROVEEDORE' +
'S_DATOS ON'#10' (PROVEEDORES_DATOS.ID_PROVEEDOR = CONTACTOS.ID)'#10' ' +
' WHERE'#10' CONTACTOS_CATEGORIAS.ID_CATEGORIA = 2'
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'CALLE'
TableField = 'CALLE'
end
item
DatasetField = 'POBLACION'
TableField = 'POBLACION'
end
item
DatasetField = 'PROVINCIA'
TableField = 'PROVINCIA'
end
item
DatasetField = 'CODIGO_POSTAL'
TableField = 'CODIGO_POSTAL'
end
item
DatasetField = 'TELEFONO_1'
TableField = 'TELEFONO_1'
end
item
DatasetField = 'TELEFONO_2'
TableField = 'TELEFONO_2'
end
item
DatasetField = 'MOVIL_1'
TableField = 'MOVIL_1'
end
item
DatasetField = 'MOVIL_2'
TableField = 'MOVIL_2'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL_1'
TableField = 'EMAIL_1'
end
item
DatasetField = 'EMAIL_2'
TableField = 'EMAIL_2'
end
item
DatasetField = 'PAGINA_WEB'
TableField = 'PAGINA_WEB'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end
item
DatasetField = 'USUARIO'
TableField = 'USUARIO'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'ID_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'DISTRIBUYE'
TableField = 'DISTRIBUYE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end>
end>
Name = 'Proveedores'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_CATEGORIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOMBRE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PROVINCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_PAGINA_WEB'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_NOTAS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DictionaryEntry = 'Contactos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DISTRIBUYE'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DictionaryEntry = 'Proveedores_DISTRIBUYE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DictionaryEntry = 'Proveedores_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
BusinessRulesClient.ScriptLanguage = rslPascalScript
BusinessRulesServer.ScriptLanguage = rslPascalScript
end>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, CALLE, POBLACI' +
'ON, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1, TELEFONO_2, MOVIL' +
'_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FEC' +
'HA_ALTA, FECHA_MODIFICACION, '#10' USUARIO)'#10' VALUES'#10' (:ID, :' +
'NIF_CIF, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA,'#10' :CODIGO_P' +
'OSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10' :MOVIL_2, :FAX,' +
' :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' :FECHA_ALTA, :FE' +
'CHA_MODIFICACION, :USUARIO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Contactos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL = 'DELETE '#10' FROM'#10' CONTACTOS'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_Contactos'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'UPDATE CONTACTOS'#10' SET '#10' ID = :ID,'#10' NIF_CIF = :NIF_CIF, '#10' ' +
' NOMBRE = :NOMBRE, '#10' CALLE = :CALLE, '#10' POBLACION = :POBL' +
'ACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CODIGO' +
'_POSTAL, '#10' TELEFONO_1 = :TELEFONO_1, '#10' TELEFONO_2 = :TELEF' +
'ONO_2, '#10' MOVIL_1 = :MOVIL_1, '#10' MOVIL_2 = :MOVIL_2, '#10' FA' +
'X = :FAX, '#10' EMAIL_1 = :EMAIL_1, '#10' EMAIL_2 = :EMAIL_2, '#10' ' +
' PAGINA_WEB = :PAGINA_WEB, '#10' NOTAS = :NOTAS, '#10' FECHA_ALTA ' +
'= :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION, '#10' ' +
' USUARIO = :USUARIO'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Contactos'
end
item
Params = <
item
Name = 'ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DC'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DATOS_BANCO'
SQL =
'INSERT'#10' INTO CONTACTOS_DATOS_BANCO'#10' (ID, ID_CONTACTO, TITULA' +
'R, ENTIDAD, SUCURSAL, DC, CUENTA)'#10' VALUES'#10' (:ID, :ID_CONTACT' +
'O, :TITULAR, :ENTIDAD, :SUCURSAL, :DC, :CUENTA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_DatosBancarios'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DATOS_BANCO'
SQL =
'DELETE '#10' FROM'#10' CONTACTOS_DATOS_BANCO'#10' WHERE'#10' (ID = :OLD_' +
'ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_DatosBancarios'
end
item
Params = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DC'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DATOS_BANCO'
SQL =
'UPDATE CONTACTOS_DATOS_BANCO'#10' SET '#10' ID_CONTACTO = :ID_CONTAC' +
'TO, '#10' TITULAR = :TITULAR, '#10' ENTIDAD = :ENTIDAD, '#10' SUCUR' +
'SAL = :SUCURSAL, '#10' DC = :DC, '#10' CUENTA = :CUENTA'#10' WHERE'#10' ' +
' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_DatosBancarios'
end
item
Params = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_CATEGORIAS'
SQL =
'INSERT'#10' INTO CONTACTOS_CATEGORIAS'#10' (ID_CONTACTO, ID_CATEGORI' +
'A)'#10' VALUES'#10' (:ID_CONTACTO, :ID_CATEGORIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ContactosCategorias'
end
item
Params = <
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_CATEGORIAS'
SQL =
'DELETE '#10' FROM'#10' CONTACTOS_CATEGORIAS'#10' WHERE'#10' (ID_CONTACTO' +
' = :OLD_ID_CONTACTO) AND '#10' (ID_CATEGORIA = :OLD_ID_CATEGORIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ContactosCategorias'
end
item
Params = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_CATEGORIAS'
SQL =
'UPDATE CONTACTOS_CATEGORIAS'#10' SET '#10' ID_CONTACTO = :ID_CONTACT' +
'O, '#10' ID_CATEGORIA = :ID_CATEGORIA'#10' WHERE'#10' (ID_CONTACTO = ' +
':OLD_ID_CONTACTO) AND '#10' (ID_CATEGORIA = :OLD_ID_CATEGORIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ContactosCategorias'
end
item
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPRESAS_CONTACTOS'
SQL =
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ContactosEmpresas'
end
item
Params = <
item
Name = 'OLD_ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPRESAS_CONTACTOS'
SQL =
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_EMPRESA = ' +
':OLD_ID_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ContactosEmpresas'
end
item
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPRESAS_CONTACTOS'
SQL =
'UPDATE EMPRESAS_CONTACTOS'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA, '#10 +
' ID_CONTACTO = :ID_CONTACTO'#10' WHERE'#10' (ID_EMPRESA = :OLD_ID' +
'_EMPRESA) AND '#10' (ID_CONTACTO = :OLD_ID_CONTACTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ContactosEmpresas'
end
item
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROCEDENCIA'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DATOS'
SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, ID_VENDEDOR, PROCE' +
'DENCIA)'#10' VALUES'#10' (:ID_CLIENTE, :ID_VENDEDOR, :PROCEDENCIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ClientesDatos'
end
item
Params = <
item
Name = 'OLD_ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DATOS'
SQL =
'DELETE '#10' FROM'#10' CLIENTES_DATOS'#10' WHERE'#10' (ID_CLIENTE = :OLD' +
'_ID_CLIENTE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ClientesDatos'
end
item
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PROCEDENCIA'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DATOS'
SQL =
'UPDATE CLIENTES_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' +
'ID_VENDEDOR = :ID_VENDEDOR, '#10' PROCEDENCIA = :PROCEDENCIA'#10' WH' +
'ERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ClientesDatos'
end
item
Params = <
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PORCENTAJE_COMISION'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'VENDEDORES_DATOS'
SQL =
'INSERT'#10' INTO VENDEDORES_DATOS'#10' (ID_VENDEDOR, PORCENTAJE_COMI' +
'SION)'#10' VALUES'#10' (:ID_VENDEDOR, :PORCENTAJE_COMISION)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_VendedoresDatos'
end
item
Params = <
item
Name = 'OLD_ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'VENDEDORES_DATOS'
SQL =
'DELETE '#10' FROM'#10' VENDEDORES_DATOS'#10' WHERE'#10' (ID_VENDEDOR = :' +
'OLD_ID_VENDEDOR)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_VendedoresDatos'
end
item
Params = <
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'PORCENTAJE_COMISION'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'VENDEDORES_DATOS'
SQL =
'UPDATE VENDEDORES_DATOS'#10' SET '#10' ID_VENDEDOR = :ID_VENDEDOR, '#10 +
' PORCENTAJE_COMISION = :PORCENTAJE_COMISION'#10' WHERE'#10' (ID_V' +
'ENDEDOR = :OLD_ID_VENDEDOR)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_VendedoresDatos'
end
item
Params = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DISTRIBUYE'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, DISTRIBUYE, D' +
'ESCUENTO)'#10' VALUES'#10' (:ID_PROVEEDOR, :DISTRIBUYE, :DESCUENTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ProveedoresDatos'
end
item
Params = <
item
Name = 'OLD_ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'DELETE '#10' FROM'#10' PROVEEDORES_DATOS'#10' WHERE'#10' (ID_PROVEEDOR =' +
' :OLD_ID_PROVEEDOR)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ProveedoresDatos'
end
item
Params = <
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DISTRIBUYE'
DataType = datString
Size = 2000
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_PROVEEDOR'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' +
', '#10' DISTRIBUYE = :DISTRIBUYE, '#10' DESCUENTO = :DESCUENTO'#10' W' +
'HERE'#10' (ID_PROVEEDOR = :OLD_ID_PROVEEDOR)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ProveedoresDatos'
end>
RelationShips = <>
UpdateRules = <
item
Name = 'Insert Contactos'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'Contactos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update Contactos'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'Contactos'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert DatosBancarios'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'DatosBancarios'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update DatosBancarios'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'DatosBancarios'
FailureBehaviour = fbRaiseException
end
item
Name = 'Insert ContactosCategorias'
DoUpdate = False
DoInsert = True
DoDelete = False
DatasetName = 'ContactosCategorias'
FailureBehaviour = fbRaiseException
end
item
Name = 'Update ContactosCategorias'
DoUpdate = True
DoInsert = False
DoDelete = False
DatasetName = 'ContactosCategorias'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete DatosBancarios'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'DatosBancarios'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete ContactosCategorias'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'ContactosCategorias'
FailureBehaviour = fbRaiseException
end
item
Name = 'Delete Contactos'
DoUpdate = False
DoInsert = False
DoDelete = True
DatasetName = 'Contactos'
FailureBehaviour = fbRaiseException
end>
Left = 30
Top = 14
end
object BINAdapter: TDABINAdapter
Left = 30
Top = 82
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'DatosBancarios_ID'
DataType = datAutoInc
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID'
Alignment = taLeftJustify
end
item
Name = 'DatosBancarios_ID_CONTACTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_CONTACTO'
Alignment = taLeftJustify
end
item
Name = 'DatosBancarios_TITULAR'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Titular'
Alignment = taLeftJustify
end
item
Name = 'DatosBancarios_ENTIDAD'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'digo de entidad'
Alignment = taLeftJustify
end
item
Name = 'DatosBancarios_SUCURSAL'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'digo de sucursal'
Alignment = taLeftJustify
end
item
Name = 'DatosBancarios_DC'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'D'#237'gito de control'
Alignment = taLeftJustify
end
item
Name = 'DatosBancarios_CUENTA'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'digo de cuenta'
Alignment = taLeftJustify
end
item
Name = 'Contactos_ID'
DataType = datAutoInc
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID'
Alignment = taLeftJustify
end
item
Name = 'Contactos_NIF_CIF'
DataType = datString
Size = 15
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'NIF/CIF'
Alignment = taLeftJustify
end
item
Name = 'Contactos_NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Nombre'
Alignment = taLeftJustify
end
item
Name = 'Contactos_CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Contactos_POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Contactos_PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia'
Alignment = taLeftJustify
end
item
Name = 'Contactos_CODIGO_POSTAL'
DataType = datString
Size = 10
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'C'#243'digo postal'
Alignment = taLeftJustify
end
item
Name = 'Contactos_TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tlf. trabajo'
Alignment = taLeftJustify
end
item
Name = 'Contactos_TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tlf. particular'
Alignment = taLeftJustify
end
item
Name = 'Contactos_MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'M'#243'vil'
Alignment = taLeftJustify
end
item
Name = 'Contactos_MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'MOVIL_2'
Alignment = taLeftJustify
end
item
Name = 'Contactos_FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fax'
Alignment = taLeftJustify
end
item
Name = 'Contactos_EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'E-mail trabajo'
Alignment = taLeftJustify
end
item
Name = 'Contactos_EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'E-mail particular'
Alignment = taLeftJustify
end
item
Name = 'Contactos_PAGINA_WEB'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Web'
Alignment = taLeftJustify
end
item
Name = 'Contactos_NOTAS'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Observaciones'
Alignment = taLeftJustify
end
item
Name = 'Contactos_FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de alta'
Alignment = taLeftJustify
end
item
Name = 'Contactos_FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de modificaci'#243'n'
Alignment = taLeftJustify
end
item
Name = 'Contactos_USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Usuario'
Alignment = taLeftJustify
end
item
Name = 'Contactos_ID_CATEGORIA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
end
item
Name = 'Contactos_ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_EMPRESA'
Alignment = taLeftJustify
end
item
Name = 'Vendedores_PORCENTAJE_COMISION'
DataType = datFloat
BlobType = dabtUnknown
DefaultValue = '0'
DisplayWidth = 0
DisplayLabel = 'Comisi'#243'n (%)'
Alignment = taLeftJustify
end
item
Name = 'Clientes_ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'ID_VENDEDOR'
Alignment = taLeftJustify
end
item
Name = 'Clientes_PROCEDENCIA'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Procedencia'
Alignment = taLeftJustify
end
item
Name = 'Proveedores_DISTRIBUYE'
DataType = datString
Size = 2000
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Distribuye'
Alignment = taLeftJustify
end
item
Name = 'Proveedores_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Descuento (%)'
Alignment = taLeftJustify
end>
Left = 126
Top = 14
end
object Diagrams: TDADiagrams
Left = 126
Top = 82
DiagramData =
'<Diagrams>'#13#10' <Diagram Name="New Diagram" Left="200" Top="200" W' +
'idth="400" Height="300">'#13#10' <Entity Name="ContactosCategorias"' +
' Left="0,00" Top="26,50" />'#13#10' <Entity Name="DatosBancarios" L' +
'eft="479,77" Top="0,00" />'#13#10' <Entity Name="Contactos" Left="2' +
'23,77" Top="0,00" />'#13#10' </Diagram>'#13#10'</Diagrams>'#13#10
end
object bpContactos: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
ReferencedDataset = 'Contactos'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 15
end
object bpDatosBancarios: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_DatosBancarios'
DeleteCommandName = 'Delete_DatosBancarios'
UpdateCommandName = 'Update_DatosBancarios'
ReferencedDataset = 'DatosBancarios'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 79
end
object bpCategoriasContactos: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_ContactosCategorias'
DeleteCommandName = 'Delete_ContactosCategorias'
UpdateCommandName = 'Update_ContactosCategorias'
ReferencedDataset = 'ContactosCategorias'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 143
end
object bpVendedores: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
ReferencedDataset = 'Vendedores'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 15
end
object bpClientes: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
ReferencedDataset = 'Clientes'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 143
end
object bpProveedores: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
ReferencedDataset = 'Proveedores'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 79
end
end