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

Aviso/frmAddSendungsvermerkShort.vb

@@ -97,6 +97,19 @@ Public Class frmAddSendungsvermerkShort
         '   optDokumente.Focus()
 
 
+        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 btnCLose Then enabledTmp = True
+                If c Is optFremd_SendungAvisiert Then enabledTmp = True
+                If c Is optFremd_ATB Then enabledTmp = True
+                If c Is optATAangefordert Then enabledTmp = True
+                If c Is txtDetail Then enabledTmp = True
+                If c Is btnOK Then enabledTmp = True
+                c.Enabled = enabledTmp
+            Next
+        End If
+
     End Sub
 
 
@@ -316,7 +329,7 @@ Public Class frmAddSendungsvermerkShort
         cbxAuftrag.Focus()
     End Sub
 
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCLose.Click
         Me.Close()
     End Sub