Currency Wrapper windream

MS
2023-04-26 15:18:11 +02:00 · 2023-04-25 17:14:41 +02:00
3 changed files with 5 additions and 5 deletions
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
-<Assembly: AssemblyVersion("2.3.1.0")>
+<Assembly: AssemblyVersion("2.3.2.0")>
-<Assembly: AssemblyFileVersion("2.3.1.0")>
+<Assembly: AssemblyFileVersion("2.3.2.0")>
--- a/Windream/Helpers.vb
+++ b/Windream/Helpers.vb
@@ -104,7 +104,7 @@ Public Class Helpers
            Case INDEX_TYPE_CURRENCY
                'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
                Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(pValue))
-                Return pValue
+                Return aValueWrapper
            Case Else
                Return pValue
        End Select
--- a/Project/AssemblyInfo.vb
+++ b/Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
-<Assembly: AssemblyVersion("1.9.2.0")>
+<Assembly: AssemblyVersion("1.9.3.0")>
-<Assembly: AssemblyFileVersion("1.9.2.0")>
+<Assembly: AssemblyFileVersion("1.9.3.0")>
Author	SHA1	Message	Date
SchreiberM	0c1b070a90	Currency Wrapper windream	2023-04-26 15:18:11 +02:00
SchreiberM	da9dd6dcd7	MS	2023-04-25 17:14:41 +02:00