WARENORT-AVISO, EN-Anpassung, Benachrichtigungen, ATILLA-Indonesien, AVISO-TV

Aviso/frmAddAktenvermerkShort.vb

@@ -123,6 +123,25 @@ Public Class frmAddAktenvermerkShort
 
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+            For Each c As Control In Me.Controls
+                Dim enabledTmp = False
+                If c Is btnAktUebernehmen Then enabledTmp = True
+                If c Is btnLKWUmmelden Then enabledTmp = True
+                If c Is btnZollDEEingereicht Then enabledTmp = True
+                If c Is txtSonstiges Then enabledTmp = True
+                If c Is btnSonstiges Then enabledTmp = True
+                If c Is btnAnkunft Then enabledTmp = True
+                If c Is btnFreigabe Then enabledTmp = True
+                If c Is btnLKWFertig Then enabledTmp = True
+                If c Is btnLKWStandzeitWE Then enabledTmp = True
+                If c Is btnLKWStandzeitFeierteage Then enabledTmp = True
+                If c Is btnClose Then enabledTmp = True
+
+                c.Enabled = enabledTmp
+            Next
+        End If
+
     End Sub
 
 
@@ -281,7 +300,7 @@ btnZollDEEingereicht.Click, btnSBG.Click, btnNKD.Click, btnWAI.Click, btnSFD.Cli
 
 
 
-    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnClose.Click
         Me.Close()
     End Sub
     Private Sub Button1_Click(sender As Object, e As EventArgs)
@@ -310,7 +329,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
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles btnLKWUmmelden.Click
         cntxt.Show(Cursor.Position)
     End Sub
 End Class