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

Aviso/usrcntlAktDetails.vb

@@ -236,6 +236,24 @@ Public Class usrcntlAktDetails
             btnErfasst.Visible = True
         End If
 
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+            btnOptionen.Enabled = False
+            btnLkwBeleg.Visible = False
+            tbcntlVermerke.TabPages.Remove(tbAnhang)
+
+            btnDipoListeEmail.Visible = False
+            btnLZDruckDIGITAL.Visible = False
+            btnAlleAkendeckel.Visible = False
+
+            btnAlleSteuerbescheide.Visible = False
+            btnDispohaft.Visible = False
+            btnSA_Gestellung.Visible = False
+            btnSndErstellen.Enabled = False
+
+        End If
+
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMIN", Me.FindForm) Then
             Button2.Visible = True
         End If
@@ -245,7 +263,7 @@ Public Class usrcntlAktDetails
         'End If
 
         If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then
-            Button8.Text = "Gest.Liste"
+            btnSA_Gestellung.Text = "Gest.Liste"
         End If
         VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
     End Sub
@@ -634,7 +652,7 @@ Public Class usrcntlAktDetails
                         r.Cells("Abfertigungsart").Value = r.Cells("tblSnd_FremdspeditionText").Value
                     Else 'Nomal
                         r.Cells("Abfertigungsart").Value = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & r.Cells("tblSnd_Abfertigungsart_ID").Value.ToString & "'", "FMZOLL")
-                If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
+                        If r.Cells("Abfertigungsart").Value.ToString.Length > 15 Then r.Cells("Abfertigungsart").Value = r.Cells("Abfertigungsart").Value.Substring(0, 15) & ".."
                     End If
 
                     r.Cells("FilialenNr").Style.ForeColor = Color.White
@@ -793,7 +811,7 @@ Public Class usrcntlAktDetails
         gridVermerke.Columns.Clear()
         lblInfoAviso.Visible = False
         infotxt = ""
-      '  MsgBox("SO")
+        '  MsgBox("SO")
         ' If setAkive_AuswahlID() = -1 Then Exit Sub
         If AvisoID <= 0 Then Exit Sub
 
@@ -1578,6 +1596,10 @@ Public Class usrcntlAktDetails
 
     ' Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
     Private Sub dgvSendungen_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSendungen.CellDoubleClick
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then
+            Exit Sub
+        End If
+
         Dim sendId = -1
         If dgvSendungen.SelectedRows.Count > 0 Then
             sendId = dgvSendungen.SelectedRows(0).Cells("tblSnd_SendungID").Value
@@ -2575,7 +2597,7 @@ Public Class usrcntlAktDetails
     End Sub
 
 
-    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 btnSndErstellen.Click
         'Die Sendungen eintragen:
         If IsNumeric(txtSendungen.Text) And IsNumeric(txtSndFiskalAT.Text) And IsNumeric(txtSndFiskalDE.Text) And IsNumeric(txtSndFremd.Text) Then 'AndAlso txtSendungen.Text > 0 Then
             Dim filiale_tmp As Integer = 0
@@ -2778,12 +2800,12 @@ Public Class usrcntlAktDetails
         End If
     End Sub
 
-    Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles Button8.Click
+    Private Sub Button8_Click_2(sender As Object, e As EventArgs) Handles btnSA_Gestellung.Click
         SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.SA_Gestellung, FraechterKdNr, {AvisoID})
         Panel4.Visible = False
     End Sub
 
-    Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnKasse_LG.Click
+    Private Sub btnKasse_LG_Click(sender As Object, e As EventArgs) Handles btnDispohaft.Click
         If DispolisteVermerk() Then
             SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.DispoListe, FraechterKdNr, {AvisoID})
             Panel4.Visible = False
@@ -2799,7 +2821,7 @@ Public Class usrcntlAktDetails
         End If
         Return True
     End Function
-    Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles Button9.Click
+    Private Sub btnKasse_User_Click(sender As Object, e As EventArgs) Handles btnDipoListeEmail.Click
         If DispolisteVermerk() Then
 
             Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value)
@@ -2866,7 +2888,7 @@ Public Class usrcntlAktDetails
         f.Show(Me)
     End Sub
 
-    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnKasse_User.Click
+    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles btnDipoListe.Click
         If DispolisteVermerk() Then
             Dim path = SDL.FormularManagerNEU.DispSendungslisteoListe(AvisoID, False,, cboFormulareRgAn._value)
             If path <> "" And IO.File.Exists(path) Then Process.Start(path)
@@ -3068,7 +3090,7 @@ Public Class usrcntlAktDetails
         pnlDetailsRechts.Cursor = Cursors.Default
     End Sub
 
-    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
+    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles btnAlleAkendeckel.Click
 
         'If vbYes = MsgBox("Möchten Sie alle Aktendeckel drucken?", vbYesNoCancel) Then
         '    Me.Cursor = Cursors.WaitCursor
@@ -3194,7 +3216,7 @@ Public Class usrcntlAktDetails
         Vermerke_anzeigen(index)
     End Sub
 
-    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
+    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles btnAlleSteuerbescheide.Click
         Try
 
             If vbYes = MsgBox("Möchten Sie alle Steuerbescheide drucken?", vbYesNoCancel) Then