object srvMontajes: TsrvMontajes OldCreateOrder = True OnCreate = DARemoteServiceCreate RequiresSession = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schMontajes ServiceAdapter = DABINAdapter OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection OnAfterGetDatasetData = DARemoteServiceAfterGetDatasetData Height = 249 Width = 343 object Diagrams: TDADiagrams Left = 150 Top = 74 DiagramData = ''#13#10''#13#10 end object DataDictionary: TDADataDictionary Fields = < item Name = 'Montajes_ID' DataType = datInteger BlobType = dabtUnknown Required = True DisplayWidth = 0 DisplayLabel = 'ID' Alignment = taLeftJustify end item Name = 'Montajes_ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_EMPRESA' Alignment = taLeftJustify end item Name = 'Montajes_ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_CLIENTE' Alignment = taLeftJustify end item Name = 'Montajes_REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Referencia' Alignment = taLeftJustify end item Name = 'Montajes_FECHA_INICIO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'Montajes_FECHA_FIN' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify end item Name = 'Montajes_FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_ALTA' Alignment = taLeftJustify end item Name = 'Montajes_FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_MODIFICACION' Alignment = taLeftJustify end item Name = 'Montajes_USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'USUARIO' Alignment = taLeftJustify end item Name = 'Montajes_NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Nombre' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_MONTAJE' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'POSICION' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'TIPO_DETALLE' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'CONCEPTO' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'CANTIDAD' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_PUNTOS' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'PUNTOS' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_IMPORTE_PUNTOS' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IMPORTE_PUNTOS' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_IMPORTE_UNIDAD' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IMPORTE_UNIDAD' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'DESCUENTO' Alignment = taLeftJustify end item Name = 'Montajes_Detalles_IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IMPORTE_TOTAL' Alignment = taRightJustify end item Name = 'Montajes_Detalles_VISIBLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'VISIBLE' Alignment = taLeftJustify end item Name = 'Montajes_Gastos_ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_MONTAJE' Alignment = taLeftJustify end item Name = 'Montajes_Gastos_FECHA_GASTO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FECHA_GASTO' Alignment = taLeftJustify end item Name = 'Montajes_Gastos_DESCRIPCION' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'DESCRIPCION' Alignment = taLeftJustify end item Name = 'Montajes_Gastos_IMPORTE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IMPORTE' Alignment = taRightJustify end item Name = 'Montajes_ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'ID_PRESUPUESTO' Alignment = taLeftJustify end item Name = 'Montajes_SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'SITUACION' Alignment = taLeftJustify end item Name = 'Montajes_IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'IMPORTE_TOTAL' Alignment = taRightJustify end> Left = 150 Top = 22 end object schMontajes: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES' SQL = 'SELECT MONTAJES.ID, MONTAJES.ID_EMPRESA, MONTAJES.ID_CLIENTE, MO' + 'NTAJES.ID_PRESUPUESTO,'#10' MONTAJES.REFERENCIA, MONTAJES.SITU' + 'ACION, MONTAJES.FECHA_INICIO,'#10' MONTAJES.FECHA_FIN, MONTAJE' + 'S.FECHA_ALTA, MONTAJES.FECHA_MODIFICACION,'#10' MONTAJES.USUAR' + 'IO, MONTAJES.IMPORTE_TOTAL, CONTACTOS.NOMBRE'#10#10'FROM MONTAJES'#10'LEFT' + ' JOIN CONTACTOS ON MONTAJES.ID_CLIENTE = CONTACTOS.ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'NOMBRE' TableField = 'NOMBRE' SQLOrigin = 'CONTACTOS.NOMBRE' end item DatasetField = 'ID' TableField = 'ID' SQLOrigin = 'MONTAJES.ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' SQLOrigin = 'MONTAJES.ID_EMPRESA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' SQLOrigin = 'MONTAJES.ID_CLIENTE' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' SQLOrigin = 'MONTAJES.FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' SQLOrigin = 'MONTAJES.FECHA_MODIFICACION' end item DatasetField = 'USUARIO' TableField = 'USUARIO' SQLOrigin = 'MONTAJES.USUARIO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' SQLOrigin = 'MONTAJES.REFERENCIA' end item DatasetField = 'FECHA_INICIO' TableField = 'FECHA_INICIO' end item DatasetField = 'FECHA_FIN' TableField = 'FECHA_FIN' end item DatasetField = 'ID_PRESUPUESTO' TableField = 'ID_PRESUPUESTO' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'Montajes' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_ID_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_ID_PRESUPUESTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Montajes_REFERENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Montajes_SITUACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_INICIO' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Montajes_FECHA_INICIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_FIN' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Montajes_FECHA_FIN' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Montajes_FECHA_ALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Montajes_FECHA_MODIFICACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DictionaryEntry = 'Montajes_USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'Montajes_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DictionaryEntry = 'Montajes_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES' SQL = 'SELECT MONTAJES.ID, MONTAJES.ID_EMPRESA, MONTAJES.ID_CLIENTE, MO' + 'NTAJES.ID_PRESUPUESTO,'#10' MONTAJES.REFERENCIA, MONTAJES.SITU' + 'ACION, MONTAJES.FECHA_INICIO,'#10' MONTAJES.FECHA_FIN, MONTAJE' + 'S.FECHA_ALTA, MONTAJES.FECHA_MODIFICACION,'#10' MONTAJES.USUAR' + 'IO, MONTAJES.IMPORTE_TOTAL, CONTACTOS.NOMBRE'#10#10'FROM MONTAJES'#10'LEFT' + ' JOIN CONTACTOS ON MONTAJES.ID_CLIENTE = CONTACTOS.ID'#10'WHERE MONT' + 'AJES.ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' 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 = 'FECHA_INICIO' TableField = 'FECHA_INICIO' end item DatasetField = 'FECHA_FIN' TableField = 'FECHA_FIN' end item DatasetField = 'ID_PRESUPUESTO' TableField = 'ID_PRESUPUESTO' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end> end> Name = 'Montajes_Refresh' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Required = True DisplayWidth = 0 ReadOnly = True Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_INICIO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_FIN' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_DETALLES' SQL = 'SELECT'#10' ID, ID_MONTAJE, POSICION, TIPO_DETALLE, CONCEPTO, CAN' + 'TIDAD, PUNTOS,'#10' IMPORTE_PUNTOS, IMPORTE_UNIDAD, DESCUENTO, IM' + 'PORTE_TOTAL, VISIBLE'#10'FROM'#10' MONTAJES_DETALLES'#10'WHERE'#10' ID_MO' + 'NTAJE = :ID_MONTAJE' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_MONTAJE' TableField = 'ID_MONTAJE' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'PUNTOS' TableField = 'PUNTOS' end item DatasetField = 'IMPORTE_PUNTOS' TableField = 'IMPORTE_PUNTOS' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'DESCUENTO' TableField = 'DESCUENTO' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end> end> Name = 'Montajes_Detalles' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_ID_MONTAJE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_POSICION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_TIPO_DETALLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_CONCEPTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_CANTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PUNTOS' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_PUNTOS' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_PUNTOS' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_IMPORTE_PUNTOS' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_IMPORTE_UNIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_DESCUENTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'VISIBLE' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_Detalles_VISIBLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_GASTOS' SQL = 'SELECT'#10' ID, ID_MONTAJE, FECHA_GASTO, DESCRIPCION, IMPORTE'#10'FRO' + 'M'#10' MONTAJES_GASTOS'#10'WHERE'#10' ID_MONTAJE = :ID_MONTAJE' StatementType = stSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_MONTAJE' TableField = 'ID_MONTAJE' end item DatasetField = 'FECHA_GASTO' TableField = 'FECHA_GASTO' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'IMPORTE' TableField = 'IMPORTE' end> end> Name = 'Montajes_Gastos' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown DictionaryEntry = 'Montajes_Gastos_ID_MONTAJE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_GASTO' DataType = datDateTime BlobType = dabtUnknown DictionaryEntry = 'Montajes_Gastos_FECHA_GASTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 2000 BlobType = dabtUnknown DictionaryEntry = 'Montajes_Gastos_DESCRIPCION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE' DataType = datCurrency BlobType = dabtUnknown DictionaryEntry = 'Montajes_Gastos_IMPORTE' 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 = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_INICIO' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_FIN' DataType = datDateTime 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 = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES' SQL = 'INSERT'#10' INTO MONTAJES'#10' (ID, ID_EMPRESA, ID_CLIENTE, ID_PRESU' + 'PUESTO, REFERENCIA, SITUACION,'#10' FECHA_INICIO, FECHA_FIN, FEC' + 'HA_ALTA, FECHA_MODIFICACION, USUARIO, IMPORTE_TOTAL)'#10' VALUES'#10' ' + ' (:ID, :ID_EMPRESA, :ID_CLIENTE, :ID_PRESUPUESTO, :REFERENCIA, ' + ':SITUACION,'#10' :FECHA_INICIO, :FECHA_FIN, :FECHA_ALTA, :FECHA_' + 'MODIFICACION, :USUARIO, :IMPORTE_TOTAL)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Montajes' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES' SQL = 'DELETE '#10' FROM'#10' MONTAJES'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Montajes' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_PRESUPUESTO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_INICIO' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_FIN' DataType = datDateTime 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 = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES' SQL = 'UPDATE MONTAJES'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :ID_EMPRES' + 'A, '#10' ID_CLIENTE = :ID_CLIENTE,'#10' ID_PRESUPUESTO = :ID_PRESU' + 'PUESTO,'#10' REFERENCIA = :REFERENCIA,'#10' SITUACION = :SITUACION' + ','#10' FECHA_INICIO = :FECHA_INICIO,'#10' FECHA_FIN = :FECHA_FIN,'#10 + ' FECHA_ALTA = :FECHA_ALTA,'#10' FECHA_MODIFICACION = :FECHA_MO' + 'DIFICACION,'#10' USUARIO = :USUARIO,'#10' IMPORTE_TOTAL = :IMPORTE' + '_TOTAL'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Montajes' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PUNTOS' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_PUNTOS' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VISIBLE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_DETALLES' SQL = 'INSERT'#10' INTO MONTAJES_DETALLES'#10' (ID, ID_MONTAJE, POSICION, T' + 'IPO_DETALLE, CONCEPTO, CANTIDAD, '#10' PUNTOS, IMPORTE_PUNTOS, I' + 'MPORTE_UNIDAD, DESCUENTO, '#10' IMPORTE_TOTAL, VISIBLE)'#10' VALUES' + #10' (:ID, :ID_MONTAJE, :POSICION, :TIPO_DETALLE, :CONCEPTO, '#10' ' + ' :CANTIDAD, :PUNTOS, :IMPORTE_PUNTOS, :IMPORTE_UNIDAD, '#10' :' + 'DESCUENTO, :IMPORTE_TOTAL, :VISIBLE)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Montajes_Detalles' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_DETALLES' SQL = 'DELETE '#10' FROM'#10' MONTAJES_DETALLES'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Montajes_Detalles' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'PUNTOS' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_PUNTOS' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_UNIDAD' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'VISIBLE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_DETALLES' SQL = 'UPDATE MONTAJES_DETALLES'#10' SET '#10' ID = :ID, '#10' ID_MONTAJE = ' + ':ID_MONTAJE, '#10' POSICION = :POSICION, '#10' TIPO_DETALLE = :TIP' + 'O_DETALLE, '#10' CONCEPTO = :CONCEPTO, '#10' CANTIDAD = :CANTIDAD,' + ' '#10' PUNTOS = :PUNTOS, '#10' IMPORTE_PUNTOS = :IMPORTE_PUNTOS, '#10 + ' IMPORTE_UNIDAD = :IMPORTE_UNIDAD, '#10' DESCUENTO = :DESCUENT' + 'O, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' VISIBLE = :VISIBLE'#10 + ' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Montajes_Detalles' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_GASTO' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 2000 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_GASTOS' SQL = 'INSERT'#10' INTO MONTAJES_GASTOS'#10' (ID, ID_MONTAJE, FECHA_GASTO, ' + 'DESCRIPCION, IMPORTE)'#10' VALUES'#10' (:ID, :ID_MONTAJE, :FECHA_GAS' + 'TO, :DESCRIPCION, :IMPORTE)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Montajes_Gastos' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_GASTOS' SQL = 'DELETE '#10' FROM'#10' MONTAJES_GASTOS'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Montajes_Gastos' end item Params = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_GASTO' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 2000 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'MONTAJES_GASTOS' SQL = 'UPDATE MONTAJES_GASTOS'#10' SET '#10' ID = :ID, '#10' ID_MONTAJE = :I' + 'D_MONTAJE, '#10' FECHA_GASTO = :FECHA_GASTO, '#10' DESCRIPCION = :' + 'DESCRIPCION, '#10' IMPORTE = :IMPORTE'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Montajes_Gastos' end> RelationShips = <> UpdateRules = < item Name = 'Insert Montajes' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'Montajes' FailureBehaviour = fbRaiseException end item Name = 'Insert Montajes_Detalles' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'Montajes_Detalles' FailureBehaviour = fbRaiseException end item Name = 'Insert Montajes_Gastos' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'Montajes_Gastos' FailureBehaviour = fbRaiseException end item Name = 'Update Montajes_Detalles' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'Montajes_Detalles' FailureBehaviour = fbRaiseException end item Name = 'Update Montajes_Gastos' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'Montajes_Gastos' FailureBehaviour = fbRaiseException end item Name = 'Update Montajes' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'Montajes' FailureBehaviour = fbRaiseException end item Name = 'Delete Montajes_Detalles' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'Montajes_Detalles' FailureBehaviour = fbRaiseException end item Name = 'Delete Montajes_Gastos' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'Montajes_Gastos' FailureBehaviour = fbRaiseException end item Name = 'Delete Montajes' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'Montajes' FailureBehaviour = fbRaiseException end> Left = 48 Top = 24 end object DABINAdapter: TDABINAdapter Left = 48 Top = 72 end object bpMontajes: TDABusinessProcessor Schema = schMontajes InsertCommandName = 'Insert_Montajes' DeleteCommandName = 'Delete_Montajes' UpdateCommandName = 'Update_Montajes' RefreshDatasetName = 'Montajes_Refresh' ReferencedDataset = 'Montajes' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 240 Top = 23 end object bpDetallesMontajes: TDABusinessProcessor Schema = schMontajes InsertCommandName = 'Insert_Montajes_Detalles' DeleteCommandName = 'Delete_Montajes_Detalles' UpdateCommandName = 'Update_Montajes_Detalles' ReferencedDataset = 'Montajes_Detalles' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 240 Top = 75 end object bpGastosMontajes: TDABusinessProcessor Schema = schMontajes InsertCommandName = 'Insert_Montajes_Gastos' DeleteCommandName = 'Delete_Montajes_Gastos' UpdateCommandName = 'Update_Montajes_Gastos' ReferencedDataset = 'Montajes_Gastos' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 240 Top = 131 end end