Imports C1.Win.C1TrueDBGrid Public Class clsStammdaten_flat Dim m_connectionstring As String Property Connectionstring As String Get Return m_connectionstring End Get Set(value As String) m_connectionstring = value End Set End Property Dim m_tablename As String Property Tablename As String Get Return m_tablename End Get Set(value As String) m_tablename = value Try 'get_data() Catch End Try End Set End Property Dim m_SQL As String = "" Property SQL As String Get Return m_SQL End Get Set(value As String) m_SQL = value End Set End Property Dim db As clsDB Dim c1d As New C1.Win.C1TrueDBGrid.C1TrueDBGrid Sub New() ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.Connectionstring = My.Settings.ConnectionString Me.c1d = Me.c1daten If My.Settings.SoftwareType = "PADM" Then Me.NeuerTarifeintragErstellenToolStripMenuItem.Text = "Neuer Artikel" Me.TarifBearbeitenToolStripMenuItem.Text = "Artikel bearbeiten" End If End Sub Public Sub get_data() Try Try db = Nothing Catch ex As Exception End Try db = New clsDB Me.c1daten.DataSource = Nothing Me.c1daten.DataMember = Nothing Me.c1daten.DataSource = Nothing Me.c1daten.DataMember = Nothing Me.c1daten.Splits(0).DisplayColumns.Clear() db.dsDaten.Tables.Clear() If Me.SQL <> "" Then db.Get_Tabledata(Me.Tablename, "", Me.SQL, "", False) Else db.Get_Tabledata(Me.Tablename) End If Me.c1daten.DataSource = db.dsDaten Me.c1daten.DataMember = Tablename Dim spalten As New Tabellenspalte spalten.Spaltentitel_aktualisieren(Me.c1daten, Me.Tablename, db.dsDaten.Tables(0)) Me.c1d.ContextMenuStrip = Nothing Me.c1d.AllowAddNew = True Me.tsnewdentotar.Visible = False Select Case Tablename Case "Auswertung" Dim printer As New clsPrinter printer.Get_Printers() Me.C1TrueDBDropdown1.DataSource = printer.Printers Me.C1TrueDBDropdown1.DataMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.ValueMember = printer.Printers.Columns(0).ColumnName Me.C1TrueDBDropdown1.DisplayMember = printer.Printers.Columns(0).ColumnName Me.c1daten.Columns("Drucker").DropDown = Me.C1TrueDBDropdown1 Case "User" Me.c1d.ContextMenuStrip = Me.ContextMenuStrip1 Case "Tarif" Me.c1d.ContextMenuStrip = Me.ctxMenuTarif Me.c1d.AllowAddNew = False Case "Dentotar" Me.c1d.ContextMenuStrip = Me.ctxmenuDentotar Me.c1d.AllowAddNew = False Me.tsnewdentotar.Visible = True Case "MailTexte" Me.c1d.ContextMenuStrip = Me.ctxMenuMailtext Case "Reporting" Me.c1d.ContextMenuStrip = Me.ctxmenureporting Me.AllowDrop = True Me.c1daten.AllowDrop = True End Select Catch ex As Exception End Try End Sub Public Sub Check_Changes() Try Dim ds As New DataSet ds = c1daten.DataSource Dim xdata As DataTable = ds.Tables(0).GetChanges If xdata.Rows.Count > 0 Then If MsgBox("Daten wurden geändert. Speichern?", vbYesNo + vbQuestion) = vbYes Then db.Update_Data() End If End If Catch End Try End Sub Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click Check_Changes() If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear() Me.c1daten.DataSource = Nothing 'db.Update_Data() End Sub Private Sub clsStammdaten_flat_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click db.Update_Data() If Tablename = "Spalten" Then Globals.Spaltendaten.Rows.Clear() Try IntTables.Inttables.Tables.Remove(Tablename) Catch ex As Exception End Try Try IntTables.Inttables.Tables.Remove(Tablename) Catch ex As Exception End Try 'MsgBox("Daten wurden gespeichert") End Sub Private Sub c1daten_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles c1daten.RowColChange Try If Tablename = "Auswertung" Then Me.C1TrueDBDropdown2.DataSource = Nothing Dim printer As New clsPrinter printer.Get_Papersources(Me.c1daten.Columns("Drucker").Value.ToString) Me.C1TrueDBDropdown2.DataSource = printer.Papersources Me.C1TrueDBDropdown2.DataMember = printer.Papersources.Columns(0).ColumnName Me.C1TrueDBDropdown2.ValueMember = printer.Papersources.Columns(0).ColumnName Me.C1TrueDBDropdown2.DisplayMember = printer.Papersources.Columns(1).ColumnName Me.c1daten.Columns("Papierschacht").DropDown = Me.C1TrueDBDropdown2 End If Catch End Try End Sub Private Sub NeuerBenutzerEröffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerBenutzerEröffnenToolStripMenuItem.Click Dim f As New frmLogin(True) f.ShowDialog() get_data() End Sub Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click End Sub Private Sub c1daten_AfterInsert(sender As Object, e As EventArgs) Handles c1daten.AfterInsert Try 'Me.c1daten.Columns("erstellt_am").Value = Now 'Me.c1daten.Columns("mutiert_am").Value = Now 'Me.c1daten.Columns("mutierer").Value = Globals.ActUser 'Me.c1daten.Columns("aktiv").Value = True 'Me.c1daten.Columns("Mandant").Value = Globals.Mandant Catch ex As Exception End Try End Sub Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick Select Case Tablename Case "Dentotar" Try Dim f As New frmDentotarDetails f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value) f.TextBox2.Text = Me.c1daten.Columns("LeistungD").Value.ToString f.TextBox3.Text = Me.c1daten.Columns("Interpretationd").Value.ToString f.TextBox4.Text = Me.c1daten.Columns("Abrechnungseinheit").Value.ToString f.TextBox5.Text = Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value.ToString f.TextBox6.Text = Me.c1daten.Columns("PP_MIN").Value.ToString f.TextBox7.Text = Me.c1daten.Columns("PP_Privat").Value.ToString f.TextBox8.Text = Me.c1daten.Columns("PP_Max").Value.ToString f.TextBox9.Text = Me.c1daten.Columns("BetragInCHF").Value.ToString f.ShowDialog() Me.c1daten.Columns("LeistungNrNeu").Value = f.TextBox1.Text f.Update_Data(Me.c1daten.Columns("LeistungNrNeu").Value) Me.c1daten.Columns("LeistungD").Value = f.TextBox2.Text Me.c1daten.Columns("Interpretationd").Value = f.TextBox3.Text Me.c1daten.Columns("Abrechnungseinheit").Value = f.TextBox4.Text Me.c1daten.Columns("Taxpunkte_UV_MV_IV").Value = f.TextBox5.Text Me.c1daten.Columns("PP_MIN").Value = f.TextBox6.Text Me.c1daten.Columns("PP_Privat").Value = f.TextBox7.Text Me.c1daten.Columns("PP_Max").Value = f.TextBox8.Text Me.c1daten.Columns("BetragInCHF").Value = f.TextBox9.Text ' Me.c1daten.Columns("LeistungD").Value = f.TextBox1.Text Catch ex As Exception MsgBox("Ein Fehler bei der Bearbeitung über den Dialog ist aufgetreten: " + ex.Message + vbCrLf + "Bitte Daten direkt in der Tabelle ändern.", vbExclamation) End Try Case "Tarif" If My.Settings.SoftwareType = "PADM" Then Dim f1 As New TarifDetail_PADM f1.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value f1.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value f1.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value f1.txtBezd.Text = Me.c1daten.Columns("bezd").Value 'f1.txtBezF.Text = Me.c1daten.Columns("bezf").Value f1.Handle_RTF(1, Me.c1daten.Columns("bezf").Value) f1.txtBezi.Text = Me.c1daten.Columns("bezi").Value f1.txtprivat.Text = Me.c1daten.Columns("privattarif").Value f1.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value f1.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value f1.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value If Me.c1daten.Columns("MitLabor").Value = 1 Then f1.cbboxmitlabor.Checked = True Else f1.cbboxmitlabor.Checked = False f1.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value f1.ShowDialog() If f1.DialogResult = DialogResult.OK Then Me.c1daten.Columns("nrtarif").Value = f1.txtnrtarif.Text Me.c1daten.Columns("Nrtarifgruppe").Value = f1.cbboxTarifgruppe.SelectedValue Me.c1daten.Columns("sso_nummer").Value = f1.txtNummer.Text Me.c1daten.Columns("bezd").Value = f1.txtBezd.Text Me.c1daten.Columns("bezf").Value = f1.Handle_RTF(2, "") 'Me.c1daten.Columns("bezf").Value = f1.txtBezf.Text Me.c1daten.Columns("bezi").Value = f1.txtBezi.Text Me.c1daten.Columns("privattarif").Value = f1.txtprivat.Text Me.c1daten.Columns("suvatarif").Value = f1.txtsuva.Text Me.c1daten.Columns("minimaltarif").Value = f1.txtmin.Text Me.c1daten.Columns("maximaltarif").Value = f1.txtmax.Text If f1.cbboxmitlabor.Checked Then Me.c1daten.Columns("MitLabor").Value = 1 Else Me.c1daten.Columns("MitLabor").Value = 0 End If Me.c1daten.Columns("Frankenbetrag").Value = f1.txtfrankenwert.Text Me.c1daten.Bookmark = Me.c1daten.Bookmark - 1 ToolStripButton6_Click(sender, e) Me.c1daten.Bookmark = Me.c1daten.Bookmark + 1 End If Exit Sub End If Dim f As New frmTarifDetail f.txtnrtarif.Text = Me.c1daten.Columns("nrtarif").Value f.cbboxTarifgruppe.SelectedValue = Me.c1daten.Columns("Nrtarifgruppe").Value f.txtNummer.Text = Me.c1daten.Columns("sso_nummer").Value f.txtBezd.Text = Me.c1daten.Columns("bezd").Value f.txtBezf.Text = Me.c1daten.Columns("bezf").Value f.txtBezi.Text = Me.c1daten.Columns("bezi").Value f.txtprivat.Text = Me.c1daten.Columns("privattarif").Value f.txtsuva.Text = Me.c1daten.Columns("suvatarif").Value f.txtmin.Text = Me.c1daten.Columns("minimaltarif").Value f.txtmax.Text = Me.c1daten.Columns("maximaltarif").Value If Me.c1daten.Columns("MitLabor").Value = 1 Then f.cbboxmitlabor.Checked = True Else f.cbboxmitlabor.Checked = False f.txtfrankenwert.Text = Me.c1daten.Columns("Frankenbetrag").Value f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.c1daten.Columns("nrtarif").Value = f.txtnrtarif.Text Me.c1daten.Columns("Nrtarifgruppe").Value = f.cbboxTarifgruppe.SelectedValue Me.c1daten.Columns("sso_nummer").Value = f.txtNummer.Text Me.c1daten.Columns("bezd").Value = f.txtBezd.Text Me.c1daten.Columns("bezf").Value = f.txtBezf.Text Me.c1daten.Columns("bezi").Value = f.txtBezi.Text Me.c1daten.Columns("privattarif").Value = f.txtprivat.Text Me.c1daten.Columns("suvatarif").Value = f.txtsuva.Text Me.c1daten.Columns("minimaltarif").Value = f.txtmin.Text Me.c1daten.Columns("maximaltarif").Value = f.txtmax.Text If f.cbboxmitlabor.Checked Then Me.c1daten.Columns("MitLabor").Value = 1 Else Me.c1daten.Columns("MitLabor").Value = 0 End If Me.c1daten.Columns("Frankenbetrag").Value = f.txtfrankenwert.Text End If End Select End Sub Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening End Sub Private Sub TarifBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem.Click c1daten_DoubleClick(sender, e) End Sub Private Sub NeuerTarifeintragErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerTarifeintragErstellenToolStripMenuItem.Click If My.Settings.SoftwareType = "PADM" Then Dim f1 As New TarifDetail_PADM Dim newkey1 As Integer = f1.New_Tarif f1.Dispose() get_data() Dim d1 As DataSet = c1daten.DataSource Dim i1 As Integer = 0 For Each r As DataRow In d1.Tables(0).Rows i1 = i1 + 1 If newkey1 = r.Item(0) Then c1daten.Bookmark = i1 End If Next c1daten_DoubleClick(sender, e) Exit Sub End If Dim f As New frmTarifDetail Dim newkey As Integer = f.New_Tarif f.Dispose() get_data() Dim d As DataSet = c1daten.DataSource Dim i As Integer = 0 For Each r As DataRow In d.Tables(0).Rows i = i + 1 If newkey = r.Item(0) Then c1daten.Bookmark = i End If Next c1daten_DoubleClick(sender, e) End Sub Private Sub PasswortÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PasswortÄndernToolStripMenuItem.Click Dim f As New frmLogin f.txtUserName.Text = Me.c1daten.Columns("User").Value f.txtPassword.Text = Me.c1daten.Columns("Passwort").Value f.Label2.Text = "Neues Passwort" f.btnLogin.Text = "Speichern" f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.c1d.Columns("Passwort").Value = Crypto.EncryptText(f.txtPassword.Text, "DPM2018") End If End Sub Private Sub TarifBearbeitenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles TarifBearbeitenToolStripMenuItem1.Click c1daten_DoubleClick(sender, e) End Sub Private Sub tsnewdentotar_Click(sender As Object, e As EventArgs) Handles tsnewdentotar.Click Dim f As New frmDentotarDetail f.pk = -1 f.TextBox1.Text = "4.xxxx" f.TextBox2.Text = "" f.TextBox3.Text = "" f.TextBox4.Text = "" f.TextBox5.Text = "CHF" f.TextBox6.Text = "0.00" f.TextBox7.Text = "0.00" f.TextBox8.Text = "0.00" f.TextBox9.Text = "0.00" f.TextBox10.Text = "0.00" f.ShowDialog() If f.DialogResult = DialogResult.OK Then Dim sql As String db.Get_Tabledata("Dentotarx", "", "Select * from dentotar where pk=-100", "", False) Dim r As DataRow = db.dsDaten.Tables(0).NewRow r.Item(0) = "" r.Item(1) = 3 r.Item(2) = "" r.Item(3) = f.TextBox1.Text r.Item(4) = f.TextBox2.Text r.Item(5) = f.TextBox4.Text r.Item(6) = f.TextBox4.Text r.Item(7) = "" r.Item(8) = "" r.Item(9) = "" r.Item(10) = f.TextBox5.Text r.Item(11) = f.TextBox6.Text r.Item(12) = f.TextBox7.Text r.Item(13) = f.TextBox8.Text r.Item(14) = f.TextBox9.Text r.Item(15) = f.TextBox10.Text db.dsDaten.Tables(0).Rows.Add(r) 'db.dsDaten.Tables(0).AcceptChanges() db.Update_Data() get_data() Dim i As Integer For i = 0 To Me.c1daten.Splits(0).Rows.Count - 1 Try If Me.c1daten.Columns("leistungnrneu").CellValue(i) = f.TextBox1.Text Then Me.c1daten.Bookmark = i Exit For End If Catch End Try Next End If End Sub Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown c1daten.Bookmark = c1daten.RowContaining(e.Y) End Sub Private Sub MailTexteBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MailTexteBearbeitenToolStripMenuItem.Click Dim f As New frmMailtexte f.txtBetreff.Text = Me.c1daten.Columns("Betreff").Value f.txtinhalt.Text = Me.c1daten.Columns("Inhalt").Value f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.c1daten.Columns("Inhalt").Value = f.txtinhalt.Text Me.c1daten.Columns("Betreff").Value = f.txtBetreff.Text End If End Sub Private Sub SQLBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SQLBearbeitenToolStripMenuItem.Click Dim f As New frmTexteditor f.TextBox1.Text = Me.c1daten.Columns("sql").Value f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.c1daten.Columns("SQL").Value = f.TextBox1.Text End If End Sub Private Sub ReportBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReportBearbeitenToolStripMenuItem.Click Dim f As New frmTexteditor f.TextBox1.Text = Me.c1daten.Columns("reportfile").Value f.ShowDialog() If f.DialogResult = DialogResult.OK Then Me.c1daten.Columns("reportfile").Value = f.TextBox1.Text End If End Sub Private Sub c1daten_DragDrop(sender As Object, e As DragEventArgs) Handles c1daten.DragDrop Dim files() As String = e.Data.GetData(DataFormats.FileDrop) For Each path In files Dim tb As New TextBox tb.Text = System.IO.File.ReadAllText(path) If UCase(System.IO.Path.GetExtension(path)) = ".SQL" Then Me.c1daten.Columns("SQL").Value = tb.Text Else Me.c1daten.Columns("reportfile").Value = tb.Text End If tb.Text = "" tb.Dispose() Next End Sub Private Sub c1daten_DragEnter(sender As Object, e As DragEventArgs) Handles c1daten.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.Copy End If End Sub End Class