Public Class usrCntlSearch

    Dim MAIN As frmCheckIn
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL


    Sub New(MAIN)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.MAIN = MAIN
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Private Sub txt_TextChanged(sender As Object, e As EventArgs) Handles txt.TextChanged
        initDGV()
    End Sub


    Sub initDGV()

        With MyDatagridview1

            Dim search = txt.Text
            If search.Length <= 2 Then .Columns.Clear() : Exit Sub

            Dim sqlstr = "SELECT TOP (20) [AvisoID],[LKW_Nr] LKW,[Frächter],Auftraggeber Avisierer
                          FROM [Aviso]
                          WHERE ((LKW_Nr LIKE '%" & search & "%') OR (Frächter LIKE '%" & search & "%') OR (Auftraggeber LIKE '%" & search & "%'))  AND Status NOT IN (1,2) AND Datum > DATEADD(MONTH,-1 ,GETDATE())
                          order by DATUM DESC"

            ' .SET_SQL(sqlstr, "AVISO")
            '.LOAD()
            .DataSource = SQL.loadDgvBySql(sqlstr, "AVISO")

            If .RowCount = 0 Then
                .Columns.Clear() : Exit Sub
            End If


            .Columns("AvisoID").Visible = False
            .Columns("LKW").Width = 400
            .Columns("Frächter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            '.loa.Columns("Avisierer").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("Avisierer").Visible = False

            '   MsgBox(dt.Rows(0)("AvisoID"))

        End With

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If MyDatagridview1.SelectedRows.Count > 0 Then
            MAIN.SET_FOUND(MyDatagridview1.SelectedRows(0).Cells("AvisoId").Value)
        End If
    End Sub

    Private Sub usrCntlSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
        txt.Focus()
        MAIN.TRANSLATE(Me)
    End Sub


End Class