version

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.5.5")>
-<Assembly: AssemblyFileVersion("4.2.5.5")>
+<Assembly: AssemblyVersion("4.2.5.6")>
+<Assembly: AssemblyFileVersion("4.2.5.6")>

Aviso/usrCntlSND_ATBGestellung.vb

@@ -33,6 +33,7 @@ Public Class usrCntlSND_ATBGestellung
 
         Me.Refresh()
         Me.Cursor = Cursors.WaitCursor
+        Dim WarenwertEUR As Double = 0
 
         Dim f As frmSendungsdetailsNEU = Me.FindForm
         If f.SAVE_ME() Then
@@ -45,6 +46,13 @@ Public Class usrCntlSND_ATBGestellung
 
             If (SND.tblSnd_WarenwertWaehrung) Is Nothing Then MsgBox("Währungseinheit angeben!") : Exit Sub
 
+            If SND.tblSnd_WarenwertWaehrung <> "EUR" Then
+                Dim kurs As New cEZB_Waehrungskurse(SND.tblSnd_WarenwertWaehrung)
+                WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
+            Else
+                WarenwertEUR = SND.tblSnd_Warenwert
+            End If
+
             If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
 
             If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
@@ -60,6 +68,12 @@ Public Class usrCntlSND_ATBGestellung
 
             End If
 
+            If WarenwertEUR = 0 Then
+                MsgBox("Warenwert in EUR ist mit 0 angegeben!")
+                Exit Sub
+
+            End If
+
             Dim Standort As String = ""
 
             Select Case SND.FilialenNr
@@ -103,13 +117,13 @@ Public Class usrCntlSND_ATBGestellung
 
             Dim saldo = CDbl(GesSichRef.CalcSaldo())
 
-            Dim sicherheitsbertrag As Double = SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100)
+            Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.gsr_zollsatz / 100)
 
             If sicherheitsbertrag > saldo Then
-                If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & SND.tblSnd_Warenwert & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
+                If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
             End If
 
-            Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, gsnr_proLKW_global)
+            Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global)
 
             frMZA.Show()