From 525148be30b0c33efac45d954579b96abf867278 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Mar 2026 13:33:28 +0200 Subject: [PATCH] =?UTF-8?q?Verwahrungen=20->=20Fremdw=C3=A4hrungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- initATLASAufschubkonten/cWorker_Verwahrung.vb | 20 ++++++++++++++----- 1 file changed, 15 insertions(+), 5 deletions(-) diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 69ec20c..31cd38c 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -892,7 +892,8 @@ Anzeige: Dim saldo As Double = GesSichRef.CalcSaldo() - Dim Warenwert As Double = 0 + Dim WarenwertEUR As Double = 0 + Dim Warenwert_temp As Double = 0 Dim Sicherheitsbetrag As Double = 0 'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten! @@ -913,10 +914,19 @@ Anzeige: If rowsVorp.Length > 0 Then Dim row = rowsVorp(0) - Warenwert = CDbl(row("tblSnd_Warenwert")) - Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) + Warenwert_temp = CDbl(row("tblSnd_Warenwert")) + Dim Waehrung = row("tblSnd_WarenwertWaehrung") + + If Waehrung <> "EUR" Then + Dim kurs As New cEZB_Waehrungskurse(Waehrung) + WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(Warenwert_temp, Waehrung, Today()), 2) + Else + WarenwertEUR = Warenwert_temp + + End If + Sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2) + End If End If - End If Dim anzahlPackstuecke As Integer = -1 @@ -978,7 +988,7 @@ Anzeige: If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett! .gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED) - .gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0) + .gsp_warenwert = IIf(isCompletelyFinished, WarenwertEUR, 0) .gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0) If isCompletelyFinished Then If Not isNCTS Then