From 0c1b070a90ca513f08fad5c97b54467e26df2ddc Mon Sep 17 00:00:00 2001
From: SchreiberM <m.schreiber@digitaldata.works>
Date: Wed, 26 Apr 2023 15:18:11 +0200
Subject: [PATCH] Currency Wrapper windream

---
 Windream/Helpers.vb                 | 2 +-
 Windream/My Project/AssemblyInfo.vb | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Windream/Helpers.vb b/Windream/Helpers.vb
index 47b1d52a..d5e27ff4 100644
--- 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
diff --git a/Windream/My Project/AssemblyInfo.vb b/Windream/My Project/AssemblyInfo.vb
index 6910fbd0..df90c88c 100644
--- a/Windream/My Project/AssemblyInfo.vb	
+++ b/Windream/My 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: AssemblyFileVersion("1.9.2.0")>
+<Assembly: AssemblyVersion("1.9.3.0")>
+<Assembly: AssemblyFileVersion("1.9.3.0")>