neu

Aviso/frmAddAktenvermerkShort.vb

@@ -98,6 +98,31 @@ Public Class frmAddAktenvermerkShort
         btnLKWFertig.Text = If(myAviso.LKW_fertig, "LKW nicht fertig", "LKW fertig")
 
         txtFreigabeInfo.Text = If(myAviso.Freigabe_Info, "")
+
+
+
+        cntxt.Items.Clear()
+        Dim dt = SQL.loadDgvBySql("SELECT [grz_Grenzstelle],grz_BezeichnungCBO FROM [AVISO].[dbo].[tblGrenzstelle] where grz_Cluster='" & VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER & "'", "AVISO")
+
+        If dt IsNot Nothing Then
+
+            dt.Rows.Add({"???", "??? - andere"})
+            For Each r As DataRow In dt.Rows
+                Dim it As New ToolStripMenuItem
+                it.Text = r("grz_BezeichnungCBO").ToString
+                it.Tag = r("grz_Grenzstelle").ToString
+                cntxt.Items.Add(it)
+
+                AddHandler it.Click, Sub()
+                                         AvisoStatusFunctions.ummeldenAVISO(myAviso, it.Tag.ToString)
+                                         Me.Close()
+                                     End Sub
+
+
+            Next
+
+        End If
+
     End Sub
 
 
@@ -285,4 +310,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
         End Try
     End Sub
 
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        cntxt.Show(Cursor.Position)
+    End Sub
 End Class