DPM_PADM/DPM2016/Klassen/clsStammdaten_flat.vb

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 m_allowaddnew As Boolean = True
    Property AllowAddNew As Boolean
        Get
            Return m_allowaddnew
        End Get
        Set(value As Boolean)
            m_allowaddnew = 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
            If Me.AllowAddNew = False Then
                Me.c1daten.AllowAddNew = False
                Me.c1daten.AllowUpdate = False
            End If
        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