107 lines
4.9 KiB
VB.net
107 lines
4.9 KiB
VB.net
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 |