Flat File Source Patterns - SQL Server Integration Services Design Patterns - page 208

Dim sLastUpdateDateTime As String= _
Strings.Format(Dts.Variables("LastUpdateDateTime").Value,
sDateFormat) _
'"yyyy/MM/dd hh:mm:ss.fff")
Dim sFooterRow As String
Dim s As Integer = 0
' 3: log values...
sMsg = "Package Name.Task Name: " & sSubComponent
& ControlChars.CrLf & _
ControlChars.CrLf & _
"Extract File Path: " & sExtractFilePath &
ControlChars.CrLf & _
ControlChars.CrLf & _
"Record Count: " & iRecordCount.ToString &
ControlChars.CrLf & _
ControlChars.CrLf & _
"Amount Sum: " & sAmountSum &
ControlChars.CrLf & ControlChars.CrLf & _
"Date Format: " & sDateFormat &
ControlChars.CrLf & ControlChars.CrLf & _
"Delimiter: " & sDelimiter &
ControlChars.CrLf & ControlChars.CrLf & _
"LastUpdateDateTime: " & sLastUpdateDateTime
& ControlChars.CrLf & _
ControlChars.CrLf & _
"Debug: " & bDebug.ToString
Dts.Events.FireInformation(0, sSubComponent,
sMsg, "", 0, True)
If bDebug Then MsgBox(sMsg)
' 4: create footer row...
sFooterRow = iRecordCount.ToString & sDelimiter &
sAmountSum & sDelimiter & _
sLastUpdateDateTime
' 5: log...
sMsg = "Footer Row: " & sFooterRow
Dts.Events.FireInformation(0, sSubComponent,