Mergeconf.Auflösung

Aviso/frmSendungsdetailsNEU.vb

@@ -302,7 +302,6 @@ Public Class frmSendungsdetailsNEU
 
             Else
 
-
                 Dim GRZ As New VERAG_PROG_ALLGEMEIN.cGrenzstelle(AVISO.Grenzstelle)
                 If GRZ IsNot Nothing AndAlso GRZ.hasEntry Then
 
@@ -408,6 +407,10 @@ Public Class frmSendungsdetailsNEU
                 '   ToolStripMenuItem13.Enabled = True
             End If
 
+            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me) Then
+                Button19.Visible = True
+            End If
+
 
             cboFiliale._allowFreiText = Nothing
             Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER
@@ -6263,6 +6266,26 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click
 
+        Try
+
+
+            If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
+                Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNG_LIST(CURRENT_INDEX)
+
+                Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(AVISO, SND, Now.ToString("yy"))
+                frmAttilaATEZNCTS.Show(Me)
+
+            End If
+
+        Catch ex As Exception
+            MsgBox(ex.Message & ex.StackTrace)
+        End Try
+        Me.Cursor = Cursors.Default
+
+
+
+
+
         MsgBox("Funktion noch nicht implementiert!")
         Exit Sub