david
d99a44999f
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@7 b6239004-a887-0f4b-9937-50029ccdca16
387 lines
11 KiB
Plaintext
387 lines
11 KiB
Plaintext
object BusinessRulesScripts_ClientDataModule: TBusinessRulesScripts_ClientDataModule
|
|
OldCreateOrder = True
|
|
Left = 447
|
|
Top = 246
|
|
Height = 382
|
|
Width = 300
|
|
object ROChannel: TROWinInetHTTPChannel
|
|
UserAgent = 'RemObjects SDK'
|
|
TargetURL = 'http://localhost:8099/BIN'
|
|
ServerLocators = <>
|
|
DispatchOptions = []
|
|
Left = 40
|
|
Top = 8
|
|
end
|
|
object ROMessage: TROBinMessage
|
|
Left = 40
|
|
Top = 52
|
|
end
|
|
object RemoteService: TRORemoteService
|
|
Message = ROMessage
|
|
Channel = ROChannel
|
|
ServiceName = 'NewService'
|
|
Left = 41
|
|
Top = 96
|
|
end
|
|
object BinDataStreamer: TDABinDataStreamer
|
|
Left = 40
|
|
Top = 142
|
|
end
|
|
object dtProducts: TDACDSDataTable
|
|
ScriptingProvider = DAPSScriptingProvider
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'ProductID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ProductName'
|
|
DataType = datWideString
|
|
Size = 40
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'SupplierID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CategoryID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'QuantityPerUnit'
|
|
DataType = datWideString
|
|
Size = 20
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'UnitPrice'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'UnitsInStock'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'UnitsOnOrder'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ReorderLevel'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Discontinued'
|
|
DataType = datBoolean
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Gain'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
LogChanges = False
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = True
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = RemoteDataAdapter
|
|
ReadOnly = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'Products'
|
|
IndexDefs = <>
|
|
Left = 128
|
|
Top = 160
|
|
end
|
|
object dsProducts: TDADataSource
|
|
DataSet = dtProducts.Dataset
|
|
DataTable = dtProducts
|
|
Left = 127
|
|
Top = 187
|
|
end
|
|
object DAPSScriptingProvider: TDAPSScriptingProvider
|
|
ScriptEngine.CompilerOptions = [icAllowNoBegin, icAllowNoEnd, icBooleanShortCircuit]
|
|
ScriptEngine.Plugins = <
|
|
item
|
|
Plugin = DAPSScriptingProvider.PluginClasses
|
|
end
|
|
item
|
|
Plugin = DAPSScriptingProvider.PluginDB
|
|
end
|
|
item
|
|
Plugin = DAPSScriptingProvider.PluginDateUtils
|
|
end>
|
|
ScriptEngine.UsePreProcessor = False
|
|
Left = 128
|
|
Top = 256
|
|
end
|
|
object RemoteDataAdapter: TDARemoteDataAdapter
|
|
GetSchemaCall.RemoteService = RemoteService
|
|
GetSchemaCall.MethodName = 'GetSchema'
|
|
GetSchemaCall.Params = <
|
|
item
|
|
Name = 'aFilter'
|
|
DataType = rtString
|
|
Flag = fIn
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtString
|
|
Flag = fResult
|
|
Value = Null
|
|
end>
|
|
GetSchemaCall.Default = False
|
|
GetSchemaCall.IncomingSchemaParameter = 'Result'
|
|
GetSchemaCall.OutgoingFilterParameter = 'aFilter'
|
|
GetDataCall.RemoteService = RemoteService
|
|
GetDataCall.MethodName = 'GetData'
|
|
GetDataCall.Params = <
|
|
item
|
|
Name = 'aTableNameArray'
|
|
DataType = rtUserDefined
|
|
Flag = fIn
|
|
TypeName = 'StringArray'
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'aTableRequestInfoArray'
|
|
DataType = rtUserDefined
|
|
Flag = fIn
|
|
TypeName = 'TableRequestInfoArray'
|
|
Value = Null
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtBinary
|
|
Flag = fResult
|
|
Value = Null
|
|
end>
|
|
GetDataCall.Default = False
|
|
GetDataCall.OutgoingTableNamesParameter = 'aTableNameArray'
|
|
GetDataCall.OutgoingTableRequestInfosParameter = 'aTableRequestInfoArray'
|
|
GetDataCall.IncomingDataParameter = 'Result'
|
|
UpdateDataCall.RemoteService = RemoteService
|
|
UpdateDataCall.MethodName = 'UpdateData'
|
|
UpdateDataCall.Params = <
|
|
item
|
|
Name = 'aDelta'
|
|
DataType = rtBinary
|
|
Flag = fIn
|
|
end
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtBinary
|
|
Flag = fResult
|
|
end>
|
|
UpdateDataCall.Default = False
|
|
UpdateDataCall.OutgoingDeltaParameter = 'aDelta'
|
|
UpdateDataCall.IncomingDeltaParameter = 'Result'
|
|
GetScriptsCall.RemoteService = RemoteService
|
|
GetScriptsCall.MethodName = 'GetDatasetScripts'
|
|
GetScriptsCall.Params = <
|
|
item
|
|
Name = 'Result'
|
|
DataType = rtString
|
|
Flag = fResult
|
|
end
|
|
item
|
|
Name = 'DatasetNames'
|
|
DataType = rtString
|
|
Flag = fIn
|
|
Value = Null
|
|
end>
|
|
GetScriptsCall.Default = False
|
|
GetScriptsCall.OutgoingTableNamesParameter = 'DatasetNames'
|
|
GetScriptsCall.IncomingScriptParameter = 'Result'
|
|
RemoteService = RemoteService
|
|
DataStreamer = BinDataStreamer
|
|
AutoFillScripts = True
|
|
Left = 128
|
|
Top = 103
|
|
end
|
|
object dtOrderDetails: TDACDSDataTable
|
|
ScriptingProvider = DAPSScriptingProvider
|
|
RemoteUpdatesOptions = []
|
|
Fields = <
|
|
item
|
|
Name = 'OrderID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ProductName'
|
|
DataType = datString
|
|
Size = 50
|
|
BlobType = dabtUnknown
|
|
LogChanges = False
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = True
|
|
LookupSource = dsProducts
|
|
LookupKeyFields = 'ProductID'
|
|
LookupResultField = 'ProductName'
|
|
KeyFields = 'ProductID'
|
|
LookupCache = True
|
|
end
|
|
item
|
|
Name = 'ProductID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Visible = False
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'UnitPrice'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Quantity'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Discount'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
DisplayFormat = '0.##'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Gain'
|
|
DataType = datFloat
|
|
BlobType = dabtUnknown
|
|
LogChanges = False
|
|
DisplayWidth = 0
|
|
DisplayFormat = '0.##'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = True
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
Params = <>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soIgnoreStreamSchema, soDisableEventsWhileStreaming]
|
|
RemoteDataAdapter = RemoteDataAdapter
|
|
ReadOnly = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
LogicalName = 'OrderDetails'
|
|
IndexDefs = <>
|
|
Left = 157
|
|
Top = 159
|
|
end
|
|
object dsOrderDetails: TDADataSource
|
|
DataSet = dtOrderDetails.Dataset
|
|
DataTable = dtOrderDetails
|
|
Left = 158
|
|
Top = 188
|
|
end
|
|
end
|