Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Color
Public Class frmPartnerDetails
    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 Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents txtPartnernr As System.Windows.Forms.TextBox
    Friend WithEvents txtBkapr00 As System.Windows.Forms.TextBox
    Friend WithEvents cbvi As System.Windows.Forms.CheckBox
    Friend WithEvents txtPartnerEmpfaenger As System.Windows.Forms.TextBox
    Friend WithEvents txtZusatz As System.Windows.Forms.RichTextBox
    Friend WithEvents cbvsa As System.Windows.Forms.CheckBox
    Friend WithEvents txtsaldiert As System.Windows.Forms.Label
    Friend WithEvents txtZusteller As System.Windows.Forms.RichTextBox
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents txtInhaber As System.Windows.Forms.RichTextBox
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents cbmitarbeiter As System.Windows.Forms.CheckBox
    Friend WithEvents cbVip As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
    Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
    Friend WithEvents Betreuerlabel As System.Windows.Forms.Label
    Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
    Friend WithEvents grpZusAdressen As System.Windows.Forms.GroupBox
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents pnlGeburtsdatum As System.Windows.Forms.Panel
    Friend WithEvents pnlWeitereAdressen As System.Windows.Forms.Panel
    Friend WithEvents ctxMenuVVAdressen As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents AdresseAuswählenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents ctxMenuZusAdressen As System.Windows.Forms.ContextMenuStrip
    Friend WithEvents AdresseAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
    Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
    Friend WithEvents vvlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents c1zusAdressen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    Friend WithEvents cbboersenkotiert As CheckBox
    Friend WithEvents GroupBox9 As GroupBox
    Friend WithEvents lblemail As Label
    Friend WithEvents GBDatLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPartnerDetails))
        Me.txtPartnernr = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtBkapr00 = New System.Windows.Forms.TextBox()
        Me.cbvi = New System.Windows.Forms.CheckBox()
        Me.cbvsa = New System.Windows.Forms.CheckBox()
        Me.GroupBox2 = New System.Windows.Forms.GroupBox()
        Me.txtPartnerEmpfaenger = New System.Windows.Forms.TextBox()
        Me.txtZusteller = New System.Windows.Forms.RichTextBox()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.GroupBox3 = New System.Windows.Forms.GroupBox()
        Me.txtZusatz = New System.Windows.Forms.RichTextBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.txtsaldiert = New System.Windows.Forms.Label()
        Me.ctxMenuVVAdressen = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.AdresseAuswählenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
        Me.txtInhaber = New System.Windows.Forms.RichTextBox()
        Me.GroupBox4 = New System.Windows.Forms.GroupBox()
        Me.vvlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.GroupBox5 = New System.Windows.Forms.GroupBox()
        Me.cbboersenkotiert = New System.Windows.Forms.CheckBox()
        Me.cbVip = New System.Windows.Forms.CheckBox()
        Me.cbmitarbeiter = New System.Windows.Forms.CheckBox()
        Me.GroupBox6 = New System.Windows.Forms.GroupBox()
        Me.GroupBox7 = New System.Windows.Forms.GroupBox()
        Me.Betreuerlabel = New System.Windows.Forms.Label()
        Me.GroupBox8 = New System.Windows.Forms.GroupBox()
        Me.GBDatLabel = New System.Windows.Forms.Label()
        Me.grpZusAdressen = New System.Windows.Forms.GroupBox()
        Me.c1zusAdressen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
        Me.ctxMenuZusAdressen = New System.Windows.Forms.ContextMenuStrip(Me.components)
        Me.AdresseAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.pnlGeburtsdatum = New System.Windows.Forms.Panel()
        Me.pnlWeitereAdressen = New System.Windows.Forms.Panel()
        Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
        Me.lblemail = New System.Windows.Forms.Label()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.ctxMenuVVAdressen.SuspendLayout()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        CType(Me.vvlist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
        Me.GroupBox7.SuspendLayout()
        Me.GroupBox8.SuspendLayout()
        Me.grpZusAdressen.SuspendLayout()
        CType(Me.c1zusAdressen, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.ctxMenuZusAdressen.SuspendLayout()
        Me.Panel1.SuspendLayout()
        Me.pnlGeburtsdatum.SuspendLayout()
        Me.pnlWeitereAdressen.SuspendLayout()
        Me.GroupBox9.SuspendLayout()
        Me.SuspendLayout()
        '
        'txtPartnernr
        '
        Me.txtPartnernr.Location = New System.Drawing.Point(72, 8)
        Me.txtPartnernr.Name = "txtPartnernr"
        Me.txtPartnernr.ReadOnly = True
        Me.txtPartnernr.Size = New System.Drawing.Size(80, 20)
        Me.txtPartnernr.TabIndex = 0
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(8, 8)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(64, 23)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Partner-Nr."
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(176, 8)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(64, 23)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Kurzname"
        '
        'txtBkapr00
        '
        Me.txtBkapr00.Location = New System.Drawing.Point(232, 8)
        Me.txtBkapr00.Name = "txtBkapr00"
        Me.txtBkapr00.ReadOnly = True
        Me.txtBkapr00.Size = New System.Drawing.Size(349, 20)
        Me.txtBkapr00.TabIndex = 2
        Me.txtBkapr00.Text = "TextBox2"
        '
        'cbvi
        '
        Me.cbvi.Location = New System.Drawing.Point(8, 16)
        Me.cbvi.Name = "cbvi"
        Me.cbvi.Size = New System.Drawing.Size(104, 24)
        Me.cbvi.TabIndex = 4
        Me.cbvi.Text = "VI beachten"
        Me.cbvi.Visible = False
        '
        'cbvsa
        '
        Me.cbvsa.Location = New System.Drawing.Point(120, 16)
        Me.cbvsa.Name = "cbvsa"
        Me.cbvsa.Size = New System.Drawing.Size(112, 24)
        Me.cbvsa.TabIndex = 5
        Me.cbvsa.Text = "Ad. versandfähig"
        Me.cbvsa.Visible = False
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.txtPartnerEmpfaenger)
        Me.GroupBox2.Controls.Add(Me.txtZusteller)
        Me.GroupBox2.Location = New System.Drawing.Point(294, 129)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(288, 119)
        Me.GroupBox2.TabIndex = 7
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Zustell-Adresse (VI auf Ebene Partner)"
        '
        'txtPartnerEmpfaenger
        '
        Me.txtPartnerEmpfaenger.Location = New System.Drawing.Point(128, 144)
        Me.txtPartnerEmpfaenger.Name = "txtPartnerEmpfaenger"
        Me.txtPartnerEmpfaenger.ReadOnly = True
        Me.txtPartnerEmpfaenger.Size = New System.Drawing.Size(112, 20)
        Me.txtPartnerEmpfaenger.TabIndex = 2
        Me.txtPartnerEmpfaenger.Text = "TextBox3"
        Me.txtPartnerEmpfaenger.Visible = False
        '
        'txtZusteller
        '
        Me.txtZusteller.Dock = System.Windows.Forms.DockStyle.Fill
        Me.txtZusteller.Location = New System.Drawing.Point(3, 16)
        Me.txtZusteller.Name = "txtZusteller"
        Me.txtZusteller.ReadOnly = True
        Me.txtZusteller.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
        Me.txtZusteller.Size = New System.Drawing.Size(282, 100)
        Me.txtZusteller.TabIndex = 0
        Me.txtZusteller.Text = ""
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(595, 40)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(120, 23)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "Partner-Nr. Empfänger"
        Me.Label3.Visible = False
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.txtZusatz)
        Me.GroupBox3.Location = New System.Drawing.Point(152, 176)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(248, 24)
        Me.GroupBox3.TabIndex = 8
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "EDOKA-Zustelladresse"
        Me.GroupBox3.Visible = False
        '
        'txtZusatz
        '
        Me.txtZusatz.Location = New System.Drawing.Point(8, 16)
        Me.txtZusatz.Name = "txtZusatz"
        Me.txtZusatz.ReadOnly = True
        Me.txtZusatz.Size = New System.Drawing.Size(232, 152)
        Me.txtZusatz.TabIndex = 0
        Me.txtZusatz.Text = "1"
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(506, 195)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 23)
        Me.Button1.TabIndex = 10
        Me.Button1.Text = "Schliessen"
        '
        'Button2
        '
        Me.Button2.Location = New System.Drawing.Point(6, 198)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(144, 23)
        Me.Button2.TabIndex = 11
        Me.Button2.Text = "Zustelladresse bearbeiten"
        Me.Button2.Visible = False
        '
        'txtsaldiert
        '
        Me.txtsaldiert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.txtsaldiert.ForeColor = System.Drawing.Color.Red
        Me.txtsaldiert.Location = New System.Drawing.Point(240, 195)
        Me.txtsaldiert.Name = "txtsaldiert"
        Me.txtsaldiert.Size = New System.Drawing.Size(168, 23)
        Me.txtsaldiert.TabIndex = 12
        Me.txtsaldiert.Text = "Partner saldiert!"
        '
        'ctxMenuVVAdressen
        '
        Me.ctxMenuVVAdressen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdresseAuswählenToolStripMenuItem1})
        Me.ctxMenuVVAdressen.Name = "ctxMenuVVAdressen"
        Me.ctxMenuVVAdressen.Size = New System.Drawing.Size(181, 48)
        '
        'AdresseAuswählenToolStripMenuItem1
        '
        Me.AdresseAuswählenToolStripMenuItem1.Name = "AdresseAuswählenToolStripMenuItem1"
        Me.AdresseAuswählenToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
        Me.AdresseAuswählenToolStripMenuItem1.Text = "Adresse Auswählen"
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txtInhaber)
        Me.GroupBox1.Location = New System.Drawing.Point(6, 129)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(282, 119)
        Me.GroupBox1.TabIndex = 6
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "Inhaber-Adresse"
        '
        'txtInhaber
        '
        Me.txtInhaber.Dock = System.Windows.Forms.DockStyle.Fill
        Me.txtInhaber.Location = New System.Drawing.Point(3, 16)
        Me.txtInhaber.Name = "txtInhaber"
        Me.txtInhaber.ReadOnly = True
        Me.txtInhaber.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
        Me.txtInhaber.Size = New System.Drawing.Size(276, 100)
        Me.txtInhaber.TabIndex = 1
        Me.txtInhaber.Text = "1"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.vvlist)
        Me.GroupBox4.Controls.Add(Me.GroupBox3)
        Me.GroupBox4.Location = New System.Drawing.Point(8, 14)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(582, 168)
        Me.GroupBox4.TabIndex = 14
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Vorhandene Konto / Container"
        '
        'vvlist
        '
        Me.vvlist.AllowFilter = False
        Me.vvlist.AlternatingRows = True
        Me.vvlist.BackColor = System.Drawing.Color.Gray
        Me.vvlist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.vvlist.ColumnHeaders = False
        Me.vvlist.ContextMenuStrip = Me.ctxMenuVVAdressen
        Me.vvlist.Dock = System.Windows.Forms.DockStyle.Fill
        Me.vvlist.GroupByCaption = "Drag a column header here to group by that column"
        Me.vvlist.Images.Add(CType(resources.GetObject("vvlist.Images"), System.Drawing.Image))
        Me.vvlist.Location = New System.Drawing.Point(3, 16)
        Me.vvlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
        Me.vvlist.Name = "vvlist"
        Me.vvlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.vvlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.vvlist.PreviewInfo.ZoomFactor = 75.0R
        Me.vvlist.PrintInfo.PageSettings = CType(resources.GetObject("vvlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.vvlist.Size = New System.Drawing.Size(576, 149)
        Me.vvlist.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
        Me.vvlist.TabIndex = 10
        Me.vvlist.Text = "C1TrueDBGrid1"
        Me.vvlist.PropBag = resources.GetString("vvlist.PropBag")
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.cbboersenkotiert)
        Me.GroupBox5.Controls.Add(Me.cbVip)
        Me.GroupBox5.Controls.Add(Me.cbmitarbeiter)
        Me.GroupBox5.Location = New System.Drawing.Point(339, 40)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(242, 86)
        Me.GroupBox5.TabIndex = 15
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Mitarbeiter/VIP/Börsenkotiert"
        '
        'cbboersenkotiert
        '
        Me.cbboersenkotiert.Location = New System.Drawing.Point(8, 39)
        Me.cbboersenkotiert.Name = "cbboersenkotiert"
        Me.cbboersenkotiert.Size = New System.Drawing.Size(134, 21)
        Me.cbboersenkotiert.TabIndex = 19
        Me.cbboersenkotiert.Text = "Börsenkotiert"
        '
        'cbVip
        '
        Me.cbVip.Location = New System.Drawing.Point(8, 61)
        Me.cbVip.Name = "cbVip"
        Me.cbVip.Size = New System.Drawing.Size(54, 21)
        Me.cbVip.TabIndex = 18
        Me.cbVip.Text = "VIP"
        '
        'cbmitarbeiter
        '
        Me.cbmitarbeiter.Location = New System.Drawing.Point(8, 16)
        Me.cbmitarbeiter.Name = "cbmitarbeiter"
        Me.cbmitarbeiter.Size = New System.Drawing.Size(146, 21)
        Me.cbmitarbeiter.TabIndex = 17
        Me.cbmitarbeiter.Text = "Mitarbeiter/Angehöriger"
        '
        'GroupBox6
        '
        Me.GroupBox6.Controls.Add(Me.cbvsa)
        Me.GroupBox6.Controls.Add(Me.cbvi)
        Me.GroupBox6.Location = New System.Drawing.Point(598, 96)
        Me.GroupBox6.Name = "GroupBox6"
        Me.GroupBox6.Size = New System.Drawing.Size(248, 48)
        Me.GroupBox6.TabIndex = 16
        Me.GroupBox6.TabStop = False
        Me.GroupBox6.Text = "Versandinstruktion"
        Me.GroupBox6.Visible = False
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.Betreuerlabel)
        Me.GroupBox7.Location = New System.Drawing.Point(8, 40)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(325, 40)
        Me.GroupBox7.TabIndex = 17
        Me.GroupBox7.TabStop = False
        Me.GroupBox7.Text = "Betreuer"
        '
        'Betreuerlabel
        '
        Me.Betreuerlabel.Location = New System.Drawing.Point(8, 14)
        Me.Betreuerlabel.Name = "Betreuerlabel"
        Me.Betreuerlabel.Size = New System.Drawing.Size(234, 23)
        Me.Betreuerlabel.TabIndex = 0
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.Add(Me.GBDatLabel)
        Me.GroupBox8.Location = New System.Drawing.Point(6, 3)
        Me.GroupBox8.Name = "GroupBox8"
        Me.GroupBox8.Size = New System.Drawing.Size(248, 40)
        Me.GroupBox8.TabIndex = 18
        Me.GroupBox8.TabStop = False
        Me.GroupBox8.Text = "Geburtsdatum"
        '
        'GBDatLabel
        '
        Me.GBDatLabel.Location = New System.Drawing.Point(11, 14)
        Me.GBDatLabel.Name = "GBDatLabel"
        Me.GBDatLabel.Size = New System.Drawing.Size(203, 23)
        Me.GBDatLabel.TabIndex = 0
        '
        'grpZusAdressen
        '
        Me.grpZusAdressen.Controls.Add(Me.c1zusAdressen)
        Me.grpZusAdressen.Location = New System.Drawing.Point(6, 0)
        Me.grpZusAdressen.Name = "grpZusAdressen"
        Me.grpZusAdressen.Size = New System.Drawing.Size(581, 114)
        Me.grpZusAdressen.TabIndex = 7
        Me.grpZusAdressen.TabStop = False
        Me.grpZusAdressen.Text = "Weitere Adressen"
        '
        'c1zusAdressen
        '
        Me.c1zusAdressen.AllowFilter = False
        Me.c1zusAdressen.AlternatingRows = True
        Me.c1zusAdressen.BackColor = System.Drawing.Color.Gray
        Me.c1zusAdressen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.c1zusAdressen.ColumnHeaders = False
        Me.c1zusAdressen.ContextMenuStrip = Me.ctxMenuZusAdressen
        Me.c1zusAdressen.Dock = System.Windows.Forms.DockStyle.Fill
        Me.c1zusAdressen.GroupByCaption = "Drag a column header here to group by that column"
        Me.c1zusAdressen.Images.Add(CType(resources.GetObject("c1zusAdressen.Images"), System.Drawing.Image))
        Me.c1zusAdressen.Location = New System.Drawing.Point(3, 16)
        Me.c1zusAdressen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
        Me.c1zusAdressen.Name = "c1zusAdressen"
        Me.c1zusAdressen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.c1zusAdressen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.c1zusAdressen.PreviewInfo.ZoomFactor = 75.0R
        Me.c1zusAdressen.PrintInfo.PageSettings = CType(resources.GetObject("c1zusAdressen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.c1zusAdressen.Size = New System.Drawing.Size(575, 95)
        Me.c1zusAdressen.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
        Me.c1zusAdressen.TabIndex = 11
        Me.c1zusAdressen.Text = "c1ZusAdressen"
        Me.c1zusAdressen.PropBag = resources.GetString("c1zusAdressen.PropBag")
        '
        'ctxMenuZusAdressen
        '
        Me.ctxMenuZusAdressen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdresseAuswählenToolStripMenuItem})
        Me.ctxMenuZusAdressen.Name = "ctxMenuZusAdressen"
        Me.ctxMenuZusAdressen.Size = New System.Drawing.Size(175, 26)
        '
        'AdresseAuswählenToolStripMenuItem
        '
        Me.AdresseAuswählenToolStripMenuItem.Name = "AdresseAuswählenToolStripMenuItem"
        Me.AdresseAuswählenToolStripMenuItem.Size = New System.Drawing.Size(174, 22)
        Me.AdresseAuswählenToolStripMenuItem.Text = "Adresse auswählen"
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.txtsaldiert)
        Me.Panel1.Controls.Add(Me.Button1)
        Me.Panel1.Controls.Add(Me.Button2)
        Me.Panel1.Controls.Add(Me.GroupBox4)
        Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.Panel1.Location = New System.Drawing.Point(0, 421)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(589, 229)
        Me.Panel1.TabIndex = 19
        '
        'pnlGeburtsdatum
        '
        Me.pnlGeburtsdatum.Controls.Add(Me.GroupBox8)
        Me.pnlGeburtsdatum.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnlGeburtsdatum.Location = New System.Drawing.Point(0, 369)
        Me.pnlGeburtsdatum.Name = "pnlGeburtsdatum"
        Me.pnlGeburtsdatum.Size = New System.Drawing.Size(589, 52)
        Me.pnlGeburtsdatum.TabIndex = 20
        '
        'pnlWeitereAdressen
        '
        Me.pnlWeitereAdressen.Controls.Add(Me.grpZusAdressen)
        Me.pnlWeitereAdressen.Dock = System.Windows.Forms.DockStyle.Bottom
        Me.pnlWeitereAdressen.Location = New System.Drawing.Point(0, 255)
        Me.pnlWeitereAdressen.Name = "pnlWeitereAdressen"
        Me.pnlWeitereAdressen.Size = New System.Drawing.Size(589, 114)
        Me.pnlWeitereAdressen.TabIndex = 21
        '
        'BackgroundWorker1
        '
        '
        'GroupBox9
        '
        Me.GroupBox9.Controls.Add(Me.lblemail)
        Me.GroupBox9.Location = New System.Drawing.Point(8, 86)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(325, 40)
        Me.GroupBox9.TabIndex = 19
        Me.GroupBox9.TabStop = False
        Me.GroupBox9.Text = "E-Mail"
        '
        'lblemail
        '
        Me.lblemail.Location = New System.Drawing.Point(7, 15)
        Me.lblemail.Name = "lblemail"
        Me.lblemail.Size = New System.Drawing.Size(267, 23)
        Me.lblemail.TabIndex = 0
        '
        'frmPartnerDetails
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(589, 650)
        Me.Controls.Add(Me.GroupBox9)
        Me.Controls.Add(Me.pnlWeitereAdressen)
        Me.Controls.Add(Me.pnlGeburtsdatum)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox7)
        Me.Controls.Add(Me.GroupBox6)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.txtBkapr00)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.txtPartnernr)
        Me.Controls.Add(Me.Label2)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Name = "frmPartnerDetails"
        Me.Text = "Partner-Details"
        Me.TopMost = True
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.GroupBox3.ResumeLayout(False)
        Me.ctxMenuVVAdressen.ResumeLayout(False)
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        CType(Me.vvlist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        Me.GroupBox8.ResumeLayout(False)
        Me.grpZusAdressen.ResumeLayout(False)
        CType(Me.c1zusAdressen, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ctxMenuZusAdressen.ResumeLayout(False)
        Me.Panel1.ResumeLayout(False)
        Me.pnlGeburtsdatum.ResumeLayout(False)
        Me.pnlWeitereAdressen.ResumeLayout(False)
        Me.GroupBox9.ResumeLayout(False)
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Dim m_partnernr As Long
    Dim partner As DataTable
    Dim vv As DataTable
    Dim ZusAddr As DataTable
    Dim mypartner As New edokaDB.clsMyPartner()
    Dim Select_Addr_Allowed As Boolean = False
    Dim Selected_addr As Integer

    Dim m_SelectedAdresse As String
    Property Selected_Adresse As String
        Get
            Return m_SelectedAdresse
        End Get
        Set(value As String)
            m_SelectedAdresse = value
        End Set
    End Property

    Dim m_SelectedAnrede As String
    Property Selected_Anrede As String
        Get
            Return m_SelectedAnrede
        End Get
        Set(value As String)
            m_SelectedAnrede = value
        End Set
    End Property




    Property Partnernr() As Long
        Get
            Return m_partnernr
        End Get
        Set(ByVal Value As Long)
            m_partnernr = Value
        End Set
    End Property

    Sub New(Select_Addr As Boolean)
        MyBase.New()
        InitializeComponent()
        Me.Select_Addr_Allowed = True
    End Sub


    Private Sub frmPartnerDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Cursor = Cursors.WaitCursor
        If Select_Addr_Allowed = False Then
            Me.AdresseAuswählenToolStripMenuItem1.Visible = False
            Me.AdresseAuswählenToolStripMenuItem.Visible = False
        Else
            Me.AdresseAuswählenToolStripMenuItem1.Visible = True
            Me.AdresseAuswählenToolStripMenuItem.Visible = True
        End If

        Dim s As String
        Dim s1 As String
        Dim s2 As String
        Dim s3 As String
        Dim s4 As String
        Me.Height = Me.Height - Me.pnlGeburtsdatum.Height - Me.pnlWeitereAdressen.Height
        Me.Betreuerlabel.Text = ""
        partner = mypartner.Partner_Detail(Me.Partnernr)
        vv = mypartner.Partner_VV(Me.Partnernr)
        ZusAddr = mypartner.Partner_zus_Adressen(Me.Partnernr)

        If ZusAddr.Rows.Count > 0 Then
            grpZusAdressen.Visible = True
            Me.pnlWeitereAdressen.Visible = True
            Me.Height = Me.Height + Me.pnlWeitereAdressen.Height
            Me.c1zusAdressen.DataSource = Nothing
            Me.c1zusAdressen.DataSource = ZusAddr
            Me.c1zusAdressen.DataMember = ZusAddr.TableName
            Me.c1zusAdressen.Splits(0).DisplayColumns(0).Visible = False
            Me.c1zusAdressen.Splits(0).DisplayColumns(1).Width = Me.c1zusAdressen.Width - 55
            Me.c1zusAdressen.Splits(0).DisplayColumns(2).Width = 50
        Else
            Me.grpZusAdressen.Visible = False
            Me.pnlWeitereAdressen.Visible = False
        End If
        Me.txtPartnernr.Text = partner.Rows(0).Item("nrpar00")

        Me.txtInhaber.Text = ""
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d1").ToString + vbCrLf
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d2").ToString + vbCrLf
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d3").ToString + vbCrLf
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d4").ToString + vbCrLf
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d5").ToString + vbCrLf
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d6").ToString + vbCrLf
        Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d7").ToString + vbCrLf

        Me.txtZusteller.Text = ""
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h1").ToString + vbCrLf
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h2").ToString + vbCrLf
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h3").ToString + vbCrLf
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h4").ToString + vbCrLf
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h5").ToString + vbCrLf
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h6").ToString + vbCrLf
        Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h7").ToString + vbCrLf

        Me.txtBkapr00.Text = partner.Rows(0).Item("bkpar00").ToString

        Me.Betreuerlabel.Text = mypartner.Partner_Betreuer(Me.Partnernr)
        Try
            Dim d As DateTime = partner.Rows(0).Item("GebGruendDat").ToString
            Me.GBDatLabel.Text = d.ToShortDateString
        Catch ex As Exception
            Me.GBDatLabel.Text = partner.Rows(0).Item("GebGruendDat").ToString
        End Try
        'Me.GBDatLabel.Text = partner.Rows(0).Item("GebGruendDat").ToString
        If Me.GBDatLabel.Text = "" Or Me.GBDatLabel.Text.Substring(0, 10) = "01.01.1900" Then
            Me.GroupBox8.Visible = False
            Me.pnlGeburtsdatum.Visible = False
        Else
            Me.GroupBox8.Visible = True
            Me.pnlGeburtsdatum.Visible = True
            Me.Height = Me.Height + Me.pnlGeburtsdatum.Height
        End If

        If partner.Rows(0).Item("saldiert") = True Then
            Me.txtsaldiert.Visible = True
        Else
            Me.txtsaldiert.Visible = False
        End If

        get_ma_vip()

        Try
            Me.cbboersenkotiert.Checked = partner.Rows(0).Item("boersenkotiert")

        Catch ex As Exception

        End Try
        Me.vvlist.DataSource = Nothing
        Me.vvlist.DataMember = Nothing
        Me.vvlist.DataSource = Me.vv
        Me.vvlist.DataMember = "vv"
        Me.vvlist.FetchRowStyles = True
        Me.vvlist.Splits(0).DisplayColumns(0).AutoSize()
        Me.vvlist.Splits(0).DisplayColumns(1).AutoSize()
        'Me.vvlist.Splits(0).DisplayColumns(1).Width = 100
        Me.vvlist.Splits(0).DisplayColumns(2).Width = 180
        Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
        'Me.vvlist.Splits(0).DisplayColumns(4).Visible = False
        Me.vvlist.Splits(0).DisplayColumns(4).AutoSize()
        Me.vvlist.Splits(0).DisplayColumns(5).Visible = False
        Me.vvlist.Splits(0).DisplayColumns(6).Visible = True
        Me.vvlist.Splits(0).DisplayColumns(7).AutoSize()
        Me.vvlist.Splits(0).DisplayColumns(7).Visible = False


        'Me.vvlist.Splits(0).DisplayColumns(1).Width = 140
        'Me.vvlist.Splits(0).DisplayColumns(2).Visible = False
        'Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
        'Me.vvlist.Splits(0).DisplayColumns(4).Visible = False
        'Me.vvlist.Splits(0).DisplayColumns(5).Visible = True
        'Me.vvlist.Splits(0).DisplayColumns(5).AutoSize()
        'Me.vvlist.Splits(0).DisplayColumns(6).Visible = False

        Try
            Me.lblemail.Text = partner.Rows(0).Item("email_adresse").ToString
        Catch ex As Exception
            Me.lblemail.Text = ""
        End Try
        Me.Cursor = Cursors.Default
        Exit Sub

        'Me.txtPartnerEmpfaenger.Text = partner.Rows(0).Item("nrparad")





        '    Me.Cursor = Cursors.WaitCursor
        '    Dim s As String
        '    Dim s1 As String
        '    Dim s2 As String
        '    Dim s3 As String
        '    Dim s4 As String
        '    Me.Betreuerlabel.Text = ""
        '    partner = mypartner.Partner_Detail(Me.Partnernr)
        '    vv = mypartner.Partner_VV(Me.Partnernr)

        '    Me.txtPartnernr.Text = partner.Rows(0).Item("nrpar00")
        '    Me.txtBkapr00.Text = partner.Rows(0).Item("bkpar00")
        '    Me.txtPartnerEmpfaenger.Text = partner.Rows(0).Item("nrparad")

        '    Me.Betreuerlabel.Text = mypartner.Partner_Betreuer(Me.Partnernr)
        '    Try
        '        Me.GBDatLabel.Text = mypartner.Partner_Gebdat(Me.Partnernr)
        '        If Me.GBDatLabel.Text = "" Then Me.GroupBox8.Visible = False Else Me.GroupBox8.Visible = True
        '    Catch
        '        Me.GroupBox8.Visible = False
        '    End Try

        '    If partner.Rows(0).Item("cdvig00") = "Y" Then
        '        Me.cbvi.Checked = True
        '    Else
        '        '            Me.cbvi.Checked = False
        '    End If
        '    If partner.Rows(0).Item("azepl00") > 1 Then
        '        Me.cbvi.Checked = True
        '    Else
        '        '           Me.cbvi.Checked = False
        '    End If
        '    If partner.Rows(0).Item("cdvsa00") = True Then
        '        Me.cbvi.Checked = True
        '    Else
        '        '            Me.cbvi.Checked = False
        '    End If

        '    Try
        '        If partner.Rows(0).Item("SAVRS00") = "Y" Then
        '            Me.cbvsa.Checked = True
        '        Else
        '            Me.cbvsa.Checked = False
        '        End If
        '    Catch ex As Exception
        '        'MsgBox(ex.Message)
        '    End Try
        '    If partner.Rows(0).Item("saldiert") = True Then
        '        Me.txtsaldiert.Visible = True
        '    Else
        '        Me.txtsaldiert.Visible = False
        '    End If
        '    s = ""
        '    s1 = ""
        '    s2 = ""
        '    s = s + partner.Rows(0).Item("txadz012") + vbCrLf
        '    s = s + partner.Rows(0).Item("txadz022") + vbCrLf
        '    s = s + partner.Rows(0).Item("txadz032") + vbCrLf
        '    s = s + partner.Rows(0).Item("txadz042") + vbCrLf
        '    s = s + partner.Rows(0).Item("txadz052") + vbCrLf
        '    s = s + partner.Rows(0).Item("txadz062") + vbCrLf
        '    s = s + partner.Rows(0).Item("txadz072") + vbCrLf
        '    s3 = ""
        '    s3 = s3 + partner.Rows(0).Item("txadz012")
        '    s3 = s3 + partner.Rows(0).Item("txadz022")
        '    s3 = s3 + partner.Rows(0).Item("txadz032")
        '    s3 = s3 + partner.Rows(0).Item("txadz042")
        '    s3 = s3 + partner.Rows(0).Item("txadz052")
        '    s3 = s3 + partner.Rows(0).Item("txadz062")
        '    s3 = s3 + partner.Rows(0).Item("txadz072")

        '    s1 = s1 + partner.Rows(0).Item("txadz011") + vbCrLf
        '    s1 = s1 + partner.Rows(0).Item("txadz021") + vbCrLf
        '    s1 = s1 + partner.Rows(0).Item("txadz031") + vbCrLf
        '    s1 = s1 + partner.Rows(0).Item("txadz041") + vbCrLf
        '    s1 = s1 + partner.Rows(0).Item("txadz051") + vbCrLf
        '    s1 = s1 + partner.Rows(0).Item("txadz061") + vbCrLf
        '    s1 = s1 + partner.Rows(0).Item("txadz071") + vbCrLf
        '    s4 = ""
        '    s4 = s4 + partner.Rows(0).Item("txadz011")
        '    s4 = s4 + partner.Rows(0).Item("txadz021")
        '    s4 = s4 + partner.Rows(0).Item("txadz031")
        '    s4 = s4 + partner.Rows(0).Item("txadz041")
        '    s4 = s4 + partner.Rows(0).Item("txadz051")
        '    s4 = s4 + partner.Rows(0).Item("txadz061")
        '    s4 = s4 + partner.Rows(0).Item("txadz071")

        '    get_ma_vip()

        '    'If Not (partner.Rows(0).Item("adresszeile1") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile1") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile1") + vbCrLf
        '    'End If
        '    'If Not (partner.Rows(0).Item("adresszeile2") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile2") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile2") + vbCrLf
        '    'End If
        '    'If Not (partner.Rows(0).Item("adresszeile3") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile3") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile3") + vbCrLf
        '    'End If
        '    'If Not (partner.Rows(0).Item("adresszeile4") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile4") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile4") + vbCrLf
        '    'End If
        '    'If Not (partner.Rows(0).Item("adresszeile5") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile5") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile5") + vbCrLf
        '    'End If
        '    'If Not (partner.Rows(0).Item("adresszeile6") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile6") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile6") + vbCrLf
        '    'End If
        '    'If Not (partner.Rows(0).Item("adresszeile7") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile7") = "") Then
        '    's2 = s2 + partner.Rows(0).Item("adresszeile7") + vbCrLf
        '    'End If

        '    If Val(Me.txtPartnerEmpfaenger.Text) <> Val(Me.txtPartnernr.Text) Then
        '        Me.txtInhaber.Text = s
        '        Me.txtZusteller.Text = s1
        '    Else
        '        Me.txtInhaber.Text = s1
        '        Me.txtZusteller.Text = ""
        '        Me.txtPartnerEmpfaenger.Text = ""
        '    End If

        '    If Trim(s3) <> Trim(s4) And Trim(s3) <> "" Then
        '        Me.txtInhaber.Text = s
        '        Me.txtZusteller.Text = s1
        '    Else
        '        Me.txtInhaber.Text = Trim(s1)
        '    End If
        '    Me.txtZusatz.Text = s2

        '    Me.vvlist.DataSource = Nothing
        '    Me.vvlist.DataMember = Nothing
        '    Me.vvlist.DataSource = Me.vv
        '    Me.vvlist.DataMember = "vv"
        '    Me.vvlist.Splits(0).DisplayColumns(1).Width = 140
        '    Me.vvlist.Splits(0).DisplayColumns(2).Visible = False
        '    Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
        '    Me.Cursor = Cursors.Default
        '    Dim i As Integer
        '    For i = 0 To Me.vvlist.Columns.Count - 1
        '        If UCase(Me.vvlist.Columns(i).Caption) = "SAREC00" Then
        '            Me.vvlist.Splits(0).DisplayColumns(i).Visible = False
        '        End If
        '    Next
    End Sub

    Private Sub frmPartnerDetails_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        partner.Dispose()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim f1 As New frmEdokaAdresse()
        f1.Partnernr = Me.Partnernr
        f1.ShowDialog()
        frmPartnerDetails_Load(sender, e)
    End Sub

    Private Sub get_ma_vip()
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "sp_ma_vip"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        Try
            scmCmdToExecute.Connection = conn.scoDBConnection
            scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Partnernr))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@ma", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@vip", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            sdaAdapter.Fill(dtToReturn)
            If scmCmdToExecute.Parameters("@ma").Value > 0 Then Me.cbmitarbeiter.Checked = True Else Me.cbmitarbeiter.Checked = False
            If scmCmdToExecute.Parameters("@vip").Value > 0 Then Me.cbVip.Checked = True Else Me.cbVip.Checked = False

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
            dtToReturn.Dispose()
        End Try
    End Sub

    Private Sub vvlist_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles vvlist.FetchRowStyle
        If Me.vvlist.Columns("sarec00").CellValue(e.Row) <> 2 Then
            Dim FNT As Font = e.CellStyle.Font
            e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
        End If
    End Sub

    Private Sub ctxMenuZusAdressen_Opening(sender As Object, e As CancelEventArgs) Handles ctxMenuZusAdressen.Opening
        If Me.c1zusAdressen.Splits(0).Rows.Count < 1 Then AdresseAuswählenToolStripMenuItem.Enabled = False Else Me.AdresseAuswählenToolStripMenuItem.Enabled = True
    End Sub

    Private Sub ctxMenuVVAdressen_Opening(sender As Object, e As CancelEventArgs) Handles ctxMenuVVAdressen.Opening
        If Me.vvlist.Splits(0).Rows.Count < 1 Then Me.AdresseAuswählenToolStripMenuItem1.Enabled = False Else Me.AdresseAuswählenToolStripMenuItem1.Enabled = True
        If Me.vvlist.Columns(6).Value = "" Then Me.AdresseAuswählenToolStripMenuItem1.Enabled = False Else Me.AdresseAuswählenToolStripMenuItem1.Enabled = True
    End Sub

    Private Sub AdresseAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdresseAuswählenToolStripMenuItem.Click
        Get_Adresse(Me.c1zusAdressen.Columns(0).Value)
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub ctxMenuVVAdressen_Click(sender As Object, e As EventArgs) Handles ctxMenuVVAdressen.Click
        Get_Adresse(Me.vvlist.Columns(7).Value)
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Get_Adresse(ByVal Addr_Obj_ID As String)
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        scmCmdToExecute.CommandText = "dbo.sp_get_adresse"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Try
            scmCmdToExecute.Connection = conn.scoDBConnection
            scmCmdToExecute.Parameters.Add(New SqlParameter("@addrobjid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Addr_Obj_ID))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l1", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l2", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l3", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l4", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l5", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l6", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@l7", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
            scmCmdToExecute.Parameters.Add(New SqlParameter("@Anrede", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
            Globals.conn.OpenConnection()
            scmCmdToExecute.ExecuteNonQuery()
            Globals.conn.CloseConnection(True)
            Me.Selected_Adresse = scmCmdToExecute.Parameters("@l1").Value.ToString
            Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l2").Value.ToString
            Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l3").Value.ToString
            Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l4").Value.ToString
            Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l5").Value.ToString
            Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l6").Value.ToString
            Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l7").Value.ToString
            Me.Selected_Anrede = scmCmdToExecute.Parameters("@anrede").Value.ToString
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            scmCmdToExecute.Dispose()
        End Try
    End Sub

    Private Sub c1ZusAdressen_MouseDown(sender As Object, e As MouseEventArgs) Handles c1zusAdressen.MouseDown
        Try
            Me.c1zusAdressen.Bookmark = Me.c1zusAdressen.RowContaining(e.Y)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub vvlist_MouseDown(sender As Object, e As MouseEventArgs) Handles vvlist.MouseDown
        Me.vvlist.Bookmark = Me.vvlist.RowContaining(e.Y)
    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork

    End Sub

    Private Sub AdresseAuswählenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AdresseAuswählenToolStripMenuItem1.Click

    End Sub
End Class