AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS V2.7 .Net Logger etc

Browse Source
This commit is contained in:
SchreiberM
2021-06-15 16:28:55 +02:00
parent e2619eb3ad
commit e796ae91cb
109 changed files with 295499 additions and 8793 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organizer/ClassOfficeTemplate.vb
View File

@@ -41,7 +41,7 @@ Public Class ClassOfficeTemplate
' word.Visible = (True) 'Word sichtbar
For Each cc In doc.ContentControls
If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False)
LOGGER.Debug("Office-Pattern: " & cc.Tag, False)
For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows
If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.Tag.ToString.ToUpper Then
If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then
@@ -53,20 +53,20 @@ Public Class ClassOfficeTemplate
Dim Control_ID = fvalue '.Replace("@CONTROLID:", "")
Try
If CInt(Control_ID) Then
If LogErrorsOnly = False Then ClassLogger.Add(" >> Get Value for Control-ID: " & Control_ID.ToString, False)
LOGGER.Debug("Get Value for Control-ID: " & Control_ID.ToString, False)
Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID)
If Not IsNothing(value_akt) Then
cc.Range.Text = value_akt.ToString
Else
ClassLogger.Add("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!", True)
LOGGER.Warn("Für Control-ID '" & Control_ID & "' konnte kein Wert gelesen werden!")
End If
End If
Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message, True)
LOGGER.Warn("Unerwarteter Fehler beim Auslesen eines Control-Wertes in Pattern-For: " & ex.Message)
End Try
'End If
'Else
' If LogErrorsOnly = False Then ClassLogger.Add(" >> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
' LOGGER.Debug("Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False)
' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString
'End If
End If
@@ -108,7 +108,7 @@ Public Class ClassOfficeTemplate
Return False
End If
Catch ex As Exception
ClassLogger.Add("Error in Open_Word_Template: " & ex.Message, True)
LOGGER.Warn("Error in Open_Word_Template: " & ex.Message)
MsgBox("Unexpected Error in Open_Word_Template:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try