fix dyverarbeitung

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

initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb

@@ -1550,13 +1550,12 @@ Public Class frmDYNachrichtenVerarbeitung
                             End If
 
 
-                            If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then
+                            'If ge.Quittungsobjekt.QuittungFach IsNot Nothing Then
 
+                            '    If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then
 
-                                If ge.Quittungsobjekt.QuittungFach(0).BezugsObjektFach IsNot Nothing Then
-
-                                End If
-                            End If
+                            '    End If
+                            'End If
 
 
                             '=====ATEZ BEREITSTELLUNG==========
@@ -7997,7 +7996,7 @@ Public Class frmDYNachrichtenVerarbeitung
 
                         'Wenn gefunden
                         If (art = "F" AndAlso If(sendToID, "") <> "") OrElse sendToID >= 0 Then
-                            Dim statusAVISO = SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
+                            Dim statusAVISO As Integer = statusAVISO = CInt(SQL.DLookup("Status", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO", -1))
                             ' Dim GrenzstelleAVISO = SQL.DLookup("Grenzstelle", "Aviso", "AvisoID='" & DY_TMP.dy_AvisoId & "'", "AVISO")
                             ' If GrenzstelleAVISO = "???" Then 'lt. ML 27.03.-> für alle freigeben
                             Select Case statusAVISO