david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
461 lines
14 KiB
Plaintext
461 lines
14 KiB
Plaintext
object DARBService: TDARBService
|
|
OldCreateOrder = True
|
|
OnActivate = DataAbstractServiceActivate
|
|
OnDeactivate = DataAbstractServiceDeactivate
|
|
AcquireConnection = True
|
|
ServiceSchema = DASchema
|
|
ServiceDataStreamer = BinDataStreamer
|
|
ExportedDataTables = <>
|
|
Left = 345
|
|
Top = 207
|
|
Height = 300
|
|
Width = 300
|
|
object DASchema: TDASchema
|
|
ConnectionManager = ReportBuilder_ServerMainForm.DAConnectionManager1
|
|
Datasets = <
|
|
item
|
|
Params = <>
|
|
Statements = <
|
|
item
|
|
Connection = 'ADO'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'SELECT '#13#10' CustomerID, CompanyName, ContactName, ContactTitle,' +
|
|
' '#13#10' Address, City, Region, PostalCode, Country, Phone, '#13#10' ' +
|
|
'Fax'#13#10' FROM'#13#10' Customers'
|
|
StatementType = stSQL
|
|
ColumnMappings = <
|
|
item
|
|
DatasetField = 'CustomerID'
|
|
TableField = 'CustomerID'
|
|
end
|
|
item
|
|
DatasetField = 'CompanyName'
|
|
TableField = 'CompanyName'
|
|
end
|
|
item
|
|
DatasetField = 'ContactName'
|
|
TableField = 'ContactName'
|
|
end
|
|
item
|
|
DatasetField = 'ContactTitle'
|
|
TableField = 'ContactTitle'
|
|
end
|
|
item
|
|
DatasetField = 'Address'
|
|
TableField = 'Address'
|
|
end
|
|
item
|
|
DatasetField = 'City'
|
|
TableField = 'City'
|
|
end
|
|
item
|
|
DatasetField = 'Region'
|
|
TableField = 'Region'
|
|
end
|
|
item
|
|
DatasetField = 'PostalCode'
|
|
TableField = 'PostalCode'
|
|
end
|
|
item
|
|
DatasetField = 'Country'
|
|
TableField = 'Country'
|
|
end
|
|
item
|
|
DatasetField = 'Phone'
|
|
TableField = 'Phone'
|
|
end
|
|
item
|
|
DatasetField = 'Fax'
|
|
TableField = 'Fax'
|
|
end>
|
|
end>
|
|
Name = 'Customers'
|
|
Fields = <
|
|
item
|
|
Name = 'CustomerID'
|
|
DataType = datString
|
|
Size = 5
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = True
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'CompanyName'
|
|
DataType = datString
|
|
Size = 40
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ContactName'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'ContactTitle'
|
|
DataType = datString
|
|
Size = 30
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Address'
|
|
DataType = datString
|
|
Size = 60
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'City'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Region'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'PostalCode'
|
|
DataType = datString
|
|
Size = 10
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Country'
|
|
DataType = datString
|
|
Size = 15
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Phone'
|
|
DataType = datString
|
|
Size = 24
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end
|
|
item
|
|
Name = 'Fax'
|
|
DataType = datString
|
|
Size = 24
|
|
BlobType = dabtUnknown
|
|
DisplayWidth = 0
|
|
Alignment = taLeftJustify
|
|
InPrimaryKey = False
|
|
Calculated = False
|
|
Lookup = False
|
|
LookupCache = False
|
|
end>
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
|
end>
|
|
Commands = <
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'CustomerID'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CompanyName'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ContactName'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ContactTitle'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Address'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'City'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Region'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'PostalCode'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Country'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Phone'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Fax'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'ADO'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'INSERT'#13#10' INTO Customers'#13#10' (CustomerID, CompanyName, ContactN' +
|
|
'ame, ContactTitle, Address, City, Region, PostalCode, Country, P' +
|
|
'hone, Fax)'#13#10' VALUES'#13#10' (:CustomerID, :CompanyName, :ContactNa' +
|
|
'me, :ContactTitle, :Address, :City, :Region, :PostalCode, :Count' +
|
|
'ry, :Phone, :Fax)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Insert_Customers'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'OLD_CustomerID'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'ADO'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'DELETE '#13#10' FROM'#13#10' Customers'#13#10' WHERE'#13#10' (CustomerID = :OLD_' +
|
|
'CustomerID)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Delete_Customers'
|
|
end
|
|
item
|
|
Params = <
|
|
item
|
|
Name = 'CustomerID'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'CompanyName'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ContactName'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'ContactTitle'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Address'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'City'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Region'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'PostalCode'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Country'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Phone'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'Fax'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end
|
|
item
|
|
Name = 'OLD_CustomerID'
|
|
BlobType = dabtUnknown
|
|
ParamType = daptInput
|
|
end>
|
|
Statements = <
|
|
item
|
|
Connection = 'ADO'
|
|
TargetTable = 'Customers'
|
|
SQL =
|
|
'UPDATE Customers'#13#10' SET '#13#10' CustomerID = :CustomerID, '#13#10' Co' +
|
|
'mpanyName = :CompanyName, '#13#10' ContactName = :ContactName, '#13#10' ' +
|
|
' ContactTitle = :ContactTitle, '#13#10' Address = :Address, '#13#10' ' +
|
|
'City = :City, '#13#10' Region = :Region, '#13#10' PostalCode = :Postal' +
|
|
'Code, '#13#10' Country = :Country, '#13#10' Phone = :Phone, '#13#10' Fax ' +
|
|
'= :Fax'#13#10' WHERE'#13#10' (CustomerID = :OLD_CustomerID)'
|
|
StatementType = stSQL
|
|
ColumnMappings = <>
|
|
end>
|
|
Name = 'Update_Customers'
|
|
end>
|
|
RelationShips = <>
|
|
UpdateRules = <>
|
|
Left = 24
|
|
Top = 6
|
|
end
|
|
object ppReport: TppDBPipeline
|
|
DataSource = dsReport
|
|
UserName = 'Pipeline'
|
|
Left = 68
|
|
Top = 117
|
|
end
|
|
object dtReport: TDACDSDataTable
|
|
RemoteUpdatesOptions = []
|
|
Fields = <>
|
|
Params = <>
|
|
MasterMappingMode = mmDataRequest
|
|
StreamingOptions = [soDisableEventsWhileStreaming]
|
|
RemoteFetchEnabled = False
|
|
ReadOnly = False
|
|
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates]
|
|
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
|
IndexDefs = <>
|
|
Left = 22
|
|
Top = 69
|
|
end
|
|
object dsReport: TDADataSource
|
|
DataTable = dtReport
|
|
Left = 22
|
|
Top = 117
|
|
end
|
|
object Report: TppReport
|
|
AutoStop = False
|
|
DataPipeline = ppReport
|
|
PrinterSetup.BinName = 'Default'
|
|
PrinterSetup.DocumentName = 'Report'
|
|
PrinterSetup.PaperName = 'A4 210 x 297 mm'
|
|
PrinterSetup.PrinterName = 'Default'
|
|
PrinterSetup.mmMarginBottom = 6350
|
|
PrinterSetup.mmMarginLeft = 6350
|
|
PrinterSetup.mmMarginRight = 6350
|
|
PrinterSetup.mmMarginTop = 6350
|
|
PrinterSetup.mmPaperHeight = 297000
|
|
PrinterSetup.mmPaperWidth = 210000
|
|
PrinterSetup.PaperSize = 9
|
|
Units = utMillimeters
|
|
DeviceType = 'ArchiveFile'
|
|
EmailSettings.ReportFormat = 'PDF'
|
|
OutlineSettings.CreateNode = True
|
|
OutlineSettings.CreatePageNodes = True
|
|
OutlineSettings.Enabled = True
|
|
OutlineSettings.Visible = True
|
|
ShowCancelDialog = False
|
|
ShowPrintDialog = False
|
|
TextSearchSettings.DefaultString = '<FindText>'
|
|
TextSearchSettings.Enabled = True
|
|
Left = 68
|
|
Top = 70
|
|
Version = '10.02'
|
|
mmColumnWidth = 0
|
|
DataPipelineName = 'ppReport'
|
|
object ppHeaderBand1: TppHeaderBand
|
|
mmBottomOffset = 0
|
|
mmHeight = 13229
|
|
mmPrintPosition = 0
|
|
end
|
|
object ppDetailBand1: TppDetailBand
|
|
mmBottomOffset = 0
|
|
mmHeight = 13229
|
|
mmPrintPosition = 0
|
|
end
|
|
object ppFooterBand1: TppFooterBand
|
|
mmBottomOffset = 0
|
|
mmHeight = 13229
|
|
mmPrintPosition = 0
|
|
end
|
|
end
|
|
object BinDataStreamer: TDABinDataStreamer
|
|
Left = 85
|
|
Top = 5
|
|
end
|
|
end
|