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 = datAutoInc GeneratorName = 'GEN_COMISIONES_LIQUID_ID' DictionaryEntry = 'Comisiones_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DisplayLabel = 'Comisiones_ID_EMPRESA' DictionaryEntry = 'Comisiones_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Comisiones_REFERENCIA' DictionaryEntry = 'Comisiones_REFERENCIA' end item Name = 'ID_AGENTE' DataType = datInteger DisplayLabel = 'Comisiones_ID_AGENTE' DictionaryEntry = 'Comisiones_ID_AGENTE' end item Name = 'AGENTE' DataType = datString Size = 255 DisplayLabel = 'Comisiones_AGENTE' DictionaryEntry = 'Comisiones_AGENTE' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Comisiones_DESCRIPCION' DictionaryEntry = 'Comisiones_DESCRIPCION' end item Name = 'FECHA' DataType = datDateTime DisplayLabel = 'Comisiones_FECHA' DictionaryEntry = 'Comisiones_FECHA' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Comisiones_IMPORTE_TOTAL' DictionaryEntry = 'Comisiones_IMPORTE_TOTAL' end item Name = 'USUARIO' DataType = datString Size = 30 DisplayLabel = 'Comisiones_USUARIO' DictionaryEntry = 'Comisiones_USUARIO' 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