inherited DataModuleArticulos: TDataModuleArticulos OnCreate = DAClientDataModuleCreate Height = 468 Width = 619 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 DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService 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 DecimalPrecision = 2 DecimalScale = 2 DisplayLabel = 'Precio neto' DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'INVENTARIABLE' DataType = datSmallInt DisplayLabel = 'Inventariable' DictionaryEntry = 'Articulos_INVENTARIABLE' 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 = 'PARAM_MARGEN' DataType = datFloat end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency DisplayLabel = 'Precio PVP (Solo suministro)' Alignment = taRightJustify ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA' end item Name = 'TIEMPO' DataType = datInteger end item Name = 'PARAM_TIEMPO' DataType = datFloat DisplayLabel = 'Precio min' Alignment = taRightJustify DictionaryEntry = 'Articulos_PARAM_TIEMPO' end item Name = 'MANO_OBRA' DataType = datCurrency DisplayLabel = 'Mano de obra' Alignment = taRightJustify DictionaryEntry = 'Articulos_MANO_OBRA' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency DisplayLabel = 'Precio P.V.P (Total)' Alignment = taRightJustify ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos LogicalName = 'Articulos' IndexDefs = <> Left = 232 Top = 96 end object ds_Articulos: TDADataSource DataSet = tbl_Articulos.Dataset DataTable = tbl_Articulos Left = 232 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 = < item Name = 'ID_EMPRESA' Value = '' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos LogicalName = 'ProveedoresConArticulos' IndexDefs = <> Left = 232 Top = 248 end object ds_ProveedoresConArticulos: TDADataSource DataSet = tbl_ProveedoresConArticulos.Dataset DataTable = tbl_ProveedoresConArticulos Left = 232 Top = 192 end object tbl_Articulos_Proveedores: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_ARTICULOS_PROVEEDORES_ID' Required = True InPrimaryKey = True end item Name = 'ID_ARTICULO' DataType = datInteger end item Name = 'ID_PROVEEDOR' DataType = datInteger 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 = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DictionaryEntry = 'Articulos_DESCUENTO' end item Name = 'PRECIO_NETO' DataType = datCurrency DecimalPrecision = 2 DecimalScale = 2 DisplayLabel = 'Precio neto' DictionaryEntry = 'Articulos_PRECIO_NETO' end item Name = 'PRECIO_PORTE' DataType = datCurrency DisplayLabel = 'Precio porte' DictionaryEntry = 'Articulos_PRECIO_PORTE' end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency DisplayLabel = 'Precio PVP (Solo suministro)' Alignment = taRightJustify ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency ServerAutoRefresh = True end item Name = 'FECHA_ACTUALIZACION' DataType = datDateTime end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos MasterSource = ds_Articulos MasterFields = 'ID' DetailFields = 'ID_ARTICULO' LogicalName = 'Articulos_Proveedores' IndexDefs = <> Left = 368 Top = 88 end object ds_Articulos_Proveedores: TDADataSource DataSet = tbl_Articulos_Proveedores.Dataset DataTable = tbl_Articulos_Proveedores Left = 368 Top = 32 end object tbl_ArticulosParaCompra: 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 DecimalPrecision = 2 DecimalScale = 2 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 end item Name = 'NOMBRE_PROVEEDOR' DataType = datString Size = 255 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 = 'PARAM_MARGEN' DataType = datFloat end item Name = 'PRECIO_PVP_VENTA' DataType = datCurrency DisplayLabel = 'Precio PVP (Solo suministro)' Alignment = taRightJustify ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_VENTA' end item Name = 'TIEMPO' DataType = datInteger end item Name = 'PARAM_TIEMPO' DataType = datFloat DisplayLabel = 'Precio min' Alignment = taRightJustify DictionaryEntry = 'Articulos_PARAM_TIEMPO' end item Name = 'MANO_OBRA' DataType = datCurrency DisplayLabel = 'Mano de obra' Alignment = taRightJustify DictionaryEntry = 'Articulos_MANO_OBRA' end item Name = 'PRECIO_PVP_TOTAL' DataType = datCurrency DisplayLabel = 'Precio P.V.P (Total)' Alignment = taRightJustify ServerAutoRefresh = True DictionaryEntry = 'Articulos_PRECIO_PVP_TOTAL' end item Name = 'ID_ARTICULO' DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_Articulos LogicalName = 'ArticulosParaCompra' IndexDefs = <> Left = 416 Top = 240 end object ds_ArticulosParaCompra: TDADataSource DataSet = tbl_ArticulosParaCompra.Dataset DataTable = tbl_ArticulosParaCompra Left = 416 Top = 192 end end