91 lines
3.9 KiB
VB.net
91 lines
3.9 KiB
VB.net
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 |