AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix stupid errors

Browse Source
This commit is contained in:
Jonathan Jenne 2019-02-26 16:31:16 +01:00
parent 118f334274
commit 35833e8647
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/DD_PM_WINDREAM/ClassWindream_allgemein.vb
View File

@ -230,10 +230,10 @@ Public Class ClassWindream_allgemein
Public Function NormalizePath(Path As String) Public Function NormalizePath(Path As String)
Dim oNormalizedPath As String Dim oNormalizedPath As String
If Path.StartsWith("\") Then If Path.StartsWith("\\windream") Then
oNormalizedPath = Path.Substring(1)
ElseIf Path.StartsWith("\\windream") Then
oNormalizedPath = Path.Replace("\\windream\objects\", "") oNormalizedPath = Path.Replace("\\windream\objects\", "")
ElseIf Path.StartsWith("\") Then
oNormalizedPath = Path.Substring(1)
Else Else
Return Path Return Path
End If End If

8
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -2119,6 +2119,7 @@ Public Class frmValidator
End If End If
Case "System.Windows.Forms.CheckBox" Case "System.Windows.Forms.CheckBox"
If LogErrorsOnly = False Then ClassLogger.Add(" >> Loading checkbox.", False)
oControlType = "CheckBox" oControlType = "CheckBox"
If oWMIndexName = "" Then If oWMIndexName = "" Then
MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical) MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
@ -2144,18 +2145,20 @@ Public Class frmValidator
End If End If
If LogErrorsOnly = False Then ClassLogger.Add(" >> Loading Index value from Windream.", False)
Dim wertWD Dim wertWD
If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then If oWMIndexName.StartsWith("[%VKT") And PROFIL_VEKTORINDEX <> "" Then
wertWD = ReturnVektor_IndexValue(oWMIndexName) wertWD = ReturnVektor_IndexValue(oWMIndexName)
Else Else
wertWD = aktivesDokument.GetVariableValue(oWMIndexName) wertWD = aktivesDokument.GetVariableValue(oWMIndexName)
End If End If
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString If LogErrorsOnly = False Then ClassLogger.Add(" >> Index value loaded: " & wertWD, False)
If wertWD Is Nothing Then If wertWD Is Nothing Then
ClassLogger.Add(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue", False) ClassLogger.Add(">> Zurückgegebener Wert des Wertes für Checkbox mit Indexname '" & oIndexName & "' ist nothing. Check defaultvalue", False)
chk.Checked = False chk.Checked = False
Else Else
_CURRENT_INDEX_ARRAY(oCount, 1) = wertWD.ToString
If wertWD.ToString = "" Then If wertWD.ToString = "" Then
ClassLogger.Add(">> Versuch, default Value zu laden", False) ClassLogger.Add(">> Versuch, default Value zu laden", False)
If oDefaultValue <> String.Empty Then If oDefaultValue <> String.Empty Then
@ -2293,6 +2296,7 @@ Public Class frmValidator
ClassLogger.Add(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True) ClassLogger.Add(">> Unvorhergesehener Fehler bei FillIndexValues: " & ex.Message, True)
ClassLogger.Add(">> Controltype: " & oControlType, False) ClassLogger.Add(">> Controltype: " & oControlType, False)
ClassLogger.Add(">> Indexname windream: " & oIndexName, False) ClassLogger.Add(">> Indexname windream: " & oIndexName, False)
ClassLogger.Add(">> Stacktrace: " & ex.StackTrace, False)
End Try End Try