Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports UtilityLibrary.Win32
Public Class FrmPartnersuche
    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 TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents BUtton3 As System.Windows.Forms.Button
    Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
    Friend WithEvents PartnerList 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 MenuItem4 As System.Windows.Forms.MenuItem
    Friend WithEvents Button4 As System.Windows.Forms.Button
    Friend WithEvents Button5 As System.Windows.Forms.Button
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Button6 As System.Windows.Forms.Button
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
    Friend WithEvents Label8 As System.Windows.Forms.Label
    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(FrmPartnersuche))
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.Label2 = New System.Windows.Forms.Label
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.Label3 = New System.Windows.Forms.Label
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.TextBox4 = New System.Windows.Forms.TextBox
        Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
        Me.Button1 = New System.Windows.Forms.Button
        Me.Button2 = New System.Windows.Forms.Button
        Me.BUtton3 = New System.Windows.Forms.Button
        Me.PartnerList = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
        Me.MenuItem1 = New System.Windows.Forms.MenuItem
        Me.MenuItem2 = New System.Windows.Forms.MenuItem
        Me.MenuItem3 = New System.Windows.Forms.MenuItem
        Me.MenuItem4 = New System.Windows.Forms.MenuItem
        Me.Button4 = New System.Windows.Forms.Button
        Me.Button5 = New System.Windows.Forms.Button
        Me.Label5 = New System.Windows.Forms.Label
        Me.TextBox5 = New System.Windows.Forms.TextBox
        Me.CheckBox1 = New System.Windows.Forms.CheckBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.Button6 = New System.Windows.Forms.Button
        Me.Label7 = New System.Windows.Forms.Label
        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
        Me.Label8 = New System.Windows.Forms.Label
        Me.BtnHelp = New System.Windows.Forms.Button
        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(96, 16)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(176, 20)
        Me.TextBox1.TabIndex = 0
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(16, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(72, 23)
        Me.Label1.TabIndex = 1
        Me.Label1.Text = "Partner-Nr."
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(16, 40)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 23)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Kurzname"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(96, 40)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(176, 20)
        Me.TextBox2.TabIndex = 2
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(16, 64)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(72, 23)
        Me.Label3.TabIndex = 5
        Me.Label3.Text = "Freitext"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(96, 64)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(176, 20)
        Me.TextBox3.TabIndex = 4
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(424, 16)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(80, 40)
        Me.Label4.TabIndex = 7
        Me.Label4.Text = "Maximale Anzahl Treffer"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(520, 16)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(64, 20)
        Me.TextBox4.TabIndex = 6
        Me.TextBox4.Text = "50"
        '
        '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, "")
        '
        'Button1
        '
        Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button1.Location = New System.Drawing.Point(280, 16)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(88, 24)
        Me.Button1.TabIndex = 9
        Me.Button1.Text = "&Suchen"
        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'Button2
        '
        Me.Button2.Enabled = False
        Me.Button2.Location = New System.Drawing.Point(496, 336)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(88, 23)
        Me.Button2.TabIndex = 11
        Me.Button2.Text = "Übernehmen"
        '
        'BUtton3
        '
        Me.BUtton3.Location = New System.Drawing.Point(48, 336)
        Me.BUtton3.Name = "BUtton3"
        Me.BUtton3.Size = New System.Drawing.Size(80, 24)
        Me.BUtton3.TabIndex = 10
        Me.BUtton3.Text = "Schliessen"
        '
        'PartnerList
        '
        Me.PartnerList.AllowUpdate = False
        Me.PartnerList.AllowUpdateOnBlur = False
        Me.PartnerList.AlternatingRows = True
        Me.PartnerList.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
        Me.PartnerList.ContextMenu = Me.ContextMenu1
        Me.PartnerList.FetchRowStyles = True
        Me.PartnerList.FilterBar = True
        Me.PartnerList.GroupByCaption = "Drag a column header here to group by that column"
        Me.PartnerList.Images.Add(CType(resources.GetObject("PartnerList.Images"), System.Drawing.Image))
        Me.PartnerList.Location = New System.Drawing.Point(16, 112)
        Me.PartnerList.MultiSelect = C1.Win.C1TrueDBGrid.MultiSelectEnum.None
        Me.PartnerList.Name = "PartnerList"
        Me.PartnerList.PreviewInfo.Location = New System.Drawing.Point(0, 0)
        Me.PartnerList.PreviewInfo.Size = New System.Drawing.Size(0, 0)
        Me.PartnerList.PreviewInfo.ZoomFactor = 75
        Me.PartnerList.PrintInfo.PageSettings = CType(resources.GetObject("PartnerList.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
        Me.PartnerList.ScrollTips = True
        Me.PartnerList.Size = New System.Drawing.Size(568, 216)
        Me.PartnerList.TabIndex = 13
        Me.PartnerList.Text = "C1TrueDBGrid1"
        Me.PartnerList.PropBag = resources.GetString("PartnerList.PropBag")
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})
        '
        'MenuItem1
        '
        Me.MenuItem1.Index = 0
        Me.MenuItem1.Text = "&Partner übernehmen"
        '
        'MenuItem2
        '
        Me.MenuItem2.Index = 1
        Me.MenuItem2.Text = "&Detailinformationen"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 2
        Me.MenuItem3.Text = "-"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 3
        Me.MenuItem4.Text = "Partner erfassen / bearbeiten"
        '
        'Button4
        '
        Me.Button4.Location = New System.Drawing.Point(280, 40)
        Me.Button4.Name = "Button4"
        Me.Button4.Size = New System.Drawing.Size(88, 24)
        Me.Button4.TabIndex = 14
        Me.Button4.Text = "Neuer Partner"
        '
        'Button5
        '
        Me.Button5.Location = New System.Drawing.Point(280, 64)
        Me.Button5.Name = "Button5"
        Me.Button5.Size = New System.Drawing.Size(88, 24)
        Me.Button5.TabIndex = 15
        Me.Button5.Text = "HOST-Partner"
        Me.Button5.Visible = False
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(16, 88)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(72, 23)
        Me.Label5.TabIndex = 17
        Me.Label5.Text = "VV-Suche"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(96, 88)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(176, 20)
        Me.TextBox5.TabIndex = 16
        '
        'CheckBox1
        '
        Me.CheckBox1.CheckAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.CheckBox1.Location = New System.Drawing.Point(568, 56)
        Me.CheckBox1.Name = "CheckBox1"
        Me.CheckBox1.Size = New System.Drawing.Size(16, 16)
        Me.CheckBox1.TabIndex = 18
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(424, 56)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(152, 32)
        Me.Label6.TabIndex = 19
        Me.Label6.Text = "Trefferliste immer anzeigen"
        '
        'Button6
        '
        Me.Button6.Image = CType(resources.GetObject("Button6.Image"), System.Drawing.Image)
        Me.Button6.Location = New System.Drawing.Point(368, 16)
        Me.Button6.Name = "Button6"
        Me.Button6.Size = New System.Drawing.Size(24, 24)
        Me.Button6.TabIndex = 20
        '
        'Label7
        '
        Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label7.ForeColor = System.Drawing.Color.Red
        Me.Label7.Location = New System.Drawing.Point(136, 336)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(344, 32)
        Me.Label7.TabIndex = 21
        Me.Label7.Text = "Partner wurde direkt übernommen"
        Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.Label7.Visible = False
        '
        'Timer1
        '
        Me.Timer1.Interval = 2000
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(408, 72)
        Me.Label8.Name = "Label8"
        Me.Label8.RightToLeft = System.Windows.Forms.RightToLeft.Yes
        Me.Label8.Size = New System.Drawing.Size(184, 16)
        Me.Label8.TabIndex = 22
        Me.Label8.Text = "(z.B. für EDOKA-Partner-Mutation)"
        Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        '
        'BtnHelp
        '
        Me.BtnHelp.Image = CType(resources.GetObject("BtnHelp.Image"), System.Drawing.Image)
        Me.BtnHelp.Location = New System.Drawing.Point(16, 336)
        Me.BtnHelp.Name = "BtnHelp"
        Me.BtnHelp.Size = New System.Drawing.Size(24, 23)
        Me.BtnHelp.TabIndex = 61
        '
        'FrmPartnersuche
        '
        Me.AcceptButton = Me.Button1
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(592, 373)
        Me.Controls.Add(Me.BtnHelp)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Button6)
        Me.Controls.Add(Me.CheckBox1)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.Button5)
        Me.Controls.Add(Me.Button4)
        Me.Controls.Add(Me.PartnerList)
        Me.Controls.Add(Me.BUtton3)
        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.Button1)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.Label6)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "FrmPartnersuche"
        Me.ShowInTaskbar = False
        Me.Text = "Partnersuche"
        CType(Me.PartnerList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

#Region "Deklarationen"
    Public Event partner_selected()
    Dim m_noclose As Boolean = False
    Property NoClose() As Boolean
        Get
            Return m_noclose
        End Get
        Set(ByVal Value As Boolean)
            m_noclose = Value
        End Set
    End Property
    Dim m_meldung_doppelter_partner As Boolean = False
    Property Meldung_Doppelter_Partner() As Boolean
        Get
            Return m_meldung_doppelter_partner
        End Get
        Set(ByVal Value As Boolean)
            m_meldung_doppelter_partner = Value
        End Set
    End Property
    Dim Partner As DataTable
    Dim m_zustelladresse As String
    Dim m_anrede As String

    Dim mypartner As New edokadb.clsMyPartner()

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

    Dim m_PartnerKurzbezeichnung As String
    Property PartnerKurzbezeichnnung() As String
        Get
            Return m_PartnerKurzbezeichnung
        End Get
        Set(ByVal Value As String)
            m_PartnerKurzbezeichnung = Value
        End Set
    End Property

    Property zustelladresse() As String
        Get
            Return m_zustelladresse
        End Get
        Set(ByVal Value As String)
            m_zustelladresse = Value
        End Set
    End Property

    Property Anrede() As String
        Get
            Return m_anrede
        End Get
        Set(ByVal Value As String)
            m_anrede = Value
        End Set
    End Property

    Dim m_dokumenterstellen As Boolean = False
    Property Dokumenterstellen() As Boolean
        Get
            Return m_dokumenterstellen
        End Get
        Set(ByVal Value As Boolean)
            m_dokumenterstellen = Value
        End Set
    End Property

    Dim m_profilnr As Integer
    Property profilnr() As Integer
        Get
            Return m_profilnr
        End Get
        Set(ByVal Value As Integer)
            m_profilnr = Value
        End Set
    End Property

    Dim m_erfassung As Boolean = False
    Property AusPartnererfassung() As Boolean
        Get
            Return m_erfassung
        End Get
        Set(ByVal Value As Boolean)
            m_erfassung = Value
        End Set
    End Property
    Dim m_retrieval As Boolean
    Property NurAbfrage() As Boolean
        Get
            Return m_retrieval
        End Get
        Set(ByVal Value As Boolean)
            m_retrieval = Value
        End Set
    End Property

    Dim m_vibeachten As Boolean
    Property VIBeachten() As Boolean
        Get
            Return m_vibeachten
        End Get
        Set(ByVal Value As Boolean)
            m_vibeachten = Value
        End Set
    End Property

    Dim m_dokumenttypnr As Integer = 0
    Property Dokumenttypnrnr() As Integer
        Get
            Return m_dokumenttypnr
        End Get
        Set(ByVal Value As Integer)
            m_dokumenttypnr = Value
        End Set
    End Property

#End Region


    Private Sub Buton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.PartnerList.DataSource = Nothing
        Me.PartnerList.DataMember = Nothing
        Dim iii As Double
        If Me.TextBox1.Text <> "" Then
            Try
                Dim d As Double
                d = Val(Me.TextBox1.Text)
                If d = 0 Then
                    MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
                    Me.TextBox1.Focus()
                    Exit Sub
                End If
                Me.Cursor = Cursors.WaitCursor
                Partner = mypartner.search_partner(d, Me.TextBox4.Text, 0)
                Me.Cursor = Cursors.Default
            Catch
                MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
                Me.TextBox1.Focus()
                Exit Sub
            End Try
        Else
            If Me.TextBox2.Text <> "" Then
                Me.Cursor = Cursors.WaitCursor
                Partner = mypartner.search_partner(Me.TextBox2.Text, Me.TextBox4.Text, 1)
                Me.Cursor = Cursors.Default
            Else
                If Me.TextBox3.Text <> "" Then
                    Me.Cursor = Cursors.WaitCursor
                    Partner = mypartner.search_partner(Me.TextBox3.Text, Me.TextBox4.Text, 2)
                    Me.Cursor = Cursors.Default
                Else
                    Me.Cursor = Cursors.WaitCursor
                    Partner = mypartner.search_partner(Me.TextBox5.Text, Me.TextBox4.Text, 3)
                    Me.Cursor = Cursors.Default
                End If
            End If
        End If
        If Partner.Rows.Count = 0 Then
            MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
        Else
            Globals.Save_Partnersuche = Partner
            Me.PartnerList.DataSource = Partner
            Me.PartnerList.DataMember = "Partner"
            SpaltenTitel_Aktualisieren()
            Dim i As Long
            Dim ii As Long
            If Me.PartnerList.Splits(0).Rows.Count = 1 And Me.CheckBox1.Checked <> True Then
                If Me.NoClose Then
                    Me.Timer1.Enabled = True
                    Me.Label7.Visible = True
                End If
                Button2_Click(sender, e)
            End If
            End If
        If Me.PartnerList.Splits(0).Rows.Count > 0 Then
            Me.Button2.Enabled = True
            Me.PartnerList.Focus()
        Else
            Me.Button2.Enabled = False
            Me.TextBox1.Focus()
        End If
    End Sub

    Private Sub PartnerList_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles PartnerList.FetchRowStyle
        If Microsoft.VisualBasic.Left(Me.PartnerList.Columns(0).CellValue(e.Row), 1) = "9" Then
            e.CellStyle.BackColor = System.Drawing.Color.CadetBlue
        End If
    End Sub


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

    Public Sub SpaltenTitel_Aktualisieren()
        'Spaltentitel setzen
        Dim titel As New EDOKA.MySpaltenTitel()
        Dim ts As New EDOKA.Tabellenspalte()
        Dim i As Integer
        Dim t As New DataTable()
        Dim dc As C1.Win.C1TrueDBGrid.C1DisplayColumn
        Dim s As String

        t = Partner
        ts.Tabelle = "Partner"
        For i = 0 To Me.PartnerList.Columns.Count - 1
            s = Me.PartnerList.Columns(i).DataField
            ts.Feld = s
            ts.getspalte()
            Me.PartnerList.Columns(i).Caption = ts.spaltenname
            If Me.PartnerList.Columns(i).Caption = "" Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            Else
                Me.PartnerList.Splits(0).DisplayColumns(i).Width = ts.ColWith
            End If
            '            If Me.PartnerList.Columns(i).Caption = "" Then Me.PartnerList.Splits(0).DisplayColumns(i).Width = 0
            If ts.locked Then
                Me.PartnerList.Splits(0).DisplayColumns(i).Locked = True
            End If

            If ts.AlsHacken Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
            End If

            'Präsentation von aktiv
            If Me.PartnerList.Columns(i).DataField = "aktiv" Then
                Me.PartnerList.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
                Me.PartnerList.Columns(i).ValueItems.DefaultItem = True
                Me.PartnerList.Columns(i).DefaultValue = True
                Me.PartnerList.Columns(i).FilterText = True
            End If
            If Me.PartnerList.Columns(i).DataField = "erstellt_am" Then
                Me.PartnerList.Columns(i).DefaultValue = Now
            End If
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Partner_Suche(Me.PartnerList.Columns(0).Value)
        If Me.NoClose Then
            RaiseEvent partner_selected()
            Me.Timer1.Enabled = True
            Me.Label7.Visible = True
            Exit Sub
        End If
    End Sub

    Public Sub Partner_Suche(ByVal nrpar00 As String)
        Dim p As New edokadb.clsPartner()
        Dim ph As New edokadb.clsPartner_Hauptadresse()
        p.sConnectionString = Globals.sConnectionString
        p.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
        p.SelectOne()
        ph.sConnectionString = Globals.sConnectionString
        ph.iNRPAR00 = New SqlInt32(CType(nrpar00, Int32))
        ph.SelectOne()


        Dim s As String
        s = ""
        Try
            If p.sCDVIG00.Value = "Y" Or p.iAZEPL00.Value > 1 Or p.bCDVSA00.Value = True Then Me.VIBeachten = True Else Me.VIBeachten = False
            If p.sTXADZ011.Value <> "" Then s = s + p.sTXADZ011.Value + vbCrLf
            If p.sTXADZ021.Value <> "" Then s = s + p.sTXADZ021.Value + vbCrLf
            If p.sTXADZ031.Value <> "" Then s = s + p.sTXADZ031.Value + vbCrLf
            If p.sTXADZ041.Value <> "" Then s = s + p.sTXADZ041.Value + vbCrLf
            If p.sTXADZ051.Value <> "" Then s = s + p.sTXADZ051.Value + vbCrLf
            If p.sTXADZ061.Value <> "" Then s = s + p.sTXADZ061.Value + vbCrLf
            If p.sTXADZ071.Value <> "" Then s = s + p.sTXADZ071.Value + vbCrLf
            Me.zustelladresse = s
            If p.iNRPAR00.Value > 91000000 Then
                Me.Anrede = p.sBEBAN011.Value
            Else
                Me.Anrede = ph.sBEBAN01.Value
            End If
            Me.PartnerNr = nrpar00
            Me.PartnerKurzbezeichnnung = p.sBKPAR00.Value
            If Me.NoClose = True Then
                Exit Sub
            End If
            Try
                Me.Partner.Dispose()
            Catch
            End Try
            Try
                Me.Close()
            Catch
            End Try
            Me.mypartner = Nothing
        Catch ex As Exception
            '            MsgBox(ex.Message)
        Finally
            Try
                p.Dispose()
                ph.Dispose()
            Catch
            End Try
        End Try
    End Sub

    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
        Button2_Click(sender, e)
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        Try
            If Me.PartnerList.Columns(0).Value > 91000000 Then
                Dim f As New frmInteressent()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.Display = True
                f.ShowDialog()
                f.Dispose()
            Else
                Dim f As New frmPartnerDetails()
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.ShowDialog()
                f.Dispose()
            End If
        Catch
        Finally
        End Try
    End Sub


    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown, TextBox2.KeyDown, TextBox3.KeyDown
        If e.KeyCode = Keys.Return Then Buton1_Click(sender, e)

    End Sub

    Private Sub PartnerList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles PartnerList.DoubleClick
        Button2_Click(sender, e)
    End Sub

    Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
        Dim f As New frmInteressent()
        f.Display = False
        Try
            If Me.PartnerList.Columns(0).Value > 91000000 Then
                f.Partnernr = Me.PartnerList.Columns(0).Value
                f.ShowDialog()
            Else
                f.Partnernr = 0
                f.ShowDialog()
            End If
        Catch
            f.Partnernr = 0
            f.ShowDialog()
        Finally
            Me.TextBox1.Text = f.Partnernr
            f.Dispose()
            Buton1_Click(sender, e)
        End Try
    End Sub


    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim f As New frmInteressent()
        f.Profilnr = Me.profilnr
        f.Display = False
        Try
            f.Partnernr = 0
            f.ShowDialog()
        Catch
            f.Partnernr = 0
            f.ShowDialog()
        Finally
            Me.TextBox1.Text = f.Partnernr
            f.Dispose()
            Buton1_Click(sender, e)
        End Try
    End Sub

    Private Sub FrmPartnersuche_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Me.NurAbfrage Then
            Me.Button4.Visible = False
            Me.Button5.Visible = False
        Else
            Me.Button4.Visible = True
            'NOVA RGL 20071010
            Me.Button5.Visible = False
            If DivFnkt.EDOKA_Partner_Berechtigt = False Then Me.Button4.Enabled = False Else Me.Button4.Enabled = True
            If DivFnkt.EDOKA_Partner_Dokument(3, Me.Dokumenttypnrnr) = True Then Me.Button4.Enabled = True Else Me.Button4.Enabled = False
        End If
        Me.TextBox1.Focus()
        Me.TextBox1.Select()
        If Globals.Save_Partnersuche.Rows.Count > 0 And Not Me.AusPartnererfassung Then
            Me.PartnerList.DataSource = Globals.Save_Partnersuche
            Me.PartnerList.DataMember = Globals.Save_Partnersuche.TableName
            Me.Button2.Enabled = True
            SpaltenTitel_Aktualisieren()
        End If
        ' Rel 4.0 Fensterhandling Problem 
        ' Handle verweis auf Prozess EDOKA...
        Dim p As Process
        Dim Ret As Int32
        Dim hWndMain As IntPtr

        Dim MyProcesses() As Process = _
        Process.GetProcessesByName( _
        Process.GetCurrentProcess().ProcessName)


        For Each p In MyProcesses

            If (p.Id = Process.GetCurrentProcess().Id) Then
                Globals.Apphandle = p.MainWindowHandle()
            End If

        Next
        ' Rel 4.0 Fensterhandling Problem 
        ' Zeige EDOKA im Hintergrund
        Win32API.ShowWindow(Globals.Apphandle, Win32API.SW_Maximize)
        Win32API.SetActiveWindow(Globals.Apphandle)
        Win32API.BringWindowToTop(Globals.Apphandle)
        'Me.BringToFront()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MsgBox("Diese Funktion ist nicht mehr aktiv")
        'NOVA RGL 20071010
        'Dim nrpar00 As Integer
        'Dim host As New frmHostTransfer()
        'If Me.TextBox1.Text <> "" Then
        '    Try
        '        Dim d As Double
        '        d = Val(Me.TextBox1.Text)
        '        If d = 0 Then
        '            MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
        '            Me.TextBox1.Focus()
        '            Exit Sub
        '        End If
        '        host.Nrpar00 = d
        '        Me.Hide()
        '        host.ShowDialog()
        '        If host.DialogResult = DialogResult.Abort Then
        '            Me.Show()
        '        Else
        '            Me.TextBox1.Text = host.Nrpar00
        '            Me.Buton1_Click(sender, e)
        '            Me.Show()
        '        End If
        '        host.Dispose()
        '    Catch
        '        MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
        '        Me.TextBox1.Focus()
        '    End Try
        'Else
        '    MyMsg.show_standardmessage(22, MsgBoxStyle.Critical)
        '    Me.TextBox1.Focus()
        'End If
    End Sub

    Private Sub PartnerList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PartnerList.KeyDown
        If e.KeyCode = Keys.Enter Then
            If Me.PartnerList.Splits(0).Rows.Count > 0 Then
                Try
                    Partner_Suche(Me.PartnerList.Columns(0).Value)
                Catch
                End Try
            End If
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim f As New frmPartnersucheInfo()
        f.ShowDialog()
        f.Dispose()
    End Sub

    Public Sub Doppelte_Partner(ByVal name As String, ByVal ort As String)
        Partner = mypartner.search_doppelte_partner(name, ort, 4)
        If Partner.Rows.Count = 0 Then
            MyMsg.show_standardmessage(204, MsgBoxStyle.Exclamation)
        Else
            Me.PartnerList.DataSource = Partner
            Me.PartnerList.DataMember = "Partner"
            SpaltenTitel_Aktualisieren()
            If Meldung_Doppelter_Partner Then MyMsg.show_standardmessage(25, MsgBoxStyle.Information)
            Me.Meldung_Doppelter_Partner = False
            Dim i As Long
            Dim ii As Long
        End If
        If Me.PartnerList.Splits(0).Rows.Count > 0 Then
            Me.Button2.Enabled = True
            Me.PartnerList.Focus()
        Else
            Me.Button2.Enabled = False
            Me.TextBox1.Focus()
        End If
    End Sub

    Private Sub FrmPartnersuche_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If Me.NoClose = True Then
            e.Cancel = True
            Me.Hide()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Label7.Visible = False
        Me.Timer1.Enabled = False
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    End Sub

    Private Sub ContextMenu1_Popup(ByVal sender As Object, ByVal e As System.EventArgs) Handles ContextMenu1.Popup
        Try
            If Me.PartnerList.Columns(0).Value < 91000000 Then
                Me.MenuItem3.Visible = False
                Me.MenuItem4.Visible = False
            Else
                Me.MenuItem3.Visible = True
                Me.MenuItem4.Visible = True
            End If
        Catch
        End Try
    End Sub

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