From 69370afc13655744fae19d6e173af94bfbc30c57 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Sun, 22 Dec 2024 21:32:47 +0100
Subject: [PATCH] Curr, vers

---
 UID/My Project/AssemblyInfo.vb | 4 ++--
 cNCTSPartnerWorker/cTR_NCTS.vb | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb
index 4887147..2a71e95 100644
--- a/UID/My Project/AssemblyInfo.vb	
+++ b/UID/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.2.3.4")>
-<Assembly: AssemblyFileVersion("1.2.3.4")>
+<Assembly: AssemblyVersion("1.2.3.5")>
+<Assembly: AssemblyFileVersion("1.2.3.5")>
diff --git a/cNCTSPartnerWorker/cTR_NCTS.vb b/cNCTSPartnerWorker/cTR_NCTS.vb
index 2dad19c..0773bf0 100644
--- a/cNCTSPartnerWorker/cTR_NCTS.vb
+++ b/cNCTSPartnerWorker/cTR_NCTS.vb
@@ -118,7 +118,7 @@ Public Class cTR_NCTS
                             '--> EUR
                             If BRG.nctsSA_AbgabenBetragFremdWaehrung IsNot Nothing Then
                                 If If(BRG.nctsSA_Waerung, "") <> "EUR" Then
-                                    Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE(BRG.nctsSA_AbgabenBetragFremdWaehrung, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit)
+                                    Dim betragEUR = VERAG_PROG_ALLGEMEIN.cEZB_Waehrungskurse.EXCHANGE_CURTOEUR(BRG.nctsSA_AbgabenBetragFremdWaehrung, BRG.nctsSA_Waerung, NCTS.ncts_Trans_DatumZeit)
                                     BRG.nctsSA_AbgabenBetrag = If(betragEUR > 0, betragEUR, BRG.nctsSA_AbgabenBetragFremdWaehrung)
                                 Else
                                     BRG.nctsSA_AbgabenBetrag = BRG.nctsSA_AbgabenBetragFremdWaehrung