Public Class frmWarenbezeichnungBegriffe
    Public WB As VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe = Nothing

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

    Private Sub frmWarenbezeichnungBegriffe_Load(sender As Object, e As EventArgs) Handles Me.Load
        initDGV()
        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_WarenbegriffeBearbeiten", Me) Then
            Button1.Visible = True
            Button2.Visible = True
            Button3.Visible = True
        End If
        txtSuche.Focus()
    End Sub


    Sub initDGV()
        With dgvWB
            .Columns.Clear()
            Dim where = ""
            If txtSuche.Text <> "" Then
                where &= " AND (wb_Begriff LIKE '%" & txtSuche.Text & "%' OR wb_beispiele LIKE '%" & txtSuche.Text & "%') "
            End If

            .DataSource = SQL.loadDgvBySql("SELECT wb_id, wb_Begriff, wb_beispiele FROM tblWarenbezeichnungBegriffe  WHERE 1=1 " & where & " Order By wb_begriff", "FMZOLL")
            If .ColumnCount > 0 Then
                .Columns("wb_id").Visible = False
                .Columns("wb_Begriff").HeaderText = "Begriff"
                .Columns("wb_Begriff").Width = 250
                .Columns("wb_beispiele").HeaderText = "Beispiele"
                .Columns("wb_beispiele").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                .ClearSelection()
            End If
        End With
    End Sub

    Sub selectWB()
        If dgvWB.SelectedRows.Count > 0 Then
            WB = New VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe(dgvWB.SelectedRows(0).Cells("wb_id").Value)
            Me.DialogResult = DialogResult.OK
            Me.Close()
        End If
    End Sub
    Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
        selectWB()
    End Sub

    Private Sub dgvWB_DoubleClick(sender As Object, e As EventArgs) Handles dgvWB.DoubleClick
        selectWB()
    End Sub
    Private Sub dgvWB_DoubleClick2(sender As Object, e As EventArgs) Handles dgvWB.CellContentDoubleClick
        selectWB()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim f As New frmWarenbezeichnungBegriffeEdit
        f.ShowDialog(Me)
        initDGV()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If dgvWB.SelectedRows.Count > 0 Then
            Dim f As New frmWarenbezeichnungBegriffeEdit(dgvWB.SelectedRows(0).Cells("wb_id").Value)
            f.ShowDialog(Me)
            initDGV()
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If dgvWB.SelectedRows.Count > 0 Then
            If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
                WB = New VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe(dgvWB.SelectedRows(0).Cells("wb_id").Value)
                WB.DELETE()
                initDGV()
            End If
        End If
    End Sub

    Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
        initDGV()
    End Sub
End Class