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/ADMIN/frmZuordnungKd.vb
+++ b/Aviso/ADMIN/frmZuordnungKd.vb
@@ -0,0 +1,107 @@
+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