DPM_PADM/DPM2016/Utils/frmSuche.vb

Imports System.IO
Public Class frmSuche

    Dim m_dokumentsuche As Boolean
    Property Dokumentsuche As Boolean
        Get
            Return m_dokumentsuche
        End Get
        Set(value As Boolean)
            m_dokumentsuche = value
        End Set
    End Property

    Dim m_key As Integer
    Property Key As Integer
        Get
            Return m_key
        End Get
        Set(value As Integer)
            m_key = value
        End Set
    End Property
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
        BeendenToolStripMenuItem_Click(sender, e)
    End Sub


    Private Sub C1Date_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick

        Try

            Key = Me.C1Daten.Columns(0).Value
            If Me.Dokumentsuche Then

                Me.DialogResult = DialogResult.OK
                Me.Close()
                Exit Sub
            End If
        Catch

        End Try

        Try
            Key = Me.C1Daten.Columns(0).Value
            Select Case Me.SuperTabControl1.SelectedTab.Text
                Case "Patient"
                    Cursor = Cursors.WaitCursor
                    Dim f As New Patient
                    f.MdiParent = Me.MdiParent
                    f.Show()
                    f.PatientNr = Key
                    Cursor = Cursors.Default

                Case "Firma"
                    Cursor = Cursors.WaitCursor
                    Dim f As New frmFirma
                    f.MdiParent = Me.MdiParent
                    f.Show()
                    f.Firmanr = Key
                    Cursor = Cursors.Default
                Case "Rechnung", "Zahlung"
                    Key = Me.C1Daten.Columns("DebitorNr").Value
                    If Key < 49999 Then
                        Cursor = Cursors.WaitCursor
                        Dim f As New Patient
                        f.MdiParent = Me.MdiParent
                        f.PatientNr = Key
                        f.Show()

                        Cursor = Cursors.Default
                    Else
                        Cursor = Cursors.WaitCursor
                        Dim f As New frmFirma
                        f.MdiParent = Me.MdiParent
                        f.Show()
                        f.Firmanr = Key
                        Cursor = Cursors.Default
                    End If
                Case "Dokumente"
                    DokumentAnzeigenToolStripMenuItem_Click(sender, e)
                Case "Freitext"
                    Cursor = Cursors.WaitCursor
                    Dim db As New clsDB
                    db.Get_Tabledata("Behandlu", " where nrbehandlung=" & Key.ToString)
                    Key = db.dsDaten.Tables(0).Rows(0).Item("nrpatient").ToString
                    Dim nrbehandlung As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString
                    Dim f As New Patient
                    f.MdiParent = Me.MdiParent
                    f.Show()
                    f.PatientNr = Key
                    f.Behandlung1.PatientNr = Key
                    f.SuperTabControl1.SelectedTabIndex = 3
                    f.Behandlung1.treebehandlungen.SelectedNode = Globals.FindNode(f.Behandlung1.treebehandlungen.Nodes, nrbehandlung, nrbehandlung)


                    Cursor = Cursors.Default
            End Select
        Catch
        End Try

    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim db As New clsDB
        db.Get_Tabledata("Zahlung", "", db.Get_SQL(34), Me.TextBox1.Text)
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
    End Sub

    Private Sub frmSuche_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Me.Dokumentsuche Then
            Me.SuperTabControl1.Tabs(2).Visible = False
            Me.SuperTabControl1.Tabs(3).Visible = False
            Me.SuperTabControl1.Tabs(4).Visible = False
            Me.DettailsAnzeigenToolStripMenuItem.Text = "Auswählen"
        End If
        If Globals.License.DMS = False Then
            Me.SuperTabControl1.Tabs(4).Visible = False
        End If
        If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
            Me.SuperTabItem1.Text = "Kunde"
            Me.SuperTabItem2.Visible = False
        End If
        If Globals.DruckBranche = False Then Me.SuperTabControl1.Tabs(5).Visible = False

    End Sub

    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then Button1_Click(sender, e)
    End Sub




    Private Sub TextBox2_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox2.KeyDown
        If e.KeyCode = Keys.Enter Then Button2_Click(sender, e)
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim db As New clsDB
        db.Get_Tabledata("Zahlung", "", db.Get_SQL(35), Me.TextBox2.Text)
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
    End Sub

    Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox3_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox3.KeyDown
        If e.KeyCode = Keys.Enter Then
            Button3_Click(sender, e)
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim db As New clsDB
        db.Get_Tabledata("Zahlung", "", db.Get_SQL(36), Me.TextBox3.Text)
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName

    End Sub

    Private Sub TextBox4_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox4.KeyDown
        If e.KeyCode = Keys.Enter Then
            Button4_Click(sender, e)
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim db As New clsDB
        db.Get_Tabledata("Zahlung", "", db.Get_SQL(37), Me.TextBox4.Text)
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
    End Sub

    Private Sub DettailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DettailsAnzeigenToolStripMenuItem.Click
        Me.C1Date_DoubleClick(sender, e)
    End Sub


    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim db As New clsDB
        db.Get_Tabledata("Dokumente", "", "SELECT top 100 nreintrag, dbo.get_name(Keyvalue) AS Empfaenger, bezeichnung, beschreibung, pfad, erstellt_am, Keyvalue FROM dbo.DMS_Dokument where aktiv=1 order by erstellt_am desc")
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
    End Sub

    Private Sub TextBox5_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox5.KeyDown
        If e.KeyCode = Keys.Enter Then Button5_Click(sender, e)
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim sql As String = "SELECT nreintrag as Nr, dbo.get_name(Keyvalue) AS Empfaenger, Bezeichnung, Beschreibung, Pfad, InDB, Erstellt_am, KeyValue FROM dbo.DMS_Dokument where aktiv=1 and "

        sql = sql + "("
        If IsNumeric(Me.TextBox5.Text) Then
            sql = sql + "Keyvalue='" + Me.TextBox5.Text + "' or dbo.get_name(keyvalue) like '%" + TextBox5.Text + "&' "
        Else
            sql = sql + "dbo.get_name(keyvalue) like '%" + TextBox5.Text + "%' "

        End If
        sql = sql + "or bezeichnung like '%" + TextBox5.Text + "%' "
        sql = sql + "or beschreibung like '%" + TextBox5.Text + "%' "
        sql = sql + ")"
        Dim db As New clsDB
        db.Get_Tabledata("Dokumente", "", sql)
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
        Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
        Me.C1Daten.Splits(0).DisplayColumns(1).Width = 150
        Me.C1Daten.Splits(0).DisplayColumns(2).Width = 150
        Me.C1Daten.Splits(0).DisplayColumns(3).Width = 150
        Me.C1Daten.Splits(0).DisplayColumns(4).Width = 150
        Me.C1Daten.Splits(0).DisplayColumns(5).Width = 0
        Me.C1Daten.Splits(0).DisplayColumns(6).Width = 70
        Me.C1Daten.Splits(0).DisplayColumns(7).Width = 0

    End Sub

    Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
        Try
            If C1Daten.Columns("indb").Value = "True" Then
                Dim d As New clsDok
                Dim s As String = d.Get_Dokument(Me.C1Daten.Columns("Nr").Value)
                Process.Start(s)
                IsFileInUse(s)
            Else
                Process.Start(Me.C1Daten.Columns("pfad").Value)
            End If
        Catch
        End Try
    End Sub
    Public Function IsFileInUse(sFile As String) As Boolean
        Try
            Using f As New IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
            End Using
        Catch Ex As Exception
            Return True
        End Try
        Return False
    End Function

    Private Sub PatientFirmaAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PatientFirmaAnzeigenToolStripMenuItem.Click
        Key = Me.C1Daten.Columns("keyvalue").Value
        If Key < 49999 Then
            Cursor = Cursors.WaitCursor
            Dim f As New Patient
            f.MdiParent = Me.MdiParent
            f.PatientNr = Key
            f.Show()

            Cursor = Cursors.Default
        Else
            Cursor = Cursors.WaitCursor
            Dim f As New frmFirma
            f.MdiParent = Me.MdiParent
            f.Show()
            f.Firmanr = Key
            Cursor = Cursors.Default
        End If
    End Sub

    Private Sub SuperTabControl1_SelectedTabChanged(sender As Object, e As DevComponents.DotNetBar.SuperTabStripSelectedTabChangedEventArgs) Handles SuperTabControl1.SelectedTabChanged
        Try
            Select Case Me.SuperTabControl1.SelectedTab.Name
                Case "Dokumente"
                    Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip2
                Case Else
                    Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
            End Select
        Catch
        End Try

    End Sub

    Private Sub btnSucheFreitext_Click(sender As Object, e As EventArgs) Handles btnSucheFreitext.Click
        Dim db As New clsDB
        db.Get_Tabledata("Freitextsuche", "", db.Get_SQL(50), Me.txtsucheFreitext.Text)
        Me.C1Daten.DataSource = Nothing
        Me.C1Daten.DataSource = db.dsDaten.Tables(0)
        Me.C1Daten.DataMember = db.dsDaten.Tables(0).TableName
    End Sub

    Private Sub txtsucheFreitext_KeyDown(sender As Object, e As KeyEventArgs) Handles txtsucheFreitext.KeyDown
        If e.KeyCode = Keys.Enter Then btnSucheFreitext_Click(sender, e)
    End Sub
End Class