ustva, etc.

SDL/seriendruck/usrCntlFakturierung.Designer.vb

@@ -25,6 +25,7 @@ Partial Class usrcntlFakturierung
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrcntlFakturierung))
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.btnLieferantenrechnungen = New System.Windows.Forms.Button()
         Me.btnMDMSammelrechnung = New System.Windows.Forms.Button()
         Me.btnFakturierung = New System.Windows.Forms.Button()
         Me.btnRechnugnsdaten = New System.Windows.Forms.Button()
@@ -85,7 +86,6 @@ Partial Class usrcntlFakturierung
         Me.Label63 = New System.Windows.Forms.Label()
         Me.Label45 = New System.Windows.Forms.Label()
         Me.Button14 = New System.Windows.Forms.Button()
-        Me.Button4 = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GBMautberichte.SuspendLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -102,7 +102,7 @@ Partial Class usrcntlFakturierung
         '
         'GroupBox1
         '
-        Me.GroupBox1.Controls.Add(Me.Button4)
+        Me.GroupBox1.Controls.Add(Me.btnLieferantenrechnungen)
         Me.GroupBox1.Controls.Add(Me.btnMDMSammelrechnung)
         Me.GroupBox1.Controls.Add(Me.btnFakturierung)
         Me.GroupBox1.Controls.Add(Me.btnRechnugnsdaten)
@@ -112,6 +112,18 @@ Partial Class usrcntlFakturierung
         Me.GroupBox1.TabIndex = 0
         Me.GroupBox1.TabStop = False
         '
+        'btnLieferantenrechnungen
+        '
+        Me.btnLieferantenrechnungen.Enabled = False
+        Me.btnLieferantenrechnungen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnLieferantenrechnungen.ForeColor = System.Drawing.Color.Black
+        Me.btnLieferantenrechnungen.Location = New System.Drawing.Point(525, 18)
+        Me.btnLieferantenrechnungen.Name = "btnLieferantenrechnungen"
+        Me.btnLieferantenrechnungen.Size = New System.Drawing.Size(139, 44)
+        Me.btnLieferantenrechnungen.TabIndex = 52
+        Me.btnLieferantenrechnungen.Text = "MDM Lieferantenrechnungen"
+        Me.btnLieferantenrechnungen.UseVisualStyleBackColor = True
+        '
         'btnMDMSammelrechnung
         '
         Me.btnMDMSammelrechnung.Enabled = False
@@ -784,17 +796,6 @@ Partial Class usrcntlFakturierung
         Me.Button14.Text = "Rechnungspos. berechnen"
         Me.Button14.UseVisualStyleBackColor = True
         '
-        'Button4
-        '
-        Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button4.ForeColor = System.Drawing.Color.Black
-        Me.Button4.Location = New System.Drawing.Point(525, 18)
-        Me.Button4.Name = "Button4"
-        Me.Button4.Size = New System.Drawing.Size(139, 44)
-        Me.Button4.TabIndex = 52
-        Me.Button4.Text = "MDM Lieferantenrechnungen"
-        Me.Button4.UseVisualStyleBackColor = True
-        '
         'usrcntlFakturierung
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -887,5 +888,5 @@ Partial Class usrcntlFakturierung
     Friend WithEvents Label2 As Label
     Friend WithEvents btnREJdruck As Button
     Friend WithEvents btnAbfdruck As Button
-    Friend WithEvents Button4 As Button
+    Friend WithEvents btnLieferantenrechnungen As Button
 End Class

SDL/seriendruck/usrCntlFakturierung.vb

@@ -59,12 +59,21 @@ Public Class usrcntlFakturierung
             GBSammelrechnung.Enabled = True
             btnFakturierung.Enabled = True
             btnRechnugnsdaten.Enabled = True
-
+            btnLieferantenrechnungen.Enabled = True
+            GroupBox1.Enabled = True
             btnAbfdruck.Enabled = True
             btnREJdruck.Enabled = True
 
         End If
 
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_LIEFERANTENRECHNUNGEN", "SDL") = 0 Then
+            GroupBox1.Enabled = True
+            btnLieferantenrechnungen.Enabled = True
+            btnMDMSammelrechnung.Enabled = False
+            btnFakturierung.Enabled = False
+            btnRechnugnsdaten.Enabled = False
+        End If
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", "SDL") Then
             Button2.Visible = True
             Button3.Visible = True
@@ -1777,7 +1786,7 @@ Public Class usrcntlFakturierung
 
     End Sub
 
-    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnLieferantenrechnungen.Click
 
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("MDM_Fakturierung", "SDL") = 0 Then