279 lines
7.3 KiB
Plaintext
279 lines
7.3 KiB
Plaintext
|
object dmParametros: TdmParametros
|
||
|
|
OldCreateOrder = True
|
||
|
|
OnCreate = DAClientDataModuleCreate
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = dmBase.DABINAdapter
|
||
|
|
SchemaCall.MethodName = 'GetSchemaAsXML'
|
||
|
|
SchemaCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtString
|
||
|
|
end>
|
||
|
|
Left = 532
|
||
|
|
Top = 343
|
||
|
|
Height = 297
|
||
|
|
Width = 620
|
||
|
|
object RORemoteService: TRORemoteService
|
||
|
|
ServiceName = 'srvParametros'
|
||
|
|
Message = dmBase.ROMessage
|
||
|
|
Channel = dmBase.ROChannel
|
||
|
|
Left = 40
|
||
|
|
Top = 32
|
||
|
|
end
|
||
|
|
object tbl_ListaCentros: TDACDSDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'CODFILIAL'
|
||
|
|
DataType = datString
|
||
|
|
Size = 6
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'CODBARRA'
|
||
|
|
DataType = datString
|
||
|
|
Size = 17
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FILIAL'
|
||
|
|
DataType = datString
|
||
|
|
Size = 25
|
||
|
|
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 = 'ListaCentros'
|
||
|
|
end>
|
||
|
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||
|
|
DataRequestCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'ListaCentros'
|
||
|
|
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 = 'ListaCentros'
|
||
|
|
end>
|
||
|
|
ReadOnly = True
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = dmBase.DABINAdapter
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'ListaCentros'
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 160
|
||
|
|
Top = 96
|
||
|
|
end
|
||
|
|
object ds_ListaCentros: TDADataSource
|
||
|
|
DataTable = tbl_ListaCentros
|
||
|
|
Left = 160
|
||
|
|
Top = 32
|
||
|
|
end
|
||
|
|
object tbl_ListaColecciones: TDACDSDataTable
|
||
|
|
RemoteUpdatesOptions = []
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'COLECAO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 6
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DESC_COLECAO'
|
||
|
|
DataType = datString
|
||
|
|
Size = 40
|
||
|
|
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 = 'ListaColecciones'
|
||
|
|
end>
|
||
|
|
DataRequestCall.MethodName = 'GetDatasetDataEx'
|
||
|
|
DataRequestCall.Params = <
|
||
|
|
item
|
||
|
|
Name = 'Result'
|
||
|
|
ParamType = fResult
|
||
|
|
DataType = rtBinary
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'DatasetName'
|
||
|
|
ParamType = fIn
|
||
|
|
DataType = rtString
|
||
|
|
Value = 'ListaColecciones'
|
||
|
|
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 = 'ListaColecciones'
|
||
|
|
end>
|
||
|
|
ReadOnly = True
|
||
|
|
RemoteService = RORemoteService
|
||
|
|
Adapter = dmBase.DABINAdapter
|
||
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||
|
|
LogicalName = 'ListaColecciones'
|
||
|
|
IndexDefs = <>
|
||
|
|
Left = 296
|
||
|
|
Top = 96
|
||
|
|
end
|
||
|
|
object dsListaColecciones: TDADataSource
|
||
|
|
DataTable = tbl_ListaColecciones
|
||
|
|
Left = 296
|
||
|
|
Top = 32
|
||
|
|
end
|
||
|
|
end
|