Imports VERAG_PROG_ALLGEMEIN

Public Class frmKundenFremdeSpeditionen
    Dim AvisoDAL As New cAvisoDAL
    'Dim WithEvents binding As New cBinding("FMZOLL")
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Private Sub DataGridView_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellDoubleClick
        If DataGridView.SelectedRows.Count > 0 Then
            Dim frmKundenFremdeSpedAdd As New frmKundenFremdeSpedAdd
            frmKundenFremdeSpedAdd.id = DataGridView.SelectedRows(0).Cells("fremdz_id").Value
            Me.Enabled = False
            frmKundenFremdeSpedAdd.ShowDialog()
            initDgv()
            Me.Enabled = True
        End If
    End Sub


    Private Sub frmKundenFremdeSpeditionen_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        ' binding.updateBinding()
    End Sub

    Private Sub frmKundenFremdeSpeditionen_Load(sender As Object, e As EventArgs) Handles Me.Load
        initDgv()
       
    End Sub
    Function getSqlStr() As String
        Dim sql = "SELECT * FROM tblFremdSpeditionenZuordnung WHERE  1=1 "
        If txtSuchen.Text <> "" Then sql &= " AND fremdz_firma LIKE '" & txtSuchen.Text & "%' "
        If txtPlz.Text <> "" Then sql &= " AND fremdz_plz LIKE '" & txtPlz.Text & "%' "
        If txtOrt.Text <> "" Then sql &= " AND fremdz_ort LIKE '" & txtOrt.Text & "%' "
        If txtSpedition.Text <> "" Then sql &= " AND fremdz_verzolltBei LIKE '" & txtSpedition.Text & "%' "
        Return sql
    End Function

    Private Sub DataGridView_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView.CellContentClick

    End Sub
    Sub initDgv()
        With DataGridView
            .Columns.Clear()
            .DataSource = SQL.loadDgvBySql(getSqlStr(), "FMZOLL")

            If .ColumnCount = 0 Then Exit Sub
            .Columns("fremdz_id").Visible = False
            .Columns("fremdz_Datum").Visible = False
            .Columns("fremdz_Sachbearbeiter").Visible = False
            .Columns("fremdz_KundenNr").Width = 70
            .Columns("fremdz_KundenNr").HeaderText = "KdNr"
            .Columns("fremdz_firma").Width = 200
            .Columns("fremdz_firma").HeaderText = "Firma"
            .Columns("fremdz_plz").Width = 50
            .Columns("fremdz_plz").HeaderText = "Plz"
            .Columns("fremdz_ort").Width = 150
            .Columns("fremdz_ort").HeaderText = "Ort"
            .Columns("fremdz_SpeditionKundenNr").Width = 70
            .Columns("fremdz_SpeditionKundenNr").HeaderText = "Sped.KdNr"
            .Columns("fremdz_verzolltBei").Width = 200
            .Columns("fremdz_verzolltBei").HeaderText = "Spedition"
            .Columns("fremdz_bemerkung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
            .Columns("fremdz_bemerkung").HeaderText = "Bemerkung"

          
        End With
    End Sub
    Private Sub txtSuchen_TextChanged(sender As Object, e As EventArgs) Handles txtSuchen.TextChanged, txtPlz.TextChanged, txtOrt.TextChanged, txtSpedition.TextChanged
        initDgv()
    End Sub

    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
        Dim frmKundenFremdeSpedAdd As New frmKundenFremdeSpedAdd
        frmKundenFremdeSpedAdd.ShowDialog()
        initDgv()
    End Sub


    Private Sub FlatButton2_Click(sender As Object, e As EventArgs) Handles FlatButton2.Click
        delEntry()
    End Sub

    Function delEntry() As Boolean
        delEntry = True
        If DataGridView.SelectedRows.Count > 0 Then
            If MessageBox.Show("Möchten Sie den Eintrag wirklich löschen?", "Eintrag Löschen", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                delEntry = False
                VERAG_PROG_ALLGEMEIN.cFremdSpeditionenZuordnung.DELETE(DataGridView.SelectedRows(0).Cells("fremdz_id").Value)
                initDgv()
            End If
        End If
    End Function
End Class