inherited DataModulePedidosCliente: TDataModulePedidosCliente OnCreate = DAClientDataModuleCreate Height = 301 Width = 621 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvPedidosCliente' Left = 40 Top = 32 end object Bin2DataStreamer: TDABin2DataStreamer Left = 40 Top = 84 end object rda_PedidosCliente: TDARemoteDataAdapter DataStreamer = Bin2DataStreamer GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService Left = 43 Top = 151 end object tbl_ListaAnosPedidos: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ANO' DataType = datString Size = 254 end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosCliente LogicalName = 'ListaAnosPedidos' IndexDefs = <> Left = 216 Top = 72 end object ds_ListaAnosPedidos: TDADataSource DataSet = tbl_ListaAnosPedidos.Dataset DataTable = tbl_ListaAnosPedidos Left = 216 Top = 24 end object tbl_PedidoCliente_ArticulosPendientesPedirAProv: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_PEDIDO' DataType = datInteger end item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' end item Name = 'CANT_PEDIDA_CLIENTE' DataType = datCurrency end item Name = 'ID_PROVEEDOR' DataType = datInteger end item Name = 'CANT_PEDIDA_PROVEEDOR' DataType = datCurrency end item Name = 'CANT_PENDIENTE_PEDIR' DataType = datCurrency end> Params = < item Name = 'ID' Value = '41' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosCliente LogicalName = 'PedidoCliente_ArticulosPendientesPedirAProv' IndexDefs = <> Left = 256 Top = 200 end object ds_PedidoCliente_ArticulosPendientesPedirAProv: TDADataSource DataSet = tbl_PedidoCliente_ArticulosPendientesPedirAProv.Dataset DataTable = tbl_PedidoCliente_ArticulosPendientesPedirAProv Left = 256 Top = 144 end object tbl_PedidosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'PedidosCliente_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'PedidosCliente_ID_EMPRESA' end item Name = 'ID_CLIENTE' DataType = datInteger DisplayLabel = 'PedidosCliente_ID_CLIENTE' DictionaryEntry = 'PedidosCliente_ID_CLIENTE' end item Name = 'ID_DIRECCION' DataType = datInteger end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'Nombre del proveedor' ServerAutoRefresh = True DictionaryEntry = 'PedidosCliente_NOMBRE' end item Name = 'REFERENCIA' DataType = datString Size = 255 DictionaryEntry = 'PedidosCliente_REFERENCIA' end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE' DictionaryEntry = 'PedidosCliente_REFERENCIA_CLIENTE' end item Name = 'SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' DictionaryEntry = 'PedidosCliente_SITUACION' end item Name = 'FECHA_PEDIDO' DataType = datDateTime DisplayLabel = 'Fecha pedido' DictionaryEntry = 'PedidosCliente_FECHA_PEDIDO' end item Name = 'CALLE' DataType = datString Size = 255 DisplayLabel = 'Calle' DictionaryEntry = 'PedidosCliente_CALLE' end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 DisplayLabel = 'C'#243'd. postal' DictionaryEntry = 'PedidosCliente_CODIGO_POSTAL' end item Name = 'POBLACION' DataType = datString Size = 255 DisplayLabel = 'Poblaci'#243'n' DictionaryEntry = 'PedidosCliente_POBLACION' end item Name = 'PROVINCIA' DataType = datString Size = 255 DisplayLabel = 'Provincia' DictionaryEntry = 'PedidosCliente_PROVINCIA' end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 DisplayLabel = 'Persona de contacto' DictionaryEntry = 'PedidosCliente_PERSONA_CONTACTO' end item Name = 'TELEFONO' DataType = datString Size = 25 DisplayLabel = 'Tel'#233'fono' DictionaryEntry = 'PedidosCliente_TELEFONO' end item Name = 'OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' DictionaryEntry = 'PedidosCliente_OBSERVACIONES' end item Name = 'INCIDENCIAS' DataType = datMemo DictionaryEntry = 'PedidosCliente_INCIDENCIAS' end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger DictionaryEntry = 'PedidosCliente_INCIDENCIAS_ACTIVAS' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'PedidosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'PedidosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'PedidosCliente_USUARIO' end item Name = 'IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_IMPORTE_PORTE' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_IMPORTE_DESCUENTO' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_BASE_IMPONIBLE' end item Name = 'IVA' DataType = datFloat DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify ServerAutoRefresh = True DictionaryEntry = 'PedidosCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_IMPORTE_IVA' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_IMPORTE_TOTAL' end item Name = 'ID_FORMA_PAGO' DataType = datInteger DictionaryEntry = 'PedidosCliente_ID_FORMA_PAGO' end item Name = 'REF_TIENDA_WEB' DataType = datInteger DisplayLabel = 'PedidosCliente_REF_TIENDA_WEB' DictionaryEntry = 'PedidosCliente_REF_TIENDA_WEB' end item Name = 'FECHA_PREVISTA_ENVIO' DataType = datDateTime DisplayLabel = 'PedidosCliente_FECHA_PREVISTA_ENVIO' DictionaryEntry = 'PedidosCliente_FECHA_PREVISTA_ENVIO' end item Name = 'NUM_COPIAS' DataType = datSmallInt DisplayLabel = 'PedidosCliente_NUM_COPIAS' DictionaryEntry = 'PedidosCliente_NUM_COPIAS' end item Name = 'NUM_CORREOS' DataType = datSmallInt DisplayLabel = 'PedidosCliente_NUM_CORREOS' DictionaryEntry = 'PedidosCliente_NUM_CORREOS' end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosCliente LogicalName = 'PedidosCliente' IndexDefs = <> Left = 376 Top = 72 end object ds_PedidosCliente: TDADataSource DataSet = tbl_PedidosCliente.Dataset DataTable = tbl_PedidosCliente Left = 376 Top = 16 end object tbl_PedidosCliente_Articulos_Pendientes: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PedidosProveedor_Detalles_ID_ARTICULO' end item Name = 'CANTIDAD_PED' DataType = datCurrency end item Name = 'CANTIDAD_ALB' DataType = datCurrency end item Name = 'CANTIDAD_PENDIENTE' DataType = datCurrency end> Params = < item Name = 'ID' Value = '41' ParamType = daptInput end> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosCliente LogicalName = 'PedidosCliente_Articulos_Pendientes' IndexDefs = <> Left = 480 Top = 200 end object ds_PedidosCliente_Articulos_Pendientes: TDADataSource DataSet = tbl_PedidosCliente_Articulos_Pendientes.Dataset DataTable = tbl_PedidosCliente_Articulos_Pendientes Left = 480 Top = 144 end object tbl_PedidosCliente_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PEDIDOS_CLI_DETALLES_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'PedidosCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_PEDIDO' DataType = datInteger Required = True DictionaryEntry = 'PedidosCliente_Detalles_ID_PEDIDO' end item Name = 'POSICION' DataType = datInteger DictionaryEntry = 'PedidosCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 DictionaryEntry = 'PedidosCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'PedidosCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datFloat Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_Detalles_CANTIDAD' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DictionaryEntry = 'PedidosCliente_Detalles_VISIBLE' end item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PedidosCliente_Detalles_ID_ARTICULO' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe porte' Alignment = taRightJustify DictionaryEntry = 'PedidosCliente_Detalles_IMPORTE_PORTE' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' DictionaryEntry = 'PedidosCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PedidosCliente MasterSource = ds_PedidosCliente MasterFields = 'ID' DetailFields = 'ID_PEDIDO' LogicalName = 'PedidosCliente_Detalles' IndexDefs = <> Left = 512 Top = 72 end object ds_PedidosCliente_Detalles: TDADataSource DataSet = tbl_PedidosCliente_Detalles.Dataset DataTable = tbl_PedidosCliente_Detalles Left = 512 Top = 16 end end