QR Verwahrunf Fahrer

Aviso/frmAddAktenvermerkShort.vb

@@ -1,5 +1,6 @@
 
 Imports System.ComponentModel
+Imports GrapeCity.DataVisualization.TypeScript
 Imports VERAG_PROG_ALLGEMEIN
 
 
@@ -74,21 +75,36 @@ Public Class frmAddAktenvermerkShort
         Dim at = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=19", "AVISO") -
                     SQL.getValueTxtBySql("SELECT COUNT(*) FROM [Vermerke]  where avisoid=" & AvisoID & " and VermerkeCode=20", "AVISO")
 
-        If at > 0 Then
-            btnZollATEingereicht.BackColor = Color.Green
-            btnZollATEingereicht.ForeColor = Color.White
-            btnZollATEingereicht.Tag = "SWITCH"
-            btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
-            btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
+
+
+        Dim Warenort = False
+        Dim Warenort_Land = ""
+        If myAviso.Grenzstelle.Replace("???", "") <> "" Then
+            Dim gst = New VERAG_PROG_ALLGEMEIN.cGrenzstelle(myAviso.Grenzstelle)
+            Warenort = gst.grz_Warenort
+            If If(gst.grz_ZollamtDST, "") <> "" AndAlso gst.grz_ZollamtDST.ToString.Length >= 2 Then
+                Warenort_Land = gst.grz_ZollamtDST.ToString.Substring(0, 2)
+            End If
         End If
-        If de > 0 Then
-            btnZollDEEingereicht.BackColor = Color.Green
-            btnZollDEEingereicht.ForeColor = Color.White
-            btnZollDEEingereicht.Tag = "SWITCH"
-            btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
-            btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
-        End If
-        If dedigital > 0 Then
+
+
+        If at > 0 Or (Warenort AndAlso Warenort_Land = "AT") Then
+                btnZollATEingereicht.BackColor = Color.Green
+                btnZollATEingereicht.ForeColor = Color.White
+                btnZollATEingereicht.Tag = "SWITCH"
+                btnZollATEingereicht.FlatAppearance.BorderColor = Color.Black
+                btnZollATEingereicht.Text = "Zoll AT " & vbNewLine & "fertig"
+            End If
+            If de > 0 Or (Warenort AndAlso Warenort_Land = "DE") Then
+                btnZollDEEingereicht.BackColor = Color.Green
+                btnZollDEEingereicht.ForeColor = Color.White
+                btnZollDEEingereicht.Tag = "SWITCH"
+                btnZollDEEingereicht.FlatAppearance.BorderColor = Color.Black
+                btnZollDEEingereicht.Text = "Zoll DE " & vbNewLine & "fertig"
+            End If
+
+
+            If dedigital > 0 Then
             btnDEZollDIGITAL.BackColor = Color.Green
             btnDEZollDIGITAL.ForeColor = Color.White
             btnDEZollDIGITAL.Tag = "SWITCH"