inherited DataModuleArticulos: TDataModuleArticulos OnCreate = DAClientDataModuleCreate Height = 414 Width = 518 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvArticulos' Left = 48 Top = 24 end object Bin2DataStreamer: TDABin2DataStreamer Left = 48 Top = 84 end object rda_Articulos: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService DataStreamer = Bin2DataStreamer Left = 51 Top = 151 end object tbl_Articulos: 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 = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'IMAGEN' DataType = datBlob end item Name = 'COMISIONABLE' DataType = datInteger end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 20 end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 end item Name = 'PRECIO_COSTE' DataType = datFloat end item Name = 'PRECIO_PORTE' DataType = datFloat end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'PRECIO_NETO' DataType = datFloat end item Name = 'INVENTARIABLE' DataType = datInteger end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 end item Name = 'ELIMINADO' DataType = datInteger DisplayLabel = 'Eliminado' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'Articulos' Left = 232 Top = 112 end object ds_Articulos: TDADataSource DataSet = tbl_Articulos.Dataset DataTable = tbl_Articulos Left = 232 Top = 32 end object tbl_ArticulosParaCliente: 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 = 'DESCRIPCION' DataType = datString Size = 255 end item Name = 'FAMILIA' DataType = datString Size = 255 end item Name = 'IMAGEN' DataType = datBlob end item Name = 'COMISIONABLE' DataType = datInteger end item Name = 'FECHA_ALTA' DataType = datDateTime end item Name = 'FECHA_MODIFICACION' DataType = datDateTime end item Name = 'USUARIO' DataType = datString Size = 20 end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 end item Name = 'PRECIO_COSTE' DataType = datFloat end item Name = 'PRECIO_PORTE' DataType = datFloat end item Name = 'DESCUENTO' DataType = datFloat end item Name = 'PRECIO_NETO' DataType = datFloat end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'INVENTARIABLE' DataType = datInteger end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 end item Name = 'ELIMINADO' DataType = datInteger DisplayLabel = 'Eliminado' end> Params = < item Name = 'ID_CLIENTE' Value = '' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ArticulosParaCliente' Left = 400 Top = 112 end object ds_ArticulosParaCliente: TDADataSource DataSet = tbl_ArticulosParaCliente.Dataset DataTable = tbl_ArticulosParaCliente Left = 400 Top = 32 end end