david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
134 lines
3.9 KiB
Plaintext
134 lines
3.9 KiB
Plaintext
object CalcFieldsService: TCalcFieldsService
|
|
OldCreateOrder = True
|
|
OnCreate = DataAbstractServiceCreate
|
|
ServiceSchema = Schema
|
|
ServiceDataStreamer = DataStreamer
|
|
ExportedDataTables = <>
|
|
Height = 300
|
|
Width = 300
|
|
object DataStreamer: TDABin2DataStreamer
|
|
OnWriteFieldValue = DataStreamerWriteFieldValue
|
|
BufferSize = 262144
|
|
SendReducedDelta = False
|
|
Left = 32
|
|
Top = 8
|
|
end
|
|
object Schema: TDASchema
|
|
ConnectionManager = CalcFields_ServerDataForm.ConnectionManager
|
|
DataDictionary = DataDictionary
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'ADO'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'SELECT '#10' CustomerID, CompanyName, 0 as DummyServer'#10#10' FROM'#10' ' +
|
|
' Customers'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CustomerID'
|
|
end
|
|
item
|
|
DatasetField = 'CompanyName'
|
|
TableField = 'CompanyName'
|
|
end
|
|
item
|
|
DatasetField = 'ServerCalculated'
|
|
TableField = 'DummyServer'
|
|
end>
|
|
end>
|
|
Name = 'Customers'
|
|
Fields = <
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CompanyName'
|
|
DataType = datString
|
|
Size = 40
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ClientCalculated'
|
|
DataType = datString
|
|
Size = 120
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
LogChanges = False
|
|
DisplayWidth = 50
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = True
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ServerCalculated'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
LogChanges = False
|
|
DisplayWidth = 0
|
|
ReadOnly = True
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end>
|
|
JoinDataTables = <>
|
|
UnionDataTables = <>
|
|
Commands = <>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 32
|
|
Top = 56
|
|
end
|
|
object DataDictionary: TDADataDictionary
|
|
Fields = <>
|
|
Left = 32
|
|
Top = 103
|
|
end
|
|
object bpCustomers: TDABusinessProcessor
|
|
Schema = Schema
|
|
ReferencedDataset = 'Customers'
|
|
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poPrepareCommands]
|
|
UpdateMode = updWhereKeyOnly
|
|
Left = 112
|
|
Top = 56
|
|
end
|
|
end
|