Berechigungsprüfung bei Rechnugsansicht im Therefore (für IMEX)

SDL/kunden/frmKundenUebersichtZollRgDetails.vb

@@ -85,9 +85,14 @@ Public Class frmKundenUebersichtZollRgDetails
 
     Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click
         Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
-            Case "IMEX", "ATILLA" : Exit Sub
+            Case "ATILLA" : Exit Sub
+            Case "IMEX" 'Imex nur mit Berechtigungsgruppe FAKTURIERUNG im SDL
+                If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG", "SDL") Then
+                    Exit Sub
+                End If
         End Select
         Try
+
             If DataGridView.SelectedRows.Count = 0 Then Exit Sub
             If Not IsNumeric(filialeTmp) Then Exit Sub
             If Not IsNumeric(abfertigungsNrTmp) Then Exit Sub