Initial commit

EDOKA/Dokumentmanagement/frmBerechtigungen.vb

@@ -0,0 +1,110 @@
+Public Class frmBerechtigungen
+    Inherits System.Windows.Forms.Form
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents berechtigunglist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBerechtigungen))
+        Me.berechtigunglist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
+        Me.Button1 = New System.Windows.Forms.Button()
+        CType(Me.berechtigunglist, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'berechtigunglist
+        '
+        Me.berechtigunglist.AllowSort = False
+        Me.berechtigunglist.AlternatingRows = True
+        Me.berechtigunglist.Dock = System.Windows.Forms.DockStyle.Top
+        Me.berechtigunglist.FilterBar = True
+        Me.berechtigunglist.GroupByCaption = "Drag a column header here to group by that column"
+        Me.berechtigunglist.Images.Add(CType(resources.GetObject("berechtigunglist.Images"), System.Drawing.Image))
+        Me.berechtigunglist.Location = New System.Drawing.Point(0, 0)
+        Me.berechtigunglist.Name = "berechtigunglist"
+        Me.berechtigunglist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
+        Me.berechtigunglist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
+        Me.berechtigunglist.PreviewInfo.ZoomFactor = 75.0R
+        Me.berechtigunglist.PrintInfo.PageSettings = CType(resources.GetObject("berechtigunglist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
+        Me.berechtigunglist.ScrollTips = True
+        Me.berechtigunglist.Size = New System.Drawing.Size(520, 400)
+        Me.berechtigunglist.TabIndex = 15
+        Me.berechtigunglist.Text = "berechtigunglist"
+        Me.berechtigunglist.PropBag = resources.GetString("berechtigunglist.PropBag")
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(208, 408)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(75, 23)
+        Me.Button1.TabIndex = 16
+        Me.Button1.Text = "&Schliessen"
+        '
+        'frmBerechtigungen
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(520, 437)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.berechtigunglist)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmBerechtigungen"
+        Me.Text = "Berechtigungen"
+        CType(Me.berechtigunglist, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Me.Close()
+    End Sub
+
+    Public Function Fill_Berechtigungen(ByVal dokumenttyp As Integer, ByVal partnernr As Integer, ByVal vertraulich As Integer, ByVal funktionslist As String)
+        Dim d As New DataTable()
+        d = DivFnkt.Berechtigte_Mitarbeiter(dokumenttyp, 0, partnernr, "", 0, 0, 0, vertraulich, funktionslist)
+        Me.berechtigunglist.DataSource = d
+        Me.berechtigunglist.DataMember = d.TableName
+        DivFnkt.SpaltenTitel_Aktualisieren(Me.berechtigunglist, d, "berechtigungsliste")
+        Me.berechtigunglist.Splits(0).DisplayColumns(1).Visible = False
+    End Function
+
+
+    Private Sub frmBerechtigungen_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.berechtigunglist.ScrollTips = True
+    End Sub
+
+    Private Sub Berechtigunglist_FetchScrollTips(ByVal sender As System.Object, ByVal e As C1.Win.C1TrueDBGrid.FetchScrollTipsEventArgs) Handles berechtigunglist.FetchScrollTips
+        Select Case e.ScrollBar
+            Case C1.Win.C1TrueDBGrid.ScrollBarEnum.Vertical
+                e.ScrollTip = CStr(e.Row + 1) & " / " & CStr(Me.berechtigunglist.Splits(0).Rows.Count)
+        End Select
+        e.TipStyle.ForeColor = Color.Blue
+    End Sub
+End Class