You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
107 lines
4.6 KiB
107 lines
4.6 KiB
Public Class FrmDocmSettings
|
|
|
|
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 FrmDocmSettings_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
|
|
End Sub
|
|
|
|
Private Sub C1Dokumenttypen_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1Dokumenttypen.RowColChange$
|
|
Try
|
|
Dim i As Integer = Me.C1Dokumenttypen.Columns(0).Value
|
|
db.Get_Dokumentstatus(Me.C1Dokumenttypen.Columns(0).Value)
|
|
Me.C1DokumenttypStatus.DataSource = db.dsdaten1.Tables(0)
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub C1DokumenttypStatus_RowColChange(sender As Object, e As C1.Win.C1TrueDBGrid.RowColChangeEventArgs) Handles C1DokumenttypStatus.RowColChange
|
|
Try
|
|
Dim i As Integer = Me.C1DokumenttypStatus.Columns(0).Value
|
|
db.Get_Dokumentstatus_docm(Me.C1DokumenttypStatus.Columns(0).Value)
|
|
If db.dsdatendocm.Tables(0).Rows.Count = 0 Then
|
|
Me.Label2.Text = Me.C1DokumenttypStatus.Columns(0).Value.ToString
|
|
Me.Label5.Text = "(nicht vorhanden)"
|
|
Me.TextBox1.Text = ""
|
|
Else
|
|
Me.Label2.Text = db.dsdatendocm.Tables(0).Rows(0).Item(1).ToString
|
|
Me.Label5.Text = db.dsdatendocm.Tables(0).Rows(0).Item(0).ToString
|
|
Me.TextBox1.Text = db.dsdatendocm.Tables(0).Rows(0).Item(2).ToString
|
|
Me.CheckBox1.Checked = db.dsdatendocm.Tables(0).Rows(0).Item(7).ToString = "1"
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
If MsgBox("Datensatz wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
|
|
db.dsdatendocm.Tables(0).Rows(0).Item("aktiv") = False
|
|
db.dsdatendocm.Tables(0).Rows(0).Item("mutiert_am") = Now
|
|
db.dsdatendocm.Tables(0).Rows(0).Item("mutierer") = Globals.Mitarbeiternr
|
|
db.Update_Daten()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If Label5.Text = "(nicht vorhanden)" Then
|
|
Dim r As DataRow = db.dsdatendocm.Tables(0).NewRow
|
|
r.Item(1) = Me.C1DokumenttypStatus.Columns(0).Value
|
|
r.Item(2) = Me.TextBox1.Text
|
|
r.Item(3) = True
|
|
r.Item(4) = Now
|
|
r.Item(5) = Now
|
|
r.Item(6) = Globals.Mitarbeiternr
|
|
If Me.CheckBox1.Checked Then
|
|
r.Item(7) = 1
|
|
Else
|
|
r.Item(7) = 0
|
|
End If
|
|
|
|
db.dsdatendocm.Tables(0).Rows.Add(r)
|
|
Else
|
|
db.dsdatendocm.Tables(0).Rows(0).Item(2) = Me.TextBox1.Text
|
|
db.dsdatendocm.Tables(0).Rows(0).Item(5) = Now
|
|
db.dsdatendocm.Tables(0).Rows(0).Item(6) = Globals.Mitarbeiternr
|
|
If Me.CheckBox1.Checked Then
|
|
db.dsdatendocm.Tables(0).Rows(0).Item(7) = 1
|
|
Else
|
|
db.dsdatendocm.Tables(0).Rows(0).Item(7) = 0
|
|
End If
|
|
End If
|
|
db.Update_Daten()
|
|
End Sub
|
|
|
|
Private Sub FrmDocmSettings_Resize(sender As Object, e As EventArgs) Handles Me.Resize
|
|
Me.GroupBox1.Width = Me.ClientSize.Width / (2 * 2)
|
|
|
|
Me.GroupBox2.Width = Me.ClientSize.Width / (2 * 2)
|
|
|
|
End Sub
|
|
|
|
Private Sub AlleVorlagenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AlleVorlagenToolStripMenuItem.Click
|
|
Me.C1Dokumenttypen.DataSource = Nothing
|
|
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
|
|
End Sub
|
|
|
|
Private Sub VorlagenMitDOCMSettingsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagenMitDOCMSettingsToolStripMenuItem.Click
|
|
Me.C1Dokumenttypen.DataSource = Nothing
|
|
db.Get_Dokumenttypen_mit_docm()
|
|
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
|
|
End Sub
|
|
End Class |