180 lines
5.1 KiB
Plaintext
180 lines
5.1 KiB
Plaintext
|
object EDI_Log: TEDI_Log
|
||
|
|
OldCreateOrder = True
|
||
|
|
SessionManager = dmServer.SessionManager
|
||
|
|
AcquireConnection = True
|
||
|
|
ServiceSchema = schEDILog
|
||
|
|
ServiceAdapter = DABINAdapter
|
||
|
|
OnAfterProcessTransactionAction = pptaNone
|
||
|
|
ExportedDataTables = <>
|
||
|
|
CacheElements = <>
|
||
|
|
Options = [rsoProcessDeltasWithoutUpdateRules]
|
||
|
|
Height = 297
|
||
|
|
Width = 298
|
||
|
|
object schEDILog: TDASchema
|
||
|
|
ConnectionManager = dmServer.ConnectionManager
|
||
|
|
DataDictionary = dmServer.DataDictionary
|
||
|
|
Diagrams = dmServer.DADiagrams
|
||
|
|
Datasets = <
|
||
|
|
item
|
||
|
|
Params = <>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'GFT_VARELA'
|
||
|
|
TargetTable = 'RDX_LOG_CARGA'
|
||
|
|
SQL =
|
||
|
|
'SELECT '#10' ID, REPORT, FECHA, OK, ERROR_MSG'#10' FROM'#10' RDX_LOG_' +
|
||
|
|
'CARGA'
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <
|
||
|
|
item
|
||
|
|
DatasetField = 'ID'
|
||
|
|
TableField = 'ID'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'FECHA'
|
||
|
|
TableField = 'FECHA'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'OK'
|
||
|
|
TableField = 'OK'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'ERROR_MSG'
|
||
|
|
TableField = 'ERROR_MSG'
|
||
|
|
end
|
||
|
|
item
|
||
|
|
DatasetField = 'REPORT'
|
||
|
|
TableField = 'REPORT'
|
||
|
|
end>
|
||
|
|
end>
|
||
|
|
Name = 'EDILog'
|
||
|
|
Fields = <
|
||
|
|
item
|
||
|
|
Name = 'ID'
|
||
|
|
DataType = datInteger
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = True
|
||
|
|
Calculated = False
|
||
|
|
ServerCalculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'REPORT'
|
||
|
|
DataType = datString
|
||
|
|
Size = 10
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
ServerCalculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'FECHA'
|
||
|
|
DataType = datDateTime
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
ServerCalculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'OK'
|
||
|
|
DataType = datBoolean
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Required = True
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
ServerCalculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ERROR_MSG'
|
||
|
|
DataType = datString
|
||
|
|
Size = 255
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
DisplayWidth = 0
|
||
|
|
Alignment = taLeftJustify
|
||
|
|
InPrimaryKey = False
|
||
|
|
Calculated = False
|
||
|
|
ServerCalculated = False
|
||
|
|
Lookup = False
|
||
|
|
LookupCache = False
|
||
|
|
end>
|
||
|
|
BusinessRulesClient.ScriptLanguage = rslPascalScript
|
||
|
|
BusinessRulesServer.ScriptLanguage = rslPascalScript
|
||
|
|
end>
|
||
|
|
JoinDataTables = <>
|
||
|
|
UnionDataTables = <>
|
||
|
|
Commands = <
|
||
|
|
item
|
||
|
|
Params = <
|
||
|
|
item
|
||
|
|
Name = 'FECHA'
|
||
|
|
DataType = datDateTime
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'REPORT'
|
||
|
|
DataType = datString
|
||
|
|
Size = 10
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'OK'
|
||
|
|
DataType = datBoolean
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end
|
||
|
|
item
|
||
|
|
Name = 'ERROR_MSG'
|
||
|
|
DataType = datString
|
||
|
|
Size = 255
|
||
|
|
BlobType = dabtUnknown
|
||
|
|
Value = ''
|
||
|
|
ParamType = daptInput
|
||
|
|
end>
|
||
|
|
Statements = <
|
||
|
|
item
|
||
|
|
Connection = 'GFT_VARELA'
|
||
|
|
TargetTable = 'RDX_LOG_CARGA'
|
||
|
|
SQL =
|
||
|
|
'INSERT'#10' INTO RDX_LOG_CARGA'#10' (FECHA, REPORT, OK, ERROR_MSG)'#10' ' +
|
||
|
|
' VALUES'#10' (:FECHA, :REPORT, :OK, :ERROR_MSG)'
|
||
|
|
StatementType = stSQL
|
||
|
|
ColumnMappings = <>
|
||
|
|
end>
|
||
|
|
Name = 'Insert_EDILog'
|
||
|
|
end>
|
||
|
|
RelationShips = <>
|
||
|
|
UpdateRules = <>
|
||
|
|
Version = 0
|
||
|
|
Left = 48
|
||
|
|
Top = 16
|
||
|
|
end
|
||
|
|
object DABINAdapter: TDABINAdapter
|
||
|
|
BufferSize = 262144
|
||
|
|
IsCompatibleV4 = True
|
||
|
|
Left = 48
|
||
|
|
Top = 80
|
||
|
|
end
|
||
|
|
end
|