Imports VERAG_PROG_ALLGEMEIN 
Imports System.Data.SqlClient

Public Class frmZuordnungKd
    Dim dataAdapter As New SqlDataAdapter
    Dim binding As New BindingSource
    Dim sql As New adminfunc
    Dim aend As Boolean = False

    Private Sub frmZuordnungKd_Load(sender As Object, e As EventArgs) Handles Me.Load
        Me.DataGridView1.DataSource = Me.binding
        initdgv()

    End Sub

    Private Sub frmZuordnungKd_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        If aend Then
            Select Case MsgBox("Änderungen speichern?", vbYesNoCancel)
                Case vbYes : setKdInAvisoDb()
                Case vbCancel : e.Cancel = True
            End Select
        End If

    End Sub
 
    Sub initdgv()
        'Dim d As New SqlDataAdapter()
        Try
            Dim connectionString As String = cSqlDb.GetAVISOConnectionString
            Dim sqlstr As String = " SELECT KundenNr,Firma, FirmaID " & _
                                   " FROM Firmen  "
            If cbxNurFirmenMitHinterlegterEmail.Checked Then sqlstr &= " where eMail<>'' or eMail2<>''"
            Me.dataAdapter = New SqlDataAdapter(sqlstr, connectionString)
        Catch ex As SqlException
            MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.")
        End Try
        Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapter)
        Dim table As New DataTable()
        Me.dataAdapter.Fill(table)
        'table.Columns("KundenNr").DefaultValue = kdNr
        table.Locale = System.Globalization.CultureInfo.InvariantCulture
        binding.DataSource = table

        DataGridView1.Columns(1).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        ' dgvSDLLeistungenFull.DataSource = sql.loadDgvBySql("SELECT KundenSDL.SDLNr, Speditionsdienstleistungen.SDLBez,[Sperre], [Sperrdatum], [Vertretungsvollmacht], [Auszahlungsvollmacht], [Finanzamtbestätigung], [Antragsdatum],[Vermerk],  KundenSDL.[Erfassungsdatum], KundenSDL.[Änderungsdatum],KundenSDL.[Sachbearbeiter] FROM KundenSDL,Speditionsdienstleistungen WHERE KundenSDL.KundenNr='" & kdNr & "' AND  Speditionsdienstleistungen.SDLNr=KundenSDL.SDLNr ")
    End Sub

    Sub initdgv2()
        Me.DataGridView2.DataSource = sql.getDatatable(VERAG_PROG_ALLGEMEIN.My.MySettings.Default.FMZOLLConnectionString, "SELECT [Auswahl],[AdressenNr],Ordnungsbegriff,[LandKz],[Ort],Straße FROM [Adressen] WHERE Ordnungsbegriff LIKE '%" & TextBox1.Text & "%' ORDER BY Auswahl")
        DataGridView2.Columns(2).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
        DataGridView2.Columns(0).Width = 50
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
        Try
            Me.binding.EndEdit()
            Me.dataAdapter.Update(CType(Me.binding.DataSource, DataTable))
            '   btnUpdate.Enabled = False
        Catch ex As Exception
            MsgBox("Es ist ein Fehler aufgetreten:" & vbNewLine & vbNewLine & ex.Message)
        End Try
    End Sub

    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If DataGridView1.SelectedCells.Count > 0 Then
            If DataGridView1.CurrentRow.Cells(1).Value.ToString.Contains(";") Then
                TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString.Split(CChar(";"))(0)
            Else
                TextBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
            End If

        End If
    End Sub
    Private Sub DataGridView2_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView2.CellDoubleClick
        aend = True
        If DataGridView2.SelectedCells.Count > 0 Then
            If DataGridView1.SelectedCells.Count > 0 Then
                DataGridView1.CurrentRow.Cells(0).Value = DataGridView2.CurrentRow.Cells(1).Value
            End If
        End If
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, Button1.Click
        initdgv2()
    End Sub

    Sub setKdInAvisoDb()
        For Each r As DataGridViewRow In DataGridView1.Rows
            If r.Cells(0).Value.ToString <> "" Then
                sql.setFirmenKdNr(r.Cells("Firma").Value.ToString, r.Cells("KundenNr").Value.ToString)
                sql.setAuftraggber(r.Cells("Firma").Value.ToString, r.Cells("KundenNr").Value.ToString)
                sql.setFraechter(r.Cells("Firma").Value.ToString, r.Cells("KundenNr").Value.ToString)
            End If
            'KundenNr, Firma
        Next
      
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        setKdInAvisoDb()
        aend = False
    End Sub

    Private Sub cbxNurFirmenMitHinterlegterEmail_CheckedChanged(sender As Object, e As EventArgs) Handles cbxNurFirmenMitHinterlegterEmail.CheckedChanged
        initdgv()
    End Sub
End Class