Initial commit

2020-10-21 10:43:18 +02:00
commit 56bd02798f
5848 changed files with 2659025 additions and 0 deletions
@@ -0,0 +1,73 @@
+Public Class Form1
+    Dim dbconn As New DB_Connection
+    Dim db As New DB
+
+    Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
+        Me.Close()
+    End Sub
+
+    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        db.Get_Dokumenttypen()
+        Me.C1Dokumenttypen.DataSource = db.dsDaten.Tables("Dokumenttypen")
+        Me.C1Dokumenttypen.Splits(0).DisplayColumns(0).Width = 30
+        Me.C1Dokumenttypen.Splits(0).DisplayColumns(1).Width = Me.GroupBox1.Width - 53
+        For i = 0 To Me.C1Dokumenttypen.Splits(0).DisplayColumns.Count - 1
+            Me.C1Dokumenttypen.Splits(0).DisplayColumns(i).Locked = True
+        Next
+
+        Refresh_Blacklist()
+    End Sub
+
+    Sub Refresh_Blacklist(Optional marker As Integer = 0)
+        db.Get_Blacklist()
+        Me.C1Blacklist.DataSource = Nothing
+        Me.C1Blacklist.DataSource = db.dsdatenblacklist.Tables("Blacklist")
+        Me.C1Blacklist.DataMember = db.dsdatenblacklist.Tables(0).TableName
+        Me.C1Blacklist.Splits(0).DisplayColumns(0).Width = 0
+        Me.C1Blacklist.Splits(0).DisplayColumns(1).Width = 60
+        Me.C1Blacklist.Splits(0).DisplayColumns(2).Width = 200
+        Me.C1Blacklist.Splits(0).DisplayColumns(3).Width = 50
+        Me.C1Blacklist.Splits(0).DisplayColumns(4).Width = 70
+        Me.C1Blacklist.Splits(0).DisplayColumns(5).Width = 50
+        Me.C1Blacklist.Splits(0).DisplayColumns(6).Width = 70
+        Me.C1Blacklist.Splits(0).DisplayColumns(7).Width = 50
+        Me.C1Blacklist.Splits(0).DisplayColumns(1).Locked = True
+        Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
+        Me.C1Blacklist.Splits(0).DisplayColumns(4).Locked = True
+        Me.C1Blacklist.Splits(0).DisplayColumns(5).Locked = True
+        Me.C1Blacklist.Splits(0).DisplayColumns(6).Locked = True
+        Me.C1Blacklist.Splits(0).DisplayColumns(7).Locked = True
+        Dim bm As Integer = 0
+        If marker <> 0 Then
+            For i = 0 To db.dsdatenblacklist.Tables(0).Rows.Count - 1
+                If db.dsdatenblacklist.Tables(0).Rows(i).Item("DokTypNr") = marker Then Me.C1Blacklist.Bookmark = bm
+                bm = bm + 1
+            Next
+        End If
+
+    End Sub
+
+
+    Private Sub C1Dokumenttypen_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumenttypen.DoubleClick
+        Dim row As DataRow = db.dsdatenblacklist.Tables(0).NewRow
+        row.Item(1) = Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value
+        row.Item(2) = ""
+        row.Item(3) = True
+        row.Item(4) = Now
+        row.Item(5) = Globals.Mitarbeiternr
+        row.Item(6) = Now
+        row.Item(7) = Globals.Mitarbeiternr
+        db.dsdatenblacklist.Tables(0).Rows.Add(row)
+        db.Update_Daten()
+        Refresh_Blacklist(Me.C1Dokumenttypen.Columns("Dokumenttypnr").Value)
+    End Sub
+
+    Private Sub C1Blacklist_AfterUpdate(sender As Object, e As EventArgs) Handles C1Blacklist.AfterUpdate
+        db.Update_Daten()
+    End Sub
+
+    Private Sub C1Blacklist_BeforeColUpdate(sender As Object, e As C1.Win.C1TrueDBGrid.BeforeColUpdateEventArgs) Handles C1Blacklist.BeforeColUpdate
+        Me.C1Blacklist.Columns("Mutiert_am").Value = Now
+        Me.C1Blacklist.Columns("Mutierer").Value = Globals.Mitarbeiternr
+    End Sub
+End Class