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 DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 51 Top = 143 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 80 end object tbl_ListaAnosComisiones: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ANO' DataType = datString Size = 254 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] 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 object tbl_Comisiones: TDAMemDataTable RemoteUpdatesOptions = [] 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 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] RemoteDataAdapter = rda_Comisiones LogicalName = 'Comisiones' IndexDefs = <> Left = 168 Top = 184 end object ds_Comisiones: TDADataSource DataSet = tbl_Comisiones.Dataset DataTable = tbl_Comisiones Left = 168 Top = 128 end object tbl_FacturasComision: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_FACTURAS_CLIENTE_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'FacturasComision_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_EMPRESA' end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger ServerAutoRefresh = True DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' end item Name = 'REFERENCIA' DataType = datString Size = 20 DisplayLabel = 'Referencia' DictionaryEntry = 'FacturasCliente_REFERENCIA' end item Name = 'FECHA_FACTURA' DataType = datDateTime DisplayLabel = 'Fecha de las factura' DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime DisplayLabel = 'Fecha de vencimiento' DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' end item Name = 'SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' DictionaryEntry = 'FacturasCliente_SITUACION' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_CLIENTE' end item Name = 'NIF_CIF' DataType = datString Size = 15 DisplayLabel = 'NIF/CIF' DictionaryEntry = 'FacturasCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 100 DisplayLabel = 'Cliente' DictionaryEntry = 'FacturasCliente_NOMBRE' end item Name = 'ID_AGENTE' DataType = datInteger DictionaryEntry = 'FacturasCliente_ID_AGENTE' end item Name = 'COMISION' DataType = datFloat DictionaryEntry = 'FacturasCliente_COMISION' end item Name = 'IMPORTE_COMISION' DataType = datCurrency DecimalPrecision = 11 DecimalScale = 2 DictionaryEntry = 'FacturasCliente_IMPORTE_COMISION' end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Comisiones MasterSource = ds_Comisiones MasterFields = 'ID' DetailFields = 'ID_COMISION_LIQUIDADA' LogicalName = 'FacturasComision' IndexDefs = <> Left = 296 Top = 184 end object ds_FacturasComision: TDADataSource DataSet = tbl_FacturasComision.Dataset DataTable = tbl_FacturasComision Left = 296 Top = 128 end end