Imports VERAG_PROG_ALLGEMEIN

Public Class cKundenSearchVertrag


    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown, MyComboBox1.SelectedIndexChanged
        If e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab Then
            initDGV()
        End If
    End Sub
    Sub initDGV()
        With MyDatagridview1
            .Columns.Clear()
            '  .Rows.Clear()
            Dim whereFirmen = ""
            If MyComboBox1._value = 1 Then
                whereFirmen = "" 'Bei NCTS-Vertrag dürfen alle alles sehen!
            Else
                whereFirmen = " and (Select Firma from Filialen where filialen.FilialenNr=Kunden.FilialenNr)='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' "
            End If

            .SET_SQL("SELECT TOP (1000) [kv_Id],[kv_KundenNr],Ordnungsbegriff,[kv_erhalten_Datum],[kv_Info],[kv_datenarchivId],[kv_gueltig]
                      FROM [tblKundenVertraege] inner join tblKundenVertraegeArten on kv_vertragArtId=kva_Id
                      inner join Adressen on AdressenNr=kv_KundenNr
                      inner join Kunden on KundenNr=kv_KundenNr
                      where [kva_Id]='" & MyComboBox1._value & "'  and Ordnungsbegriff LIKE '" & TextBox1.Text & "%' " & whereFirmen, "FMZOLL")
            .LOAD()

            .Columns("kv_id").Visible = False
            .Columns("kv_datenarchivId").Visible = False
            .Columns("kv_KundenNr").HeaderText = "KundenNr"
            .Columns("Ordnungsbegriff").HeaderText = "Kunde"
            .Columns("Ordnungsbegriff").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("Ordnungsbegriff").MinimumWidth = 200
            .Columns("kv_erhalten_Datum").HeaderText = "Erhalten Am"
            .Columns("kv_Info").HeaderText = "Info"
            .Columns("kv_gueltig").HeaderText = "gültig"
            .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

        End With
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        initDGV()
    End Sub

    Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles MyDatagridview1.CellDoubleClick
        If e.RowIndex < 0 Then Exit Sub
        Dim daId = MyDatagridview1.Rows(e.RowIndex).Cells("kv_datenarchivId").Value
        Dim path = cDATENSERVER.GET_PDFPath_BY_DocID_onlyPATH(daId)
        If path <> "" Then
            If Not CBool(MyDatagridview1.Rows(e.RowIndex).Cells("kv_gueltig").Value) Then MsgBox("Achtung, Vertrag als 'nicht mehr gültig' eingetragen!")
            Process.Start(path)
        End If
    End Sub

    Private Sub cKundenSearchVertrag_Load(sender As Object, e As EventArgs) Handles Me.Load
        MyComboBox1.Items.Clear()
        MyComboBox1.fillWithSQL("SELECT kva_Id, kva_Bezeichnung FROM tblKundenVertraegeArten", False, "FMZOLL")
        MyComboBox1.changeItem("1")
    End Sub
End Class