Initial
This commit is contained in:
906
EDOKA/Backup/Partner/frmPartnersuche.vb
Normal file
906
EDOKA/Backup/Partner/frmPartnersuche.vb
Normal file
@@ -0,0 +1,906 @@
|
||||
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
|
||||
Reference in New Issue
Block a user