You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1002 lines
39 KiB
1002 lines
39 KiB
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 ImageList2 As ImageList
|
|
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()
|
|
Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
|
|
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.0R
|
|
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, 85)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label5.TabIndex = 17
|
|
Me.Label5.Text = "Konto/Cont."
|
|
'
|
|
'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
|
|
'
|
|
'ImageList2
|
|
'
|
|
Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
|
|
Me.ImageList2.Images.SetKeyName(0, "Person1.png")
|
|
Me.ImageList2.Images.SetKeyName(1, "Partner.bmp")
|
|
'
|
|
'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.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
|
|
If Me.NoClose Then Me.Hide() Else Me.Close()
|
|
' 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
|
|
|
|
Dim bmp0 As New System.Drawing.Bitmap(Me.ImageList2.Images(0))
|
|
Dim bmp1 As New System.Drawing.Bitmap(Me.ImageList2.Images(1))
|
|
|
|
Dim v0 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
Dim v1 As New C1.Win.C1TrueDBGrid.ValueItem()
|
|
|
|
v0.DisplayValue = bmp0
|
|
v0.Value = 0
|
|
|
|
v1.DisplayValue = bmp1
|
|
v1.Value = 1
|
|
|
|
Me.PartnerList.Columns("Typ").ValueItems.Values.Add(v0)
|
|
Me.PartnerList.Columns("Typ").ValueItems.Values.Add(v1)
|
|
Me.PartnerList.Columns("Typ").ValueItems.Translate = True
|
|
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, Optional Addrtyp As Integer = 1)
|
|
|
|
Dim dt As New DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.[sp_partner_search_details]"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
' // Use base class' connection object
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@addrtyp", SqlDbType.Int, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
|
|
scmCmdToExecute.Connection.Open()
|
|
sdaAdapter.Fill(dt)
|
|
Catch ex As Exception
|
|
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Connection.Close()
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
|
|
If dt.Rows.Count = 0 Then
|
|
MyMsg.show_standardmessage(60005, MsgBoxStyle.Exclamation)
|
|
|
|
End If
|
|
|
|
' ObjPerson
|
|
'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 dt.Rows(0).Item("vibeachten") = 1 Then Me.VIBeachten = True Else Me.VIBeachten = False
|
|
If dt.Rows(0).Item("Zeile1").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile1").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Zeile2").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile2").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Zeile3").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile3").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Zeile4").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile4").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Zeile5").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile5").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Zeile6").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile6").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Zeile7").ToString <> "" Then s = s + dt.Rows(0).Item("Zeile7").ToString + vbCrLf
|
|
If dt.Rows(0).Item("Anrede").ToString <> "keine Anrede" Then Me.Anrede = dt.Rows(0).Item("Anrede").ToString
|
|
Me.zustelladresse = s
|
|
Me.PartnerNr = dt.Rows(0).Item("nrpar00")
|
|
Me.PartnerKurzbezeichnnung = dt.Rows(0).Item("bkpar00").ToString
|
|
If Me.NoClose = True Then
|
|
Exit Sub
|
|
End If
|
|
Try
|
|
Me.mypartner = Nothing
|
|
Catch ex As Exception
|
|
End Try
|
|
Try
|
|
Me.Close()
|
|
Catch ex As Exception
|
|
End Try
|
|
Catch
|
|
End 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
|
|
' 'ObjPers
|
|
' If DivFnkt.PartnerTyp(p.iNRPAR00) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
|
|
' '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
|
|
'Objperson
|
|
If DivFnkt.PartnerTyp(Me.PartnerList.Columns(0).Value) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
|
|
'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
|
|
'ObjPerson
|
|
If DivFnkt.PartnerTyp(Me.PartnerList.Columns(0).Value) = EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
|
|
'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
|
|
|
|
'rel 4.03
|
|
'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 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
|
|
'Objeperson
|
|
If DivFnkt.PartnerTyp(Me.PartnerList.Columns(0).Value) <> EDOKA.clsDivFnkt.ENUM_Partnertyp.EDOKA_Interessent Then
|
|
|
|
' 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
|
|
|
|
Private Sub FrmPartnersuche_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.LostFocus
|
|
Me.TopMost = True
|
|
End Sub
|
|
|
|
Private Sub PartnerList_MouseDown(sender As Object, e As MouseEventArgs) Handles PartnerList.MouseDown
|
|
Me.PartnerList.Bookmark = Me.PartnerList.RowContaining(e.Y)
|
|
End Sub
|
|
End Class
|