EDOKA_DMS/EDOKA/Partner/frmPartnerzusammenlegung.vb

Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32

Public Class frmPartnerzusammenlegung
    Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "

    Public Sub New()
        MyBase.New()

        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
        InitializeComponent()

        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen

    End Sub

    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    ' Für Windows Form-Designer erforderlich
    Private components As System.ComponentModel.IContainer

    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
    'Sie kann mit dem Windows Form-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox13 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox14 As System.Windows.Forms.TextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents Label13 As System.Windows.Forms.Label
    Friend WithEvents TextBox15 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox16 As System.Windows.Forms.TextBox
    Friend WithEvents Label14 As System.Windows.Forms.Label
    Friend WithEvents Abbruch As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Label15 As System.Windows.Forms.Label
    Friend WithEvents btnDossierHaupt As System.Windows.Forms.Button
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    Friend WithEvents Button7 As System.Windows.Forms.Button
    Friend WithEvents Button8 As System.Windows.Forms.Button
    Friend WithEvents Textbox2 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox17 As System.Windows.Forms.TextBox
    Friend WithEvents Label16 As System.Windows.Forms.Label
    Friend WithEvents TextBox18 As System.Windows.Forms.TextBox
    Friend WithEvents Label17 As System.Windows.Forms.Label
    Friend WithEvents Detaillist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents btnPartnerauswahl1 As System.Windows.Forms.Button
    Friend WithEvents btnpartnerauswahl2 As System.Windows.Forms.Button
    Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
    Friend WithEvents ToolBarButton3 As System.Windows.Forms.ToolBarButton
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents C1TrueDBGrid1 As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
    Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
    Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
    Friend WithEvents TextBox19 As System.Windows.Forms.TextBox
    Friend WithEvents Label18 As System.Windows.Forms.Label
    Friend WithEvents TextBox20 As System.Windows.Forms.TextBox
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents Label20 As System.Windows.Forms.Label
    Friend WithEvents Label21 As System.Windows.Forms.Label
    Friend WithEvents btninaktivieren As System.Windows.Forms.Button
    Friend WithEvents ToolBarButton4 As System.Windows.Forms.ToolBarButton
    Friend WithEvents BtnHelp As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPartnerzusammenlegung))
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.Label20 = New System.Windows.Forms.Label()
        Me.TextBox19 = New System.Windows.Forms.TextBox()
        Me.Label18 = New System.Windows.Forms.Label()
        Me.Detaillist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.TextBox17 = New System.Windows.Forms.TextBox()
        Me.Label16 = New System.Windows.Forms.Label()
        Me.Button7 = New System.Windows.Forms.Button()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.ListBox1 = New System.Windows.Forms.ListBox()
        Me.btnDossierHaupt = New System.Windows.Forms.Button()
        Me.Label15 = New System.Windows.Forms.Label()
        Me.TextBox15 = New System.Windows.Forms.TextBox()
        Me.Label13 = New System.Windows.Forms.Label()
        Me.TextBox7 = New System.Windows.Forms.TextBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.TextBox6 = New System.Windows.Forms.TextBox()
        Me.TextBox5 = New System.Windows.Forms.TextBox()
        Me.TextBox4 = New System.Windows.Forms.TextBox()
        Me.TextBox3 = New System.Windows.Forms.TextBox()
        Me.Textbox2 = New System.Windows.Forms.TextBox()
        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.btnPartnerauswahl1 = New System.Windows.Forms.Button()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.Label21 = New System.Windows.Forms.Label()
        Me.TextBox20 = New System.Windows.Forms.TextBox()
        Me.Label19 = New System.Windows.Forms.Label()
        Me.TextBox18 = New System.Windows.Forms.TextBox()
        Me.Label17 = New System.Windows.Forms.Label()
        Me.Button8 = New System.Windows.Forms.Button()
        Me.Button5 = New System.Windows.Forms.Button()
        Me.Button4 = New System.Windows.Forms.Button()
        Me.TextBox16 = New System.Windows.Forms.TextBox()
        Me.Label14 = New System.Windows.Forms.Label()
        Me.TextBox8 = New System.Windows.Forms.TextBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.TextBox9 = New System.Windows.Forms.TextBox()
        Me.TextBox10 = New System.Windows.Forms.TextBox()
        Me.TextBox11 = New System.Windows.Forms.TextBox()
        Me.TextBox12 = New System.Windows.Forms.TextBox()
        Me.TextBox13 = New System.Windows.Forms.TextBox()
        Me.TextBox14 = New System.Windows.Forms.TextBox()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.Label11 = New System.Windows.Forms.Label()
        Me.Label12 = New System.Windows.Forms.Label()
        Me.btnpartnerauswahl2 = New System.Windows.Forms.Button()
        Me.Abbruch = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.CheckBox1 = New System.Windows.Forms.CheckBox()
        Me.ToolBar1 = New System.Windows.Forms.ToolBar()
        Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton3 = New System.Windows.Forms.ToolBarButton()
        Me.ToolBarButton4 = New System.Windows.Forms.ToolBarButton()
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem7 = New System.Windows.Forms.MenuItem()
        Me.MenuItem3 = New System.Windows.Forms.MenuItem()
        Me.MenuItem2 = New System.Windows.Forms.MenuItem()
        Me.MenuItem1 = New System.Windows.Forms.MenuItem()
        Me.C1TrueDBGrid1 = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ContextMenu2 = New System.Windows.Forms.ContextMenu()
        Me.MenuItem4 = New System.Windows.Forms.MenuItem()
        Me.MenuItem5 = New System.Windows.Forms.MenuItem()
        Me.MenuItem6 = New System.Windows.Forms.MenuItem()
        Me.btninaktivieren = New System.Windows.Forms.Button()
        Me.BtnHelp = New System.Windows.Forms.Button()
        Me.GroupBox1.SuspendLayout()
        CType(Me.Detaillist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.Panel1.SuspendLayout()
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Label20)
        Me.GroupBox1.Controls.Add(Me.TextBox19)
        Me.GroupBox1.Controls.Add(Me.Label18)
        Me.GroupBox1.Controls.Add(Me.Detaillist)
        Me.GroupBox1.Controls.Add(Me.TextBox17)
        Me.GroupBox1.Controls.Add(Me.Label16)
        Me.GroupBox1.Controls.Add(Me.Button7)
        Me.GroupBox1.Controls.Add(Me.GroupBox3)
        Me.GroupBox1.Controls.Add(Me.btnDossierHaupt)
        Me.GroupBox1.Controls.Add(Me.Label15)
        Me.GroupBox1.Controls.Add(Me.TextBox15)
        Me.GroupBox1.Controls.Add(Me.Label13)
        Me.GroupBox1.Controls.Add(Me.TextBox7)
        Me.GroupBox1.Controls.Add(Me.Label6)
        Me.GroupBox1.Controls.Add(Me.TextBox6)
        Me.GroupBox1.Controls.Add(Me.TextBox5)
        Me.GroupBox1.Controls.Add(Me.TextBox4)
        Me.GroupBox1.Controls.Add(Me.TextBox3)
        Me.GroupBox1.Controls.Add(Me.Textbox2)
        Me.GroupBox1.Controls.Add(Me.TextBox1)
        Me.GroupBox1.Controls.Add(Me.Label5)
        Me.GroupBox1.Controls.Add(Me.Label4)
        Me.GroupBox1.Controls.Add(Me.Label3)
        Me.GroupBox1.Controls.Add(Me.Label2)
        Me.GroupBox1.Controls.Add(Me.Label1)
        Me.GroupBox1.Location = New System.Drawing.Point(8, 32)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(568, 512)
        Me.GroupBox1.TabIndex = 3
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Hauptpartner"
        '
        'Label20
        '
        Me.Label20.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label20.ForeColor = System.Drawing.Color.Red
        Me.Label20.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Label20.Location = New System.Drawing.Point(288, 448)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(272, 23)
        Me.Label20.TabIndex = 29
        Me.Label20.Text = "Partner hat keine Dokumente"
        Me.Label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TextBox19
        '
        Me.TextBox19.BackColor = System.Drawing.Color.White
        Me.TextBox19.Location = New System.Drawing.Point(360, 320)
        Me.TextBox19.Name = "TextBox19"
        Me.TextBox19.ReadOnly = True
        Me.TextBox19.Size = New System.Drawing.Size(200, 20)
        Me.TextBox19.TabIndex = 9
        Me.TextBox19.Text = "Meier Fredy, TG1234"
        '
        'Label18
        '
        Me.Label18.Location = New System.Drawing.Point(288, 320)
        Me.Label18.Name = "Label18"
        Me.Label18.Size = New System.Drawing.Size(72, 24)
        Me.Label18.TabIndex = 27
        Me.Label18.Text = "Mutations-Datum"
        '
        'Detaillist
        '
        Me.Detaillist.AllowUpdateOnBlur = False
        Me.Detaillist.AlternatingRows = True
        Me.Detaillist.Cursor = System.Windows.Forms.Cursors.Default
        Me.Detaillist.FetchRowStyles = True
        Me.Detaillist.FilterBar = True
        Me.Detaillist.GroupByCaption = "Drag a column header here to group by that column"
        Me.Detaillist.Images.Add(CType(resources.GetObject("Detaillist.Images"), System.Drawing.Image))
        Me.Detaillist.Location = New System.Drawing.Point(288, 368)
        Me.Detaillist.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.Detaillist.Name = "Detaillist"
        Me.Detaillist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.Detaillist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.Detaillist.PreviewInfo.ZoomFactor = 75.0R
        Me.Detaillist.PrintInfo.PageSettings = CType(resources.GetObject("Detaillist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.Detaillist.RecordSelectors = False
        Me.Detaillist.ScrollTips = True
        Me.Detaillist.Size = New System.Drawing.Size(272, 100)
        Me.Detaillist.TabIndex = 10
        Me.Detaillist.Text = "C1TrueDBGrid1"
        Me.Detaillist.PropBag = resources.GetString("Detaillist.PropBag")
        '
        'TextBox17
        '
        Me.TextBox17.BackColor = System.Drawing.Color.White
        Me.TextBox17.Location = New System.Drawing.Point(360, 288)
        Me.TextBox17.Name = "TextBox17"
        Me.TextBox17.ReadOnly = True
        Me.TextBox17.Size = New System.Drawing.Size(200, 20)
        Me.TextBox17.TabIndex = 8
        Me.TextBox17.Text = "Meier Fredy, TG1234"
        '
        'Label16
        '
        Me.Label16.Location = New System.Drawing.Point(288, 288)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(72, 24)
        Me.Label16.TabIndex = 22
        Me.Label16.Text = "Kunden-berater"
        '
        'Button7
        '
        Me.Button7.Location = New System.Drawing.Point(288, 480)
        Me.Button7.Name = "Button7"
        Me.Button7.Size = New System.Drawing.Size(128, 23)
        Me.Button7.TabIndex = 11
        Me.Button7.Text = "Partnerinformationen"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.ListBox1)
        Me.GroupBox3.Location = New System.Drawing.Point(8, 24)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(256, 456)
        Me.GroupBox3.TabIndex = 0
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "Zur Verfügung stehende Hauptpartner"
        '
        'ListBox1
        '
        Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.ListBox1.Location = New System.Drawing.Point(3, 16)
        Me.ListBox1.Name = "ListBox1"
        Me.ListBox1.Size = New System.Drawing.Size(250, 437)
        Me.ListBox1.TabIndex = 0
        '
        'btnDossierHaupt
        '
        Me.btnDossierHaupt.Location = New System.Drawing.Point(432, 480)
        Me.btnDossierHaupt.Name = "btnDossierHaupt"
        Me.btnDossierHaupt.Size = New System.Drawing.Size(128, 23)
        Me.btnDossierHaupt.TabIndex = 12
        Me.btnDossierHaupt.Text = "Partnerdossier"
        '
        'Label15
        '
        Me.Label15.Location = New System.Drawing.Point(288, 352)
        Me.Label15.Name = "Label15"
        Me.Label15.Size = New System.Drawing.Size(112, 16)
        Me.Label15.TabIndex = 17
        Me.Label15.Text = "Partnerdetails"
        '
        'TextBox15
        '
        Me.TextBox15.BackColor = System.Drawing.Color.White
        Me.TextBox15.Location = New System.Drawing.Point(360, 256)
        Me.TextBox15.Name = "TextBox15"
        Me.TextBox15.ReadOnly = True
        Me.TextBox15.Size = New System.Drawing.Size(200, 20)
        Me.TextBox15.TabIndex = 7
        Me.TextBox15.Text = "Meier Fredy, TG1234"
        '
        'Label13
        '
        Me.Label13.Location = New System.Drawing.Point(288, 256)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(72, 24)
        Me.Label13.TabIndex = 13
        Me.Label13.Text = "Kurzbez."
        '
        'TextBox7
        '
        Me.TextBox7.BackColor = System.Drawing.Color.White
        Me.TextBox7.Location = New System.Drawing.Point(360, 160)
        Me.TextBox7.Multiline = True
        Me.TextBox7.Name = "TextBox7"
        Me.TextBox7.ReadOnly = True
        Me.TextBox7.Size = New System.Drawing.Size(200, 80)
        Me.TextBox7.TabIndex = 6
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(288, 160)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(72, 32)
        Me.Label6.TabIndex = 11
        Me.Label6.Text = "Inhaber-adresse"
        '
        'TextBox6
        '
        Me.TextBox6.BackColor = System.Drawing.Color.White
        Me.TextBox6.Location = New System.Drawing.Point(416, 128)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.ReadOnly = True
        Me.TextBox6.Size = New System.Drawing.Size(144, 20)
        Me.TextBox6.TabIndex = 5
        Me.TextBox6.Text = "Frauenfeld"
        '
        'TextBox5
        '
        Me.TextBox5.BackColor = System.Drawing.Color.White
        Me.TextBox5.Location = New System.Drawing.Point(360, 128)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.ReadOnly = True
        Me.TextBox5.Size = New System.Drawing.Size(48, 20)
        Me.TextBox5.TabIndex = 4
        Me.TextBox5.Text = "8500"
        '
        'TextBox4
        '
        Me.TextBox4.BackColor = System.Drawing.Color.White
        Me.TextBox4.Location = New System.Drawing.Point(360, 104)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.ReadOnly = True
        Me.TextBox4.Size = New System.Drawing.Size(200, 20)
        Me.TextBox4.TabIndex = 3
        Me.TextBox4.Text = "Winzerweg 12"
        '
        'TextBox3
        '
        Me.TextBox3.BackColor = System.Drawing.Color.White
        Me.TextBox3.Location = New System.Drawing.Point(360, 80)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.ReadOnly = True
        Me.TextBox3.Size = New System.Drawing.Size(200, 20)
        Me.TextBox3.TabIndex = 2
        Me.TextBox3.Text = "Hans"
        '
        'Textbox2
        '
        Me.Textbox2.BackColor = System.Drawing.Color.White
        Me.Textbox2.Location = New System.Drawing.Point(360, 56)
        Me.Textbox2.Name = "Textbox2"
        Me.Textbox2.ReadOnly = True
        Me.Textbox2.Size = New System.Drawing.Size(200, 20)
        Me.Textbox2.TabIndex = 1
        Me.Textbox2.Text = "Muster"
        '
        'TextBox1
        '
        Me.TextBox1.BackColor = System.Drawing.Color.White
        Me.TextBox1.Location = New System.Drawing.Point(360, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.ReadOnly = True
        Me.TextBox1.Size = New System.Drawing.Size(200, 20)
        Me.TextBox1.TabIndex = 0
        Me.TextBox1.Text = "1065467"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(288, 24)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 23)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "Partnernr"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(288, 128)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(72, 23)
        Me.Label4.TabIndex = 3
        Me.Label4.Text = "PLZ/Ort"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(288, 104)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 23)
        Me.Label3.TabIndex = 2
        Me.Label3.Text = "Strasse"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(288, 80)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 23)
        Me.Label2.TabIndex = 1
        Me.Label2.Text = "Vorname"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(288, 56)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 23)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Name/Firma"
        '
        'btnPartnerauswahl1
        '
        Me.btnPartnerauswahl1.Image = CType(resources.GetObject("btnPartnerauswahl1.Image"), System.Drawing.Image)
        Me.btnPartnerauswahl1.Location = New System.Drawing.Point(552, 8)
        Me.btnPartnerauswahl1.Name = "btnPartnerauswahl1"
        Me.btnPartnerauswahl1.Size = New System.Drawing.Size(24, 24)
        Me.btnPartnerauswahl1.TabIndex = 1
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label21)
        Me.GroupBox2.Controls.Add(Me.TextBox20)
        Me.GroupBox2.Controls.Add(Me.Label19)
        Me.GroupBox2.Controls.Add(Me.TextBox18)
        Me.GroupBox2.Controls.Add(Me.Label17)
        Me.GroupBox2.Controls.Add(Me.Button8)
        Me.GroupBox2.Controls.Add(Me.Button5)
        Me.GroupBox2.Controls.Add(Me.Button4)
        Me.GroupBox2.Controls.Add(Me.TextBox16)
        Me.GroupBox2.Controls.Add(Me.Label14)
        Me.GroupBox2.Controls.Add(Me.TextBox8)
        Me.GroupBox2.Controls.Add(Me.Label7)
        Me.GroupBox2.Controls.Add(Me.TextBox9)
        Me.GroupBox2.Controls.Add(Me.TextBox10)
        Me.GroupBox2.Controls.Add(Me.TextBox11)
        Me.GroupBox2.Controls.Add(Me.TextBox12)
        Me.GroupBox2.Controls.Add(Me.TextBox13)
        Me.GroupBox2.Controls.Add(Me.TextBox14)
        Me.GroupBox2.Controls.Add(Me.Label8)
        Me.GroupBox2.Controls.Add(Me.Label9)
        Me.GroupBox2.Controls.Add(Me.Label10)
        Me.GroupBox2.Controls.Add(Me.Label11)
        Me.GroupBox2.Controls.Add(Me.Label12)
        Me.GroupBox2.Location = New System.Drawing.Point(584, 32)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(296, 512)
        Me.GroupBox2.TabIndex = 4
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "<< Partner für Zusammenlegung"
        '
        'Label21
        '
        Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label21.ForeColor = System.Drawing.Color.Red
        Me.Label21.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Label21.Location = New System.Drawing.Point(8, 448)
        Me.Label21.Name = "Label21"
        Me.Label21.Size = New System.Drawing.Size(272, 23)
        Me.Label21.TabIndex = 35
        Me.Label21.Text = "Partner hat keine Dokumente"
        Me.Label21.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'TextBox20
        '
        Me.TextBox20.BackColor = System.Drawing.Color.White
        Me.TextBox20.Location = New System.Drawing.Point(80, 320)
        Me.TextBox20.Name = "TextBox20"
        Me.TextBox20.ReadOnly = True
        Me.TextBox20.Size = New System.Drawing.Size(200, 20)
        Me.TextBox20.TabIndex = 9
        Me.TextBox20.Text = "Meier Fredy, TG1234"
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(8, 320)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(72, 24)
        Me.Label19.TabIndex = 33
        Me.Label19.Text = "Mutations-Datum"
        '
        'TextBox18
        '
        Me.TextBox18.BackColor = System.Drawing.Color.White
        Me.TextBox18.Location = New System.Drawing.Point(80, 256)
        Me.TextBox18.Name = "TextBox18"
        Me.TextBox18.ReadOnly = True
        Me.TextBox18.Size = New System.Drawing.Size(200, 20)
        Me.TextBox18.TabIndex = 7
        Me.TextBox18.Text = "Müller Hugo, TG6789"
        '
        'Label17
        '
        Me.Label17.Location = New System.Drawing.Point(8, 256)
        Me.Label17.Name = "Label17"
        Me.Label17.Size = New System.Drawing.Size(72, 24)
        Me.Label17.TabIndex = 31
        Me.Label17.Text = "Kurzbez."
        '
        'Button8
        '
        Me.Button8.Location = New System.Drawing.Point(8, 480)
        Me.Button8.Name = "Button8"
        Me.Button8.Size = New System.Drawing.Size(128, 23)
        Me.Button8.TabIndex = 10
        Me.Button8.Text = "Partnerdossier"
        '
        'Button5
        '
        Me.Button5.Image = CType(resources.GetObject("Button5.Image"), System.Drawing.Image)
        Me.Button5.Location = New System.Drawing.Point(232, 480)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(56, 23)
        Me.Button5.TabIndex = 12
        '
        'Button4
        '
        Me.Button4.Image = CType(resources.GetObject("Button4.Image"), System.Drawing.Image)
        Me.Button4.Location = New System.Drawing.Point(176, 480)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(56, 23)
        Me.Button4.TabIndex = 11
        '
        'TextBox16
        '
        Me.TextBox16.BackColor = System.Drawing.Color.White
        Me.TextBox16.Location = New System.Drawing.Point(80, 288)
        Me.TextBox16.Name = "TextBox16"
        Me.TextBox16.ReadOnly = True
        Me.TextBox16.Size = New System.Drawing.Size(200, 20)
        Me.TextBox16.TabIndex = 8
        Me.TextBox16.Text = "Müller Hugo, TG6789"
        '
        'Label14
        '
        Me.Label14.Location = New System.Drawing.Point(8, 288)
        Me.Label14.Name = "Label14"
        Me.Label14.Size = New System.Drawing.Size(72, 24)
        Me.Label14.TabIndex = 26
        Me.Label14.Text = "Erfasser"
        '
        'TextBox8
        '
        Me.TextBox8.BackColor = System.Drawing.Color.White
        Me.TextBox8.Location = New System.Drawing.Point(80, 160)
        Me.TextBox8.Multiline = True
        Me.TextBox8.Name = "TextBox8"
        Me.TextBox8.ReadOnly = True
        Me.TextBox8.Size = New System.Drawing.Size(200, 80)
        Me.TextBox8.TabIndex = 6
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(8, 160)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(72, 23)
        Me.Label7.TabIndex = 24
        Me.Label7.Text = "Adresse"
        '
        'TextBox9
        '
        Me.TextBox9.BackColor = System.Drawing.Color.White
        Me.TextBox9.Location = New System.Drawing.Point(136, 128)
        Me.TextBox9.Name = "TextBox9"
        Me.TextBox9.ReadOnly = True
        Me.TextBox9.Size = New System.Drawing.Size(144, 20)
        Me.TextBox9.TabIndex = 5
        Me.TextBox9.Text = "Frauenfeld"
        '
        'TextBox10
        '
        Me.TextBox10.Location = New System.Drawing.Point(80, 128)
        Me.TextBox10.Name = "TextBox10"
        Me.TextBox10.Size = New System.Drawing.Size(48, 20)
        Me.TextBox10.TabIndex = 4
        Me.TextBox10.Text = "8500"
        '
        'TextBox11
        '
        Me.TextBox11.BackColor = System.Drawing.Color.White
        Me.TextBox11.Location = New System.Drawing.Point(80, 104)
        Me.TextBox11.Name = "TextBox11"
        Me.TextBox11.ReadOnly = True
        Me.TextBox11.Size = New System.Drawing.Size(200, 20)
        Me.TextBox11.TabIndex = 3
        Me.TextBox11.Text = "Winzerweg 12"
        '
        'TextBox12
        '
        Me.TextBox12.BackColor = System.Drawing.Color.White
        Me.TextBox12.Location = New System.Drawing.Point(80, 80)
        Me.TextBox12.Name = "TextBox12"
        Me.TextBox12.ReadOnly = True
        Me.TextBox12.Size = New System.Drawing.Size(200, 20)
        Me.TextBox12.TabIndex = 2
        Me.TextBox12.Text = "Hans"
        '
        'TextBox13
        '
        Me.TextBox13.BackColor = System.Drawing.Color.White
        Me.TextBox13.Location = New System.Drawing.Point(80, 56)
        Me.TextBox13.Name = "TextBox13"
        Me.TextBox13.ReadOnly = True
        Me.TextBox13.Size = New System.Drawing.Size(200, 20)
        Me.TextBox13.TabIndex = 1
        Me.TextBox13.Text = "Muster"
        '
        'TextBox14
        '
        Me.TextBox14.BackColor = System.Drawing.Color.White
        Me.TextBox14.Location = New System.Drawing.Point(80, 24)
        Me.TextBox14.Name = "TextBox14"
        Me.TextBox14.ReadOnly = True
        Me.TextBox14.Size = New System.Drawing.Size(200, 20)
        Me.TextBox14.TabIndex = 0
        Me.TextBox14.Text = "91004587"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(8, 24)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(72, 23)
        Me.Label8.TabIndex = 17
        Me.Label8.Text = "Partnernr"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(8, 128)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(72, 23)
        Me.Label9.TabIndex = 16
        Me.Label9.Text = "PLZ/Ort"
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(8, 104)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(72, 23)
        Me.Label10.TabIndex = 15
        Me.Label10.Text = "Strasse"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(8, 80)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(72, 23)
        Me.Label11.TabIndex = 14
        Me.Label11.Text = "Vorname"
        '
        'Label12
        '
        Me.Label12.Location = New System.Drawing.Point(8, 56)
        Me.Label12.Name = "Label12"
        Me.Label12.Size = New System.Drawing.Size(72, 23)
        Me.Label12.TabIndex = 13
        Me.Label12.Text = "Name"
        '
        'btnpartnerauswahl2
        '
        Me.btnpartnerauswahl2.Image = CType(resources.GetObject("btnpartnerauswahl2.Image"), System.Drawing.Image)
        Me.btnpartnerauswahl2.Location = New System.Drawing.Point(824, 8)
        Me.btnpartnerauswahl2.Name = "btnpartnerauswahl2"
        Me.btnpartnerauswahl2.Size = New System.Drawing.Size(24, 24)
        Me.btnpartnerauswahl2.TabIndex = 2
        '
        'Abbruch
        '
        Me.Abbruch.Location = New System.Drawing.Point(440, 552)
        Me.Abbruch.Name = "Abbruch"
        Me.Abbruch.Size = New System.Drawing.Size(128, 24)
        Me.Abbruch.TabIndex = 8
        Me.Abbruch.Text = "Abbruch"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(592, 552)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(128, 24)
        Me.Button2.TabIndex = 7
        Me.Button2.Text = "Nicht zusammenlegen"
        '
        'Button3
        '
        Me.Button3.Location = New System.Drawing.Point(736, 552)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(136, 24)
        Me.Button3.TabIndex = 5
        Me.Button3.Text = "Zusammenlegen"
        '
        'CheckBox1
        '
        Me.CheckBox1.Location = New System.Drawing.Point(312, 560)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(104, 24)
        Me.CheckBox1.TabIndex = 5
        Me.CheckBox1.Text = "Mail an KuBe"
        Me.CheckBox1.Visible = False
        '
        'ToolBar1
        '
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(888, 28)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Name = "ToolBarButton1"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 1
        Me.ToolBarButton2.Name = "ToolBarButton2"
        Me.ToolBarButton2.ToolTipText = "Pendente Zusammenlegungen"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 2
        Me.ToolBarButton3.Name = "ToolBarButton3"
        Me.ToolBarButton3.ToolTipText = "Zusammengelegte Partner"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 3
        Me.ToolBarButton4.Name = "ToolBarButton4"
        Me.ToolBarButton4.ToolTipText = "Ansicht schliessen"
        '
        'ImageList1
        '
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        Me.ImageList1.Images.SetKeyName(0, "")
        Me.ImageList1.Images.SetKeyName(1, "")
        Me.ImageList1.Images.SetKeyName(2, "")
        Me.ImageList1.Images.SetKeyName(3, "")
        '
        'Panel1
        '
        Me.Panel1.ContextMenu = Me.ContextMenu1
        Me.Panel1.Controls.Add(Me.C1TrueDBGrid1)
        Me.Panel1.Location = New System.Drawing.Point(176, 552)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(112, 32)
        Me.Panel1.TabIndex = 34
        Me.Panel1.Visible = False
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem3, Me.MenuItem2, Me.MenuItem1})
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 0
        Me.MenuItem7.Text = "'Nicht zusammenlegen' setzen"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "'Nicht zusammenlegen'  zurücksetzen"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 2
        Me.MenuItem2.Text = "-"
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 3
        Me.MenuItem1.Text = "&Ansicht schliessen"
        '
        'C1TrueDBGrid1
        '
        Me.C1TrueDBGrid1.AllowUpdate = False
        Me.C1TrueDBGrid1.AllowUpdateOnBlur = False
        Me.C1TrueDBGrid1.AlternatingRows = True
        Me.C1TrueDBGrid1.Cursor = System.Windows.Forms.Cursors.Default
        Me.C1TrueDBGrid1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.C1TrueDBGrid1.FetchRowStyles = True
        Me.C1TrueDBGrid1.FilterBar = True
        Me.C1TrueDBGrid1.GroupByCaption = "Drag a column header here to group by that column"
        Me.C1TrueDBGrid1.Images.Add(CType(resources.GetObject("C1TrueDBGrid1.Images"), System.Drawing.Image))
        Me.C1TrueDBGrid1.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid1.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.C1TrueDBGrid1.Name = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.C1TrueDBGrid1.PreviewInfo.ZoomFactor = 75.0R
        Me.C1TrueDBGrid1.PrintInfo.PageSettings = CType(resources.GetObject("C1TrueDBGrid1.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.C1TrueDBGrid1.ScrollTips = True
        Me.C1TrueDBGrid1.Size = New System.Drawing.Size(112, 32)
        Me.C1TrueDBGrid1.TabIndex = 27
        Me.C1TrueDBGrid1.Text = "C1TrueDBGrid1"
        Me.C1TrueDBGrid1.PropBag = resources.GetString("C1TrueDBGrid1.PropBag")
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem4, Me.MenuItem5, Me.MenuItem6})
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 0
        Me.MenuItem4.Text = "Zusammenlegung rückgängig"
        '
        'MenuItem5
        '
        Me.MenuItem5.Index = 1
        Me.MenuItem5.Text = "-"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 2
        Me.MenuItem6.Text = "&Ansicht schliessen"
        '
        'btninaktivieren
        '
        Me.btninaktivieren.Location = New System.Drawing.Point(736, 552)
        Me.btninaktivieren.Name = "btninaktivieren"
        Me.btninaktivieren.Size = New System.Drawing.Size(136, 32)
        Me.btninaktivieren.TabIndex = 6
        Me.btninaktivieren.Text = "Partner ohne Dokumente löschen"
        '
        'BtnHelp
        '
        Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
        Me.BtnHelp.Location = New System.Drawing.Point(856, 8)
        Me.BtnHelp.Name = "BtnHelp"
        Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
        Me.BtnHelp.TabIndex = 35
        '
        'frmPartnerzusammenlegung
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(888, 589)
        Me.Controls.Add(Me.BtnHelp)
        Me.Controls.Add(Me.btninaktivieren)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.btnpartnerauswahl2)
        Me.Controls.Add(Me.btnPartnerauswahl1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Abbruch)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmPartnerzusammenlegung"
        Me.Text = "Partnerdossier-Zusammenlegung"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        CType(Me.Detaillist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.Panel1.ResumeLayout(False)
        CType(Me.C1TrueDBGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

#Region "Deklarationen"
    Dim Hostpartnernr As Integer
    Dim EdokaPartnernr As Integer
    Dim EDOKApartner As DataTable
    Dim Currentrow As Integer
    Dim dokumentid As String
    Dim dokumente As New DataTable()
    Dim kurzname As String
    Dim ort As String
    Dim eintragnr As Integer
    Dim tsm As String
    Dim DoAbend As Boolean = False
#End Region

#Region "Steuerung"
    Private Sub frmPartnerzusammenlegung_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        Me.Hide()
    End Sub

    Private Sub Abbruch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Abbruch.Click
        Me.Hide()
    End Sub

    Public Sub Refresh_All()
        If DivFnkt.MA_Is_Sysadmin(Globals.MitarbeiterNr) Then
            Me.btnPartnerauswahl1.Visible = True
            Me.btnpartnerauswahl2.Visible = True
            Me.ToolBarButton2.Visible = True
            Me.ToolBarButton3.Visible = True
            Me.ToolBarButton4.Visible = True

        Else
            Me.btnPartnerauswahl1.Visible = False
            Me.btnpartnerauswahl2.Visible = False
            Me.ToolBarButton2.Visible = False
            Me.ToolBarButton3.Visible = False
            Me.ToolBarButton4.Visible = False
        End If
        Me.TextBox1.Text = ""
        Me.Textbox2.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox5.Text = ""
        Me.TextBox6.Text = ""
        Me.TextBox15.Text = ""
        Me.TextBox17.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox19.Text = ""

        Dim d As DataTable
        Dim i As Integer
        Dim s As String
        Me.ListBox1.Items.Clear()
        Me.DoAbend = False
        d = Generic_Select(0)
        If DoAbend Then
            Me.Hide()
            Exit Sub
        End If
        For i = 0 To d.Rows.Count - 1
            Me.ListBox1.Items.Add(Trim(Str(d.Rows(i).Item(0))) + " " + d.Rows(i).Item(1))
        Next
        If i > 0 Then
            Me.ListBox1.SelectedIndex = 0
        End If
        Me.Cursor = Cursors.Default
        Me.Refresh()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Currentrow = Currentrow + 1
        Update_EDOKA_Partner(Currentrow)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Currentrow = Currentrow - 1
        Update_EDOKA_Partner(Currentrow)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        Dim f As New frmTrefferliste()
        f.MdiParent = Me.MdiParent
        f.Show()
        f.txtnrpar00.Text = Me.TextBox14.Text
        f.Partnernr = Me.TextBox14.Text
        f.Partner_Eingegeben = True
        f.refresh_list()
        f.Refresh_All(True)
        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim i As Integer
        Me.Hostpartnernr = Val(Me.TextBox1.Text)
        Me.EdokaPartnernr = Val(Me.TextBox14.Text)
        Generic_Select(4)
        i = Me.ListBox1.SelectedIndex
        Me.Refresh_All()
        Try
            Me.ListBox1.SelectedIndex = i
        Catch
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim doks As DataTable
        Dim i As Integer
        Dim i1 As Integer
        Me.EdokaPartnernr = Val(Me.TextBox14.Text)
        Me.Hostpartnernr = Val(Me.TextBox1.Text)
        kurzname = Me.TextBox15.Text()
        ort = Me.TextBox6.Text
        doks = Generic_Select(5)
        If doks.Rows.Count = 0 Then
            Generic_Select(6)
            MyMsg.show_standardmessage(251, MsgBoxStyle.Information)
            i = Me.ListBox1.SelectedIndex
            Me.Refresh_All()
            Try
                Me.ListBox1.SelectedIndex = i
            Catch
            End Try
            Me.ListBox1.Focus()
            Exit Sub
        End If
        For i = 0 To doks.Rows.Count - 1
            dokumentid = doks.Rows(i).Item("dokumentid")
            dokumente = get_dokumente()
            For i1 = 0 To dokumente.Rows.Count - 1
                Update_Partnernr(dokumentid, Me.Hostpartnernr)
                Update_vvnr(dokumentid, "")
            Next
            Generic_Select(7)
            'Partner umhängen
            Try
                Dim d As New edokadb.clsDokument()
                Dim kurzname As String
                Dim ort As String
                d.cpMainConnectionProvider = Globals.conn
                d.sDokumentid = New SqlString(CType(dokumentid, String))
                d.SelectOne()
                d.iNrpar00 = New SqlInt32(CType(Me.Hostpartnernr, Int32))
                conn.OpenConnection()
                d.Update()
                conn.CloseConnection(True)
                d.Dispose()
            Catch
            End Try
        Next
        Generic_Select(6)
        MyMsg.show_standardmessage_ReplaceText(254, MsgBoxStyle.Information, Trim(Str(doks.Rows.Count)), "")
        i = Me.ListBox1.SelectedIndex
        Me.Refresh_All()
        Try
            Me.ListBox1.SelectedIndex = i
        Catch
        End Try
        Me.ListBox1.Focus()
    End Sub



#End Region

#Region "Datenzugriffe"
    Private Function Generic_Select(ByVal typ As Integer) As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Partnerzusammenlegung"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)

        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            Select Case typ
                Case 0
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@ohnepartnerabgleich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@returncode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
                Case 1
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                Case 2
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                Case 3
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 3))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                Case 4
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                Case 5
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 5))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                Case 6
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 6))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                Case 7
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 7))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                Case 10
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 10))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                Case 11
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 11))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                Case 12
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 12))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr))
                Case 13
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 13))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr))
                Case 14
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 14))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr))
                Case 15
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 15))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr))
                Case 16
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 16))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr))
                Case 17
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 17))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.eintragnr))
                Case 18
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 18))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                Case 19
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 19))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                Case 20
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 20))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                Case 21
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 21))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.EdokaPartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                Case 22
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.MitarbeiterNr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@hostpartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Hostpartnernr))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@edokapartner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@eintragnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
                    scmCmdToExecute.Parameters.Add(New SqlParameter("@ohnepartnerabgleich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
                Case Else
            End Select
            sdaAdapter.Fill(dtToReturn)
            Select Case typ
                Case 0
                    Dim i As Integer
                    i = scmCmdToExecute.Parameters("@returncode").Value
                    If i <> 0 Then
                        If i = 1 Then
                            MyMsg.show_standardmessage(255, MsgBoxStyle.Information)
                        End If
                        If i = 2 Then
                            MyMsg.show_standardmessage(257, MsgBoxStyle.Information)
                        End If
                        Me.DoAbend = True
                    End If
                Case Else
            End Select
            Return dtToReturn
        Catch ex As Exception
            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

#End Region

#Region "Listbox"
    Private Sub ListBox1_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
        Dim s As String
        Dim i As Integer
        Dim d As DataTable
        i = Microsoft.VisualBasic.InStr(Me.ListBox1.SelectedItem, " ")
        s = Trim(Microsoft.VisualBasic.Left(Me.ListBox1.SelectedItem, i - 1))
        Me.Hostpartnernr = Val(s)
        d = Generic_Select(1)
        Me.Label20.Visible = False
        Me.Label21.Visible = False
        If d.Rows.Count > 0 Then
            If DivFnkt.PartnerTyp(Me.Hostpartnernr) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
                'If Me.Hostpartnernr < 91000000 Then
                Me.TextBox1.Text = d.Rows(0).Item("nrpar00")
                Me.Textbox2.Text = d.Rows(0).Item("namefirma")
                Me.TextBox3.Text = d.Rows(0).Item("vorname")
                Me.TextBox4.Text = d.Rows(0).Item("strasse")
                Me.TextBox5.Text = d.Rows(0).Item("plz")
                Me.TextBox6.Text = d.Rows(0).Item("ort")
                Me.TextBox15.Text = d.Rows(0).Item("bkpar00")
                Me.TextBox17.Text = d.Rows(0).Item("kube")

                Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00"))

                If d.Rows(0).Item("txadz012") <> "" Then
                    s = d.Rows(0).Item("txadz012") + vbCrLf + d.Rows(0).Item("txadz022") + vbCrLf + d.Rows(0).Item("txadz032") + vbCrLf + d.Rows(0).Item("txadz042") + vbCrLf + d.Rows(0).Item("txadz052") + vbCrLf + d.Rows(0).Item("txadz062") + vbCrLf + d.Rows(0).Item("txadz072") + vbCrLf
                Else
                    s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf
                End If
                Me.TextBox7.Text = s
                Me.Label15.Visible = True
                Me.Detaillist.Visible = True
                Me.Label16.Text = "Kunden-berater"
                Me.Label6.Text = "Inhaber-adresse"
            Else
                Me.TextBox1.Text = ""
                Me.Textbox2.Text = ""
                Me.TextBox3.Text = ""
                Me.TextBox4.Text = ""
                Me.TextBox5.Text = ""
                Me.TextBox6.Text = ""
                Me.TextBox15.Text = ""
                Me.TextBox17.Text = ""
                Me.TextBox19.Text = ""

                Me.TextBox1.Text = d.Rows(0).Item("nrpar00")
                Me.TextBox15.Text = d.Rows(0).Item("bkpar00")
                Me.Textbox2.Text = d.Rows(0).Item("txadz032")
                Me.TextBox3.Text = d.Rows(0).Item("txadz022")
                Me.TextBox5.Text = d.Rows(0).Item("TXADZ072")
                Me.TextBox6.Text = d.Rows(0).Item("beban012")
                If Len(d.Rows(0).Item("txadz062")) > 0 Then
                    Me.TextBox4.Text = d.Rows(0).Item("txadz052") + "/" + d.Rows(0).Item("txadz062")
                Else
                    Me.TextBox4.Text = d.Rows(0).Item("txadz052")
                End If
                s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf
                Me.TextBox7.Text = s
                Me.TextBox17.Text = d.Rows(0).Item("erfasser")
                Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00"))
                Me.Label15.Visible = False
                Me.Detaillist.Visible = False
                Me.Label16.Text = "Erfasser"
                Me.Label6.Text = "Adresse"
                Me.Hostpartnernr = Val(Me.TextBox1.Text)
                d = Generic_Select(18)
                If d.Rows(0).Item(0) > 0 Then Me.Label20.Visible = False Else Me.Label20.Visible = True
            End If
            d = Generic_Select(2)
            If Me.Detaillist.Visible Then
                Me.Detaillist.DataSource = d
                Me.Detaillist.DataMember = d.TableName
                Me.Detaillist.Splits(0).DisplayColumns(0).Width = ((Me.Detaillist.Width / 3) * 1) - 4
                Me.Detaillist.Splits(0).DisplayColumns(1).Width = ((Me.Detaillist.Width / 3) * 2) - 4
            End If


            EDOKApartner = Generic_Select(3)
            Update_EDOKA_Partner(0)
        End If
    End Sub

#End Region


#Region "EDOKA_Partner"
    Private Function Update_EDOKA_Partner(ByVal rowid As Integer)
        Dim s As String
        Dim d As DataTable
        Me.TextBox14.Text = ""
        Me.TextBox13.Text = ""
        Me.TextBox12.Text = ""
        Me.TextBox11.Text = ""
        Me.TextBox10.Text = ""
        Me.TextBox9.Text = ""
        Me.TextBox8.Text = ""
        Me.TextBox18.Text = ""
        Me.TextBox16.Text = ""
        Me.TextBox20.Text = ""

        If EDOKApartner.Rows.Count - 1 >= rowid Then
            Me.TextBox14.Text = EDOKApartner.Rows(rowid).Item("nrpar00")
            Me.TextBox18.Text = EDOKApartner.Rows(rowid).Item("bkpar00")
            Me.TextBox13.Text = EDOKApartner.Rows(rowid).Item("txadz032")
            Me.TextBox12.Text = EDOKApartner.Rows(rowid).Item("txadz022")
            Me.TextBox10.Text = EDOKApartner.Rows(rowid).Item("TXADZ072")
            Me.TextBox9.Text = EDOKApartner.Rows(rowid).Item("beban012")
            Try
                If Len(EDOKApartner.Rows(rowid).Item("txadz062")) > 0 Then
                    Me.TextBox11.Text = EDOKApartner.Rows(rowid).Item("txadz052") + "/" + EDOKApartner.Rows(rowid).Item("txadz062")
                Else
                    Me.TextBox11.Text = EDOKApartner.Rows(rowid).Item("txadz052")
                End If
            Catch ex As Exception
                Me.TextBox11.Text = EDOKApartner.Rows(rowid).Item("txadz052")
            End Try
            Me.TextBox16.Text = EDOKApartner.Rows(rowid).Item("erfasser")
            Me.TextBox20.Text = FormatTimeStamp(EDOKApartner.Rows(rowid).Item("tsmut00"))
            s = EDOKApartner.Rows(rowid).Item("txadz011") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz021") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz031") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz041") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz051") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz061") + vbCrLf + EDOKApartner.Rows(rowid).Item("txadz071") + vbCrLf
            Me.TextBox8.Text = s

            Me.EdokaPartnernr = Val(Me.TextBox14.Text)
            d = Generic_Select(19)
            If d.Rows(0).Item(0) > 0 Then Me.Label21.Visible = False Else Me.Label21.Visible = True
        End If
        Currentrow = rowid
        Me.Button5.Enabled = False
        Me.Button4.Enabled = False
        If EDOKApartner.Rows.Count - 1 > rowid Then
            Me.Button5.Enabled = True
        End If
        If rowid > 0 Then Me.Button4.Enabled = True
        If Me.Label20.Visible Or Me.Label21.Visible Then Me.btninaktivieren.visible = True Else Me.btninaktivieren.visible = False

    End Function
#End Region

#Region "Hostpartnerinformationen anzeigen"
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim d As Integer
        d = Val(Me.TextBox1.Text)
        'ObjPerson
        If DivFnkt.PartnerTyp(d) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
            'If d > 91000000 Then
            Dim f As New frmInteressent()
            f.Partnernr = d
            f.Display = True
            f.ShowDialog()
            f.Dispose()
        Else
            Dim f As New frmPartnerDetails()
            f.Partnernr = d
            f.ShowDialog()
            f.Dispose()
        End If
    End Sub

    Private Sub btnDossierHaupt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDossierHaupt.Click
        Me.Cursor = System.Windows.Forms.Cursors.WaitCursor
        Dim f As New frmTrefferliste()
        f.MdiParent = Me.MdiParent
        f.Show()
        f.txtnrpar00.Text = Me.TextBox1.Text
        f.Partnernr = Me.TextBox1.Text
        f.Partner_Eingegeben = True
        f.refresh_list()
        f.Refresh_All(True)
        Me.Cursor = System.Windows.Forms.Cursors.Default
    End Sub
#End Region


#Region "Updates"
    Public Sub Update_Partnernr(ByVal dokumentid As String, ByVal partnernr As String)
        'ort = get_data("&PartnerInhaberOrt&")
        Dim i As Integer
        Dim s As String
        s = Trim(partnernr)
        While Len(s) < 9
            s = "0" + s
        End While
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 1, s)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 1, s)
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 2, kurzname)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 2, kurzname)
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 8, ort)
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 8, ort)
        Next
    End Sub

    Public Sub Update_vvnr(ByVal dokumentid As String, ByVal vvnr As String)
        Dim i As Integer
        For i = 0 To Me.dokumente.Rows.Count - 1
            Insert_ColdUpdate(dokumentid, RTrim(dokumente.Rows(i).Item("wert")), dokumente.Rows(i).Item("indextyp"), 3, "")
            Update_DokumentColdIndexwert(dokumentid, dokumente.Rows(i).Item("indextyp"), 3, "")
        Next
    End Sub

    Private Function get_data(ByVal datenherkunft As String) As String
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_dokumentwerte_select"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@datenherkunft", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, datenherkunft))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@value", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            sdaAdapter.Fill(dtToReturn)
            Return scmCmdToExecute.Parameters("@value").Value
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Public Function Insert_ColdUpdate(ByVal dokumentid As String, ByVal colddokumentid As String, ByVal indextyp As Integer, ByVal feldnr As Integer, ByVal wert As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Archiv_insert_coldupdate"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        conn.OpenConnection()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@colddokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, colddokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indextyp))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@feldnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, feldnr))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@neuerwert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            conn.CloseConnection(True)
        End Try
    End Function

    Public Function Update_DokumentColdIndexwert(ByVal dokumentid As String, ByVal Indextyp As Integer, ByVal indexfeld As Integer, ByVal wert As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.SP_Archiv_Update_DokumentColdIndexwert"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        conn.OpenConnection()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentid))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@indextyp", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Indextyp))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@indexfeld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, indexfeld))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@wert", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, wert))
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            ' // some error occured. Bubble it to caller and encapsulate Exception object
            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            conn.CloseConnection(True)
        End Try
    End Function

    Private Function get_dokumente() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim i As Integer
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        scmCmdToExecute.CommandText = "dbo.sp_indexmutation_getdokumente"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        scmCmdToExecute.Connection = conn.scoDBConnection
        Try
            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.dokumentid))
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

#End Region

    Private Sub btnPartnerauswahl1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPartnerauswahl1.Click
        Dim f As New FrmPartnersuche()
        f.ShowDialog()
        If f.PartnerNr <> 0 Then
            Me.TextBox1.Text = f.PartnerNr
        Else
            f.Dispose()
            Exit Sub
        End If
        f.Dispose()

        Dim s As String
        Dim i As Integer
        Dim d As DataTable
        Me.Hostpartnernr = Val(Me.TextBox1.Text)
        d = Generic_Select(22)
        If d.Rows.Count > 0 Then
            If DivFnkt.PartnerTyp(Val(Me.Hostpartnernr)) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
                'If Me.Hostpartnernr < 91000000 Then
                Me.TextBox1.Text = d.Rows(0).Item("nrpar00")
                Me.Textbox2.Text = d.Rows(0).Item("namefirma")
                Me.TextBox3.Text = d.Rows(0).Item("vorname")
                Me.TextBox4.Text = d.Rows(0).Item("strasse")
                Me.TextBox5.Text = d.Rows(0).Item("plz")
                Me.TextBox6.Text = d.Rows(0).Item("ort")
                Me.TextBox15.Text = d.Rows(0).Item("bkpar00")
                Me.TextBox17.Text = d.Rows(0).Item("kube")
                Me.TextBox19.Text = ""

                If d.Rows(0).Item("txadz012") <> "" Then
                    s = d.Rows(0).Item("txadz012") + vbCrLf + d.Rows(0).Item("txadz022") + vbCrLf + d.Rows(0).Item("txadz032") + vbCrLf + d.Rows(0).Item("txadz042") + vbCrLf + d.Rows(0).Item("txadz052") + vbCrLf + d.Rows(0).Item("txadz062") + vbCrLf + d.Rows(0).Item("txadz072") + vbCrLf
                Else
                    s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf
                End If
                Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00"))
                Me.TextBox7.Text = s
                Me.Label15.Visible = True
                Me.Detaillist.Visible = True
                Me.Label16.Text = "Kunden-berater"
                Me.Label6.Text = "Inhaber-adresse"
            Else
                Me.TextBox1.Text = ""
                Me.Textbox2.Text = ""
                Me.TextBox3.Text = ""
                Me.TextBox4.Text = ""
                Me.TextBox5.Text = ""
                Me.TextBox6.Text = ""
                Me.TextBox15.Text = ""
                Me.TextBox17.Text = ""
                Me.TextBox19.Text = ""

                Me.TextBox1.Text = d.Rows(0).Item("nrpar00")
                Me.TextBox15.Text = d.Rows(0).Item("bkpar00")
                Me.Textbox2.Text = d.Rows(0).Item("txadz032")
                Me.TextBox3.Text = d.Rows(0).Item("txadz022")
                Me.TextBox5.Text = d.Rows(0).Item("TXADZ072")
                Me.TextBox6.Text = d.Rows(0).Item("beban012")
                If Len(d.Rows(0).Item("txadz062")) > 0 Then
                    Me.TextBox4.Text = d.Rows(0).Item("txadz052") + "/" + d.Rows(0).Item("txadz062")
                Else
                    Me.TextBox4.Text = d.Rows(0).Item("txadz052")
                End If
                s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf
                Me.TextBox7.Text = s
                Me.TextBox17.Text = d.Rows(0).Item("erfasser")
                Me.TextBox19.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00"))
                Me.Label15.Visible = False
                Me.Detaillist.Visible = False
                Me.Label16.Text = "Erfasser"
                Me.Label6.Text = "Adresse"
                Me.Hostpartnernr = Val(Me.TextBox1.Text)
                d = Generic_Select(18)
                If d.Rows(0).Item(0) > 0 Then Me.Label20.Visible = False Else Me.Label20.Visible = True

            End If
            d = Generic_Select(2)
            If Me.Detaillist.Visible Then
                Me.Detaillist.DataSource = d
                Me.Detaillist.DataMember = d.TableName
                Me.Detaillist.Splits(0).DisplayColumns(0).Width = ((Me.Detaillist.Width / 3) * 1) - 4
                Me.Detaillist.Splits(0).DisplayColumns(0).Width = ((Me.Detaillist.Width / 3) * 2) - 4
            End If

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpartnerauswahl2.Click
        Dim f As New FrmPartnersuche()
        f.ShowDialog()
        If f.PartnerNr <> 0 Then
            If DivFnkt.PartnerTyp(f.PartnerNr) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
                'If f.PartnerNr < 91000000 Then
                MyMsg.show_standardmessage(256, MsgBoxStyle.Information)
                Exit Sub
            End If
            Me.TextBox14.Text = f.PartnerNr
            Me.Button5.Enabled = False
            Me.Button4.Enabled = False
        Else
            f.Dispose()
            Exit Sub
        End If
        f.Dispose()
        Dim d As DataTable
        Dim s As String
        Me.Hostpartnernr = Val(Me.TextBox14.Text)
        d = Generic_Select(22)
        Me.TextBox14.Text = ""
        Me.TextBox13.Text = ""
        Me.TextBox12.Text = ""
        Me.TextBox11.Text = ""
        Me.TextBox10.Text = ""
        Me.TextBox9.Text = ""
        Me.TextBox8.Text = ""
        Me.TextBox18.Text = ""
        Me.TextBox16.Text = ""
        Me.TextBox20.Text = ""
        If d.Rows.Count > 0 Then
            If DivFnkt.PartnerTyp(Me.Hostpartnernr) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
                'If Me.Hostpartnernr < 91000000 Then
                Me.TextBox14.Text = d.Rows(0).Item("nrpar00")
                Me.TextBox13.Text = d.Rows(0).Item("namefirma")
                Me.TextBox12.Text = d.Rows(0).Item("vorname")
                Me.TextBox11.Text = d.Rows(0).Item("strasse")
                Me.TextBox10.Text = d.Rows(0).Item("plz")
                Me.TextBox9.Text = d.Rows(0).Item("ort")
                Me.TextBox18.Text = d.Rows(0).Item("bkpar00")
                Me.TextBox16.Text = d.Rows(0).Item("kube")
                Me.TextBox20.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00"))

                If d.Rows(0).Item("txadz012") <> "" Then
                    s = d.Rows(0).Item("txadz012") + vbCrLf + d.Rows(0).Item("txadz022") + vbCrLf + d.Rows(0).Item("txadz032") + vbCrLf + d.Rows(0).Item("txadz042") + vbCrLf + d.Rows(0).Item("txadz052") + vbCrLf + d.Rows(0).Item("txadz062") + vbCrLf + d.Rows(0).Item("txadz072") + vbCrLf
                Else
                    s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf
                End If
                Me.TextBox8.Text = s
                Me.Label14.Text = "Kunden-berater"
            Else
                Me.TextBox14.Text = d.Rows(0).Item("nrpar00")
                Me.TextBox15.Text = d.Rows(0).Item("bkpar00")
                Me.TextBox13.Text = d.Rows(0).Item("txadz032")
                Me.TextBox12.Text = d.Rows(0).Item("txadz022")
                Me.TextBox10.Text = d.Rows(0).Item("TXADZ072")
                Me.TextBox9.Text = d.Rows(0).Item("beban012")
                If Len(d.Rows(0).Item("txadz062")) > 0 Then
                    Me.TextBox11.Text = d.Rows(0).Item("txadz052") + "/" + d.Rows(0).Item("txadz062")
                Else
                    Me.TextBox11.Text = d.Rows(0).Item("txadz052")
                End If
                s = d.Rows(0).Item("txadz011") + vbCrLf + d.Rows(0).Item("txadz021") + vbCrLf + d.Rows(0).Item("txadz031") + vbCrLf + d.Rows(0).Item("txadz041") + vbCrLf + d.Rows(0).Item("txadz051") + vbCrLf + d.Rows(0).Item("txadz061") + vbCrLf + d.Rows(0).Item("txadz071") + vbCrLf
                Me.TextBox8.Text = s
                Me.TextBox16.Text = d.Rows(0).Item("erfasser")
                Me.TextBox20.Text = FormatTimeStamp(d.Rows(0).Item("tsmut00"))
                Me.Label14.Text = "Erfasser"
                Me.EdokaPartnernr = Val(Me.TextBox14.Text)
                d = Generic_Select(19)
                If d.Rows(0).Item(0) > 0 Then Me.Label21.Visible = False Else Me.Label21.Visible = True
            End If
        End If
    End Sub


    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Dim i As Integer
        Select Case ToolBar1.Buttons.IndexOf(e.Button)
            Case 0 'close button
                Me.Hide()
            Case 1
                Refresh_daten_1()
                Me.C1TrueDBGrid1.ContextMenu = Me.ContextMenu1
            Case 2
                refresh_daten_2()
                Me.C1TrueDBGrid1.ContextMenu = Me.ContextMenu2
            Case 3
                Me.Panel1.Dock = DockStyle.None
                Me.Panel1.Visible = False
                Me.Refresh_All()
            Case Else
        End Select
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Me.Panel1.Dock = DockStyle.None
        Me.Panel1.Visible = False
        Me.Refresh_All()
    End Sub

    Private Sub Refresh_daten_1()
        Dim i As Integer
        Me.C1TrueDBGrid1.BeginInit()
        Me.Panel1.Visible = True
        Me.Panel1.Dock = DockStyle.Fill
        Me.btnPartnerauswahl1.Visible = False
        Me.btnpartnerauswahl2.Visible = False
        Dim d As DataTable
        d = Generic_Select(10)
        Me.C1TrueDBGrid1.DataSource = d
        Me.C1TrueDBGrid1.DataMember = d.TableName
        For i = 0 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).AutoSize()
        Next
        Me.C1TrueDBGrid1.Columns(5).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
        Me.C1TrueDBGrid1.Columns(9).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
        Me.C1TrueDBGrid1.EndInit()
    End Sub
    Private Sub Refresh_Daten_2()
        Dim i As Integer
        Me.C1TrueDBGrid1.BeginInit()
        Me.Panel1.Visible = True
        Me.Panel1.Dock = DockStyle.Fill
        Me.btnPartnerauswahl1.Visible = False
        Me.btnpartnerauswahl2.Visible = False
        '20080414 RGL Bug, Button wird nicht ausgebelendet mit anderen Objekten
        Me.btninaktivieren.Visible = False
        Dim d As DataTable
        d = Generic_Select(11)
        Me.C1TrueDBGrid1.DataSource = d
        Me.C1TrueDBGrid1.DataMember = d.TableName
        For i = 0 To Me.C1TrueDBGrid1.Splits(0).DisplayColumns.Count - 1
            Me.C1TrueDBGrid1.Splits(0).DisplayColumns(i).AutoSize()
        Next
        Me.C1TrueDBGrid1.Columns(9).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
        Me.C1TrueDBGrid1.EndInit()
    End Sub

    Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
        Try
            If Me.C1TrueDBGrid1.Columns(5).Value = True Then
                Me.MenuItem3.Enabled = True
                Me.MenuItem7.Enabled = False
            Else
                Me.MenuItem7.Enabled = True
                Me.MenuItem3.Enabled = False
            End If
        Catch
            Me.MenuItem7.Enabled = True
            Me.MenuItem3.Enabled = False
        End Try
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        Dim i As Integer
        i = Me.C1TrueDBGrid1.Bookmark
        Me.eintragnr = Me.C1TrueDBGrid1.Columns("nr").Value
        Generic_Select(12)
        Refresh_daten_1()
        Me.C1TrueDBGrid1.Bookmark = i

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim i As Integer
        i = Me.C1TrueDBGrid1.Bookmark
        Me.eintragnr = Me.C1TrueDBGrid1.Columns("nr").Value
        Generic_Select(13)
        Refresh_daten_1()
        Me.C1TrueDBGrid1.Bookmark = i
    End Sub

    Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
        Me.Panel1.Dock = DockStyle.None
        Me.Panel1.Visible = False
        Me.Refresh_All()
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim doks As DataTable
        Dim dat As DataTable
        Dim i As Integer
        Dim i1 As Integer
        If MyMsg.Show_MessageYesNo(252) = MsgBoxResult.No Then Exit Sub
        Me.Hostpartnernr = Me.C1TrueDBGrid1.Columns(1).Value
        Me.EdokaPartnernr = Me.C1TrueDBGrid1.Columns(3).Value
        doks = Generic_Select(14)
        dat = Generic_Select(15)
        Me.kurzname = dat.Rows(0).Item("bkpar00")
        Me.ort = dat.Rows(0).Item("beortpt")

        For i = 0 To doks.Rows.Count - 1
            dokumentid = doks.Rows(i).Item("dokumentid")
            dokumente = get_dokumente()
            For i1 = 0 To dokumente.Rows.Count - 1
                Update_Partnernr(dokumentid, Me.EdokaPartnernr)
                Update_vvnr(dokumentid, "")
            Next
            Generic_Select(16)
            'Partner umhängen
            Try
                Dim d As New edokadb.clsDokument()
                d.cpMainConnectionProvider = Globals.conn
                d.sDokumentid = New SqlString(CType(dokumentid, String))
                d.SelectOne()
                d.iNrpar00 = New SqlInt32(CType(Me.EdokaPartnernr, Int32))
                conn.OpenConnection()
                d.Update()
                conn.CloseConnection(True)
                d.Dispose()
            Catch
            End Try
        Next
        Generic_Select(17)
        MyMsg.show_standardmessage_ReplaceText(253, MsgBoxStyle.Information, Trim(Str(doks.Rows.Count)), "")
        Me.Refresh_Daten_2()
    End Sub



    Private Sub btninaktivieren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninaktivieren.Click
        Dim i As Integer
        If Me.Label20.Visible Then
            Me.Hostpartnernr = Val(Me.TextBox1.Text)
            Generic_Select(20)
        End If
        If Me.Label21.Visible Then
            Me.EdokaPartnernr = Val(Me.TextBox14.Text)
            Generic_Select(21)
        End If
        i = Me.ListBox1.SelectedIndex
        Me.Refresh_All()
        Try
            Me.ListBox1.SelectedIndex = i
        Catch
        End Try
    End Sub

    Private Function FormatTimeStamp(ByVal s As String) As String
        If Mid(s, 5, 1) = "-" Or Mid(s, 5, 1) = "." Then
            Return Mid(s, 9, 2) + "." + Mid(s, 6, 2) + "." + Microsoft.VisualBasic.Left(s, 4)
        Else
            If Mid(s, 9, 1) <> " " Then
                Return Microsoft.VisualBasic.Left(s, 2) + "." + Mid(s, 4, 2) + "." + Mid(s, 7, 4)
            Else
                Return Microsoft.VisualBasic.Left(s, 2) + "." + Mid(s, 4, 2) + ".20" + Mid(s, 7, 2)
            End If
        End If
    End Function

    Private Sub frmPartnerzusammenlegung_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.VisibleChanged
        If Me.Label20.Visible Or Me.Label21.Visible Then Me.btninaktivieren.Visible = True Else Me.btninaktivieren.Visible = False
    End Sub

    Private Sub ContextMenu2_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu2.Popup
        Try
            If Me.C1TrueDBGrid1.Columns(9).Value = True Then
                Me.MenuItem4.Enabled = False
            Else
                Me.MenuItem4.Enabled = True
            End If
        Catch
            Me.MenuItem4.Enabled = True
        End Try
    End Sub


    Private Sub BtnHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHelp.Click
        Globals.HTMLHelp.ShowHelpToc("partnerdossierszusammenlegen1")

    End Sub

    Private Sub frmPartnerzusammenlegung_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
        Me.BtnHelp.Left = Me.ToolBar1.Width - Me.BtnHelp.Width
    End Sub
End Class