Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/frmKundenFremdeSpeditionen.vb
+++ b/Aviso/frmKundenFremdeSpeditionen.vb
@@ -0,0 +1,91 @@
+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