ConstruccionesCNJ_FactuGES/Modulos/Presupuestos/Data/uDataModulePresupuestos.dfm
2007-06-21 15:50:59 +00:00

920 lines
25 KiB
Plaintext

object DataModulePresupuestos: TDataModulePresupuestos
OldCreateOrder = True
OnCreate = DAClientDataModuleCreate
RemoteService = RORemoteService
Adapter = DABinAdapter
SchemaCall.MethodName = 'GetSchemaAsXML'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtString
end>
Height = 401
Width = 435
object RORemoteService: TRORemoteService
ServiceName = 'srvPresupuestos'
Message = ROBinMessage1
Channel = ROWinInetHTTPChannel1
Left = 40
Top = 24
end
object DABinAdapter: TDABINAdapter
Left = 40
Top = 80
end
object tbl_Presupuestos: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_ID'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_EMPRESA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_ID_EMPRESA'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_ID_EMPRESA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_CLIENTE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_ID_CLIENTE'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_ID_CLIENTE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Nombre'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_NOMBRE'
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 = 'Contactos_NIF_CIF'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'CALLE'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Direcci'#243'n'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_CALLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POBLACION'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Poblaci'#243'n'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_POBLACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PROVINCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Provincia'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_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'digo portal'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_CODIGO_POSTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tlf. trabajo'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_TELEFONO_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'TELEFONO_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Tlf. trabajo'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_TELEFONO_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FAX'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fax'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_FAX'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_1'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'M'#243'vil'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_MOVIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'MOVIL_2'
DataType = datString
Size = 25
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'M'#243'vil 2'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_MOVIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_1'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'E-mail trabajo'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_EMAIL_1'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'EMAIL_2'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'E-mail particular'
Alignment = taLeftJustify
DictionaryEntry = 'Contactos_EMAIL_2'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_VENDEDOR'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_ID_VENDEDOR'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_ID_VENDEDOR'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'REFERENCIA'
DataType = datString
Size = 255
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Referencia'
Alignment = taLeftJustify
ServerAutoRefresh = True
DictionaryEntry = 'Presupuestos_REFERENCIA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_PRESUPUESTO'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha del presupuesto'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_FECHA_PRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VIGENCIA'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Vigencia'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_VIGENCIA'
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 = 'Presupuestos_SITUACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_DECISION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Fecha de decisi'#243'n'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_FECHA_DECISION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'BASE_IMPONIBLE'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Base imponible'
Alignment = taRightJustify
DictionaryEntry = 'Presupuestos_BASE_IMPONIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Dto (%)'
Alignment = taCenter
DictionaryEntry = 'Presupuestos_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe dto.'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_IMPORTE_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IVA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'IVA (%)'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_IVA'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe IVA'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_IMPORTE_IVA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_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 = 'Presupuestos_OBSERVACIONES'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PLAZO_ENTREGA'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Plazo de entrega'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_PLAZO_ENTREGA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FORMA_PAGO'
DataType = datMemo
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Forma de pago'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_FORMA_PAGO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_FECHA_ALTA'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_FECHA_ALTA'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_FECHA_MODIFICACION'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_FECHA_MODIFICACION'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'USUARIO'
DataType = datString
Size = 20
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Presupuestos_USUARIO'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_USUARIO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'FECHA_VALIDEZ'
DataType = datDateTime
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = True
Lookup = False
LookupCache = False
end
item
Name = 'ID_MONTAJE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
InPrimaryKey = False
Calculated = False
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 = 'Presupuestos'
end>
DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'DatasetName'
ParamType = fIn
DataType = rtString
Value = 'Presupuestos'
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 = 'Presupuestos'
end>
ReadOnly = False
RemoteService = RORemoteService
Adapter = DABinAdapter
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Presupuestos'
IndexDefs = <>
Left = 192
Top = 88
end
object ds_Presupuestos: TDADataSource
DataTable = tbl_Presupuestos
Left = 192
Top = 24
end
object tbl_Presupuestos_Detalles: TDACDSDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
BlobType = dabtUnknown
Required = True
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_ID'
InPrimaryKey = True
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_ID_PRESUPUESTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'POSICION'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_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 = 'Presupuestos_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 = 'Presupuestos_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 = 'Presupuestos_Detalles_CANTIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'PUNTOS'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Puntos'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_PUNTOS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_PUNTOS'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe ptos.'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_IMPORTE_PUNTOS'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_UNIDAD'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe unidad'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_IMPORTE_UNIDAD'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'DESCUENTO'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
Alignment = taRightJustify
DictionaryEntry = 'Presupuestos_Detalles_DESCUENTO'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'IMPORTE_TOTAL'
DataType = datFloat
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = 'Importe total'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_IMPORTE_TOTAL'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end
item
Name = 'VISIBLE'
DataType = datInteger
BlobType = dabtUnknown
DisplayWidth = 0
DisplayLabel = #191'Visible?'
Alignment = taLeftJustify
DictionaryEntry = 'Presupuestos_Detalles_VISIBLE'
InPrimaryKey = False
Calculated = False
Lookup = False
LookupCache = False
end>
Params = <
item
Name = 'ID_PRESUPUESTO'
DataType = datInteger
BlobType = dabtUnknown
Value = ''
ParamType = daptInput
end>
MasterMappingMode = mmParams
MasterParamsMappings.Strings = (
'ID_PRESUPUESTO=ID')
StreamingOptions = [soDisableEventsWhileStreaming]
SchemaCall.MethodName = 'GetDatasetSchema'
SchemaCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'aDatasetName'
ParamType = fIn
DataType = rtString
Value = 'Presupuestos_Detalles'
end>
DataRequestCall.MethodName = 'GetDatasetDataEx'
DataRequestCall.Params = <
item
Name = 'Result'
ParamType = fResult
DataType = rtBinary
end
item
Name = 'DatasetName'
ParamType = fIn
DataType = rtString
Value = 'Presupuestos_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 = 'Presupuestos_Detalles'
end>
ReadOnly = False
RemoteService = RORemoteService
Adapter = DABinAdapter
MasterSource = ds_Presupuestos
MasterFields = 'ID'
DetailFields = 'ID_PRESUPUESTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'Presupuestos_Detalles'
IndexDefs = <>
Left = 328
Top = 88
end
object ds_Presupuestos_Detalles: TDADataSource
DataTable = tbl_Presupuestos_Detalles
Left = 328
Top = 24
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 = 40
Top = 176
end
object LoginRemoteService: TRORemoteService
ServiceName = 'srvLogin'
Message = ROBinMessage1
Channel = ROWinInetHTTPChannel1
Left = 40
Top = 232
end
object ROWinInetHTTPChannel1: TROWinInetHTTPChannel
ServerLocators = <>
DispatchOptions = []
ProbeServers = False
ProbeFrequency = 60000
UserAgent = 'RemObjects SDK'
TargetURL = 'http://localhost:8099/bin'
Left = 40
Top = 288
end
object ROBinMessage1: TROBinMessage
Left = 40
Top = 340
end
end