inherited DataModulePresupuestosCliente: TDataModulePresupuestosCliente OnCreate = DAClientDataModuleCreate Height = 213 Width = 603 object RORemoteService: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvPresupuestosCliente' Left = 56 Top = 24 end object Bin2DataStreamer: TDABin2DataStreamer Left = 56 Top = 84 end object rda_PresupuestosCliente: TDARemoteDataAdapter GetSchemaCall.RemoteService = RORemoteService GetDataCall.RemoteService = RORemoteService UpdateDataCall.RemoteService = RORemoteService GetScriptsCall.RemoteService = RORemoteService RemoteService = RORemoteService DataStreamer = Bin2DataStreamer Left = 59 Top = 151 end object tbl_PresupuestosCliente: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_ID' InPrimaryKey = True end item Name = 'ID_EMPRESA' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_EMPRESA' end item Name = 'FECHA_PRESUPUESTO' DataType = datDateTime DisplayLabel = 'PresupuestosCliente_FECHA_PRESUPUESTO' DictionaryEntry = 'PresupuestosCliente_FECHA_PRESUPUESTO' end item Name = 'FECHA_DECISION' DataType = datDateTime DisplayLabel = 'PresupuestosCliente_FECHA_DECISION' DictionaryEntry = 'PresupuestosCliente_FECHA_DECISION' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'Referencia' DictionaryEntry = 'PresupuestosCliente_REFERENCIA' end item Name = 'REFERENCIA_AUX' DataType = datString Size = 255 end item Name = 'SITUACION' DataType = datString Size = 255 DisplayLabel = 'Situaci'#243'n' DictionaryEntry = 'PresupuestosCliente_SITUACION' end item Name = 'ID_CLIENTE' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_CLIENTE' end item Name = 'ID_DIRECCION' DataType = datInteger end item Name = 'NIF_CIF' DataType = datString Size = 15 DisplayLabel = 'PresupuestosCliente_NIF_CIF' ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_NIF_CIF' end item Name = 'NOMBRE' DataType = datString Size = 255 DisplayLabel = 'PresupuestosCliente_NOMBRE' ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_NOMBRE' end item Name = 'REFERENCIA_CLIENTE' DataType = datString Size = 255 DisplayLabel = 'PedidosCliente_REFERENCIA_CLIENTE' ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_REFERENCIA_CLIENTE' end item Name = 'CLIENTE_FINAL' DataType = datString Size = 255 DisplayLabel = 'PresupuestosCliente_CLIENTE_FINAL' DictionaryEntry = 'PresupuestosCliente_CLIENTE_FINAL' end item Name = 'PORTADA' DataType = datMemo DisplayLabel = 'PresupuestosCliente_PORTADA' DictionaryEntry = 'PresupuestosCliente_PORTADA' end item Name = 'MEMORIA' DataType = datMemo DisplayLabel = 'PresupuestosCliente_MEMORIA' DictionaryEntry = 'PresupuestosCliente_MEMORIA' end item Name = 'OBSERVACIONES' DataType = datMemo DisplayLabel = 'Observaciones' DictionaryEntry = 'PresupuestosCliente_OBSERVACIONES' end item Name = 'INCIDENCIAS' DataType = datMemo DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS' end item Name = 'INCIDENCIAS_ACTIVAS' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_INCIDENCIAS_ACTIVAS' end item Name = 'FECHA_ALTA' DataType = datDateTime DictionaryEntry = 'PresupuestosCliente_FECHA_ALTA' end item Name = 'FECHA_MODIFICACION' DataType = datDateTime DictionaryEntry = 'PresupuestosCliente_FECHA_MODIFICACION' end item Name = 'USUARIO' DataType = datString Size = 20 DictionaryEntry = 'PresupuestosCliente_USUARIO' end item Name = 'IMPORTE_NETO' DataType = datCurrency DisplayLabel = 'Importe neto' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_IMPORTE_NETO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe del porte' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_IMPORTE_PORTE' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_DESCUENTO' end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency DisplayLabel = 'Importe dto.' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_IMPORTE_DESCUENTO' end item Name = 'BASE_IMPONIBLE' DataType = datCurrency DisplayLabel = 'Base imponible' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_BASE_IMPONIBLE' end item Name = 'IVA' DataType = datFloat DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_IVA' end item Name = 'IMPORTE_IVA' DataType = datCurrency DisplayLabel = 'Importe IVA' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_IMPORTE_IVA' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_IMPORTE_TOTAL' end item Name = 'ID_FORMA_PAGO' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_ID_FORMA_PAGO' end item Name = 'ID_FACTURA' DataType = datInteger end item Name = 'FACTURA' DataType = datString Size = 255 end item Name = 'PERSONA_CONTACTO' DataType = datString Size = 255 DisplayLabel = 'Persona de contacto' DictionaryEntry = 'PresupuestosCliente_PERSONA_CONTACTO' end item Name = 'DESCRIPCION_BONIFICACION' DataType = datString Size = 255 end item Name = 'IMPORTE_BONIFICACION' DataType = datCurrency ServerAutoRefresh = True end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PresupuestosCliente DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PresupuestosCliente' IndexDefs = <> Left = 248 Top = 88 end object ds_PresupuestosCliente: TDADataSource DataSet = tbl_PresupuestosCliente.Dataset DataTable = tbl_PresupuestosCliente Left = 248 Top = 32 end object tbl_PresupuestosCliente_Detalles: TDAMemDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc GeneratorName = 'GEN_PRESUPUESTOS_CLI_DETALLE_ID' Required = True ServerAutoRefresh = True DictionaryEntry = 'PresupuestosCliente_Detalles_ID' InPrimaryKey = True end item Name = 'ID_PRESUPUESTO' DataType = datInteger Required = True DisplayLabel = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO' DictionaryEntry = 'PresupuestosCliente_Detalles_ID_PRESUPUESTO' end item Name = 'POSICION' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_Detalles_POSICION' end item Name = 'TIPO_DETALLE' DataType = datString Size = 25 DictionaryEntry = 'PresupuestosCliente_Detalles_TIPO_DETALLE' end item Name = 'CONCEPTO' DataType = datString Size = 2000 DictionaryEntry = 'PresupuestosCliente_Detalles_CONCEPTO' end item Name = 'CANTIDAD' DataType = datFloat Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_Detalles_CANTIDAD' end item Name = 'UNIDAD_MEDIDA' DataType = datString Size = 255 DisplayLabel = 'Unidad de medida' DictionaryEntry = 'PresupuestosCliente_Detalles_UNIDAD_MEDIDA' end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency DisplayLabel = 'Importe unidad' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_UNIDAD' end item Name = 'IMPORTE_TOTAL' DataType = datCurrency DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_TOTAL' end item Name = 'VISIBLE' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_Detalles_VISIBLE' end item Name = 'ID_ARTICULO' DataType = datInteger DictionaryEntry = 'PresupuestosCliente_Detalles_ID_ARTICULO' end item Name = 'DESCUENTO' DataType = datFloat DisplayLabel = 'Descuento' DisplayFormat = ',0.00 %;-,0.00 %' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_Detalles_DESCUENTO' end item Name = 'IMPORTE_PORTE' DataType = datCurrency DisplayLabel = 'Importe porte' Alignment = taRightJustify DictionaryEntry = 'PresupuestosCliente_Detalles_IMPORTE_PORTE' end item Name = 'REFERENCIA' DataType = datString Size = 255 DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA' DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA' end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 DisplayLabel = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' DictionaryEntry = 'PresupuestosCliente_Detalles_REFERENCIA_PROVEEDOR' end> Params = <> MasterMappingMode = mmWhere StreamingOptions = [soDisableEventsWhileStreaming] RemoteDataAdapter = rda_PresupuestosCliente MasterSource = ds_PresupuestosCliente MasterFields = 'ID' DetailFields = 'ID_PRESUPUESTO' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'PresupuestosCliente_Detalles' IndexDefs = <> Left = 464 Top = 88 end object ds_PresupuestosCliente_Detalles: TDADataSource DataSet = tbl_PresupuestosCliente_Detalles.Dataset DataTable = tbl_PresupuestosCliente_Detalles Left = 464 Top = 32 end object RORemoteService1: TRORemoteService Message = dmConexion.ROMessage Channel = dmConexion.ROChannel ServiceName = 'srvGestorDocumentos' Left = 248 Top = 152 end end