object srvComisiones: TsrvComisiones OldCreateOrder = True OnCreate = DARemoteServiceCreate ConnectionName = 'IBX' ServiceSchema = schComisiones ServiceDataStreamer = Bin2DataStreamer AllowExecuteSQL = True ExportedDataTables = <> BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection Height = 249 Width = 343 object Diagrams: TDADiagrams Left = 150 Top = 82 DiagramData = ''#13#10''#13#10 end object DataDictionary: TDADataDictionary Fields = < item Name = 'Comisiones_ID' DataType = datAutoInc GeneratorName = 'GEN_COMISIONES_LIQUID_ID' DisplayLabel = 'ID' ServerAutoRefresh = True end item Name = 'Comisiones_ID_EMPRESA' DataType = datInteger DisplayLabel = 'ID_EMPRESA' end item Name = 'Comisiones_REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'REFERENCIA' end item Name = 'Comisiones_ID_AGENTE' DataType = datInteger end item Name = 'Comisiones_DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'DESCRIPCION' end item Name = 'Comisiones_FECHA' DataType = datDateTime DisplayLabel = 'FECHA' end item Name = 'Comisiones_IMPORTE_TOTAL' DataType = datCurrency end item Name = 'Comisiones_USUARIO' DataType = datString Size = 30 DisplayLabel = 'USUARIO' end item Name = 'Comisiones_NOMBRE' DataType = datString Size = 255 end> Left = 150 Top = 22 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object schComisiones: TDASchema ConnectionManager = dmServer.ConnectionManager DataDictionary = DataDictionary Diagrams = Diagrams Datasets = < item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_AGENTES_COMISIONES_DET_FAC' SQL = 'select V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA,'#10' V_AGENTES' + '_COMISIONES_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' ' + ' V_AGENTES_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COM' + 'ISIONES_DET_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISION' + 'ES_DET_FAC.FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA' + ','#10' V_AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTE' + 'S_COMISIONES_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLI' + 'ENTE,'#10' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' C' + 'ONTACTOS3.NOMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_F' + 'AC.COMISION,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOT' + 'AL)as IMPORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET_' + 'FAC.IMPORTE_COMISION) as IMPORTE_COMISION'#10#10'from V_AGENTES_COMISI' + 'ONES_DET_FAC'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID = ' + 'V_AGENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CONT' + 'ACTOS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIEN' + 'TE)'#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTES' + '_COMISIONES_DET_FAC.ID_PROVEEDOR)'#10' WHERE {Where}'#10'GROUP BY 1, 2,' + ' 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'AGENTE' TableField = 'AGENTE' end item DatasetField = 'FECHA' TableField = 'FECHA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'PROVEEDOR' TableField = 'PROVEEDOR' end item DatasetField = 'COMISION' TableField = 'COMISION' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'CLIENTE' TableField = 'CLIENTE' end item DatasetField = 'ID_COMISION_LIQUIDADA' TableField = 'ID_COMISION_LIQUIDADA' end item DatasetField = 'IMPORTE_COMISIONABLE' TableField = 'IMPORTE_COMISIONABLE' end item DatasetField = 'IMPORTE_COMISION' TableField = 'IMPORTE_COMISION' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end> end> Name = 'Facturas_Comision' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA' end item Name = 'ID_AGENTE' DataType = datInteger DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE' end item Name = 'AGENTE' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_Detalles_AGENTE' end item Name = 'ID_FACTURA' DataType = datInteger DictionaryEntry = 'Facturas_Comision_ID_FACTURA' end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA' end item Name = 'FECHA' DataType = datDateTime DictionaryEntry = 'Comisiones_Detalles_FECHA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_Detalles_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 19 DictionaryEntry = 'Comisiones_Detalles_SITUACION' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'Facturas_Comision_ID_CLIENTE' end item Name = 'CLIENTE' DataType = datString Size = 255 DictionaryEntry = 'Facturas_Comision_CLIENTE' end item Name = 'ID_PROVEEDOR' DataType = datInteger DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR' end item Name = 'PROVEEDOR' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR' end item Name = 'COMISION' DataType = datFloat DictionaryEntry = 'Comisiones_Detalles_COMISION' end item Name = 'IMPORTE_COMISIONABLE' DataType = datCurrency DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE' end item Name = 'IMPORTE_COMISION' DataType = datFloat DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION' end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_COMISIONES' StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' TableField = 'ID' end item DatasetField = 'DESCRIPCION' TableField = 'DESCRIPCION' end item DatasetField = 'FECHA' TableField = 'FECHA' end item DatasetField = 'USUARIO' TableField = 'USUARIO' end item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'IMPORTE_TOTAL' TableField = 'IMPORTE_TOTAL' end item DatasetField = 'NOMBRE' TableField = 'NOMBRE' end> end> Name = 'Comisiones' Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_COMISIONES_LIQUID_ID' ServerAutoRefresh = True DictionaryEntry = 'Comisiones_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Comisiones_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_REFERENCIA' end item Name = 'ID_AGENTE' DataType = datInteger DictionaryEntry = 'Comisiones_ID_AGENTE' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_DESCRIPCION' end item Name = 'FECHA' DataType = datDateTime DictionaryEntry = 'Comisiones_FECHA' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DictionaryEntry = 'Comisiones_IMPORTE_TOTAL' end item Name = 'USUARIO' DataType = datString Size = 30 DictionaryEntry = 'Comisiones_USUARIO' end item Name = 'NOMBRE' DataType = datString Size = 255 ServerAutoRefresh = True DictionaryEntry = 'Comisiones_NOMBRE' end> end item Params = <> Statements = < item Connection = 'IBX' TargetTable = 'V_AGENTES_COMISIONES_DET_FAC' SQL = 'select V_AGENTES_COMISIONES_DET_FAC.ID_EMPRESA,'#10' V_AGENTES' + '_COMISIONES_DET_FAC.ID_AGENTE, CONTACTOS1.NOMBRE as AGENTE,'#10' ' + ' V_AGENTES_COMISIONES_DET_FAC.ID_FACTURA,'#10' V_AGENTES_COM' + 'ISIONES_DET_FAC.ID_COMISION_LIQUIDADA,'#10' V_AGENTES_COMISION' + 'ES_DET_FAC.FECHA,'#10' V_AGENTES_COMISIONES_DET_FAC.REFERENCIA' + ','#10' V_AGENTES_COMISIONES_DET_FAC.SITUACION,'#10' V_AGENTE' + 'S_COMISIONES_DET_FAC.ID_CLIENTE,'#10' CONTACTOS2.NOMBRE as CLI' + 'ENTE,'#10' V_AGENTES_COMISIONES_DET_FAC.ID_PROVEEDOR,'#10' C' + 'ONTACTOS3.NOMBRE as PROVEEDOR,'#10' V_AGENTES_COMISIONES_DET_F' + 'AC.COMISION,'#10' SUM(V_AGENTES_COMISIONES_DET_FAC.IMPORTE_TOT' + 'AL) as IMPORTE_COMISIONABLE,'#10' SUM(V_AGENTES_COMISIONES_DET' + '_FAC.IMPORTE_COMISION) as IMPORTE_COMISION'#10#10'from V_AGENTES_COMIS' + 'IONES_DET_FAC'#10'LEFT JOIN CONTACTOS CONTACTOS1 ON (CONTACTOS1.ID =' + ' V_AGENTES_COMISIONES_DET_FAC.ID_AGENTE)'#10'LEFT JOIN CONTACTOS CON' + 'TACTOS2 ON (CONTACTOS2.ID = V_AGENTES_COMISIONES_DET_FAC.ID_CLIE' + 'NTE)'#10'LEFT JOIN CONTACTOS CONTACTOS3 ON (CONTACTOS3.ID = V_AGENTE' + 'S_COMISIONES_DET_FAC.ID_PROVEEDOR)'#10'where {where}'#10'GROUP BY 1, 2, ' + '3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13'#10 StatementType = stSQL ColumnMappings = < item DatasetField = 'ID_EMPRESA' TableField = 'ID_EMPRESA' end item DatasetField = 'ID_AGENTE' TableField = 'ID_AGENTE' end item DatasetField = 'AGENTE' TableField = 'AGENTE' end item DatasetField = 'FECHA' TableField = 'FECHA' end item DatasetField = 'REFERENCIA' TableField = 'REFERENCIA' end item DatasetField = 'SITUACION' TableField = 'SITUACION' end item DatasetField = 'ID_PROVEEDOR' TableField = 'ID_PROVEEDOR' end item DatasetField = 'PROVEEDOR' TableField = 'PROVEEDOR' end item DatasetField = 'COMISION' TableField = 'COMISION' end item DatasetField = 'ID_CLIENTE' TableField = 'ID_CLIENTE' end item DatasetField = 'CLIENTE' TableField = 'CLIENTE' end item DatasetField = 'ID_COMISION_LIQUIDADA' TableField = 'ID_COMISION_LIQUIDADA' end item DatasetField = 'IMPORTE_COMISIONABLE' TableField = 'IMPORTE_COMISIONABLE' end item DatasetField = 'IMPORTE_COMISION' TableField = 'IMPORTE_COMISION' end item DatasetField = 'ID_FACTURA' TableField = 'ID_FACTURA' end> end> Name = 'V_Detalles_Facturas_Comision' Fields = < item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA' end item Name = 'ID_AGENTE' DataType = datInteger DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE' end item Name = 'AGENTE' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_Detalles_AGENTE' end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA' end item Name = 'FECHA' DataType = datDateTime DictionaryEntry = 'Comisiones_Detalles_FECHA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_Detalles_REFERENCIA' end item Name = 'SITUACION' DataType = datString Size = 19 DictionaryEntry = 'Comisiones_Detalles_SITUACION' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'Facturas_Comision_ID_CLIENTE' end item Name = 'CLIENTE' DataType = datString Size = 255 DictionaryEntry = 'Facturas_Comision_CLIENTE' end item Name = 'ID_PROVEEDOR' DataType = datInteger DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR' end item Name = 'PROVEEDOR' DataType = datString Size = 255 DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR' end item Name = 'COMISION' DataType = datFloat DictionaryEntry = 'Comisiones_Detalles_COMISION' end item Name = 'IMPORTE_COMISIONABLE' DataType = datCurrency DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE' end item Name = 'IMPORTE_COMISION' DataType = datFloat DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION' end> end> JoinDataTables = <> UnionDataTables = <> Commands = < item Params = < item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'ID_FACTURA' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = 'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' + '_LIQUIDADA'#10'WHERE (ID = :ID_FACTURA)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Facturas_Comisiones' end item Params = < item Name = 'OLD_ID_FACTURA' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = 'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = Null'#10'WHERE (' + 'ID = :OLD_ID_FACTURA)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Facturas_Comision' end item Params = < item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'OLD_ID_FACTURA' Value = '' end> Statements = < item Connection = 'IBX' TargetTable = 'FACTURAS_CLIENTE' SQL = 'UPDATE FACTURAS_CLIENTE'#10'SET ID_COMISION_LIQUIDADA = :ID_COMISION' + '_LIQUIDADA'#10'WHERE (ID = :OLD_ID_FACTURA)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Facturas_Comision' end item Params = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_COMISIONES_LIQUID_ID' Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' ParamType = daptInput end item Name = 'ID_AGENTE' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 255 Value = '' ParamType = daptInput end item Name = 'FECHA' DataType = datDateTime Value = '' ParamType = daptInput end item Name = 'IMPORTE_TOTAL' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'USUARIO' DataType = datString Size = 20 Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'COMISIONES_LIQUIDADAS' SQL = 'INSERT'#10' INTO COMISIONES_LIQUIDADAS'#10' (ID, ID_EMPRESA, REFEREN' + 'CIA, ID_AGENTE, DESCRIPCION, FECHA, IMPORTE_TOTAL, USUARIO)'#10' VA' + 'LUES'#10' (:ID, :ID_EMPRESA, :REFERENCIA, :ID_AGENTE, :DESCRIPCIO' + 'N, :FECHA, :IMPORTE_TOTAL, :USUARIO)' StatementType = stSQL ColumnMappings = <> end> Name = 'Insert_Comisiones' end item Params = < item Name = 'OLD_ID' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'COMISIONES_LIQUIDADAS' SQL = 'DELETE '#10' FROM'#10' COMISIONES_LIQUIDADAS'#10' WHERE'#10' (ID = :OLD_' + 'ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Delete_Comisiones' end item Params = < item Name = 'ID' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'ID_EMPRESA' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'REFERENCIA' DataType = datString Size = 255 Value = '' ParamType = daptInput end item Name = 'ID_AGENTE' DataType = datInteger Value = '' ParamType = daptInput end item Name = 'DESCRIPCION' DataType = datString Size = 255 Value = '' ParamType = daptInput end item Name = 'FECHA' DataType = datDateTime Value = '' ParamType = daptInput end item Name = 'IMPORTE_TOTAL' DataType = datFloat Value = '' ParamType = daptInput end item Name = 'USUARIO' DataType = datString Size = 20 Value = '' ParamType = daptInput end item Name = 'OLD_ID' DataType = datInteger Value = '' ParamType = daptInput end> Statements = < item Connection = 'IBX' TargetTable = 'COMISIONES_LIQUIDADAS' SQL = 'UPDATE COMISIONES_LIQUIDADAS'#10' SET '#10' ID = :ID, '#10' ID_EMPRES' + 'A = :ID_EMPRESA,'#10' REFERENCIA = :REFERENCIA,'#10' ID_AGENTE = :' + 'ID_AGENTE,'#10' DESCRIPCION = :DESCRIPCION, '#10' FECHA = :FECHA, ' + #10' IMPORTE_TOTAL = :IMPORTE_TOTAL,'#10' USUARIO = :USUARIO'#10' WH' + 'ERE'#10' (ID = :OLD_ID)' StatementType = stSQL ColumnMappings = <> end> Name = 'Update_Comisiones' end> RelationShips = < item Name = 'FK_Comision_Facturas' MasterDatasetName = 'Comisiones' MasterFields = 'ID' DetailDatasetName = 'Facturas_Comision' DetailFields = 'ID_COMISION_LIQUIDADA' RelationshipType = rtForeignKey end> UpdateRules = < item Name = 'Insert Comisiones' DoUpdate = False DoDelete = False DatasetName = 'Comisiones' FailureBehavior = fbRaiseException end item Name = 'Insert Facturas_Comision' DoUpdate = False DoDelete = False DatasetName = 'Facturas_Comision' FailureBehavior = fbRaiseException end item Name = 'Update Comisiones' DoInsert = False DoDelete = False DatasetName = 'Comisiones' FailureBehavior = fbRaiseException end item Name = 'Update Facturas_Comision' DoInsert = False DoDelete = False DatasetName = 'Facturas_Comision' FailureBehavior = fbRaiseException end item Name = 'Delete Facturas_Comision' DoUpdate = False DoInsert = False DatasetName = 'Facturas_Comision' FailureBehavior = fbRaiseException end item Name = 'Delete Comisiones' DoUpdate = False DoInsert = False DatasetName = 'Comisiones' FailureBehavior = fbRaiseException end> Version = 0 Left = 48 Top = 24 end object bpFacturas_Comision: TDABusinessProcessor Schema = schComisiones InsertCommandName = 'Insert_Facturas_Comisiones' DeleteCommandName = 'Delete_Facturas_Comision' UpdateCommandName = 'Update_Facturas_Comision' ReferencedDataset = 'Facturas_Comision' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 80 end object bpComisiones: TDABusinessProcessor Schema = schComisiones InsertCommandName = 'Insert_Comisiones' DeleteCommandName = 'Delete_Comisiones' UpdateCommandName = 'Update_Comisiones' ReferencedDataset = 'Comisiones' ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands] UpdateMode = updWhereKeyOnly Left = 248 Top = 24 end end