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

jj: fix IsNotEmpty

Browse Source
This commit is contained in:
Jonathan Jenne 2018-09-20 14:25:37 +02:00
parent 83e34d98fb
commit 932bf2af7c
1 changed files with 30 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
app/DD_PM_WINDREAM/ClassPMWindream.vb
View File

@ -40,24 +40,22 @@ Public Class ClassPMWindream
MyBase.New() MyBase.New()
End Sub End Sub
Private Function IsNotEmpty(ByVal aValue As Object) Private Function IsNotEmpty(ByVal aValue As Object)
If aValue IsNot Nothing Then If aValue IsNot Nothing Then
Dim itsType As Type = aValue.GetType Return True
If itsType Is GetType(String) Then
' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können 'If TypeOf aValue Is String Then
'If Not aValue = "" Then ' ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
' Return True ' 'If Not aValue = "" Then
'End If ' ' Return True
' 'End If
Return False ' Return False
Else 'Else
Return True ' Return True
End If 'End If
Else Else
Return False Return False
End If End If
End Function End Function
Private Function return_type(ByVal _wert As Object) Private Function return_type(ByVal _wert As Object)
Return _wert.GetType Return _wert.GetType
@ -134,7 +132,8 @@ Public Class ClassPMWindream
' den Variablentyp (String, Integer, ...) auslesen ' den Variablentyp (String, Integer, ...) auslesen
vType = oAttribute.getVariableValue("dwAttrType") vType = oAttribute.getVariableValue("dwAttrType")
' wenn in aValues an Position i ein Wert steht ' wenn in aValues an Position i ein Wert steht
If Me.IsNotEmpty(aValues(i)) Then
If IsNotEmpty(aValues(i)) Then
Dim _int As Boolean = False Dim _int As Boolean = False
Dim _date As Boolean = False Dim _date As Boolean = False
Dim _dbl As Boolean = False Dim _dbl As Boolean = False
@ -440,27 +439,25 @@ Public Class ClassPMWindream
Dim vType = oAttribute.getVariableValue("dwAttrType") Dim vType = oAttribute.getVariableValue("dwAttrType")
'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString) 'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString)
' wenn in aValues an Position i ein Wert steht ' wenn in aValues an Position i ein Wert steht
If Me.IsNotEmpty(Indexname) Then 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") Dim value = _state
Dim value = _state Dim convertValue
Dim convertValue 'Den Typ des Index-Feldes auslesen
'Den Typ des Index-Feldes auslesen If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString)
If LogErrorsOnly = False Then ClassLogger.Add(">> Typ des windream-Indexes: " & vType.ToString) Select Case (vType)
Select Case (vType) Case WMObjectVariableValueTypeBoolean
Case WMObjectVariableValueTypeBoolean convertValue = CBool(value)
convertValue = CBool(value) Case Else
Case Else ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
ClassLogger.Add(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:") End Select
End Select '############################################################################################
'############################################################################################ '####################### Der eigentliche Indexierungsvorgang ################################
'####################### Der eigentliche Indexierungsvorgang ################################
oDocument.SetVariableValue(Indexname, convertValue) oDocument.SetVariableValue(Indexname, convertValue)
If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt") If LogErrorsOnly = False Then ClassLogger.Add(">> Index '" & Indexname & "' wurde gesetzt")
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet") ClassLogger.Add(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
End If
Else Else
ClassLogger.Add(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!") ClassLogger.Add(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
End If End If