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
324 lines
10 KiB
Plaintext
324 lines
10 KiB
Plaintext
object OrdersService: TOrdersService
|
|
OldCreateOrder = True
|
|
RequiresSession = True
|
|
SessionManager = MegaDemoServer_DataModule.SessionManager
|
|
ServiceSchema = Schema
|
|
ServiceDataStreamer = BinDataStreamer
|
|
ExportedDataTables = <>
|
|
BeforeAcquireConnection = DataAbstractServiceBeforeAcquireConnection
|
|
Left = 221
|
|
Top = 190
|
|
Height = 206
|
|
Width = 256
|
|
object bpCustomers: TDABusinessProcessor
|
|
ProcessorOptions = [poAutoGenerateInsert, poAutoGenerateUpdate, poAutoGenerateDelete, poAutoGenerateRefreshDataset, poPrepareCommands]
|
|
UpdateMode = updWhereKeyOnly
|
|
Left = 138
|
|
Top = 60
|
|
end
|
|
object BinDataStreamer: TDABinDataStreamer
|
|
BufferSize = 262144
|
|
Left = 62
|
|
Top = 60
|
|
end
|
|
object Schema: TDASchema
|
|
ConnectionManager = MegaDemoServer_DataModule.ConnectionManager
|
|
DataDictionary = MegaDemoServer_DataModule.DataDictionary
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'Employees'
|
|
TargetTable = 'CUSTOMER'
|
|
SQL = 'SELECT C.CUST_NO, C.CUSTOMER, C.CITY'#10'FROM CUSTOMER C'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CUST_NO'
|
|
end
|
|
item
|
|
DatasetField = 'CustomerName'
|
|
TableField = 'CUSTOMER'
|
|
end
|
|
item
|
|
DatasetField = 'City'
|
|
TableField = 'CITY'
|
|
end>
|
|
end
|
|
item
|
|
Connection = 'Northwind'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'SELECT '#10' Custs.CustomerID, Custs.CompanyName, Custs.City'#10' FR' +
|
|
'OM'#10' Customers Custs'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CustomerID'
|
|
end
|
|
item
|
|
DatasetField = 'CustomerName'
|
|
TableField = 'CompanyName'
|
|
end
|
|
item
|
|
DatasetField = 'City'
|
|
TableField = 'City'
|
|
end>
|
|
end>
|
|
Name = 'Customers'
|
|
Description = 'Retrieves the list of customers in the database'
|
|
Fields = <
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
Description = 'The customer'#39's code'
|
|
BlobType = dabtUnknown
|
|
GeneratorName = 'CUST_NO_GEN'
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Customer ID'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CustomerName'
|
|
DataType = datString
|
|
Size = 40
|
|
Description = 'The customer'#39's name'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
Required = True
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Name'
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'City'
|
|
DataType = datString
|
|
Size = 25
|
|
Description = 'The customer'#39's city'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
Required = True
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'EmployeeID'
|
|
DataType = datInteger
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'Employees'
|
|
TargetTable = 'SALES'
|
|
SQL =
|
|
'SELECT S.CUST_NO, S.ORDER_DATE, S.DATE_NEEDED, S.SHIP_DATE, S.TO' +
|
|
'TAL_VALUE'#10'FROM SALES S'#10'WHERE S.SALES_REP=:EmployeeID AND S.CUST_' +
|
|
'NO=:CustomerID'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CUST_NO'
|
|
end
|
|
item
|
|
DatasetField = 'OrderDate'
|
|
TableField = 'ORDER_DATE'
|
|
end
|
|
item
|
|
DatasetField = 'RequiredDate'
|
|
TableField = 'DATE_NEEDED'
|
|
end
|
|
item
|
|
DatasetField = 'ShippedDate'
|
|
TableField = 'SHIP_DATE'
|
|
end
|
|
item
|
|
DatasetField = 'OrderAmount'
|
|
TableField = 'TOTAL_VALUE'
|
|
end>
|
|
end
|
|
item
|
|
Connection = 'Northwind'
|
|
TargetTable = 'Orders'
|
|
SQL =
|
|
'SELECT '#10' Ords.CustomerID, Ords.OrderDate, Ords.RequiredDate, ' +
|
|
'Ords.ShippedDate, Ords.Freight as OrderAmount'#10' FROM'#10' Orders ' +
|
|
'Ords'#10'WHERE Ords.EmployeeID=:EmployeeID AND Ords.CustomerID=:Cust' +
|
|
'omerID'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CustomerID'
|
|
end
|
|
item
|
|
DatasetField = 'OrderDate'
|
|
TableField = 'OrderDate'
|
|
end
|
|
item
|
|
DatasetField = 'RequiredDate'
|
|
TableField = 'RequiredDate'
|
|
end
|
|
item
|
|
DatasetField = 'ShippedDate'
|
|
TableField = 'ShippedDate'
|
|
end
|
|
item
|
|
DatasetField = 'OrderAmount'
|
|
TableField = 'OrderAmount'
|
|
end>
|
|
end>
|
|
Name = 'OrdersByCustomer'
|
|
Description =
|
|
'Retrieves the list of orders for a specific customer entered by ' +
|
|
'the loged employee'
|
|
Fields = <
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
Description = 'The identifier of the customer that placed this order'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
LogChanges = False
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Customer ID'
|
|
ReadOnly = True
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'OrderDate'
|
|
DataType = datDateTime
|
|
Description = 'The order'#39's date'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Order Date'
|
|
ReadOnly = True
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'RequiredDate'
|
|
DataType = datDateTime
|
|
Description = 'The date by which the order has to be received'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Required Date'
|
|
ReadOnly = True
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ShippedDate'
|
|
DataType = datDateTime
|
|
Description = 'The date this order has been shipped'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Shipped Date'
|
|
ReadOnly = True
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
ServerCalculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'OrderAmount'
|
|
DataType = datCurrency
|
|
Description = 'The order'#39's amount'
|
|
BlobType = dabtUnknown
|
|
DecimalPrecision = 0
|
|
DecimalScale = 0
|
|
DisplayWidth = 0
|
|
DisplayLabel = 'Order Amount'
|
|
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 = <
|
|
item
|
|
Name = 'CustomersToOrders'
|
|
MasterDatasetName = 'Customers'
|
|
MasterFields = 'CustomerID'
|
|
DetailDatasetName = 'OrdersByCustomer'
|
|
DetailFields = 'CustomerID'
|
|
RelationshipType = rtForeignKey
|
|
end>
|
|
UpdateRules = <>
|
|
Version = 0
|
|
Left = 62
|
|
Top = 15
|
|
end
|
|
end
|