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.Designer.vb
+++ b/Aviso/ADMIN/frmZuordnungKd.Designer.vb
@@ -0,0 +1,217 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class frmZuordnungKd
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmZuordnungKd))
+        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.btnUpdate = New System.Windows.Forms.Button()
+        Me.DataGridView2 = New System.Windows.Forms.DataGridView()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.cbxNurFirmenMitHinterlegterEmail = New System.Windows.Forms.CheckBox()
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        Me.Panel2.SuspendLayout()
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SplitContainer1.Panel1.SuspendLayout()
+        Me.SplitContainer1.Panel2.SuspendLayout()
+        Me.SplitContainer1.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'DataGridView1
+        '
+        Me.DataGridView1.AllowUserToAddRows = False
+        Me.DataGridView1.AllowUserToDeleteRows = False
+        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView1.Location = New System.Drawing.Point(0, 0)
+        Me.DataGridView1.MultiSelect = False
+        Me.DataGridView1.Name = "DataGridView1"
+        Me.DataGridView1.Size = New System.Drawing.Size(622, 636)
+        Me.DataGridView1.TabIndex = 0
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(3, 35)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(423, 13)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Hier können Sie die Kunden vom AVISO mit den Stammdaten von FMZOLL verknüpfen:"
+        '
+        'btnUpdate
+        '
+        Me.btnUpdate.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnUpdate.Location = New System.Drawing.Point(432, 25)
+        Me.btnUpdate.Name = "btnUpdate"
+        Me.btnUpdate.Size = New System.Drawing.Size(185, 32)
+        Me.btnUpdate.TabIndex = 2
+        Me.btnUpdate.Text = "Update"
+        Me.btnUpdate.UseVisualStyleBackColor = True
+        Me.btnUpdate.Visible = False
+        '
+        'DataGridView2
+        '
+        Me.DataGridView2.AllowUserToAddRows = False
+        Me.DataGridView2.AllowUserToDeleteRows = False
+        Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.DataGridView2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.DataGridView2.Location = New System.Drawing.Point(0, 0)
+        Me.DataGridView2.MultiSelect = False
+        Me.DataGridView2.Name = "DataGridView2"
+        Me.DataGridView2.ReadOnly = True
+        Me.DataGridView2.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.DataGridView2.Size = New System.Drawing.Size(708, 636)
+        Me.DataGridView2.TabIndex = 3
+        '
+        'TextBox1
+        '
+        Me.TextBox1.Location = New System.Drawing.Point(623, 32)
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(339, 20)
+        Me.TextBox1.TabIndex = 4
+        '
+        'Button1
+        '
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.Location = New System.Drawing.Point(968, 25)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(121, 32)
+        Me.Button1.TabIndex = 5
+        Me.Button1.Text = "Suche"
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Button2
+        '
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.Location = New System.Drawing.Point(6, 3)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(185, 24)
+        Me.Button2.TabIndex = 6
+        Me.Button2.Text = "Daten in AvisoDB übernehmen"
+        Me.Button2.UseVisualStyleBackColor = True
+        '
+        'Panel1
+        '
+        Me.Panel1.BackColor = System.Drawing.Color.White
+        Me.Panel1.Controls.Add(Me.cbxNurFirmenMitHinterlegterEmail)
+        Me.Panel1.Controls.Add(Me.Label2)
+        Me.Panel1.Controls.Add(Me.Label1)
+        Me.Panel1.Controls.Add(Me.Button2)
+        Me.Panel1.Controls.Add(Me.btnUpdate)
+        Me.Panel1.Controls.Add(Me.Button1)
+        Me.Panel1.Controls.Add(Me.TextBox1)
+        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
+        Me.Panel1.Location = New System.Drawing.Point(0, 0)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(1334, 63)
+        Me.Panel1.TabIndex = 7
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(623, 16)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(52, 13)
+        Me.Label2.TabIndex = 7
+        Me.Label2.Text = "Suchtext:"
+        '
+        'Panel2
+        '
+        Me.Panel2.Controls.Add(Me.SplitContainer1)
+        Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.Panel2.Location = New System.Drawing.Point(0, 63)
+        Me.Panel2.Name = "Panel2"
+        Me.Panel2.Size = New System.Drawing.Size(1334, 636)
+        Me.Panel2.TabIndex = 8
+        '
+        'SplitContainer1
+        '
+        Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
+        Me.SplitContainer1.Name = "SplitContainer1"
+        '
+        'SplitContainer1.Panel1
+        '
+        Me.SplitContainer1.Panel1.Controls.Add(Me.DataGridView1)
+        '
+        'SplitContainer1.Panel2
+        '
+        Me.SplitContainer1.Panel2.Controls.Add(Me.DataGridView2)
+        Me.SplitContainer1.Size = New System.Drawing.Size(1334, 636)
+        Me.SplitContainer1.SplitterDistance = 622
+        Me.SplitContainer1.TabIndex = 4
+        '
+        'cbxNurFirmenMitHinterlegterEmail
+        '
+        Me.cbxNurFirmenMitHinterlegterEmail.AutoSize = True
+        Me.cbxNurFirmenMitHinterlegterEmail.Location = New System.Drawing.Point(250, 4)
+        Me.cbxNurFirmenMitHinterlegterEmail.Name = "cbxNurFirmenMitHinterlegterEmail"
+        Me.cbxNurFirmenMitHinterlegterEmail.Size = New System.Drawing.Size(174, 17)
+        Me.cbxNurFirmenMitHinterlegterEmail.TabIndex = 8
+        Me.cbxNurFirmenMitHinterlegterEmail.Text = "nur Firmen mit hinterlegter Email"
+        Me.cbxNurFirmenMitHinterlegterEmail.UseVisualStyleBackColor = True
+        '
+        'frmZuordnungKd
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1334, 699)
+        Me.Controls.Add(Me.Panel2)
+        Me.Controls.Add(Me.Panel1)
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmZuordnungKd"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "Zuordnung KdNr"
+        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        Me.Panel1.PerformLayout()
+        Me.Panel2.ResumeLayout(False)
+        Me.SplitContainer1.Panel1.ResumeLayout(False)
+        Me.SplitContainer1.Panel2.ResumeLayout(False)
+        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.SplitContainer1.ResumeLayout(False)
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents btnUpdate As System.Windows.Forms.Button
+    Friend WithEvents DataGridView2 As System.Windows.Forms.DataGridView
+    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Button2 As System.Windows.Forms.Button
+    Friend WithEvents Panel1 As System.Windows.Forms.Panel
+    Friend WithEvents Panel2 As System.Windows.Forms.Panel
+    Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents cbxNurFirmenMitHinterlegterEmail As System.Windows.Forms.CheckBox
+End Class
--- a/Aviso/ADMIN/frmZuordnungKd.resx
+++ b/Aviso/ADMIN/frmZuordnungKd.resx
--- 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