object DataModuleComisiones: TDataModuleComisiones OldCreateOrder = True OnCreate = DAClientDataModuleCreate RemoteService = RORemoteService Adapter = DABinAdapter SchemaCall.MethodName = 'GetSchemaAsXML' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString end> Height = 414 Width = 518 object RORemoteService: TRORemoteService ServiceName = 'srvComisiones' Message = ROBinMessage1 Channel = ROWinInetHTTPChannel1 Left = 48 Top = 24 end object DABinAdapter: TDABINAdapter Left = 48 Top = 80 end object DADesigntimeCall1: TDADesigntimeCall RemoteRequest.MethodName = 'Login' RemoteRequest.Params = < item Name = 'Result' ParamType = fResult DataType = rtBoolean end item Name = 'User' ParamType = fIn DataType = rtString Value = 'Administrador' end item Name = 'Password' ParamType = fIn DataType = rtString Value = '1' end item Name = 'LoginInfo' ParamType = fOut DataType = rtUserDefined UserClassName = 'TRdxLoginInfo' end> RemoteService = LoginRemoteService Left = 48 Top = 160 end object LoginRemoteService: TRORemoteService ServiceName = 'srvLogin' Message = ROBinMessage1 Channel = ROWinInetHTTPChannel1 Left = 48 Top = 216 end object ROWinInetHTTPChannel1: TROWinInetHTTPChannel ServerLocators = <> DispatchOptions = [] ProbeServers = False ProbeFrequency = 60000 UserAgent = 'RemObjects SDK' TargetURL = 'http://localhost:8099/bin' Left = 48 Top = 272 end object ROBinMessage1: TROBinMessage Left = 48 Top = 324 end object tbl_Comisiones: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Comisiones_REFERENCIA' Alignment = taLeftJustify DictionaryEntry = 'Comisiones_REFERENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_AGENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCRIPCION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_DESCRIPCION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_FECHA' 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 = 'USUARIO' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_USUARIO' 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> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] SchemaCall.MethodName = 'GetDatasetSchema' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'aDatasetName' ParamType = fIn DataType = rtString Value = 'Comisiones' end> DataRequestCall.MethodName = 'GetDatasetDataEx' DataRequestCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'DatasetName' ParamType = fIn DataType = rtString Value = 'Comisiones' end item Name = 'Params' ParamType = fIn DataType = rtUserDefined UserClassName = 'TDADatasetParamArray' end item Name = 'UserFilter' ParamType = fIn DataType = rtString Value = '' end item Name = 'IncludeSchema' ParamType = fIn DataType = rtBoolean Value = False end item Name = 'MaxRecords' ParamType = fIn DataType = rtInteger Value = -1 end> DataUpdateCall.MethodName = 'UpdateData' DataUpdateCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'Delta' ParamType = fIn DataType = rtBinary end> ScriptCall.MethodName = 'GetDatasetScripts' ScriptCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString Value = '' end item Name = 'DatasetNames' ParamType = fIn DataType = rtString Value = 'Comisiones' end> ReadOnly = False RemoteService = RORemoteService Adapter = DABinAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Comisiones' IndexDefs = <> Left = 216 Top = 144 end object ds_Comisiones: TDADataSource DataTable = tbl_Comisiones Left = 216 Top = 80 end object tbl_Facturas_Comision: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_AGENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'AGENTE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_AGENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_FACTURA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Facturas_Comision_ID_FACTURA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Facturas_Comision_ID_COMISION_LIQUIDADA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_FECHA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_REFERENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 19 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_SITUACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Facturas_Comision_ID_CLIENTE' Alignment = taLeftJustify DictionaryEntry = 'Facturas_Comision_ID_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CLIENTE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Facturas_Comision_CLIENTE' Alignment = taLeftJustify DictionaryEntry = 'Facturas_Comision_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'COMISION' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_COMISION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_COMISIONABLE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Facturas_Comision_IMPORTE_COMISIONABLE' Alignment = taRightJustify DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISIONABLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_COMISION' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Facturas_Comision_IMPORTE_COMISION' Alignment = taRightJustify DictionaryEntry = 'Facturas_Comision_IMPORTE_COMISION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> Params = < item Name = 'ID_COMISION' BlobType = dabtUnknown Value = 18 ParamType = daptInput end> MasterMappingMode = mmParams MasterParamsMappings.Strings = ( 'ID_COMISION=ID') StreamingOptions = [soDisableEventsWhileStreaming] SchemaCall.MethodName = 'GetDatasetSchema' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'aDatasetName' ParamType = fIn DataType = rtString Value = 'Facturas_Comision' end> DataRequestCall.MethodName = 'GetDatasetDataEx' DataRequestCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'DatasetName' ParamType = fIn DataType = rtString Value = 'Facturas_Comision' end item Name = 'Params' ParamType = fIn DataType = rtUserDefined UserClassName = 'TDADatasetParamArray' end item Name = 'UserFilter' ParamType = fIn DataType = rtString Value = '' end item Name = 'IncludeSchema' ParamType = fIn DataType = rtBoolean Value = False end item Name = 'MaxRecords' ParamType = fIn DataType = rtInteger Value = -1 end> DataUpdateCall.MethodName = 'UpdateData' DataUpdateCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'Delta' ParamType = fIn DataType = rtBinary end> ScriptCall.MethodName = 'GetDatasetScripts' ScriptCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString Value = '' end item Name = 'DatasetNames' ParamType = fIn DataType = rtString Value = 'Facturas_Comision' end> ReadOnly = False RemoteService = RORemoteService Adapter = DABinAdapter MasterSource = ds_Comisiones MasterFields = 'ID' DetailFields = 'ID_COMISION_LIQUIDADA' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Facturas_Comision' IndexDefs = <> Left = 368 Top = 144 end object ds_Facturas_Comision: TDADataSource DataTable = tbl_Facturas_Comision Left = 368 Top = 80 end object tbl_V_Detalles_Facturas_Comision: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_AGENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_ID_AGENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'AGENTE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_AGENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_FACTURA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'V_Detalles_Facturas_Comision_ID_COMISION_LIQUIDADA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_FECHA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_REFERENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 19 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_SITUACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Facturas_Comision_ID_CLIENTE' Alignment = taLeftJustify DictionaryEntry = 'Facturas_Comision_ID_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CLIENTE' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Facturas_Comision_CLIENTE' Alignment = taLeftJustify DictionaryEntry = 'Facturas_Comision_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_PROVEEDOR' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_ID_PROVEEDOR' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_PROVEEDOR' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'COMISION' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'Comisiones_Detalles_COMISION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_COMISIONABLE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE' Alignment = taRightJustify DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISIONABLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_COMISION' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION' Alignment = taRightJustify DictionaryEntry = 'V_Detalles_Facturas_Comision_IMPORTE_COMISION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] SchemaCall.MethodName = 'GetDatasetSchema' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'aDatasetName' ParamType = fIn DataType = rtString Value = 'V_Detalles_Facturas_Comision' end> DataRequestCall.MethodName = 'GetDatasetDataEx' DataRequestCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'DatasetName' ParamType = fIn DataType = rtString Value = 'V_Detalles_Facturas_Comision' end item Name = 'Params' ParamType = fIn DataType = rtUserDefined UserClassName = 'TDADatasetParamArray' end item Name = 'UserFilter' ParamType = fIn DataType = rtString Value = '' end item Name = 'IncludeSchema' ParamType = fIn DataType = rtBoolean Value = False end item Name = 'MaxRecords' ParamType = fIn DataType = rtInteger Value = -1 end> DataUpdateCall.MethodName = 'UpdateData' DataUpdateCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'Delta' ParamType = fIn DataType = rtBinary end> ScriptCall.MethodName = 'GetDatasetScripts' ScriptCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString Value = '' end item Name = 'DatasetNames' ParamType = fIn DataType = rtString Value = 'V_Detalles_Facturas_Comision' end> ReadOnly = False RemoteService = RORemoteService Adapter = DABinAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'V_Detalles_Facturas_Comision' IndexDefs = <> Left = 312 Top = 312 end object ds_V_Detalles_Facturas_Comision: TDADataSource DataTable = tbl_V_Detalles_Facturas_Comision Left = 312 Top = 256 end end