Initial commit

2021-04-20 07:39:40 +02:00
commit 1efa65864e
3895 changed files with 2126363 additions and 0 deletions
--- a/Backup/EDOKA/Dokumentmanagement/frmBerechtigungen.vb
+++ b/Backup/EDOKA/Dokumentmanagement/frmBerechtigungen.vb
@@ -0,0 +1,152 @@
+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.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmBerechtigungen))
+        Dim GridLines1 As C1.Win.C1TrueDBGrid.Util.GridLines = New C1.Win.C1TrueDBGrid.Util.GridLines()
+        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.AllowFilter = True
+        Me.berechtigunglist.AllowRowSizing = C1.Win.C1TrueDBGrid.RowSizingEnum.AllRows
+        Me.berechtigunglist.AllowSort = False
+        Me.berechtigunglist.AlternatingRows = True
+        Me.berechtigunglist.CaptionHeight = 17
+        Me.berechtigunglist.CollapseColor = System.Drawing.Color.Black
+        Me.berechtigunglist.DataChanged = False
+        Me.berechtigunglist.DeadAreaBackColor = System.Drawing.Color.Empty
+        Me.berechtigunglist.Dock = System.Windows.Forms.DockStyle.Top
+        Me.berechtigunglist.ExpandColor = System.Drawing.Color.Black
+        Me.berechtigunglist.FilterBar = True
+        Me.berechtigunglist.GroupByCaption = "Drag a column header here to group by that column"
+        Me.berechtigunglist.Images.Add(CType(resources.GetObject("resource.Images"), System.Drawing.Bitmap))
+        Me.berechtigunglist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.DottedCellBorder
+        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
+        Me.berechtigunglist.PrintInfo.ShowOptionsDialog = False
+        Me.berechtigunglist.RecordSelectorWidth = 16
+        GridLines1.Color = System.Drawing.Color.DarkGray
+        GridLines1.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
+        Me.berechtigunglist.RowDivider = GridLines1
+        Me.berechtigunglist.RowHeight = 15
+        Me.berechtigunglist.RowSubDividerColor = System.Drawing.Color.DarkGray
+        Me.berechtigunglist.ScrollTips = True
+        Me.berechtigunglist.Size = New System.Drawing.Size(520, 400)
+        Me.berechtigunglist.TabIndex = 15
+        Me.berechtigunglist.Text = "berechtigunglist"
+        Me.berechtigunglist.PropBag = "<?xml version=""1.0""?><Blob><Styles type=""C1.Win.C1TrueDBGrid.Design.ContextWrappe" & _
+        "r""><Data>Group{AlignVert:Center;Border:None,,0, 0, 0, 0;BackColor:ControlDark;}E" & _
+        "ditor{}Style2{}Style5{}Style4{}Style7{}Style6{}EvenRow{BackColor:White;}Selected" & _
+        "{ForeColor:HighlightText;BackColor:Highlight;}Style3{}Inactive{ForeColor:Inactiv" & _
+        "eCaptionText;BackColor:InactiveCaption;}FilterBar{BackColor:255, 255, 192;}Foote" & _
+        "r{}Caption{AlignHorz:Center;}Normal{}HighlightRow{ForeColor:HighlightText;BackCo" & _
+        "lor:Highlight;}Style1{}OddRow{BackColor:224, 224, 224;}RecordSelector{AlignImage" & _
+        ":Center;}Heading{Wrap:True;BackColor:Control;Border:Raised,,1, 1, 1, 1;ForeColor" & _
+        ":ControlText;AlignVert:Center;}Style8{}Style10{AlignHorz:Near;}Style11{}Style12{" & _
+        "}Style13{}Style9{}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name=""""" & _
+        " AlternatingRowStyle=""True"" CaptionHeight=""17"" ColumnCaptionHeight=""17"" ColumnFo" & _
+        "oterHeight=""17"" FilterBar=""True"" MarqueeStyle=""DottedCellBorder"" RecordSelectorW" & _
+        "idth=""16"" DefRecSelWidth=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1"">" & _
+        "<ClientRect>0, 0, 516, 396</ClientRect><BorderSide>0</BorderSide><CaptionStyle p" & _
+        "arent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""Style5"" /><EvenRo" & _
+        "wStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""FilterBar"" me=""Sty" & _
+        "le13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle parent=""Group"" me" & _
+        "=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighLightRowStyle par" & _
+        "ent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive"" me=""Style4"" />" & _
+        "<OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle parent=""RecordSe" & _
+        "lector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Style6"" /><Style par" & _
+        "ent=""Normal"" me=""Style1"" /></C1.Win.C1TrueDBGrid.MergeView></Splits><NamedStyles" & _
+        "><Style parent="""" me=""Normal"" /><Style parent=""Normal"" me=""Heading"" /><Style par" & _
+        "ent=""Heading"" me=""Footer"" /><Style parent=""Heading"" me=""Caption"" /><Style parent" & _
+        "=""Heading"" me=""Inactive"" /><Style parent=""Normal"" me=""Selected"" /><Style parent=" & _
+        """Normal"" me=""Editor"" /><Style parent=""Normal"" me=""HighlightRow"" /><Style parent=" & _
+        """Normal"" me=""EvenRow"" /><Style parent=""Normal"" me=""OddRow"" /><Style parent=""Head" & _
+        "ing"" me=""RecordSelector"" /><Style parent=""Normal"" me=""FilterBar"" /><Style parent" & _
+        "=""Caption"" me=""Group"" /></NamedStyles><vertSplits>1</vertSplits><horzSplits>1</h" & _
+        "orzSplits><Layout>Modified</Layout><DefaultRecSelWidth>16</DefaultRecSelWidth><C" & _
+        "lientArea>0, 0, 516, 396</ClientArea></Blob>"
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(208, 408)
+        Me.Button1.Name = "Button1"
+        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.AddRange(New System.Windows.Forms.Control() {Me.Button1, 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