neu

Aviso/frmHauptfenster.vb

@@ -252,6 +252,13 @@ Public Class frmHauptfenster
 
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("GESAMTSICHERHEIT", "AVISO") Then
+            DEGesamtsicherheitVeragGmbHToolStripMenuItem.Visible = True
+            ATGesamtsicherheitVeragAGToolStripMenuItem.Visible = True
+            ATGesamtsicherheitIMEXCSGmbHToolStripMenuItem.Visible = True
+            ATGesamtsicherheitVeragCSToolStripMenuItem.Visible = True
+        End If
+
 
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
             Case "ATILLA" ' Case "VERAG", "IMEX"
@@ -4767,10 +4774,10 @@ Public Class AvisoStatusFunctions
 
         If text <> "" Or text_Freigabe <> "" Then
 
-            Dim f As New frmDokumenteSchicken
+            Dim f As New frmDokumenteSchicken(AVISO)
             f.rtbDokumente.Text = text
             f.rtbSonstigeInfo.Text = text_Freigabe
-
+            f.cbxInfoblattFurDigitalabfertigungDrucken.Checked = (SQL.DLookup("COUNT(*)", "Vermerke", " AvisoID=" & AVISO.AvisoID & " and VermerkeCode=82", "AVISO", 0) > 0)
             f.ShowDialog()
         End If
     End Sub