Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
625fc8c174
Tecsitel_FactuGES2/Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm

4875 lines
141 KiB
Plaintext
Raw Blame History

object srvContactos: TsrvContactos
OldCreateOrder = True
OnCreate = DARemoteServiceCreate
ConnectionName = 'IBX'
ServiceSchema = schContactos
ServiceDataStreamer = Bin2DataStreamer
ExportedDataTables = <>
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
Height = 347
Width = 444
object schContactos: TDASchema
ConnectionManager = dmServer.ConnectionManager
DataDictionary = DataDictionary
Diagrams = Diagrams
Datasets = <
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_CONTACTOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
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_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end>
end>
Name = 'Contactos'
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
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
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
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Contactos_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Contactos_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_REFERENCIA'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_GRUPOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID'
TableField = 'ID'
end>
end>
Name = 'GruposCliente'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_GRUPOS_ID'
DictionaryEntry = 'GruposCliente_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'GruposCliente_DESCRIPCION'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DATOS_BANCO'
StatementType = stAutoSQL
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
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'DatosBancarios'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DatosBancarios_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'DatosBancarios_ID_CONTACTO'
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
DictionaryEntry = 'DatosBancarios_TITULAR'
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
DictionaryEntry = 'DatosBancarios_ENTIDAD'
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
DictionaryEntry = 'DatosBancarios_SUCURSAL'
end
item
Name = 'DC'
DataType = datString
Size = 15
DictionaryEntry = 'DatosBancarios_DC'
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
DictionaryEntry = 'DatosBancarios_CUENTA'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_CLIENTES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
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_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'GRUPO_CLIENTE'
TableField = 'GRUPO_CLIENTE'
end
item
DatasetField = 'NOMBRE_COMERCIAL'
TableField = 'NOMBRE_COMERCIAL'
end
item
DatasetField = 'BLOQUEADO'
TableField = 'BLOQUEADO'
end
item
DatasetField = 'REGIMEN_IVA'
TableField = 'REGIMEN_IVA'
end
item
DatasetField = 'MOTIVO_BLOQUEO'
TableField = 'MOTIVO_BLOQUEO'
end
item
DatasetField = 'RECARGO_EQUIVALENCIA'
TableField = 'RECARGO_EQUIVALENCIA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end
item
DatasetField = 'FELICITACION'
TableField = 'FELICITACION'
end>
end>
Name = 'Clientes'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
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
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Clientes_REFERENCIA'
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_GRUPO_CLIENTE'
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_NOMBRE_COMERCIAL'
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
end
item
Name = 'BLOQUEADO'
DataType = datSmallInt
DictionaryEntry = 'Clientes_BLOQUEADO'
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_REGIMEN_IVA'
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
DictionaryEntry = 'Clientes_MOTIVO_BLOQUEO'
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datInteger
DictionaryEntry = 'Clientes_RECARGO_EQUIVALENCIA'
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_TIPO_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'Clientes_ID_FORMA_PAGO'
end
item
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Clientes_TIENDA_WEB'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
end
item
Name = 'DESCUENTO'
DataType = datFloat
end
item
Name = 'FELICITACION'
DataType = datSmallInt
DictionaryEntry = 'Clientes_FELICITACION'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_PROVEEDORES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
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_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end
item
DatasetField = 'DESCRIPCION_PROVEEDOR'
TableField = 'DESCRIPCION_PROVEEDOR'
end
item
DatasetField = 'CODIGO_ASIGNADO'
TableField = 'CODIGO_ASIGNADO'
end
item
DatasetField = 'GRUPO_PROVEEDOR'
TableField = 'GRUPO_PROVEEDOR'
end
item
DatasetField = 'REGIMEN_IVA'
TableField = 'REGIMEN_IVA'
end
item
DatasetField = 'ID_TIPO_IVA'
TableField = 'ID_TIPO_IVA'
end
item
DatasetField = 'ID_FORMA_PAGO'
TableField = 'ID_FORMA_PAGO'
end
item
DatasetField = 'TIENDA_WEB'
TableField = 'TIENDA_WEB'
end
item
DatasetField = 'HOMOLOGADO'
TableField = 'HOMOLOGADO'
end
item
DatasetField = 'CERTIFICACION'
TableField = 'CERTIFICACION'
end
item
DatasetField = 'SUBCONTRATA'
TableField = 'SUBCONTRATA'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_1'
TableField = 'VENCIMIENTO_FACTURAS_1'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_2'
TableField = 'VENCIMIENTO_FACTURAS_2'
end
item
DatasetField = 'VENCIMIENTO_FACTURAS_3'
TableField = 'VENCIMIENTO_FACTURAS_3'
end>
end>
Name = 'Proveedores'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
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
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Proveedores_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Proveedores_REFERENCIA'
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'Proveedores_DESCUENTO'
end
item
Name = 'DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR'
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_CODIGO_ASIGNADO'
end
item
Name = 'GRUPO_PROVEEDOR'
DataType = datString
DictionaryEntry = 'Proveedores_GRUPO_PROVEEDOR'
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_REGIMEN_IVA'
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
DictionaryEntry = 'Proveedores_ID_TIPO_IVA'
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
DictionaryEntry = 'Proveedores_ID_FORMA_PAGO'
end
item
Name = 'TIENDA_WEB'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_TIENDA_WEB'
end
item
Name = 'HOMOLOGADO'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_HOMOLOGADO'
end
item
Name = 'CERTIFICACION'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_CERTIFICACION'
end
item
Name = 'SUBCONTRATA'
DataType = datSmallInt
DictionaryEntry = 'Proveedores_SUBCONTRATA'
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'V_EMPLEADOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CATEGORIA'
TableField = 'ID_CATEGORIA'
end
item
DatasetField = 'NIF_CIF'
TableField = 'NIF_CIF'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
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_EMPRESA'
TableField = 'ID_EMPRESA'
end
item
DatasetField = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'FECHA_NACIMIENTO'
TableField = 'FECHA_NACIMIENTO'
end
item
DatasetField = 'CATEGORIA'
TableField = 'CATEGORIA'
end
item
DatasetField = 'FECHA_ALTA_EMPRESA'
TableField = 'FECHA_ALTA_EMPRESA'
end
item
DatasetField = 'FORMACION_BASE'
TableField = 'FORMACION_BASE'
end
item
DatasetField = 'FORMACION_COMPLE'
TableField = 'FORMACION_COMPLE'
end
item
DatasetField = 'FORMACION_RECIBIDA'
TableField = 'FORMACION_RECIBIDA'
end
item
DatasetField = 'EXPERIENCIA'
TableField = 'EXPERIENCIA'
end
item
DatasetField = 'CONTRATO'
TableField = 'CONTRATO'
end
item
DatasetField = 'DURACION'
TableField = 'DURACION'
end
item
DatasetField = 'FECHA_BAJA'
TableField = 'FECHA_BAJA'
end
item
DatasetField = 'CAUSA_BAJA'
TableField = 'CAUSA_BAJA'
end>
end>
Name = 'Empleados'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
ServerAutoRefresh = True
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_CATEGORIA'
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
DictionaryEntry = 'Contactos_NIF_CIF'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_NOMBRE'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PERSONA_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_1'
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_TELEFONO_2'
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
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
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_1'
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_EMAIL_2'
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
DictionaryEntry = 'Contactos_PAGINA_WEB'
end
item
Name = 'NOTAS'
DataType = datMemo
BlobType = dabtMemo
DictionaryEntry = 'Contactos_NOTAS'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'Empleados_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'Empleados_FECHA_MODIFICACION'
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
DictionaryEntry = 'Contactos_USUARIO'
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
DictionaryEntry = 'Contactos_ID_EMPRESA'
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
ServerAutoRefresh = True
DictionaryEntry = 'Empleados_REFERENCIA'
end
item
Name = 'FECHA_NACIMIENTO'
DataType = datDateTime
DictionaryEntry = 'Empleados_FECHA_NACIMIENTO'
end
item
Name = 'CATEGORIA'
DataType = datString
Size = 255
DictionaryEntry = 'Empleados_CATEGORIA'
end
item
Name = 'FECHA_ALTA_EMPRESA'
DataType = datDateTime
DictionaryEntry = 'Empleados_FECHA_ALTA_EMPRESA'
end
item
Name = 'FORMACION_BASE'
DataType = datMemo
DictionaryEntry = 'Empleados_FORMACION_BASE'
end
item
Name = 'FORMACION_COMPLE'
DataType = datMemo
DictionaryEntry = 'Empleados_FORMACION_COMPLE'
end
item
Name = 'FORMACION_RECIBIDA'
DataType = datMemo
DictionaryEntry = 'Empleados_FORMACION_RECIBIDA'
end
item
Name = 'EXPERIENCIA'
DataType = datMemo
DictionaryEntry = 'Empleados_EXPERIENCIA'
end
item
Name = 'CONTRATO'
DataType = datString
Size = 255
DictionaryEntry = 'Empleados_CONTRATO'
end
item
Name = 'DURACION'
DataType = datString
Size = 255
end
item
Name = 'FECHA_BAJA'
DataType = datDateTime
end
item
Name = 'CAUSA_BAJA'
DataType = datString
Size = 255
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DIRECCIONES'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
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 = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
end
item
DatasetField = 'NOTAS'
TableField = 'NOTAS'
end
item
DatasetField = 'PORTE'
TableField = 'PORTE'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'DireccionesContacto'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
ServerAutoRefresh = True
DictionaryEntry = 'DireccionesContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'DireccionesContacto_ID_CONTACTO'
end
item
Name = 'CALLE'
DataType = datString
Size = 255
DictionaryEntry = 'DireccionesContacto_CALLE'
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
DictionaryEntry = 'DireccionesContacto_POBLACION'
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
DictionaryEntry = 'DireccionesContacto_PROVINCIA'
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
DictionaryEntry = 'DireccionesContacto_CODIGO_POSTAL'
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
DictionaryEntry = 'DireccionesContacto_PERSONA_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'DireccionesContacto_NOMBRE'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'DireccionesContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_MOVIL_1'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'Contactos_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DictionaryEntry = 'DireccionesContacto_EMAIL'
end
item
Name = 'NOTAS'
DataType = datMemo
DictionaryEntry = 'DireccionesContacto_NOTAS'
end
item
Name = 'PORTE'
DataType = datFloat
DictionaryEntry = 'DireccionesContacto_PORTE'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
SQL =
'SELECT '#10' CLIENTES_DTOS_PROVEEDORES.ID,'#10' CLIENTES_DTOS_PROV' +
'EEDORES.ID_CLIENTE,'#10' CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR,'#10 +
' CONTACTOS.NOMBRE,'#10' CLIENTES_DTOS_PROVEEDORES.DESCUENTO'#10' ' +
'FROM'#10' CLIENTES_DTOS_PROVEEDORES'#10' LEFT JOIN CONTACTOS ON (CON' +
'TACTOS.ID = CLIENTES_DTOS_PROVEEDORES.ID_PROVEEDOR)'#10'WHERE {Where' +
'}'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CLIENTE'
TableField = 'ID_CLIENTE'
end
item
DatasetField = 'ID_PROVEEDOR'
TableField = 'ID_PROVEEDOR'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'DESCUENTO'
TableField = 'DESCUENTO'
end>
end>
Name = 'ClientesDescuentos'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID'
ServerAutoRefresh = True
DictionaryEntry = 'ClientesDescuentos_ID'
InPrimaryKey = True
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
DictionaryEntry = 'ClientesDescuentos_ID_CLIENTE'
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
DictionaryEntry = 'ClientesDescuentos_ID_PROVEEDOR'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'ClientesDescuentos_NOMBRE'
ServerAutoRefresh = True
end
item
Name = 'DESCUENTO'
DataType = datFloat
DictionaryEntry = 'ClientesDescuentos_DESCUENTO'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_GRUPOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID'
TableField = 'ID'
end>
end>
Name = 'GruposProveedor'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PROVEEDORES_GRUPOS_ID'
DictionaryEntry = 'GruposProveedor_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'GruposProveedor_DESCRIPCION'
end>
end
item
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPLEADOS_GRUPOS'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID'
TableField = 'ID'
end>
end>
Name = 'GruposEmpleado'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_EMPLEADOS_GRUPOS_ID'
DictionaryEntry = 'GruposEmpleado_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'GruposEmpleado_DESCRIPCION'
end>
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
Value = '2'
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS'
SQL =
'SELECT '#10' ID, NIF_CIF, NOMBRE, CALLE, POBLACION, PROVINCIA, CO' +
'DIGO_POSTAL, '#10' TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX,' +
' EMAIL_1, '#10' EMAIL_2, PAGINA_WEB, NOTAS, FECHA_ALTA, FECHA_MOD' +
'IFICACION, '#10' USUARIO, REFERENCIA, PERSONA_CONTACTO'#10' FROM'#10' ' +
' CONTACTOS'#10' WHERE {where}'#10' and ID = :ID'#10#10
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 = 'REFERENCIA'
TableField = 'REFERENCIA'
end
item
DatasetField = 'PERSONA_CONTACTO'
TableField = 'PERSONA_CONTACTO'
end>
end>
Name = 'Contactos_Refresh'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
DictionaryEntry = 'Contactos_ID'
InPrimaryKey = True
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Required = True
end
item
Name = 'CALLE'
DataType = datString
Size = 255
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
end
item
Name = 'FAX'
DataType = datString
Size = 25
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
end
item
Name = 'NOTAS'
DataType = datMemo
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'USUARIO'
DataType = datString
Size = 30
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
end>
end
item
IsPublic = False
Params = <>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPLEADOS_DATOS'
SQL =
'SELECT '#10' DISTINCT CONTRATO'#10' FROM'#10' EMPLEADOS_DATOS'#10' WHERE {' +
'Where}'#10' ORDER BY CONTRATO'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'CONTRATO'
TableField = 'CONTRATO'
end>
end>
Name = 'ContratosEmpleados'
Fields = <
item
Name = 'CONTRATO'
DataType = datString
Size = 255
DictionaryEntry = 'Empleados_CONTRATO'
end>
end
item
IsPublic = False
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'SELECT '#10' DISTINCT DESCRIPCION_PROVEEDOR'#10' FROM'#10' PROVEEDORE' +
'S_DATOS'#10' WHERE {Where}'#10' ORDER BY DESCRIPCION_PROVEEDOR'#10
StatementType = stSQL
ColumnMappings = <
item
DatasetField = 'DESCRIPCION_PROVEEDOR'
TableField = 'DESCRIPCION_PROVEEDOR'
end>
end>
Name = 'DescripcionesProveedores'
Fields = <
item
Name = 'DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
DictionaryEntry = 'Proveedores_DESCRIPCION_PROVEEDOR'
end>
end
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PUESTO'
TableField = 'PUESTO'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'PersonalContacto'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
DictionaryEntry = 'PersonalContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'PersonalContacto_ID_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_NOMBRE'
end
item
Name = 'PUESTO'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_PUESTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_MOVIL'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_EMAIL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PersonalContacto_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION'
end>
end>
JoinDataTables = <>
UnionDataTables = <>
Commands = <
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'INSERT'#10' INTO CONTACTOS'#10' (ID, NIF_CIF, NOMBRE, PERSONA_CONTAC' +
'TO, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' TELEFONO_1,' +
' TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, '#10' EMAIL_2, PAGI' +
'NA_WEB, NOTAS, USUARIO, REFERENCIA)'#10' VALUES'#10' (:ID, :NIF_CIF,' +
' :NOMBRE, :PERSONA_CONTACTO, :CALLE, :POBLACION, :PROVINCIA,'#10' ' +
' :CODIGO_POSTAL, :TELEFONO_1, :TELEFONO_2, :MOVIL_1, '#10' :MOV' +
'IL_2, :FAX, :EMAIL_1, :EMAIL_2, :PAGINA_WEB, :NOTAS, '#10' :USUA' +
'RIO, :REFERENCIA)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_Contactos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
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 = 'NIF_CIF'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PAGINA_WEB'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
Value = ''
ParamType = daptInput
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS'
SQL =
'UPDATE CONTACTOS'#10' SET '#10' NIF_CIF = :NIF_CIF,'#10' NOMBRE = :NO' +
'MBRE, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' CALLE = :CA' +
'LLE, '#10' POBLACION = :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10 +
' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' TELEFONO_1 = :TELEFONO_' +
'1, '#10' TELEFONO_2 = :TELEFONO_2, '#10' MOVIL_1 = :MOVIL_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' +
' = :NOTAS, '#10' USUARIO = :USUARIO,'#10' REFERENCIA = :REFERENCIA' +
#10' WHERE'#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_Contactos'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'DC'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
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
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
Value = ''
ParamType = daptInput
end
item
Name = 'TITULAR'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'ENTIDAD'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'SUCURSAL'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'DC'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'CUENTA'
DataType = datString
Size = 15
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
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
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
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
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CATEGORIA'
DataType = datInteger
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
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CATEGORIA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CATEGORIA'
DataType = datInteger
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_CONTACTO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPRESAS_CONTACTOS'
SQL =
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID, ID_EMPRESA, ID_CONTACTO)' +
#10#10'SELECT (SELECT GEN_ID(GEN_EMPRESAS_CONTACTOS_ID, 1) FROM RDB$D' +
'ATABASE), EMPRESAS.ID, :ID_CONTACTO'#10'FROM EMPRESAS'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ContactoEmpresas'
end
item
Params = <
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPRESAS_CONTACTOS'
SQL =
'DELETE '#10' FROM'#10' EMPRESAS_CONTACTOS'#10' WHERE'#10' (ID_CONTACTO =' +
' :OLD_ID_CONTACTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ContactoEmpresas'
end
item
Params = <
item
Name = 'ID_EMPRESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_EMPRESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
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_ContactoEmpresa'
end
item
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'BLOQUEADO'
DataType = datSmallInt
Value = ''
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'TIENDA_WEB'
DataType = datSmallInt
Value = ''
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
Value = ''
end
item
Name = 'FELICITACION'
DataType = datSmallInt
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DATOS'
SQL =
'INSERT'#10' INTO CLIENTES_DATOS'#10' (ID_CLIENTE, GRUPO_CLIENTE, REC' +
'ARGO_EQUIVALENCIA, NOMBRE_COMERCIAL,'#10' BLOQUEADO, MOTIVO_BLOQ' +
'UEO, REGIMEN_IVA, ID_TIPO_IVA, ID_FORMA_PAGO,'#10' TIENDA_WEB, C' +
'ODIGO_ASIGNADO, DESCUENTO,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3,'#10' FELICITACION)'#10' VAL' +
'UES'#10' (:ID_CLIENTE, :GRUPO_CLIENTE, :RECARGO_EQUIVALENCIA, :NO' +
'MBRE_COMERCIAL,'#10' :BLOQUEADO, :MOTIVO_BLOQUEO, :REGIMEN_IVA, ' +
':ID_TIPO_IVA, :ID_FORMA_PAGO,'#10' :TIENDA_WEB, :CODIGO_ASIGNADO' +
', :DESCUENTO,'#10' :VENCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURA' +
'S_2, :VENCIMIENTO_FACTURAS_3,'#10' :FELICITACION)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ClientesDatos'
end
item
Params = <
item
Name = 'OLD_ID_CLIENTE'
DataType = datInteger
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
Value = ''
end
item
Name = 'GRUPO_CLIENTE'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'MOTIVO_BLOQUEO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'RECARGO_EQUIVALENCIA'
DataType = datSmallInt
Value = ''
end
item
Name = 'NOMBRE_COMERCIAL'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'BLOQUEADO'
DataType = datSmallInt
Value = ''
end
item
Name = 'REGIMEN_IVA'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'ID_TIPO_IVA'
DataType = datInteger
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
DataType = datInteger
Value = ''
end
item
Name = 'TIENDA_WEB'
DataType = datSmallInt
Value = ''
end
item
Name = 'CODIGO_ASIGNADO'
DataType = datString
Size = 255
Value = ''
end
item
Name = 'DESCUENTO'
DataType = datCurrency
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
DataType = datSmallInt
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
DataType = datSmallInt
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
DataType = datSmallInt
Value = ''
end
item
Name = 'FELICITACION'
DataType = datSmallInt
Value = ''
end
item
Name = 'OLD_ID_CLIENTE'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DATOS'
SQL =
'UPDATE CLIENTES_DATOS'#10' SET '#10' ID_CLIENTE = :ID_CLIENTE, '#10' ' +
'GRUPO_CLIENTE = :GRUPO_CLIENTE,'#10' MOTIVO_BLOQUEO = :MOTIVO_BLO' +
'QUEO,'#10' RECARGO_EQUIVALENCIA = :RECARGO_EQUIVALENCIA,'#10' NOMB' +
'RE_COMERCIAL = :NOMBRE_COMERCIAL,'#10' BLOQUEADO = :BLOQUEADO,'#10' ' +
' REGIMEN_IVA = :REGIMEN_IVA,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' ' +
' ID_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10 +
' CODIGO_ASIGNADO = :CODIGO_ASIGNADO,'#10' DESCUENTO = :DESCUEN' +
'TO,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' VE' +
'NCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIENTO_' +
'FACTURAS_3 = :VENCIMIENTO_FACTURAS_3,'#10' FELICITACION = :FELICI' +
'TACION'#10' WHERE'#10' (ID_CLIENTE = :OLD_ID_CLIENTE)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ClientesDatos'
end
item
Params = <
item
Name = 'ID_PROVEEDOR'
Value = ''
end
item
Name = 'REGIMEN_IVA'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'DESCRIPCION_PROVEEDOR'
Value = ''
end
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end
item
Name = 'ID_TIPO_IVA'
Value = ''
end
item
Name = 'SUBCONTRATA'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'TIENDA_WEB'
Value = ''
end
item
Name = 'HOMOLOGADO'
Value = ''
end
item
Name = 'CERTIFICACION'
Value = ''
end
item
Name = 'GRUPO_PROVEEDOR'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'INSERT'#10' INTO PROVEEDORES_DATOS'#10' (ID_PROVEEDOR, REGIMEN_IVA, ' +
'DESCUENTO, DESCRIPCION_PROVEEDOR,'#10' CODIGO_ASIGNADO, ID_TIPO_I' +
'VA, SUBCONTRATA, ID_FORMA_PAGO, TIENDA_WEB,'#10' HOMOLOGADO, CERT' +
'IFICACION, GRUPO_PROVEEDOR,'#10' VENCIMIENTO_FACTURAS_1, VENCIMIE' +
'NTO_FACTURAS_2, VENCIMIENTO_FACTURAS_3)'#10' VALUES'#10' (:ID_PROVEE' +
'DOR, :REGIMEN_IVA, :DESCUENTO, :DESCRIPCION_PROVEEDOR,'#10' :CODI' +
'GO_ASIGNADO, :ID_TIPO_IVA, :SUBCONTRATA, :ID_FORMA_PAGO, :TIENDA' +
'_WEB,'#10' :HOMOLOGADO, :CERTIFICACION, :GRUPO_PROVEEDOR,'#10' :VE' +
'NCIMIENTO_FACTURAS_1, :VENCIMIENTO_FACTURAS_2, :VENCIMIENTO_FACT' +
'URAS_3)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ProveedoresDatos'
end
item
Params = <
item
Name = 'OLD_ID_PROVEEDOR'
DataType = datInteger
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'
Value = ''
end
item
Name = 'REGIMEN_IVA'
Value = ''
end
item
Name = 'DESCUENTO'
Value = ''
end
item
Name = 'DESCRIPCION_PROVEEDOR'
Value = ''
end
item
Name = 'CODIGO_ASIGNADO'
Value = ''
end
item
Name = 'ID_TIPO_IVA'
Value = ''
end
item
Name = 'ID_FORMA_PAGO'
Value = ''
end
item
Name = 'TIENDA_WEB'
Value = ''
end
item
Name = 'HOMOLOGADO'
Value = ''
end
item
Name = 'CERTIFICACION'
Value = ''
end
item
Name = 'GRUPO_PROVEEDOR'
Value = ''
end
item
Name = 'SUBCONTRATA'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_1'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_2'
Value = ''
end
item
Name = 'VENCIMIENTO_FACTURAS_3'
Value = ''
end
item
Name = 'OLD_ID_PROVEEDOR'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'PROVEEDORES_DATOS'
SQL =
'UPDATE PROVEEDORES_DATOS'#10' SET '#10' ID_PROVEEDOR = :ID_PROVEEDOR' +
', '#10' REGIMEN_IVA = :REGIMEN_IVA,'#10' DESCUENTO = :DESCUENTO,'#10' ' +
' DESCRIPCION_PROVEEDOR = :DESCRIPCION_PROVEEDOR,'#10' CODIGO_AS' +
'IGNADO = :CODIGO_ASIGNADO,'#10' ID_TIPO_IVA = :ID_TIPO_IVA,'#10' I' +
'D_FORMA_PAGO = :ID_FORMA_PAGO,'#10' TIENDA_WEB = :TIENDA_WEB,'#10' ' +
' HOMOLOGADO = :HOMOLOGADO,'#10' CERTIFICACION = :CERTIFICACION,'#10' ' +
' GRUPO_PROVEEDOR = :GRUPO_PROVEEDOR,'#10' SUBCONTRATA = :SUBCON' +
'TRATA,'#10' VENCIMIENTO_FACTURAS_1 = :VENCIMIENTO_FACTURAS_1,'#10' ' +
' VENCIMIENTO_FACTURAS_2 = :VENCIMIENTO_FACTURAS_2,'#10' VENCIMIEN' +
'TO_FACTURAS_3 = :VENCIMIENTO_FACTURAS_3'#10' WHERE'#10' (ID_PROVEEDO' +
'R = :OLD_ID_PROVEEDOR)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ProveedoresDatos'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'PORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DIRECCIONES'
SQL =
'INSERT'#10' INTO CONTACTOS_DIRECCIONES'#10' (ID, ID_CONTACTO, NOMBRE' +
', CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL,'#10' PERSONA_CONTA' +
'CTO, TELEFONO, MOVIL, FAX, EMAIL, NOTAS, PORTE)'#10' VALUES'#10' (:I' +
'D, :ID_CONTACTO, :NOMBRE, :CALLE, :POBLACION, :PROVINCIA, :CODIG' +
'O_POSTAL,'#10' :PERSONA_CONTACTO, :TELEFONO, :MOVIL, :FAX, :EMAI' +
'L, :NOTAS, :PORTE)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_DireccionesContacto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DIRECCIONES'
SQL =
'DELETE '#10' FROM'#10' CONTACTOS_DIRECCIONES'#10' WHERE'#10' (ID = :OLD_' +
'ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_DireccionesContacto'
end
item
Params = <
item
Name = 'ID_CONTACTO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CALLE'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'CODIGO_POSTAL'
DataType = datString
Size = 10
Value = ''
ParamType = daptInput
end
item
Name = 'PERSONA_CONTACTO'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'FAX'
DataType = datString
Size = 25
Value = ''
ParamType = daptInput
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'NOTAS'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'PORTE'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CONTACTOS_DIRECCIONES'
SQL =
'UPDATE CONTACTOS_DIRECCIONES'#10' SET '#10' ID_CONTACTO = :ID_CONTAC' +
'TO, '#10' NOMBRE = :NOMBRE,'#10' CALLE = :CALLE,'#10' POBLACION = :' +
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' CODIGO_POSTAL = :CO' +
'DIGO_POSTAL, '#10' PERSONA_CONTACTO = :PERSONA_CONTACTO,'#10' TELE' +
'FONO = :TELEFONO,'#10' MOVIL = :MOVIL,'#10' FAX = :FAX,'#10' EMAIL ' +
'= :EMAIL,'#10' NOTAS = :NOTAS,'#10' PORTE = :PORTE'#10' WHERE'#10' (ID' +
' = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_DireccionesContacto'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID'
Value = ''
ParamType = daptInput
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_PROVEEDORES'
SQL =
'INSERT'#10' INTO CLIENTES_DTOS_PROVEEDORES'#10' (ID, ID_CLIENTE, ID_' +
'PROVEEDOR, DESCUENTO)'#10' VALUES'#10' (:ID, :ID_CLIENTE, :ID_PROVEE' +
'DOR, :DESCUENTO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ClientesDescuentos'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_PROVEEDORES'
SQL =
'DELETE '#10' FROM'#10' CLIENTES_DTOS_PROVEEDORES'#10' WHERE'#10' (ID = :' +
'OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_ClientesDescuentos'
end
item
Params = <
item
Name = 'ID_CLIENTE'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'ID_PROVEEDOR'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'DESCUENTO'
DataType = datFloat
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'CLIENTES_DTOS_PROVEEDORES'
SQL =
'UPDATE CLIENTES_DTOS_PROVEEDORES'#10' SET '#10' ID_CLIENTE = :ID_CLI' +
'ENTE,'#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' DESCUENTO = :DESCUE' +
'NTO'#10' WHERE'#10' (ID = :OLD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_ClientesDescuentos'
end
item
Params = <
item
Name = 'OLD_ID_EMPLEADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPLEADOS_DATOS'
SQL =
'DELETE '#10' FROM'#10' EMPLEADOS_DATOS'#10' WHERE'#10' (ID_EMPLEADO = :O' +
'LD_ID_EMPLEADO)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_EmpleadosDatos'
end
item
Params = <
item
Name = 'ID_EMPLEADO'
Value = ''
end
item
Name = 'FECHA_NACIMIENTO'
Value = ''
end
item
Name = 'CATEGORIA'
Value = ''
end
item
Name = 'FECHA_ALTA_EMPRESA'
Value = ''
end
item
Name = 'FORMACION_BASE'
Value = ''
end
item
Name = 'FORMACION_COMPLE'
Value = ''
end
item
Name = 'FORMACION_RECIBIDA'
Value = ''
end
item
Name = 'EXPERIENCIA'
Value = ''
end
item
Name = 'CONTRATO'
Value = ''
end
item
Name = 'DURACION'
Value = ''
end
item
Name = 'FECHA_BAJA'
Value = ''
end
item
Name = 'CAUSA_BAJA'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPLEADOS_DATOS'
SQL =
'INSERT'#10' INTO EMPLEADOS_DATOS'#10' (ID_EMPLEADO, FECHA_NACIMIENTO' +
', CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE,'#10' FORMACION_C' +
'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA, CONTRATO, DURACION, FECH' +
'A_BAJA,'#10' CAUSA_BAJA)'#10' VALUES'#10' (:ID_EMPLEADO, :FECHA_NACIM' +
'IENTO, :CATEGORIA, :FECHA_ALTA_EMPRESA, :FORMACION_BASE,'#10' :FO' +
'RMACION_COMPLE, :FORMACION_RECIBIDA, :EXPERIENCIA, :CONTRATO, :D' +
'URACION, :FECHA_BAJA,'#10' :CAUSA_BAJA)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_EmpleadosDatos'
end
item
Params = <
item
Name = 'FECHA_NACIMIENTO'
Value = ''
end
item
Name = 'CATEGORIA'
Value = ''
end
item
Name = 'FECHA_ALTA_EMPRESA'
Value = ''
end
item
Name = 'FORMACION_BASE'
Value = ''
end
item
Name = 'FORMACION_COMPLE'
Value = ''
end
item
Name = 'FORMACION_RECIBIDA'
Value = ''
end
item
Name = 'EXPERIENCIA'
Value = ''
end
item
Name = 'CONTRATO'
Value = ''
end
item
Name = 'DURACION'
Value = ''
end
item
Name = 'FECHA_BAJA'
Value = ''
end
item
Name = 'CAUSA_BAJA'
Value = ''
end
item
Name = 'OLD_ID_EMPLEADO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPLEADOS_DATOS'
SQL =
'UPDATE EMPLEADOS_DATOS'#10' SET '#10' FECHA_NACIMIENTO = :FECHA_NACI' +
'MIENTO,'#10' CATEGORIA = :CATEGORIA,'#10' FECHA_ALTA_EMPRESA = :FE' +
'CHA_ALTA_EMPRESA,'#10' FORMACION_BASE = :FORMACION_BASE,'#10' FORM' +
'ACION_COMPLE = :FORMACION_COMPLE,'#10' FORMACION_RECIBIDA = :FORM' +
'ACION_RECIBIDA,'#10' EXPERIENCIA = :EXPERIENCIA,'#10' CONTRATO = :' +
'CONTRATO,'#10' DURACION = :DURACION,'#10' FECHA_BAJA = :FECHA_BAJA' +
','#10' CAUSA_BAJA = :CAUSA_BAJA'#10' WHERE'#10' (ID_EMPLEADO = :OLD_I' +
'D_EMPLEADO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_EmpleadosDatos'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_EMPRESAS_CONTACTOS_ID'
Value = ''
end
item
Name = 'ID_EMPRESA'
Value = ''
end
item
Name = 'ID_CONTACTO'
Value = ''
end>
Statements = <
item
Connection = 'IBX'
TargetTable = 'EMPRESAS_CONTACTOS'
SQL =
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID, ID_EMPRESA, ID_CONTACT' +
'O)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CONTACTO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_ContactoEmpresa'
end
item
Params = <
item
Name = 'OLD_ID_EMPRESA'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'OLD_ID_CONTACTO'
DataType = datInteger
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_ContactoEmpresa'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Value = ''
end
item
Name = 'ID_CONTACTO'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'PUESTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'MOVIL'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'INSERT'#10' INTO CONTACTOS_DATOS_PERSONAL'#10' (ID, ID_CONTACTO, NOM' +
'BRE, PUESTO, TELEFONO, MOVIL, FAX,'#10' EMAIL, FECHA_ALTA)'#10' VAL' +
'UES'#10' (:ID, :ID_CONTACTO, :NOMBRE, :PUESTO, :TELEFONO, :MOVIL,' +
#10' :FAX, :EMAIL, CURRENT_TIME)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PersonalContacto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'DELETE '#10' FROM'#10' CONTACTOS_DATOS_PERSONAL'#10' WHERE'#10' (ID = :O' +
'LD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PersonalContacto'
end
item
Params = <
item
Name = 'ID_CONTACTO'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'PUESTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'MOVIL'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'UPDATE CONTACTOS_DATOS_PERSONAL'#10' SET '#10' ID_CONTACTO = :ID_CON' +
'TACTO, '#10' NOMBRE = :NOMBRE, '#10' PUESTO = :PUESTO, '#10' TELEFO' +
'NO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' EMAIL' +
' = :EMAIL, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE' +
#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PersonalContacto'
end>
RelationShips = <
item
Name = 'FK_PersonalContacto_Empleados'
MasterDatasetName = 'Empleados'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Proveedores'
MasterDatasetName = 'Proveedores'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Contactos'
MasterDatasetName = 'Contactos'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_ClientesDescuentos_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'ClientesDescuentos'
DetailFields = 'ID_CLIENTE'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DireccionesContacto_Contactos'
MasterDatasetName = 'Contactos'
MasterFields = 'ID'
DetailDatasetName = 'DireccionesContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DatosBancarios_Contactos'
MasterDatasetName = 'Contactos'
MasterFields = 'ID'
DetailDatasetName = 'DatosBancarios'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DatosBancarios_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'DatosBancarios'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DireccionesContacto_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'DireccionesContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DireccionesContacto_Empleados'
MasterDatasetName = 'Empleados'
MasterFields = 'ID'
DetailDatasetName = 'DireccionesContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DatosBancarios_Empleados'
MasterDatasetName = 'Empleados'
MasterFields = 'ID'
DetailDatasetName = 'DatosBancarios'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DireccionesContacto_Proveedores'
MasterDatasetName = 'Proveedores'
MasterFields = 'ID'
DetailDatasetName = 'DireccionesContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_DatosBancarios_Proveedores'
MasterDatasetName = 'Proveedores'
MasterFields = 'ID'
DetailDatasetName = 'DatosBancarios'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end>
UpdateRules = <
item
Name = 'Insert Contactos'
DoUpdate = False
DoDelete = False
DatasetName = 'Contactos'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert Clientes'
DoUpdate = False
DoDelete = False
DatasetName = 'Clientes'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert Empleados'
DoUpdate = False
DoDelete = False
DatasetName = 'Empleados'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert Proveedores'
DoUpdate = False
DoDelete = False
DatasetName = 'Proveedores'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Contactos'
DoInsert = False
DoDelete = False
DatasetName = 'Contactos'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Clientes'
DoInsert = False
DoDelete = False
DatasetName = 'Clientes'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Empleados'
DoInsert = False
DoDelete = False
DatasetName = 'Empleados'
FailureBehavior = fbRaiseException
end
item
Name = 'Update Proveedores'
DoInsert = False
DoDelete = False
DatasetName = 'Proveedores'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert DatosBancarios'
DoUpdate = False
DoDelete = False
DatasetName = 'DatosBancarios'
FailureBehavior = fbRaiseException
end
item
Name = 'Update DatosBancarios'
DoInsert = False
DoDelete = False
DatasetName = 'DatosBancarios'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert PersonalContacto'
DoUpdate = False
DoDelete = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Update PersonalContacto'
DoInsert = False
DoDelete = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert DireccionesContacto'
DoUpdate = False
DoDelete = False
DatasetName = 'DireccionesContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Update DireccionesContacto'
DoInsert = False
DoDelete = False
DatasetName = 'DireccionesContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert AgentesComisiones'
DoUpdate = False
DoDelete = False
DatasetName = 'AgentesComisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Update AgentesComisiones'
DoInsert = False
DoDelete = False
DatasetName = 'AgentesComisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Insert ClientesDescuentos'
DoUpdate = False
DoDelete = False
DatasetName = 'ClientesDescuentos'
FailureBehavior = fbRaiseException
end
item
Name = 'Update ClientesDescuentos'
DoInsert = False
DoDelete = False
DatasetName = 'ClientesDescuentos'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete DatosBancarios'
DoUpdate = False
DoInsert = False
DatasetName = 'DatosBancarios'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete ClientesDescuentos'
DoUpdate = False
DoInsert = False
DatasetName = 'ClientesDescuentos'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete AgentesComisiones'
DoUpdate = False
DoInsert = False
DatasetName = 'AgentesComisiones'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete PersonalContacto'
DoUpdate = False
DoInsert = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete DireccionesContacto'
DoUpdate = False
DoInsert = False
DatasetName = 'DireccionesContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Proveedores'
DoUpdate = False
DoInsert = False
DatasetName = 'Proveedores'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Empleados'
DoUpdate = False
DoInsert = False
DatasetName = 'Empleados'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Clientes'
DoUpdate = False
DoInsert = False
DatasetName = 'Clientes'
FailureBehavior = fbRaiseException
end
item
Name = 'Delete Contactos'
DoUpdate = False
DoInsert = False
DatasetName = 'Contactos'
FailureBehavior = fbRaiseException
end>
Version = 0
Left = 38
Top = 14
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'DatosBancarios_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DATOS_BANCO_ID'
DisplayLabel = 'ID'
end
item
Name = 'DatosBancarios_ID_CONTACTO'
DataType = datInteger
DisplayLabel = 'ID_CONTACTO'
end
item
Name = 'DatosBancarios_TITULAR'
DataType = datString
Size = 255
DisplayLabel = 'Titular'
end
item
Name = 'DatosBancarios_ENTIDAD'
DataType = datString
Size = 15
DisplayLabel = 'C'#243'digo de entidad'
end
item
Name = 'DatosBancarios_SUCURSAL'
DataType = datString
Size = 15
DisplayLabel = 'C'#243'digo de sucursal'
end
item
Name = 'DatosBancarios_DC'
DataType = datString
Size = 15
DisplayLabel = 'D'#237'gito de control'
end
item
Name = 'DatosBancarios_CUENTA'
DataType = datString
Size = 15
DisplayLabel = 'C'#243'digo de cuenta'
end
item
Name = 'Contactos_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_ID'
DisplayLabel = 'ID'
end
item
Name = 'Contactos_NIF_CIF'
DataType = datString
Size = 15
DisplayLabel = 'NIF/CIF'
end
item
Name = 'Contactos_CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Direcci'#243'n'
end
item
Name = 'Contactos_POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'Contactos_PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
end
item
Name = 'Contactos_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
end
item
Name = 'Contactos_TELEFONO_1'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. trabajo'
end
item
Name = 'Contactos_TELEFONO_2'
DataType = datString
Size = 25
DisplayLabel = 'Tlf. particular'
end
item
Name = 'Contactos_MOVIL_1'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
end
item
Name = 'Contactos_MOVIL_2'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil 2'
end
item
Name = 'Contactos_FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
end
item
Name = 'Contactos_EMAIL_1'
DataType = datString
Size = 255
DisplayLabel = 'E-mail trabajo'
end
item
Name = 'Contactos_EMAIL_2'
DataType = datString
Size = 255
DisplayLabel = 'E-mail particular'
end
item
Name = 'Contactos_PAGINA_WEB'
DataType = datString
Size = 255
DisplayLabel = 'Web'
end
item
Name = 'Contactos_NOTAS'
DataType = datMemo
BlobType = dabtMemo
DisplayLabel = 'Observaciones'
end
item
Name = 'Contactos_FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
end
item
Name = 'Contactos_FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'Fecha de modificaci'#243'n'
end
item
Name = 'Contactos_USUARIO'
DataType = datString
Size = 20
DisplayLabel = 'Usuario'
end
item
Name = 'Contactos_ID_CATEGORIA'
DataType = datInteger
end
item
Name = 'Contactos_ID_EMPRESA'
DataType = datInteger
DisplayLabel = 'ID_EMPRESA'
end
item
Name = 'Proveedores_DISTRIBUYE'
DataType = datString
Size = 2000
DisplayLabel = 'Distribuye'
end
item
Name = 'Proveedores_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento (%)'
end
item
Name = 'Clientes_ID_AGENTE'
DataType = datInteger
DisplayLabel = 'ID_AGENTE'
end
item
Name = 'Clientes_GRUPO_CLIENTE'
DataType = datString
Size = 255
DisplayLabel = 'Grupo de cliente'
end
item
Name = 'DatosBancarios_PERSONA_CONTACTO'
DataType = datString
Size = 255
end
item
Name = 'DireccionesContacto_CALLE'
DataType = datString
Size = 255
DisplayLabel = 'Calle'
end
item
Name = 'DireccionesContacto_POBLACION'
DataType = datString
Size = 255
DisplayLabel = 'Poblaci'#243'n'
end
item
Name = 'DireccionesContacto_PROVINCIA'
DataType = datString
Size = 255
DisplayLabel = 'Provincia'
end
item
Name = 'DireccionesContacto_CODIGO_POSTAL'
DataType = datString
Size = 10
DisplayLabel = 'C'#243'digo postal'
end
item
Name = 'DireccionesContacto_PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
end
item
Name = 'DireccionesContacto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_DIR_ID'
DisplayLabel = 'ID'
end
item
Name = 'DireccionesContacto_ID_CONTACTO'
DataType = datInteger
DisplayLabel = 'ID_CONTACTO'
end
item
Name = 'Clientes_NOMBRE_COMERCIAL'
DataType = datString
Size = 255
DisplayLabel = 'Nombre comercial'
end
item
Name = 'Clientes_VENCIMIENTO_FACTURAS'
DataType = datInteger
DisplayLabel = 'Vencimiento'
end
item
Name = 'Clientes_FELICITACION'
DataType = datSmallInt
DisplayLabel = #191'Felicitaci'#243'n?'
end
item
Name = 'Clientes_BLOQUEADO'
DataType = datSmallInt
DisplayLabel = #191'Bloqueado?'
end
item
Name = 'Contactos_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'Proveedores_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
end
item
Name = 'ClientesDescuentos_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_DTOS_PROV_ID'
DisplayLabel = 'ID'
end
item
Name = 'ClientesDescuentos_ID_CLIENTE'
DataType = datInteger
end
item
Name = 'ClientesDescuentos_ID_PROVEEDOR'
DataType = datInteger
end
item
Name = 'ClientesDescuentos_DESCUENTO'
DataType = datFloat
DisplayLabel = 'Descuento (%)'
Alignment = taRightJustify
end
item
Name = 'Clientes_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'REFERENCIA'
end
item
Name = 'Clientes_MOTIVO_BLOQUEO'
DataType = datString
Size = 255
DisplayLabel = 'Motivo del bloqueo'
end
item
Name = 'DireccionesContacto_NOMBRE'
DataType = datString
Size = 255
end
item
Name = 'DireccionesContacto_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'DireccionesContacto_EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
end
item
Name = 'DireccionesContacto_NOTAS'
DataType = datMemo
DisplayLabel = 'Notas'
end
item
Name = 'DireccionesContacto_PORTE'
DataType = datFloat
DisplayLabel = 'Coste del porte'
end
item
Name = 'Clientes_RECARGO_EQUIVALENCIA'
DataType = datInteger
DisplayLabel = 'Rec. equiv.'
end
item
Name = 'Clientes_REGIMEN_IVA'
DataType = datString
Size = 255
DisplayLabel = 'R'#233'gimen de IVA'
end
item
Name = 'Clientes_ID_TIPO_IVA'
DataType = datInteger
DisplayLabel = 'ID_TIPO_IVA'
end
item
Name = 'Clientes_ID_FORMA_PAGO'
DataType = datInteger
DisplayLabel = 'ID_FORMA_PAGO'
end
item
Name = 'Proveedores_REGIMEN_IVA'
DataType = datString
Size = 255
DisplayLabel = 'R'#233'gimen de IVA'
end
item
Name = 'Proveedores_ID_TIPO_IVA'
DataType = datInteger
DisplayLabel = 'ID_TIPO_IVA'
end
item
Name = 'Proveedores_ID_FORMA_PAGO'
DataType = datInteger
DisplayLabel = 'ID_FORMA_PAGO'
end
item
Name = 'Clientes_TIENDA_WEB'
DataType = datSmallInt
DisplayLabel = 'TIENDA_WEB'
end
item
Name = 'Clientes_AGENTE'
DataType = datString
Size = 255
end
item
Name = 'Contactos_PERSONA_CONTACTO'
DataType = datString
Size = 255
DisplayLabel = 'Persona de contacto'
end
item
Name = 'Proveedores_GRUPO_PROVEEDOR'
DataType = datString
DisplayLabel = 'Grupo proveedor'
end
item
Name = 'Proveedores_TIENDA_WEB'
DataType = datSmallInt
DisplayLabel = 'TIENDA_WEB'
end
item
Name = 'Proveedores_HOMOLOGADO'
DataType = datSmallInt
DisplayLabel = 'Homologado'
end
item
Name = 'Proveedores_CERTIFICACION'
DataType = datString
Size = 255
DisplayLabel = 'Certificaciones'
end
item
Name = 'Proveedores_DESCRIPCION_PROVEEDOR'
DataType = datString
Size = 255
DisplayLabel = 'Proveedor de...'
end
item
Name = 'Proveedores_CODIGO_ASIGNADO'
DataType = datString
Size = 255
DisplayLabel = 'C'#243'digo asignado'
end
item
Name = 'Empleados_FECHA_NACIMIENTO'
DataType = datDateTime
DisplayLabel = 'Fecha nacimiento'
end
item
Name = 'Empleados_CATEGORIA'
DataType = datString
Size = 255
DisplayLabel = 'Categor'#237'a'
end
item
Name = 'Empleados_FECHA_ALTA_EMPRESA'
DataType = datDateTime
DisplayLabel = 'Fecha de alta'
end
item
Name = 'Empleados_FORMACION_BASE'
DataType = datMemo
DisplayLabel = 'Formaci'#243'n base'
end
item
Name = 'Empleados_FORMACION_COMPLE'
DataType = datMemo
DisplayLabel = 'Formaci'#243'n complementaria'
end
item
Name = 'Empleados_FORMACION_RECIBIDA'
DataType = datMemo
DisplayLabel = 'Formaci'#243'n recibida'
end
item
Name = 'Empleados_EXPERIENCIA'
DataType = datMemo
DisplayLabel = 'Experiencia'
end
item
Name = 'Contactos_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
end
item
Name = 'GruposCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_GRUPOS_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'GruposCliente_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end
item
Name = 'GruposEmpleado_ID'
DataType = datAutoInc
GeneratorName = 'GEN_EMPLEADOS_GRUPOS_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'GruposEmpleado_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end
item
Name = 'GruposProveedor_ID'
DataType = datAutoInc
GeneratorName = 'GEN_PROVEEDORES_GRUPOS_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'GruposProveedor_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end
item
Name = 'Empleados_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Empleados_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Empleados_REFERENCIA'
DataType = datString
Size = 255
DisplayLabel = 'Referencia'
ServerAutoRefresh = True
end
item
Name = 'Empleados_CONTRATO'
DataType = datString
Size = 255
DisplayLabel = 'Contrato'
end
item
Name = 'Proveedores_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'Proveedores_FECHA_MODIFICACION'
DataType = datDateTime
end
item
Name = 'Proveedores_SUBCONTRATA'
DataType = datSmallInt
DisplayLabel = 'Subcontrata'
end
item
Name = 'PersonalContacto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Required = True
end
item
Name = 'PersonalContacto_ID_CONTACTO'
DataType = datInteger
end
item
Name = 'PersonalContacto_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
end
item
Name = 'PersonalContacto_PUESTO'
DataType = datString
Size = 255
DisplayLabel = 'Puesto'
end
item
Name = 'PersonalContacto_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'PersonalContacto_MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
end
item
Name = 'PersonalContacto_FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
end
item
Name = 'PersonalContacto_EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
end
item
Name = 'PersonalContacto_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'PersonalContacto_FECHA_MODIFICACION'
DataType = datDateTime
end>
Left = 126
Top = 14
end
object Diagrams: TDADiagrams
Left = 126
Top = 82
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
end
object bpContactos: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
RefreshDatasetName = 'Contactos_Refresh'
ReferencedDataset = 'Contactos'
ProcessorOptions = [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 bpEmpleados: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
RefreshDatasetName = 'Contactos_Refresh'
ReferencedDataset = 'Empleados'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 15
end
object bpClientes: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
RefreshDatasetName = 'Contactos_Refresh'
ReferencedDataset = 'Clientes'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 143
end
object bpProveedores: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_Contactos'
DeleteCommandName = 'Delete_Contactos'
UpdateCommandName = 'Update_Contactos'
RefreshDatasetName = 'Contactos_Refresh'
ReferencedDataset = 'Proveedores'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 79
end
object bpDireccionesContacto: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_DireccionesContacto'
DeleteCommandName = 'Delete_DireccionesContacto'
UpdateCommandName = 'Update_DireccionesContacto'
ReferencedDataset = 'DireccionesContacto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 207
end
object bpClientesDescuentos: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_ClientesDescuentos'
DeleteCommandName = 'Delete_ClientesDescuentos'
UpdateCommandName = 'Update_ClientesDescuentos'
ReferencedDataset = 'ClientesDescuentos'
ProcessorOptions = [poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 344
Top = 207
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 40
Top = 80
end
object bpPersonalContacto: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_PersonalContacto'
DeleteCommandName = 'Delete_PersonalContacto'
UpdateCommandName = 'Update_PersonalContacto'
ReferencedDataset = 'PersonalContacto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 143
end
end
Reference in New Issue View Git Blame Copy Permalink