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