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: ' - - + + 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