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) Friend Shared Function ConvertVectorType(vType As Object, value As String)
Dim myArray
ReDim myArray(0)
Select Case vType Select Case vType
Case INDEX_TYPE_HASH ' 36865 Case INDEX_TYPE_HASH ' 36865
'Umwandeln in String 'Umwandeln in String
Return value myArray(0) = CStr(value)
Return myArray
Case INDEX_TYPE_VECTOR_STRING '4097 Case INDEX_TYPE_VECTOR_STRING '4097
'Umwandeln in String 'Umwandeln in String
Return value myArray(0) = CStr(value)
Return myArray
Case INDEX_TYPE_VECTOR_INTEGER '4098 Case INDEX_TYPE_VECTOR_INTEGER '4098
'Umwandeln in Integer 'Umwandeln in Integer
value = value.Replace(" ", "") myArray(0) = CInt(value.Replace(" ", ""))
Return CInt(value) Return myArray
Case INDEX_TYPE_VECTOR_FLOAT '4099 Case INDEX_TYPE_VECTOR_FLOAT '4099
value = value. value = value.
Replace(" ", ""). Replace(" ", "").
Replace(".", ",") Replace(".", ",")
'Umwandeln in Double 'Umwandeln in Double
Return CDbl(value) myArray(0) = CDbl(value)
Return myArray
Case INDEX_TYPE_VECTOR_BOOLEAN '4100 Case INDEX_TYPE_VECTOR_BOOLEAN '4100
'Umwandeln in Boolean 'Umwandeln in Boolean
Return CBool(value) myArray(0) = CBool(value)
Return myArray
Case INDEX_TYPE_VECTOR_DATE '4101 Case INDEX_TYPE_VECTOR_DATE '4101
'Umwandeln in Date 'Umwandeln in Date
Return CDate(value) myArray(0) = CDate(value)
Return myArray
Case INDEX_TYPE_VECTOR_INTEGER_64BIT '4107 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 Case INDEX_TYPE_VECTOR_DATE_TIME '4103
'Umwandeln in Datum Uhrzeit 'Umwandeln in Datum Uhrzeit
Return value Return value
Case 8204
'Umwandeln in Integer
myArray(0) = CInt(value.Replace(" ", ""))
Return myArray
Case Else Case Else
'Umwandeln in String 'Umwandeln in String
Return value myArray(0) = CStr(value)
Return myArray
End Select End Select
End Function End Function

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

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

7
Modules.Windream/Windream.vb
View File

@ -1142,7 +1142,12 @@ Public Class Windream
Try Try
Dim oType As Integer = GetIndexType(IndexName) 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.SetVariableValue(IndexName, oConvertedValue)
oWMObject.Save() oWMObject.Save()