Indexe leeren wie Vektor, ValidatorSearch und Instanzierung, ShowDocument abfangen
This commit is contained in:
Developer01
@@ -152,14 +152,20 @@ Public Class ClassPMWindream
|
||||
'Den Typ des Index-Feldes auslesen
|
||||
'MsgBox(value.GetType.ToString)
|
||||
Select Case vType
|
||||
'Case WMObjectVariableValueTypeUndefined
|
||||
Case WMObjectVariableValueTypeString
|
||||
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString")
|
||||
convertValue = CStr(value)
|
||||
If value = "DeleteWMAttributeValue" Then
|
||||
LOGGER.Debug("Indexing simpleAttribute with String.Empty")
|
||||
convertValue = CStr(String.Empty)
|
||||
Else
|
||||
convertValue = CStr(value)
|
||||
End If
|
||||
|
||||
Case WMObjectVariableValueTypeInteger
|
||||
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
|
||||
If IsNumeric(value) = False Then
|
||||
If value = String.Empty Then
|
||||
LOGGER.Debug("Indexing WMObjectVariableValueTypeInteger with vbEmpty")
|
||||
convertValue = vbEmpty
|
||||
Else
|
||||
frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
|
||||
@@ -289,17 +295,8 @@ Public Class ClassPMWindream
|
||||
LOGGER.Info(" >> Unexpected Error in Logging SetVariableValue for " & aName & ": " & ex.Message, False)
|
||||
End Try
|
||||
|
||||
'Dim ArrValues()
|
||||
'ReDim ArrValues(0)
|
||||
'ArrValues(0) = convertValue
|
||||
'Dim ArrName()
|
||||
'ReDim ArrName(0)
|
||||
'ArrName(0) = "Tournr"
|
||||
'oDocument.SetValues(ArrName, ArrValues)
|
||||
'If convertValue = String.Empty Or convertValue = vbEmpty Then
|
||||
' LOGGER.Debug("Now Indexing simpleAttribute with vbEmpty ...")
|
||||
' oDocument.SetVariableValue(aName, String.Empty)
|
||||
'Else
|
||||
|
||||
|
||||
If _int = True Then
|
||||
oDocument.SetVariableValue(aName, CInt(convertValue))
|
||||
ElseIf _date = True Then
|
||||
@@ -318,128 +315,135 @@ Public Class ClassPMWindream
|
||||
Else
|
||||
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
|
||||
LOGGER.Debug("VEKTORFELD: Vorbereiten des Arrays", False)
|
||||
Dim myArray()
|
||||
'Dim anz As Integer = 0
|
||||
'For Each obj In aValues
|
||||
'ReDim Preserve myArray(anz)
|
||||
Select Case vType
|
||||
Case 4100
|
||||
'Vektortyp Boolean
|
||||
'Umwandeln in Boolean
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
Select Case obj.ToString.ToLower
|
||||
Case "falsch"
|
||||
obj = False
|
||||
Case "wahr"
|
||||
obj = True
|
||||
Case "nein"
|
||||
obj = False
|
||||
Case "ja"
|
||||
obj = True
|
||||
Case "0"
|
||||
obj = False
|
||||
Case "1"
|
||||
obj = True
|
||||
End Select
|
||||
myArray(i1) = CBool(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4101
|
||||
'Vektortyp Date
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CDate(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4104
|
||||
'Vektortyp Currency
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(obj))
|
||||
myArray(i1) = aValueWrapper
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4097
|
||||
'Vektortyp ALPHANUMERISCH
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CStr(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
|
||||
Case 4098
|
||||
'Umwandeln in Integer
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CInt(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4099
|
||||
'Umwandeln in Double
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
Dim Str As String = obj
|
||||
myArray(i1) = CDbl(Str.Replace(".", ","))
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
|
||||
Case 36865
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CStr(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case Else
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CStr(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
End Select
|
||||
|
||||
LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray)
|
||||
'Jetzt die Nachindexierung für Vektor-Felder
|
||||
If vType = 4097 Or vType = 36865 Then
|
||||
If myArray(0) = String.Empty Then
|
||||
'Variante um Vektorfeld zu leeren
|
||||
LOGGER.Debug("Now Indexing vektor-attribute with vbEmpty ...")
|
||||
oDocument.SetVariableValue(aName, vbEmpty)
|
||||
Else
|
||||
oDocument.SetVariableValue(aName, myArray)
|
||||
End If
|
||||
Else
|
||||
If aValues(0).ToString.Contains("DeleteWMAttributeValue") Then
|
||||
'Variante um Vektorfeld zu leeren
|
||||
Dim myArray()
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
myArray(0) = String.Empty
|
||||
LOGGER.Debug("Now Indexing vektor-attribute with String.Empty ...")
|
||||
oDocument.SetVariableValue(aName, myArray)
|
||||
Else
|
||||
Dim myArray()
|
||||
Select Case vType
|
||||
Case 4100
|
||||
'Vektortyp Boolean
|
||||
'Umwandeln in Boolean
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
Select Case obj.ToString.ToLower
|
||||
Case "falsch"
|
||||
obj = False
|
||||
Case "wahr"
|
||||
obj = True
|
||||
Case "nein"
|
||||
obj = False
|
||||
Case "ja"
|
||||
obj = True
|
||||
Case "0"
|
||||
obj = False
|
||||
Case "1"
|
||||
obj = True
|
||||
End Select
|
||||
myArray(i1) = CBool(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4101
|
||||
'Vektortyp Date
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CDate(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4104
|
||||
'Vektortyp Currency
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(obj))
|
||||
myArray(i1) = aValueWrapper
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4097
|
||||
'Vektortyp ALPHANUMERISCH
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CStr(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
|
||||
Case 4098
|
||||
'Umwandeln in Integer
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CInt(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case 4099
|
||||
'Umwandeln in Double
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
Dim Str As String = obj
|
||||
myArray(i1) = CDbl(Str.Replace(".", ","))
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
|
||||
Case 36865
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CStr(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
Case Else
|
||||
'Umwandeln in String
|
||||
'Die Größe des Arrays festlegen
|
||||
ReDim myArray(aValues.Length - 1)
|
||||
Dim i1 As Integer = 0
|
||||
'Das Array durchlaufen und Werte für den Index in Array schreiben
|
||||
For Each obj In aValues
|
||||
myArray(i1) = CStr(obj)
|
||||
i1 = i1 + 1
|
||||
Next
|
||||
End Select
|
||||
'Jetzt die Nachindexierung für Vektor-Felder
|
||||
LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray)
|
||||
|
||||
'If vType = 4097 Or vType = 36865 Then
|
||||
' If myArray(0) = "DeleteWMAttributeValue" Then
|
||||
' 'Variante um Vektorfeld zu leeren
|
||||
' LOGGER.Debug("Now Indexing vektor-attribute with vbEmpty ...")
|
||||
' oDocument.SetVariableValue(aName, vbEmpty)
|
||||
' Else
|
||||
' oDocument.SetVariableValue(aName, myArray)
|
||||
' End If
|
||||
'Else
|
||||
oDocument.SetVariableValue(aName, myArray)
|
||||
'End If
|
||||
End If
|
||||
|
||||
|
||||
LOGGER.Debug("'SetVariableValue' für VEKTOR erfolgreich", False)
|
||||
End If
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user