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

LookupControl Rückgabe Wert1','Wert2

Browse Source 
VektorBoolean Handling und String.empty zum leeren
This commit is contained in:
Developer01
2025-08-18 18:28:21 +02:00
parent cbdc5f900c
commit f21dbd3423
4 changed files with 96 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
app/TaskFlow/ClassPMWindream.vb
View File

@@ -159,7 +159,7 @@ Public Class ClassPMWindream
Case WMObjectVariableValueTypeInteger
LOGGER.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
If IsNumeric(value) = False Then
If value = "String.Empty" Then
If value = String.Empty Then
convertValue = vbEmpty
Else
frmValidator.idxerr_message = "Unerlaubte Eingabe in Numerisches Feld: " & value
@@ -340,6 +340,10 @@ Public Class ClassPMWindream
obj = False
Case "ja"
obj = True
Case "0"
obj = False
Case "1"
obj = True
End Select
myArray(i1) = CBool(obj)
i1 = i1 + 1
@@ -423,11 +427,15 @@ Public Class ClassPMWindream
End Select
LOGGER.Debug("Wert für Index vor Indexierung: [{0}]", myArray)
'Jetzt die Nachindexierung für Vektor-Felder
If myArray(0) = "String.Empty" Then
LOGGER.Debug("Now Indexing vektor-attribute with vbEmpty ...")
oDocument.SetVariableValue(aName, vbEmpty)
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
oDocument.SetVariableValue(aName, myArray)
End If