Grenzstelle, ATILLA NEUHAUS

Aviso/usrcntlAktDetailsATILLANeu.vb

@@ -64,7 +64,7 @@ Public Class usrcntlAktDetailsATILLANeu
 
         TextBox1.Text = ""
         If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
-            TextBox1.Text = SENDUNG_LIST(0).AbfertigungsNr
+            TextBox1.Text = SENDUNG_LIST(0).FilialenNr & "/" & SENDUNG_LIST(0).AbfertigungsNr
         End If
         Dim SENDUNG = Nothing
         If SENDUNG_LIST IsNot Nothing AndAlso SENDUNG_LIST.Count > 0 Then
@@ -256,6 +256,7 @@ Public Class usrcntlAktDetailsATILLANeu
     Private Sub usrcntlAktDetails_Load(sender As Object, e As EventArgs) Handles Me.Load
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
             SGSNCTSToolStripMenuItem.Visible = True
+            Button12.Visible = True
         End If
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ATEZ_NCTS", Me.FindForm) Then
@@ -1666,5 +1667,8 @@ Public Class usrcntlAktDetailsATILLANeu
 
     End Sub
 
+    Private Sub Button12_Click_1(sender As Object, e As EventArgs) Handles Button12.Click
+        FUNC.openSnd(SENDUNG_LIST(0).tblSnd_SendungID, AvisoID)
+    End Sub
 
 End Class