object srvPedidosProveedor: TsrvPedidosProveedor OldCreateOrder = True RequiresSession = True SessionManager = dmServer.SessionManager AcquireConnection = True ConnectionName = 'IBX' ServiceSchema = schPedidosProveedor ServiceAdapter = DABINAdapter OnBeforeAcquireConnection = DARemoteServiceBeforeAcquireConnection OnBeforeGetDatasetData = DARemoteServiceBeforeGetDatasetData Height = 490 Width = 347 object schPedidosProveedor: TDASchema ConnectionManager = dmServer.ConnectionManager Datasets = < item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_PROVEEDOR' SQL = 'SELECT '#10' PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID_EMPRESA, ' + 'PEDIDOS_PROVEEDOR.ID_PROVEEDOR,'#10' PEDIDOS_PROVEEDOR.ID_MONTAJE' + ', PEDIDOS_PROVEEDOR.REFERENCIA, PEDIDOS_PROVEEDOR.FECHA_PEDIDO,'#10 + ' PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, PEDIDOS_PROVEEDOR.FECH' + 'A_ENTREGA,'#10' PEDIDOS_PROVEEDOR.SITUACION, PEDIDOS_PROVEEDOR.DI' + 'RECCION_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVACIONES, PEDIDOS_PR' + 'OVEEDOR.IMPORTE_TOTAL,'#10' PEDIDOS_PROVEEDOR.INCIDENCIAS, PEDIDO' + 'S_PROVEEDOR.INCIDENCIAS_ACTIVAS,'#10' PEDIDOS_PROVEEDOR.FECHA_ALT' + 'A, PEDIDOS_PROVEEDOR.FECHA_MODIFICACION,'#10' PEDIDOS_PROVEEDOR.U' + 'SUARIO,'#10' CONTACTOS.NOMBRE'#10#10'FROM PEDIDOS_PROVEEDOR'#10'LEFT JOIN C' + 'ONTACTOS ON PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'ID_MONTAJE' TableField = 'ID_MONTAJE' end item DatasetField = 'FECHA_PEDIDO' TableField = 'FECHA_PEDIDO' end item DatasetField = 'FECHA_CONFIRMACION' TableField = 'FECHA_CONFIRMACION' end item DatasetField = 'FECHA_ENTREGA' TableField = 'FECHA_ENTREGA' end item DatasetField = 'DIRECCION_ENTREGA' TableField = 'DIRECCION_ENTREGA' end item DatasetField = 'INCIDENCIAS' TableField = 'INCIDENCIAS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS' end> end> Name = 'PedidosProveedor' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Required = True DisplayWidth = 0 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_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_PEDIDO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_CONFIRMACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ENTREGA' DataType = datDateTime 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 = 'DIRECCION_ENTREGA' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'REFERENCIA' 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 = 'INCIDENCIAS' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'OBSERVACIONES' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'NOMBRE' 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> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end item Params = < item Name = 'ID_PEDIDO' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_PROVEEDOR_DETALLES' SQL = 'SELECT'#10' ID, ID_PEDIDO, POSICION, TIPO_DETALLE, REFERENCIA, CO' + 'NCEPTO, CANTIDAD,'#10' IMPORTE_UNIDAD, IMPORTE_TOTAL, VISIBLE'#10'FRO' + 'M PEDIDOS_PROVEEDOR_DETALLES'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORDER ' + 'BY POSICION;' StatementType = stSQL ColumnMappings = < item DatasetField = 'CANTIDAD' TableField = 'CANTIDAD' end item DatasetField = 'POSICION' TableField = 'POSICION' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'TIPO_DETALLE' TableField = 'TIPO_DETALLE' end item DatasetField = 'CONCEPTO' TableField = 'CONCEPTO' end item DatasetField = 'IMPORTE_UNIDAD' TableField = 'IMPORTE_UNIDAD' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'VISIBLE' TableField = 'VISIBLE' end item DatasetField = 'ID_PEDIDO' TableField = 'ID_PEDIDO' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end> end> Name = 'PedidosProveedor_Detalles' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PEDIDO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'POSICIONCONCEPTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 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 = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'CANTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datFloat 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 = 'VISIBLE' DataType = datInteger 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' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_PROVEEDOR' SQL = 'SELECT '#10' PEDIDOS_PROVEEDOR.ID, PEDIDOS_PROVEEDOR.ID_EMPRESA, ' + 'PEDIDOS_PROVEEDOR.ID_PROVEEDOR,'#10' PEDIDOS_PROVEEDOR.ID_MONTAJE' + ', PEDIDOS_PROVEEDOR.REFERENCIA, PEDIDOS_PROVEEDOR.FECHA_PEDIDO,'#10 + ' PEDIDOS_PROVEEDOR.FECHA_CONFIRMACION, PEDIDOS_PROVEEDOR.FECH' + 'A_ENTREGA,'#10' PEDIDOS_PROVEEDOR.SITUACION, PEDIDOS_PROVEEDOR.DI' + 'RECCION_ENTREGA,'#10' PEDIDOS_PROVEEDOR.OBSERVACIONES, PEDIDOS_PR' + 'OVEEDOR.IMPORTE_TOTAL,'#10' PEDIDOS_PROVEEDOR.INCIDENCIAS, PEDIDO' + 'S_PROVEEDOR.INCIDENCIAS_ACTIVAS,'#10' PEDIDOS_PROVEEDOR.FECHA_ALT' + 'A, PEDIDOS_PROVEEDOR.FECHA_MODIFICACION,'#10' PEDIDOS_PROVEEDOR.U' + 'SUARIO,'#10' CONTACTOS.NOMBRE'#10#10'FROM PEDIDOS_PROVEEDOR'#10'LEFT JOIN C' + 'ONTACTOS ON PEDIDOS_PROVEEDOR.ID_PROVEEDOR = CONTACTOS.ID'#10'WHERE ' + 'PEDIDOS_PROVEEDOR.ID = :ID' StatementType = stSQL ColumnMappings = < item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'OBSERVACIONES' TableField = 'OBSERVACIONES' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'FECHA_ALTA' TableField = 'FECHA_ALTA' end item DatasetField = 'FECHA_MODIFICACION' TableField = 'FECHA_MODIFICACION' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'ID_MONTAJE' TableField = 'ID_MONTAJE' end item DatasetField = 'FECHA_PEDIDO' TableField = 'FECHA_PEDIDO' end item DatasetField = 'FECHA_CONFIRMACION' TableField = 'FECHA_CONFIRMACION' end item DatasetField = 'FECHA_ENTREGA' TableField = 'FECHA_ENTREGA' end item DatasetField = 'DIRECCION_ENTREGA' TableField = 'DIRECCION_ENTREGA' end item DatasetField = 'INCIDENCIAS' TableField = 'INCIDENCIAS' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'INCIDENCIAS_ACTIVAS' TableField = 'INCIDENCIAS_ACTIVAS' end> end> Name = 'PedidosProveedor_Refresh' Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown Required = True DisplayWidth = 0 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_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_PEDIDO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_CONFIRMACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ENTREGA' DataType = datDateTime 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 = 'DIRECCION_ENTREGA' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'REFERENCIA' 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 = 'INCIDENCIAS' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'OBSERVACIONES' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'NOMBRE' 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> BusinessRulesClient.ScriptLanguage = rslPascalScript BusinessRulesServer.ScriptLanguage = rslPascalScript end> Commands = < item Params = < item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end 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 = 'SITUACION' DataType = datString Size = 255 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 = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_PEDIDO' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_CONFIRMACION' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_ENTREGA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DIRECCION_ENTREGA' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'INCIDENCIAS' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_PROVEEDOR' SQL = 'INSERT'#10' INTO PEDIDOS_PROVEEDOR'#10' (USUARIO, OBSERVACIONES, REF' + 'ERENCIA, ID, ID_EMPRESA,'#10' SITUACION, FECHA_ALTA, FECHA_MODIF' + 'ICACION, ID_PROVEEDOR, '#10' ID_MONTAJE, FECHA_PEDIDO, FECHA_CON' + 'FIRMACION, FECHA_ENTREGA, '#10' DIRECCION_ENTREGA, INCIDENCIAS, ' + 'IMPORTE_TOTAL, INCIDENCIAS_ACTIVAS)'#10' VALUES'#10' (:USUARIO, :OBS' + 'ERVACIONES, :REFERENCIA, :ID,'#10' :ID_EMPRESA, :SITUACION, :FEC' + 'HA_ALTA, :FECHA_MODIFICACION, '#10' :ID_PROVEEDOR, :ID_MONTAJE, ' + ':FECHA_PEDIDO, :FECHA_CONFIRMACION, '#10' :FECHA_ENTREGA, :DIREC' + 'CION_ENTREGA, :INCIDENCIAS, :IMPORTE_TOTAL, '#10' :INCIDENCIAS_A' + 'CTIVAS)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_PedidosProveedor' end item Params = < item Name = 'OLD_ID' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'PEDIDOS_PROVEEDOR' SQL = 'DELETE '#10' FROM'#10' PEDIDOS_PROVEEDOR'#10' WHERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_PedidosProveedor' end item Params = < item Name = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown Value = '' ParamType = daptInput end 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 = 'SITUACION' DataType = datString Size = 255 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 = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'ID_MONTAJE' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_PEDIDO' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_CONFIRMACION' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'FECHA_ENTREGA' DataType = datDateTime BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'DIRECCION_ENTREGA' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'INCIDENCIAS' DataType = datMemo BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'IMPORTE_TOTAL' DataType = datFloat BlobType = dabtUnknown Value = '' ParamType = daptInput end item Name = 'INCIDENCIAS_ACTIVAS' 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 = 'PEDIDOS_PROVEEDOR' SQL = 'UPDATE PEDIDOS_PROVEEDOR'#10' SET '#10' USUARIO = :USUARIO, '#10' OBS' + 'ERVACIONES = :OBSERVACIONES, '#10' REFERENCIA = :REFERENCIA,'#10' ' + 'ID = :ID, '#10' ID_EMPRESA = :ID_EMPRESA, '#10' SITUACION = :SITUA' + 'CION, '#10' FECHA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :' + 'FECHA_MODIFICACION, '#10' ID_PROVEEDOR = :ID_PROVEEDOR, '#10' ID_M' + 'ONTAJE = :ID_MONTAJE, '#10' FECHA_PEDIDO = :FECHA_PEDIDO, '#10' FE' + 'CHA_CONFIRMACION = :FECHA_CONFIRMACION, '#10' FECHA_ENTREGA = :FE' + 'CHA_ENTREGA, '#10' DIRECCION_ENTREGA = :DIRECCION_ENTREGA, '#10' I' + 'NCIDENCIAS = :INCIDENCIAS, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, ' + #10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS'#10' WHERE'#10' (ID ' + '= :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_PedidosProveedor' end> RelationShips = < item Name = 'FK_DetallesFacturasCliente_FacturasCliente' MasterDatasetName = 'PedidosProveedor' MasterFields = 'ID' DetailDatasetName = 'PedidosProveedor_Detalles' DetailFields = 'ID_FACTURA' end item Name = 'FK_InformeDetallesFacturaCliente_InformeCabeceraFacturaCliente' MasterDatasetName = 'InformeCabeceraFacturaCliente' MasterFields = 'ID' DetailDatasetName = 'InformeDetallesFacturaCliente' DetailFields = 'ID_FACTURA' end> UpdateRules = < item Name = 'Insert FacturasCliente' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'FacturasCliente' FailureBehaviour = fbRaiseException end item Name = 'Update FacturasCliente' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'FacturasCliente' FailureBehaviour = fbRaiseException end item Name = 'Delete DetallesFacturasCliente' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'DetallesFacturasCliente' FailureBehaviour = fbRaiseException end item Name = 'Insert DetallesFacturasCliente' DoUpdate = False DoInsert = True DoDelete = False DatasetName = 'DetallesFacturasCliente' FailureBehaviour = fbRaiseException end item Name = 'Update DetallesFacturasCliente' DoUpdate = True DoInsert = False DoDelete = False DatasetName = 'DetallesFacturasCliente' FailureBehaviour = fbRaiseException end item Name = 'Delete FacturasCliente' DoUpdate = False DoInsert = False DoDelete = True DatasetName = 'FacturasCliente' FailureBehaviour = fbRaiseException end> Left = 48 Top = 24 end object frxDBDetalles: TfrxDBDataset UserName = 'frxDBDetalles' CloseDataSource = False DataSource = DADataDetalles Left = 200 Top = 128 end object frxDBCabecera: TfrxDBDataset UserName = 'frxDBCabecera' CloseDataSource = False DataSource = DADataCabecera Left = 120 Top = 128 end object DADataCabecera: TDADataSource DataTable = tbl_PedidoProveedor Left = 120 Top = 176 end object DADataDetalles: TDADataSource DataTable = tbl_DetallesPedidoProveedor Left = 200 Top = 176 end object frxReport1: TfrxReport Version = '3.23.7' DotMatrixReport = False EngineOptions.DoublePass = True IniFile = '\Software\Fast Reports' PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator] PreviewOptions.OutlineWidth = 180 PreviewOptions.Zoom = 1.000000000000000000 PrintOptions.Printer = 'Default' ReportOptions.CreateDate = 37871.995398692100000000 ReportOptions.Description.Strings = ( 'Demonstrates how to create simple list report.') ReportOptions.LastChange = 39058.785902951390000000 ReportOptions.VersionBuild = '1' ReportOptions.VersionMajor = '12' ReportOptions.VersionMinor = '13' ReportOptions.VersionRelease = '1' ScriptLanguage = 'PascalScript' ScriptText.Strings = ( 'begin' '' 'end.') StoreInDFM = False Left = 40 Top = 128 Datasets = < item DataSet = frxDBCabecera DataSetName = 'frxDBCabecera' end item DataSet = frxDBDetalles DataSetName = 'frxDBDetalles' end> Variables = <> Style = < item Name = 'Concepto normal' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] end item Name = 'Concepto subtotal' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] end item Name = 'Cabecera de columna' Color = 15790320 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Tahoma' Font.Style = [fsBold] Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom] end item Name = 'Concepto titulo' Color = clNone Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [fsBold] end> end object tbl_PedidoProveedor: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False Adapter = DABINAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 120 Top = 232 end object tbl_DetallesPedidoProveedor: TDACDSDataTable RemoteUpdatesOptions = [] Fields = <> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] RemoteFetchEnabled = False SchemaCall.Params = <> DataRequestCall.Params = <> DataUpdateCall.Params = <> ScriptCall.Params = <> ReadOnly = False Adapter = DABINAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] IndexDefs = <> Left = 200 Top = 232 end object DABINAdapter: TDABINAdapter Left = 48 Top = 72 end object bpPedidosProveedor: TDABusinessProcessor Schema = schPedidosProveedor InsertCommandName = 'Insert_PedidosProveedor' DeleteCommandName = 'Delete_PedidosProveedor' UpdateCommandName = 'Update_PedidosProveedor' RefreshDatasetName = 'PedidosProveedor_Refresh' ReferencedDataset = 'PedidosProveedor' ProcessorOptions = [poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 160 Top = 24 end end