inherited DataModuleComisiones: TDataModuleComisiones OnCreate = DAClientDataModuleCreate Height = 269 Width = 387 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvComisiones' Left = 48 Top = 24 end object rda_Comisiones: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService DataStreamer = Bin2DataStreamer Left = 51 Top = 143 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object tbl_Comisiones: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FECHA' DataType = datDateTime end item Name = 'IMPORTE_TOTAL' DataType = datCurrency end item Name = 'USUARIO' DataType = datString Size = 30 end item Name = 'NOMBRE' DataType = datString Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] RemoteDataAdapter = rda_Comisiones LogicalName = 'Comisiones' IndexDefs = <> Left = 168 Top = 192 end object ds_Comisiones: TDADataSource DataSet = tbl_Comisiones.Dataset DataTable = tbl_Comisiones Left = 168 Top = 136 end object tbl_FacturasComision: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datInteger InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger end item Name = 'FECHA_FACTURA' DataType = datDateTime end item Name = 'REFERENCIA' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 19 end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger end item Name = 'ID_CLIENTE' DataType = datInteger end item Name = 'ID_AGENTE' DataType = datInteger end item Name = 'BASE_IMPONIBLE' DataType = datCurrency end item Name = 'COMISION' DataType = datCurrency end item Name = 'IMPORTE_COMISION' DataType = datCurrency end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] RemoteDataAdapter = rda_Comisiones MasterSource = ds_Comisiones MasterFields = 'ID' DetailFields = 'ID_COMISION_LIQUIDADA' LogicalName = 'FacturasComision' IndexDefs = <> Left = 264 Top = 192 end object ds_FacturasComision: TDADataSource DataSet = tbl_FacturasComision.Dataset DataTable = tbl_FacturasComision Left = 264 Top = 136 end object tbl_ListaAnosComisiones: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ANO' DataType = datString Size = 254 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming, soDisableFiltering] RemoteDataAdapter = rda_Comisiones LogicalName = 'ListaAnosComisiones' IndexDefs = <> Left = 168 Top = 72 end object ds_ListaAnosComisiones: TDADataSource DataSet = tbl_ListaAnosComisiones.Dataset DataTable = tbl_ListaAnosComisiones Left = 168 Top = 16 end end