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

Merge branch 'master' of http://dd-vmp07-com04:3000/AppStd/Monorepo

Browse Source
This commit is contained in:
Jonathan Jenne 2021-05-07 13:26:22 +02:00
commit 07b2bcaeaf
3 changed files with 30 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Modules.Windream/Helpers.vb
View File

@ -16,37 +16,50 @@ Public Class Helpers
}
Friend Shared Function ConvertVectorType(vType As Object, value As String)
Dim myArray
ReDim myArray(0)
Select Case vType
Case INDEX_TYPE_HASH ' 36865
'Umwandeln in String
Return value
myArray(0) = CStr(value)
Return myArray
Case INDEX_TYPE_VECTOR_STRING '4097
'Umwandeln in String
Return value
myArray(0) = CStr(value)
Return myArray
Case INDEX_TYPE_VECTOR_INTEGER '4098
'Umwandeln in Integer
value = value.Replace(" ", "")
Return CInt(value)
myArray(0) = CInt(value.Replace(" ", ""))
Return myArray
Case INDEX_TYPE_VECTOR_FLOAT '4099
value = value.
Replace(" ", "").
Replace(".", ",")
'Umwandeln in Double
Return CDbl(value)
myArray(0) = CDbl(value)
Return myArray
Case INDEX_TYPE_VECTOR_BOOLEAN '4100
'Umwandeln in Boolean
Return CBool(value)
myArray(0) = CBool(value)
Return myArray
Case INDEX_TYPE_VECTOR_DATE '4101
'Umwandeln in Date
Return CDate(value)
myArray(0) = CDate(value)
Return myArray
Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107
Return Convert.ToInt64(value)
myArray(0) = Convert.ToInt64(value)
Return myArray
Case INDEX_TYPE_VECTOR_DATE_TIME '4103
'Umwandeln in Datum Uhrzeit
Return value
Case 8204
'Umwandeln in Integer
myArray(0) = CInt(value.Replace(" ", ""))
Return myArray
Case Else
'Umwandeln in String
Return value
myArray(0) = CStr(value)
Return myArray
End Select
End Function

4
Modules.Windream/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.7")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
<Assembly: AssemblyVersion("1.1.0.0")>
<Assembly: AssemblyFileVersion("1.1.0.0")>

7
Modules.Windream/Windream.vb
View File

@ -1142,7 +1142,12 @@ Public Class Windream
Try
Dim oType As Integer = GetIndexType(IndexName)
Dim oConvertedValue As Object = Helpers.ConvertIndexValue(oType, Value)
Dim oConvertedValue As Object
If oType < 3000 Then
oConvertedValue = Helpers.ConvertIndexValue(oType, Value)
Else
oConvertedValue = Helpers.ConvertVectorType(oType, Value)
End If
oWMObject.SetVariableValue(IndexName, oConvertedValue)
oWMObject.Save()