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 vvlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
    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 GBDatLabel As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        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.Label3 = New System.Windows.Forms.Label
        Me.txtPartnerEmpfaenger = New System.Windows.Forms.TextBox
        Me.txtZusteller = New System.Windows.Forms.RichTextBox
        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.vvlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.txtInhaber = New System.Windows.Forms.RichTextBox
        Me.GroupBox4 = New System.Windows.Forms.GroupBox
        Me.GroupBox5 = New System.Windows.Forms.GroupBox
        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.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        CType(Me.vvlist, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.GroupBox6.SuspendLayout()
        Me.GroupBox7.SuspendLayout()
        Me.GroupBox8.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(208, 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"
        '
        '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"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.Label3)
        Me.GroupBox2.Controls.Add(Me.txtPartnerEmpfaenger)
        Me.GroupBox2.Controls.Add(Me.txtZusteller)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 224)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(248, 176)
        Me.GroupBox2.TabIndex = 7
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "Zustell-Adresse (VI auf Ebene Partner)"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(8, 144)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(120, 23)
        Me.Label3.TabIndex = 3
        Me.Label3.Text = "Partner-Nr. Empfänger"
        '
        '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"
        '
        'txtZusteller
        '
        Me.txtZusteller.Dock = System.Windows.Forms.DockStyle.Top
        Me.txtZusteller.Location = New System.Drawing.Point(3, 16)
        Me.txtZusteller.Name = "txtZusteller"
        Me.txtZusteller.ReadOnly = True
        Me.txtZusteller.Size = New System.Drawing.Size(242, 120)
        Me.txtZusteller.TabIndex = 0
        Me.txtZusteller.Text = ""
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.txtZusatz)
        Me.GroupBox3.Location = New System.Drawing.Point(272, 384)
        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(440, 464)
        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(8, 464)
        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(216, 464)
        Me.txtsaldiert.Name = "txtsaldiert"
        Me.txtsaldiert.Size = New System.Drawing.Size(168, 23)
        Me.txtsaldiert.TabIndex = 12
        Me.txtsaldiert.Text = "Partner saldiert!"
        '
        'vvlist
        '
        Me.vvlist.AlternatingRows = True
        Me.vvlist.ColumnHeaders = False
        Me.vvlist.FetchRowStyles = True
        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(8, 16)
        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
        Me.vvlist.PrintInfo.PageSettings = CType(resources.GetObject("vvlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.vvlist.RecordSelectors = False
        Me.vvlist.RowSubDividerColor = System.Drawing.Color.Transparent
        Me.vvlist.Size = New System.Drawing.Size(240, 304)
        Me.vvlist.TabIndex = 13
        Me.vvlist.Text = "C1TrueDBGrid1"
        Me.vvlist.PropBag = resources.GetString("vvlist.PropBag")
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.txtInhaber)
        Me.GroupBox1.Location = New System.Drawing.Point(8, 80)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(248, 144)
        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.Size = New System.Drawing.Size(242, 125)
        Me.txtInhaber.TabIndex = 1
        Me.txtInhaber.Text = "1"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.vvlist)
        Me.GroupBox4.Location = New System.Drawing.Point(264, 128)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(256, 328)
        Me.GroupBox4.TabIndex = 14
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "Vorhandene VV's"
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.cbVip)
        Me.GroupBox5.Controls.Add(Me.cbmitarbeiter)
        Me.GroupBox5.Location = New System.Drawing.Point(264, 80)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(256, 48)
        Me.GroupBox5.TabIndex = 15
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "Mitarbeiter/VIP"
        '
        'cbVip
        '
        Me.cbVip.Location = New System.Drawing.Point(160, 16)
        Me.cbVip.Name = "cbVip"
        Me.cbVip.Size = New System.Drawing.Size(80, 24)
        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(144, 24)
        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(8, 408)
        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"
        '
        'GroupBox7
        '
        Me.GroupBox7.Controls.Add(Me.Betreuerlabel)
        Me.GroupBox7.Location = New System.Drawing.Point(264, 40)
        Me.GroupBox7.Name = "GroupBox7"
        Me.GroupBox7.Size = New System.Drawing.Size(256, 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(240, 23)
        Me.Betreuerlabel.TabIndex = 0
        '
        'GroupBox8
        '
        Me.GroupBox8.Controls.Add(Me.GBDatLabel)
        Me.GroupBox8.Location = New System.Drawing.Point(8, 40)
        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(8, 14)
        Me.GBDatLabel.Name = "GBDatLabel"
        Me.GBDatLabel.Size = New System.Drawing.Size(200, 23)
        Me.GBDatLabel.TabIndex = 0
        '
        'frmPartnerDetails
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(528, 495)
        Me.Controls.Add(Me.GroupBox1)
        Me.Controls.Add(Me.GroupBox8)
        Me.Controls.Add(Me.GroupBox7)
        Me.Controls.Add(Me.GroupBox6)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.txtsaldiert)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.GroupBox3)
        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)
        CType(Me.vvlist, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.GroupBox6.ResumeLayout(False)
        Me.GroupBox7.ResumeLayout(False)
        Me.GroupBox8.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 mypartner As New edokaDB.clsMyPartner()
    Property Partnernr() As Long
        Get
            Return m_partnernr
        End Get
        Set(ByVal Value As Long)
            m_partnernr = Value
        End Set
    End Property

    Private Sub frmPartnerDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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

End Class