object DataModuleFacturasCliente: TDataModuleFacturasCliente OldCreateOrder = True OnCreate = DAClientDataModuleCreate RemoteService = RORemoteService Adapter = DABinAdapter SchemaCall.MethodName = 'GetSchemaAsXML' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString end> Height = 414 Width = 518 object RORemoteService: TRORemoteService ServiceName = 'srvFacturasCliente' Message = ROBinMessage1 Channel = ROWinInetHTTPChannel1 Left = 48 Top = 24 end object DABinAdapter: TDABINAdapter Left = 48 Top = 80 end object tbl_FacturasCliente: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_EMPRESA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID_EMPRESA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 20 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Referencia' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_REFERENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO' DataType = datString Size = 1 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Tipo' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_TIPO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_FACTURA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Fecha de las factura' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_FECHA_FACTURA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'SITUACION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Situaci'#243'n' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_SITUACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'BASE_IMPONIBLE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Base imponible' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_BASE_IMPONIBLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Dto.' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_DESCUENTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_DESCUENTO' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe dto.' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_DESCUENTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IVA' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_IVA' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe IVA' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_IVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_RE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_RE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe RE' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_RE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'OBSERVACIONES' DataType = datMemo BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Observaciones' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_OBSERVACIONES' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_CLIENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID_CLIENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NIF_CIF' DataType = datString Size = 15 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'NIF/CIF' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_NIF_CIF' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'NOMBRE' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cliente' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_NOMBRE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CALLE' DataType = datString Size = 150 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Direcci'#243'n' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_CALLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POBLACION' DataType = datString Size = 150 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Poblaci'#243'n' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_POBLACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'PROVINCIA' DataType = datString Size = 30 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Provincia' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_PROVINCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CODIGO_POSTAL' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'C'#243'd. postal' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_CODIGO_POSTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_ALTA' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_FECHA_ALTA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_MODIFICACION' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_FECHA_MODIFICACION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'USUARIO' DataType = datString Size = 100 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_USUARIO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_FORMA_PAGO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'FacturasCliente_ID_FORMA_PAGO' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID_FORMA_PAGO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'RECARGO_EQUIVALENCIA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = #191'Con R.E.?' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_RECARGO_EQUIVALENCIA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_TIPO_IVA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID_TIPO_IVA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_NETO' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe neto' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_NETO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_PORTE' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe del porte' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_IMPORTE_PORTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_COMISION_LIQUIDADA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID_COMISION_LIQUIDADA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_COMISION' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_REFERENCIA_COMISION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_AGENTE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_ID_AGENTE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'FECHA_VENCIMIENTO' DataType = datDateTime BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Fecha de vencimiento' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_FECHA_VENCIMIENTO' InPrimaryKey = False Calculated = True Lookup = False LookupCache = False end> Params = <> MasterMappingMode = mmDataRequest StreamingOptions = [soDisableEventsWhileStreaming] SchemaCall.MethodName = 'GetDatasetSchema' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'aDatasetName' ParamType = fIn DataType = rtString Value = 'FacturasCliente' end> DataRequestCall.MethodName = 'GetDatasetDataEx' DataRequestCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'DatasetName' ParamType = fIn DataType = rtString Value = 'FacturasCliente' end item Name = 'Params' ParamType = fIn DataType = rtUserDefined UserClassName = 'TDADatasetParamArray' end item Name = 'UserFilter' ParamType = fIn DataType = rtString Value = '' end item Name = 'IncludeSchema' ParamType = fIn DataType = rtBoolean Value = False end item Name = 'MaxRecords' ParamType = fIn DataType = rtInteger Value = -1 end> DataUpdateCall.MethodName = 'UpdateData' DataUpdateCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'Delta' ParamType = fIn DataType = rtBinary end> ScriptCall.MethodName = 'GetDatasetScripts' ScriptCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString Value = '' end item Name = 'DatasetNames' ParamType = fIn DataType = rtString Value = 'FacturasCliente' end> ReadOnly = False RemoteService = RORemoteService Adapter = DABinAdapter DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasCliente' IndexDefs = <> Left = 208 Top = 96 end object ds_FacturasCliente: TDADataSource DataTable = tbl_FacturasCliente Left = 208 Top = 40 end object tbl_FacturasCliente_Detalles: TDACDSDataTable RemoteUpdatesOptions = [] Fields = < item Name = 'ID' DataType = datAutoInc BlobType = dabtUnknown Required = True DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_ID' InPrimaryKey = True Calculated = False Lookup = False LookupCache = False end item Name = 'ID_FACTURA' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_ID_FACTURA' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'POSICION' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Posici'#243'n' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_POSICION' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'TIPO_DETALLE' DataType = datString Size = 10 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Tipo detalle' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_TIPO_DETALLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CONCEPTO' DataType = datString Size = 2000 BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Concepto' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_CONCEPTO' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'CANTIDAD' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Cantidad' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_CANTIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_UNIDAD' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe unidad' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_UNIDAD' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'DESCUENTO' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_TOTAL' DataType = datCurrency BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = 'Importe total' Alignment = taRightJustify DictionaryEntry = 'FacturasCliente_Detalles_IMPORTE_TOTAL' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'ID_ARTICULO' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'VISIBLE' DataType = datInteger BlobType = dabtUnknown DisplayWidth = 0 DisplayLabel = #191'Visible?' Alignment = taLeftJustify DictionaryEntry = 'FacturasCliente_Detalles_VISIBLE' InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'IMPORTE_PORTE' DataType = datFloat BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end item Name = 'REFERENCIA_PROVEEDOR' DataType = datString Size = 255 BlobType = dabtUnknown DisplayWidth = 0 Alignment = taLeftJustify InPrimaryKey = False Calculated = False Lookup = False LookupCache = False end> Params = < item Name = 'ID_FACTURA' DataType = datInteger BlobType = dabtUnknown Value = '' ParamType = daptInput end> MasterMappingMode = mmParams MasterParamsMappings.Strings = ( 'ID_FACTURA=ID') StreamingOptions = [soDisableEventsWhileStreaming] SchemaCall.MethodName = 'GetDatasetSchema' SchemaCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'aDatasetName' ParamType = fIn DataType = rtString Value = 'FacturasCliente_Detalles' end> DataRequestCall.MethodName = 'GetDatasetDataEx' DataRequestCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'DatasetName' ParamType = fIn DataType = rtString Value = 'FacturasCliente_Detalles' end item Name = 'Params' ParamType = fIn DataType = rtUserDefined UserClassName = 'TDADatasetParamArray' end item Name = 'UserFilter' ParamType = fIn DataType = rtString Value = '' end item Name = 'IncludeSchema' ParamType = fIn DataType = rtBoolean Value = False end item Name = 'MaxRecords' ParamType = fIn DataType = rtInteger Value = -1 end> DataUpdateCall.MethodName = 'UpdateData' DataUpdateCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtBinary end item Name = 'Delta' ParamType = fIn DataType = rtBinary end> ScriptCall.MethodName = 'GetDatasetScripts' ScriptCall.Params = < item Name = 'Result' ParamType = fResult DataType = rtString Value = '' end item Name = 'DatasetNames' ParamType = fIn DataType = rtString Value = 'FacturasCliente_Detalles' end> ReadOnly = False RemoteService = RORemoteService Adapter = DABinAdapter MasterSource = ds_FacturasCliente MasterFields = 'ID' DetailFields = 'ID_FACTURA' DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch] MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates] LogicalName = 'FacturasCliente_Detalles' IndexDefs = <> Left = 368 Top = 96 end object ds_FacturasCliente_Detalles: TDADataSource DataTable = tbl_FacturasCliente_Detalles Left = 368 Top = 40 end object DADesigntimeCall1: TDADesigntimeCall RemoteRequest.MethodName = 'Login' RemoteRequest.Params = < item Name = 'Result' ParamType = fResult DataType = rtBoolean end item Name = 'User' ParamType = fIn DataType = rtString Value = 'Administrador' end item Name = 'Password' ParamType = fIn DataType = rtString Value = '1' end item Name = 'LoginInfo' ParamType = fOut DataType = rtUserDefined UserClassName = 'TRdxLoginInfo' end> RemoteService = LoginRemoteService Left = 48 Top = 160 end object LoginRemoteService: TRORemoteService ServiceName = 'srvLogin' Message = ROBinMessage1 Channel = ROWinInetHTTPChannel1 Left = 48 Top = 216 end object ROWinInetHTTPChannel1: TROWinInetHTTPChannel ServerLocators = <> DispatchOptions = [] ProbeServers = False ProbeFrequency = 60000 UserAgent = 'RemObjects SDK' TargetURL = 'http://localhost:8099/bin' Left = 48 Top = 272 end object ROBinMessage1: TROBinMessage Left = 48 Top = 324 end end