inherited DataModuleArticulos: TDataModuleArticulos OnCreate = DAClientDataModuleCreate Height = 289 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 = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'Articulos_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Articulos_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' DictionaryEntry = 'Articulos_REFERENCIA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Descripci'#243'n' DictionaryEntry = 'Articulos_DESCRIPCION' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 DisplayLabel = 'Unidad de medida' DictionaryEntry = 'Articulos_UNIDAD_MEDIDA' end item Name = 'FAMILIA' DataType = datString Size = 255 DisplayLabel = 'Familia' DictionaryEntry = 'Articulos_FAMILIA' end item Name = 'IMAGEN' DataType = datBlob DisplayLabel = 'Foto' DictionaryEntry = 'Articulos_IMAGEN' end item Name = 'COMISIONABLE' DataType = datInteger DisplayLabel = 'Comisionable' DictionaryEntry = 'Articulos_COMISIONABLE' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'Articulos_USUARIO' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 DisplayLabel = 'Ref. proveedor' DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR' end item Name = 'PRECIO_COSTE' DataType = datCurrency DisplayLabel = 'Importe' DictionaryEntry = 'Articulos_PRECIO_COSTE' end item Name = 'PRECIO_PORTE' DataType = datCurrency DisplayLabel = 'Precio porte' DictionaryEntry = 'Articulos_PRECIO_PORTE' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DictionaryEntry = 'Articulos_DESCUENTO' end item Name = 'PRECIO_NETO' DataType = datCurrency DisplayLabel = 'Precio neto' DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'INVENTARIABLE' DataType = datSmallInt DisplayLabel = 'Inventariable' DictionaryEntry = 'Articulos_INVENTARIABLE' end item Name = 'ID_PROVEEDOR' DataType = datInteger DictionaryEntry = 'Articulos_ID_PROVEEDOR' end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 DisplayLabel = 'Nombre' DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR' end item Name = 'ELIMINADO' DataType = datSmallInt DisplayLabel = 'Eliminado' DictionaryEntry = 'Articulos_ELIMINADO' end item Name = 'FABRICANTE' DataType = datString Size = 255 DisplayLabel = 'Fabricante' DictionaryEntry = 'Articulos_FABRICANTE' end item Name = 'REFERENCIA_FABR' DataType = datString Size = 255 DisplayLabel = 'Ref. fabricante' DictionaryEntry = 'Articulos_REFERENCIA_FABR' end item Name = 'TIEMPO' DataType = datInteger end item Name = 'PARAM_TIEMPO' DataType = datFloat end item Name = 'MANO_OBRA' DataType = datCurrency end item Name = 'PRECIO_PVP' DataType = datCurrency 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' IndexDefs = <> Left = 224 Top = 120 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 = datAutoInc GeneratorName = 'GEN_ARTICULOS_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'Articulos_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'Articulos_ID_EMPRESA' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' DictionaryEntry = 'Articulos_REFERENCIA' end item Name = 'DESCRIPCION' DataType = datString Size = 255 DisplayLabel = 'Descripci'#243'n' DictionaryEntry = 'Articulos_DESCRIPCION' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 DisplayLabel = 'Unidad de medida' DictionaryEntry = 'Articulos_UNIDAD_MEDIDA' end item Name = 'FAMILIA' DataType = datString Size = 255 DisplayLabel = 'Familia' DictionaryEntry = 'Articulos_FAMILIA' end item Name = 'IMAGEN' DataType = datBlob DisplayLabel = 'Foto' DictionaryEntry = 'Articulos_IMAGEN' end item Name = 'COMISIONABLE' DataType = datInteger DisplayLabel = 'Comisionable' DictionaryEntry = 'Articulos_COMISIONABLE' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'Articulos_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'Articulos_USUARIO' end item Name = 'REFERENCIA_PROV' DataType = datString Size = 255 DisplayLabel = 'Ref. proveedor' DictionaryEntry = 'Articulos_REFERENCIA_PROVEEDOR' end item Name = 'PRECIO_COSTE' DataType = datCurrency DisplayLabel = 'Importe' DictionaryEntry = 'Articulos_PRECIO_COSTE' end item Name = 'PRECIO_PORTE' DataType = datCurrency DisplayLabel = 'Precio porte' DictionaryEntry = 'Articulos_PRECIO_PORTE' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DictionaryEntry = 'Articulos_DESCUENTO' end item Name = 'PRECIO_NETO' DataType = datCurrency DisplayLabel = 'Precio neto' DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'INVENTARIABLE' DataType = datSmallInt DisplayLabel = 'Inventariable' DictionaryEntry = 'Articulos_INVENTARIABLE' end item Name = 'ID_PROVEEDOR' DataType = datInteger DictionaryEntry = 'Articulos_ID_PROVEEDOR' end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 DisplayLabel = 'Nombre' DictionaryEntry = 'Articulos_NOMBRE_PROVEEDOR' end item Name = 'ELIMINADO' DataType = datSmallInt DisplayLabel = 'Eliminado' DictionaryEntry = 'Articulos_ELIMINADO' end item Name = 'FABRICANTE' DataType = datString Size = 255 DisplayLabel = 'Fabricante' DictionaryEntry = 'Articulos_FABRICANTE' end item Name = 'REFERENCIA_FABR' DataType = datString Size = 255 DisplayLabel = 'Ref. fabricante' DictionaryEntry = 'Articulos_REFERENCIA_FABR' end item Name = 'TIEMPO' DataType = datInteger end item Name = 'PARAM_TIEMPO' DataType = datFloat end item Name = 'MANO_OBRA' DataType = datCurrency end item Name = 'PRECIO_PVP' DataType = datCurrency end> Params = < item Name = 'ID_CLIENTE' Value = '2' 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' IndexDefs = <> Left = 400 Top = 112 end object ds_ArticulosParaCliente: TDADataSource DataSet = tbl_ArticulosParaCliente.Dataset DataTable = tbl_ArticulosParaCliente Left = 400 Top = 32 end object tbl_ProveedoresConArticulos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'ProveedoresConArticulos' IndexDefs = <> Left = 304 Top = 208 end object ds_ProveedoresConArticulos: TDADataSource DataSet = tbl_ProveedoresConArticulos.Dataset DataTable = tbl_ProveedoresConArticulos Left = 304 Top = 152 end end