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.
1014 lines
46 KiB
1014 lines
46 KiB
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports System.Drawing
|
|
Imports System.Drawing.Color
|
|
Public Class frmPartnerDetails
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Vom Windows Form Designer generierter Code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
|
|
InitializeComponent()
|
|
|
|
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
|
|
|
|
End Sub
|
|
|
|
|
|
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
' Für Windows Form-Designer erforderlich
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
|
|
'Sie kann mit dem Windows Form-Designer modifiziert werden.
|
|
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Button1 As System.Windows.Forms.Button
|
|
Friend WithEvents Button2 As System.Windows.Forms.Button
|
|
Friend WithEvents txtPartnernr As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtBkapr00 As System.Windows.Forms.TextBox
|
|
Friend WithEvents cbvi As System.Windows.Forms.CheckBox
|
|
Friend WithEvents txtPartnerEmpfaenger As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtZusatz As System.Windows.Forms.RichTextBox
|
|
Friend WithEvents cbvsa As System.Windows.Forms.CheckBox
|
|
Friend WithEvents txtsaldiert As System.Windows.Forms.Label
|
|
Friend WithEvents txtZusteller As System.Windows.Forms.RichTextBox
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents txtInhaber As System.Windows.Forms.RichTextBox
|
|
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cbmitarbeiter As System.Windows.Forms.CheckBox
|
|
Friend WithEvents cbVip As System.Windows.Forms.CheckBox
|
|
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Betreuerlabel As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents grpZusAdressen As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Panel1 As System.Windows.Forms.Panel
|
|
Friend WithEvents pnlGeburtsdatum As System.Windows.Forms.Panel
|
|
Friend WithEvents pnlWeitereAdressen As System.Windows.Forms.Panel
|
|
Friend WithEvents ctxMenuVVAdressen As System.Windows.Forms.ContextMenuStrip
|
|
Friend WithEvents AdresseAuswählenToolStripMenuItem1 As System.Windows.Forms.ToolStripMenuItem
|
|
Friend WithEvents ctxMenuZusAdressen As System.Windows.Forms.ContextMenuStrip
|
|
Friend WithEvents AdresseAuswählenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
|
|
Friend WithEvents BackgroundWorker1 As System.ComponentModel.BackgroundWorker
|
|
Friend WithEvents vvlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents c1zusAdressen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents cbboersenkotiert As CheckBox
|
|
Friend WithEvents GroupBox9 As GroupBox
|
|
Friend WithEvents lblemail As Label
|
|
Friend WithEvents GBDatLabel As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPartnerDetails))
|
|
Me.txtPartnernr = New System.Windows.Forms.TextBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.txtBkapr00 = New System.Windows.Forms.TextBox()
|
|
Me.cbvi = New System.Windows.Forms.CheckBox()
|
|
Me.cbvsa = New System.Windows.Forms.CheckBox()
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
|
Me.txtPartnerEmpfaenger = New System.Windows.Forms.TextBox()
|
|
Me.txtZusteller = New System.Windows.Forms.RichTextBox()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
|
Me.txtZusatz = New System.Windows.Forms.RichTextBox()
|
|
Me.Button1 = New System.Windows.Forms.Button()
|
|
Me.Button2 = New System.Windows.Forms.Button()
|
|
Me.txtsaldiert = New System.Windows.Forms.Label()
|
|
Me.ctxMenuVVAdressen = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
|
Me.AdresseAuswählenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|
Me.txtInhaber = New System.Windows.Forms.RichTextBox()
|
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
|
Me.vvlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
|
Me.cbboersenkotiert = New System.Windows.Forms.CheckBox()
|
|
Me.cbVip = New System.Windows.Forms.CheckBox()
|
|
Me.cbmitarbeiter = New System.Windows.Forms.CheckBox()
|
|
Me.GroupBox6 = New System.Windows.Forms.GroupBox()
|
|
Me.GroupBox7 = New System.Windows.Forms.GroupBox()
|
|
Me.Betreuerlabel = New System.Windows.Forms.Label()
|
|
Me.GroupBox8 = New System.Windows.Forms.GroupBox()
|
|
Me.GBDatLabel = New System.Windows.Forms.Label()
|
|
Me.grpZusAdressen = New System.Windows.Forms.GroupBox()
|
|
Me.c1zusAdressen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
|
Me.ctxMenuZusAdressen = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
|
Me.AdresseAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
|
Me.Panel1 = New System.Windows.Forms.Panel()
|
|
Me.pnlGeburtsdatum = New System.Windows.Forms.Panel()
|
|
Me.pnlWeitereAdressen = New System.Windows.Forms.Panel()
|
|
Me.BackgroundWorker1 = New System.ComponentModel.BackgroundWorker()
|
|
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
|
|
Me.lblemail = New System.Windows.Forms.Label()
|
|
Me.GroupBox2.SuspendLayout()
|
|
Me.GroupBox3.SuspendLayout()
|
|
Me.ctxMenuVVAdressen.SuspendLayout()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.GroupBox4.SuspendLayout()
|
|
CType(Me.vvlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox5.SuspendLayout()
|
|
Me.GroupBox6.SuspendLayout()
|
|
Me.GroupBox7.SuspendLayout()
|
|
Me.GroupBox8.SuspendLayout()
|
|
Me.grpZusAdressen.SuspendLayout()
|
|
CType(Me.c1zusAdressen, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.ctxMenuZusAdressen.SuspendLayout()
|
|
Me.Panel1.SuspendLayout()
|
|
Me.pnlGeburtsdatum.SuspendLayout()
|
|
Me.pnlWeitereAdressen.SuspendLayout()
|
|
Me.GroupBox9.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'txtPartnernr
|
|
'
|
|
Me.txtPartnernr.Location = New System.Drawing.Point(72, 8)
|
|
Me.txtPartnernr.Name = "txtPartnernr"
|
|
Me.txtPartnernr.ReadOnly = True
|
|
Me.txtPartnernr.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtPartnernr.TabIndex = 0
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 8)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label1.TabIndex = 1
|
|
Me.Label1.Text = "Partner-Nr."
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(176, 8)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label2.TabIndex = 3
|
|
Me.Label2.Text = "Kurzname"
|
|
'
|
|
'txtBkapr00
|
|
'
|
|
Me.txtBkapr00.Location = New System.Drawing.Point(232, 8)
|
|
Me.txtBkapr00.Name = "txtBkapr00"
|
|
Me.txtBkapr00.ReadOnly = True
|
|
Me.txtBkapr00.Size = New System.Drawing.Size(349, 20)
|
|
Me.txtBkapr00.TabIndex = 2
|
|
Me.txtBkapr00.Text = "TextBox2"
|
|
'
|
|
'cbvi
|
|
'
|
|
Me.cbvi.Location = New System.Drawing.Point(8, 16)
|
|
Me.cbvi.Name = "cbvi"
|
|
Me.cbvi.Size = New System.Drawing.Size(104, 24)
|
|
Me.cbvi.TabIndex = 4
|
|
Me.cbvi.Text = "VI beachten"
|
|
Me.cbvi.Visible = False
|
|
'
|
|
'cbvsa
|
|
'
|
|
Me.cbvsa.Location = New System.Drawing.Point(120, 16)
|
|
Me.cbvsa.Name = "cbvsa"
|
|
Me.cbvsa.Size = New System.Drawing.Size(112, 24)
|
|
Me.cbvsa.TabIndex = 5
|
|
Me.cbvsa.Text = "Ad. versandfähig"
|
|
Me.cbvsa.Visible = False
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.Add(Me.txtPartnerEmpfaenger)
|
|
Me.GroupBox2.Controls.Add(Me.txtZusteller)
|
|
Me.GroupBox2.Location = New System.Drawing.Point(294, 129)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(288, 119)
|
|
Me.GroupBox2.TabIndex = 7
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Zustell-Adresse (VI auf Ebene Partner)"
|
|
'
|
|
'txtPartnerEmpfaenger
|
|
'
|
|
Me.txtPartnerEmpfaenger.Location = New System.Drawing.Point(128, 144)
|
|
Me.txtPartnerEmpfaenger.Name = "txtPartnerEmpfaenger"
|
|
Me.txtPartnerEmpfaenger.ReadOnly = True
|
|
Me.txtPartnerEmpfaenger.Size = New System.Drawing.Size(112, 20)
|
|
Me.txtPartnerEmpfaenger.TabIndex = 2
|
|
Me.txtPartnerEmpfaenger.Text = "TextBox3"
|
|
Me.txtPartnerEmpfaenger.Visible = False
|
|
'
|
|
'txtZusteller
|
|
'
|
|
Me.txtZusteller.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.txtZusteller.Location = New System.Drawing.Point(3, 16)
|
|
Me.txtZusteller.Name = "txtZusteller"
|
|
Me.txtZusteller.ReadOnly = True
|
|
Me.txtZusteller.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
|
|
Me.txtZusteller.Size = New System.Drawing.Size(282, 100)
|
|
Me.txtZusteller.TabIndex = 0
|
|
Me.txtZusteller.Text = ""
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(595, 40)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(120, 23)
|
|
Me.Label3.TabIndex = 3
|
|
Me.Label3.Text = "Partner-Nr. Empfänger"
|
|
Me.Label3.Visible = False
|
|
'
|
|
'GroupBox3
|
|
'
|
|
Me.GroupBox3.Controls.Add(Me.txtZusatz)
|
|
Me.GroupBox3.Location = New System.Drawing.Point(152, 176)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(248, 24)
|
|
Me.GroupBox3.TabIndex = 8
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "EDOKA-Zustelladresse"
|
|
Me.GroupBox3.Visible = False
|
|
'
|
|
'txtZusatz
|
|
'
|
|
Me.txtZusatz.Location = New System.Drawing.Point(8, 16)
|
|
Me.txtZusatz.Name = "txtZusatz"
|
|
Me.txtZusatz.ReadOnly = True
|
|
Me.txtZusatz.Size = New System.Drawing.Size(232, 152)
|
|
Me.txtZusatz.TabIndex = 0
|
|
Me.txtZusatz.Text = "1"
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Location = New System.Drawing.Point(506, 195)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
|
Me.Button1.TabIndex = 10
|
|
Me.Button1.Text = "Schliessen"
|
|
'
|
|
'Button2
|
|
'
|
|
Me.Button2.Location = New System.Drawing.Point(6, 198)
|
|
Me.Button2.Name = "Button2"
|
|
Me.Button2.Size = New System.Drawing.Size(144, 23)
|
|
Me.Button2.TabIndex = 11
|
|
Me.Button2.Text = "Zustelladresse bearbeiten"
|
|
Me.Button2.Visible = False
|
|
'
|
|
'txtsaldiert
|
|
'
|
|
Me.txtsaldiert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.txtsaldiert.ForeColor = System.Drawing.Color.Red
|
|
Me.txtsaldiert.Location = New System.Drawing.Point(240, 195)
|
|
Me.txtsaldiert.Name = "txtsaldiert"
|
|
Me.txtsaldiert.Size = New System.Drawing.Size(168, 23)
|
|
Me.txtsaldiert.TabIndex = 12
|
|
Me.txtsaldiert.Text = "Partner saldiert!"
|
|
'
|
|
'ctxMenuVVAdressen
|
|
'
|
|
Me.ctxMenuVVAdressen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdresseAuswählenToolStripMenuItem1})
|
|
Me.ctxMenuVVAdressen.Name = "ctxMenuVVAdressen"
|
|
Me.ctxMenuVVAdressen.Size = New System.Drawing.Size(181, 48)
|
|
'
|
|
'AdresseAuswählenToolStripMenuItem1
|
|
'
|
|
Me.AdresseAuswählenToolStripMenuItem1.Name = "AdresseAuswählenToolStripMenuItem1"
|
|
Me.AdresseAuswählenToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
|
Me.AdresseAuswählenToolStripMenuItem1.Text = "Adresse Auswählen"
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.Add(Me.txtInhaber)
|
|
Me.GroupBox1.Location = New System.Drawing.Point(6, 129)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(282, 119)
|
|
Me.GroupBox1.TabIndex = 6
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Inhaber-Adresse"
|
|
'
|
|
'txtInhaber
|
|
'
|
|
Me.txtInhaber.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.txtInhaber.Location = New System.Drawing.Point(3, 16)
|
|
Me.txtInhaber.Name = "txtInhaber"
|
|
Me.txtInhaber.ReadOnly = True
|
|
Me.txtInhaber.ScrollBars = System.Windows.Forms.RichTextBoxScrollBars.None
|
|
Me.txtInhaber.Size = New System.Drawing.Size(276, 100)
|
|
Me.txtInhaber.TabIndex = 1
|
|
Me.txtInhaber.Text = "1"
|
|
'
|
|
'GroupBox4
|
|
'
|
|
Me.GroupBox4.Controls.Add(Me.vvlist)
|
|
Me.GroupBox4.Controls.Add(Me.GroupBox3)
|
|
Me.GroupBox4.Location = New System.Drawing.Point(8, 14)
|
|
Me.GroupBox4.Name = "GroupBox4"
|
|
Me.GroupBox4.Size = New System.Drawing.Size(582, 168)
|
|
Me.GroupBox4.TabIndex = 14
|
|
Me.GroupBox4.TabStop = False
|
|
Me.GroupBox4.Text = "Vorhandene Konto / Container"
|
|
'
|
|
'vvlist
|
|
'
|
|
Me.vvlist.AllowFilter = False
|
|
Me.vvlist.AlternatingRows = True
|
|
Me.vvlist.BackColor = System.Drawing.Color.Gray
|
|
Me.vvlist.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
|
Me.vvlist.ColumnHeaders = False
|
|
Me.vvlist.ContextMenuStrip = Me.ctxMenuVVAdressen
|
|
Me.vvlist.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.vvlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.vvlist.Images.Add(CType(resources.GetObject("vvlist.Images"), System.Drawing.Image))
|
|
Me.vvlist.Location = New System.Drawing.Point(3, 16)
|
|
Me.vvlist.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.vvlist.Name = "vvlist"
|
|
Me.vvlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.vvlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.vvlist.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.vvlist.PrintInfo.PageSettings = CType(resources.GetObject("vvlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.vvlist.Size = New System.Drawing.Size(576, 149)
|
|
Me.vvlist.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
|
Me.vvlist.TabIndex = 10
|
|
Me.vvlist.Text = "C1TrueDBGrid1"
|
|
Me.vvlist.PropBag = resources.GetString("vvlist.PropBag")
|
|
'
|
|
'GroupBox5
|
|
'
|
|
Me.GroupBox5.Controls.Add(Me.cbboersenkotiert)
|
|
Me.GroupBox5.Controls.Add(Me.cbVip)
|
|
Me.GroupBox5.Controls.Add(Me.cbmitarbeiter)
|
|
Me.GroupBox5.Location = New System.Drawing.Point(339, 40)
|
|
Me.GroupBox5.Name = "GroupBox5"
|
|
Me.GroupBox5.Size = New System.Drawing.Size(242, 86)
|
|
Me.GroupBox5.TabIndex = 15
|
|
Me.GroupBox5.TabStop = False
|
|
Me.GroupBox5.Text = "Mitarbeiter/VIP/Börsenkotiert"
|
|
'
|
|
'cbboersenkotiert
|
|
'
|
|
Me.cbboersenkotiert.Location = New System.Drawing.Point(8, 39)
|
|
Me.cbboersenkotiert.Name = "cbboersenkotiert"
|
|
Me.cbboersenkotiert.Size = New System.Drawing.Size(134, 21)
|
|
Me.cbboersenkotiert.TabIndex = 19
|
|
Me.cbboersenkotiert.Text = "Börsenkotiert"
|
|
'
|
|
'cbVip
|
|
'
|
|
Me.cbVip.Location = New System.Drawing.Point(8, 61)
|
|
Me.cbVip.Name = "cbVip"
|
|
Me.cbVip.Size = New System.Drawing.Size(54, 21)
|
|
Me.cbVip.TabIndex = 18
|
|
Me.cbVip.Text = "VIP"
|
|
'
|
|
'cbmitarbeiter
|
|
'
|
|
Me.cbmitarbeiter.Location = New System.Drawing.Point(8, 16)
|
|
Me.cbmitarbeiter.Name = "cbmitarbeiter"
|
|
Me.cbmitarbeiter.Size = New System.Drawing.Size(146, 21)
|
|
Me.cbmitarbeiter.TabIndex = 17
|
|
Me.cbmitarbeiter.Text = "Mitarbeiter/Angehöriger"
|
|
'
|
|
'GroupBox6
|
|
'
|
|
Me.GroupBox6.Controls.Add(Me.cbvsa)
|
|
Me.GroupBox6.Controls.Add(Me.cbvi)
|
|
Me.GroupBox6.Location = New System.Drawing.Point(598, 96)
|
|
Me.GroupBox6.Name = "GroupBox6"
|
|
Me.GroupBox6.Size = New System.Drawing.Size(248, 48)
|
|
Me.GroupBox6.TabIndex = 16
|
|
Me.GroupBox6.TabStop = False
|
|
Me.GroupBox6.Text = "Versandinstruktion"
|
|
Me.GroupBox6.Visible = False
|
|
'
|
|
'GroupBox7
|
|
'
|
|
Me.GroupBox7.Controls.Add(Me.Betreuerlabel)
|
|
Me.GroupBox7.Location = New System.Drawing.Point(8, 40)
|
|
Me.GroupBox7.Name = "GroupBox7"
|
|
Me.GroupBox7.Size = New System.Drawing.Size(325, 40)
|
|
Me.GroupBox7.TabIndex = 17
|
|
Me.GroupBox7.TabStop = False
|
|
Me.GroupBox7.Text = "Betreuer"
|
|
'
|
|
'Betreuerlabel
|
|
'
|
|
Me.Betreuerlabel.Location = New System.Drawing.Point(8, 14)
|
|
Me.Betreuerlabel.Name = "Betreuerlabel"
|
|
Me.Betreuerlabel.Size = New System.Drawing.Size(234, 23)
|
|
Me.Betreuerlabel.TabIndex = 0
|
|
'
|
|
'GroupBox8
|
|
'
|
|
Me.GroupBox8.Controls.Add(Me.GBDatLabel)
|
|
Me.GroupBox8.Location = New System.Drawing.Point(6, 3)
|
|
Me.GroupBox8.Name = "GroupBox8"
|
|
Me.GroupBox8.Size = New System.Drawing.Size(248, 40)
|
|
Me.GroupBox8.TabIndex = 18
|
|
Me.GroupBox8.TabStop = False
|
|
Me.GroupBox8.Text = "Geburtsdatum"
|
|
'
|
|
'GBDatLabel
|
|
'
|
|
Me.GBDatLabel.Location = New System.Drawing.Point(11, 14)
|
|
Me.GBDatLabel.Name = "GBDatLabel"
|
|
Me.GBDatLabel.Size = New System.Drawing.Size(203, 23)
|
|
Me.GBDatLabel.TabIndex = 0
|
|
'
|
|
'grpZusAdressen
|
|
'
|
|
Me.grpZusAdressen.Controls.Add(Me.c1zusAdressen)
|
|
Me.grpZusAdressen.Location = New System.Drawing.Point(6, 0)
|
|
Me.grpZusAdressen.Name = "grpZusAdressen"
|
|
Me.grpZusAdressen.Size = New System.Drawing.Size(581, 114)
|
|
Me.grpZusAdressen.TabIndex = 7
|
|
Me.grpZusAdressen.TabStop = False
|
|
Me.grpZusAdressen.Text = "Weitere Adressen"
|
|
'
|
|
'c1zusAdressen
|
|
'
|
|
Me.c1zusAdressen.AllowFilter = False
|
|
Me.c1zusAdressen.AlternatingRows = True
|
|
Me.c1zusAdressen.BackColor = System.Drawing.Color.Gray
|
|
Me.c1zusAdressen.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Anchored
|
|
Me.c1zusAdressen.ColumnHeaders = False
|
|
Me.c1zusAdressen.ContextMenuStrip = Me.ctxMenuZusAdressen
|
|
Me.c1zusAdressen.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.c1zusAdressen.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.c1zusAdressen.Images.Add(CType(resources.GetObject("c1zusAdressen.Images"), System.Drawing.Image))
|
|
Me.c1zusAdressen.Location = New System.Drawing.Point(3, 16)
|
|
Me.c1zusAdressen.MarqueeStyle = C1.Win.C1TrueDBGrid.MarqueeEnum.SolidCellBorder
|
|
Me.c1zusAdressen.Name = "c1zusAdressen"
|
|
Me.c1zusAdressen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.c1zusAdressen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.c1zusAdressen.PreviewInfo.ZoomFactor = 75.0R
|
|
Me.c1zusAdressen.PrintInfo.PageSettings = CType(resources.GetObject("c1zusAdressen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.c1zusAdressen.Size = New System.Drawing.Size(575, 95)
|
|
Me.c1zusAdressen.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
|
|
Me.c1zusAdressen.TabIndex = 11
|
|
Me.c1zusAdressen.Text = "c1ZusAdressen"
|
|
Me.c1zusAdressen.PropBag = resources.GetString("c1zusAdressen.PropBag")
|
|
'
|
|
'ctxMenuZusAdressen
|
|
'
|
|
Me.ctxMenuZusAdressen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AdresseAuswählenToolStripMenuItem})
|
|
Me.ctxMenuZusAdressen.Name = "ctxMenuZusAdressen"
|
|
Me.ctxMenuZusAdressen.Size = New System.Drawing.Size(175, 26)
|
|
'
|
|
'AdresseAuswählenToolStripMenuItem
|
|
'
|
|
Me.AdresseAuswählenToolStripMenuItem.Name = "AdresseAuswählenToolStripMenuItem"
|
|
Me.AdresseAuswählenToolStripMenuItem.Size = New System.Drawing.Size(174, 22)
|
|
Me.AdresseAuswählenToolStripMenuItem.Text = "Adresse auswählen"
|
|
'
|
|
'Panel1
|
|
'
|
|
Me.Panel1.Controls.Add(Me.txtsaldiert)
|
|
Me.Panel1.Controls.Add(Me.Button1)
|
|
Me.Panel1.Controls.Add(Me.Button2)
|
|
Me.Panel1.Controls.Add(Me.GroupBox4)
|
|
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.Panel1.Location = New System.Drawing.Point(0, 421)
|
|
Me.Panel1.Name = "Panel1"
|
|
Me.Panel1.Size = New System.Drawing.Size(589, 229)
|
|
Me.Panel1.TabIndex = 19
|
|
'
|
|
'pnlGeburtsdatum
|
|
'
|
|
Me.pnlGeburtsdatum.Controls.Add(Me.GroupBox8)
|
|
Me.pnlGeburtsdatum.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.pnlGeburtsdatum.Location = New System.Drawing.Point(0, 369)
|
|
Me.pnlGeburtsdatum.Name = "pnlGeburtsdatum"
|
|
Me.pnlGeburtsdatum.Size = New System.Drawing.Size(589, 52)
|
|
Me.pnlGeburtsdatum.TabIndex = 20
|
|
'
|
|
'pnlWeitereAdressen
|
|
'
|
|
Me.pnlWeitereAdressen.Controls.Add(Me.grpZusAdressen)
|
|
Me.pnlWeitereAdressen.Dock = System.Windows.Forms.DockStyle.Bottom
|
|
Me.pnlWeitereAdressen.Location = New System.Drawing.Point(0, 255)
|
|
Me.pnlWeitereAdressen.Name = "pnlWeitereAdressen"
|
|
Me.pnlWeitereAdressen.Size = New System.Drawing.Size(589, 114)
|
|
Me.pnlWeitereAdressen.TabIndex = 21
|
|
'
|
|
'BackgroundWorker1
|
|
'
|
|
'
|
|
'GroupBox9
|
|
'
|
|
Me.GroupBox9.Controls.Add(Me.lblemail)
|
|
Me.GroupBox9.Location = New System.Drawing.Point(8, 86)
|
|
Me.GroupBox9.Name = "GroupBox9"
|
|
Me.GroupBox9.Size = New System.Drawing.Size(325, 40)
|
|
Me.GroupBox9.TabIndex = 19
|
|
Me.GroupBox9.TabStop = False
|
|
Me.GroupBox9.Text = "E-Mail"
|
|
'
|
|
'lblemail
|
|
'
|
|
Me.lblemail.Location = New System.Drawing.Point(7, 15)
|
|
Me.lblemail.Name = "lblemail"
|
|
Me.lblemail.Size = New System.Drawing.Size(267, 23)
|
|
Me.lblemail.TabIndex = 0
|
|
'
|
|
'frmPartnerDetails
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(589, 650)
|
|
Me.Controls.Add(Me.GroupBox9)
|
|
Me.Controls.Add(Me.pnlWeitereAdressen)
|
|
Me.Controls.Add(Me.pnlGeburtsdatum)
|
|
Me.Controls.Add(Me.Panel1)
|
|
Me.Controls.Add(Me.Label3)
|
|
Me.Controls.Add(Me.GroupBox1)
|
|
Me.Controls.Add(Me.GroupBox7)
|
|
Me.Controls.Add(Me.GroupBox6)
|
|
Me.Controls.Add(Me.GroupBox5)
|
|
Me.Controls.Add(Me.GroupBox2)
|
|
Me.Controls.Add(Me.txtBkapr00)
|
|
Me.Controls.Add(Me.Label1)
|
|
Me.Controls.Add(Me.txtPartnernr)
|
|
Me.Controls.Add(Me.Label2)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmPartnerDetails"
|
|
Me.Text = "Partner-Details"
|
|
Me.TopMost = True
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.GroupBox2.PerformLayout()
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
Me.ctxMenuVVAdressen.ResumeLayout(False)
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.GroupBox4.ResumeLayout(False)
|
|
CType(Me.vvlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox5.ResumeLayout(False)
|
|
Me.GroupBox6.ResumeLayout(False)
|
|
Me.GroupBox7.ResumeLayout(False)
|
|
Me.GroupBox8.ResumeLayout(False)
|
|
Me.grpZusAdressen.ResumeLayout(False)
|
|
CType(Me.c1zusAdressen, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.ctxMenuZusAdressen.ResumeLayout(False)
|
|
Me.Panel1.ResumeLayout(False)
|
|
Me.pnlGeburtsdatum.ResumeLayout(False)
|
|
Me.pnlWeitereAdressen.ResumeLayout(False)
|
|
Me.GroupBox9.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim m_partnernr As Long
|
|
Dim partner As DataTable
|
|
Dim vv As DataTable
|
|
Dim ZusAddr As DataTable
|
|
Dim mypartner As New edokaDB.clsMyPartner()
|
|
Dim Select_Addr_Allowed As Boolean = False
|
|
Dim Selected_addr As Integer
|
|
|
|
Dim m_SelectedAdresse As String
|
|
Property Selected_Adresse As String
|
|
Get
|
|
Return m_SelectedAdresse
|
|
End Get
|
|
Set(value As String)
|
|
m_SelectedAdresse = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_SelectedAnrede As String
|
|
Property Selected_Anrede As String
|
|
Get
|
|
Return m_SelectedAnrede
|
|
End Get
|
|
Set(value As String)
|
|
m_SelectedAnrede = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
|
|
|
|
Property Partnernr() As Long
|
|
Get
|
|
Return m_partnernr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_partnernr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(Select_Addr As Boolean)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
Me.Select_Addr_Allowed = True
|
|
End Sub
|
|
|
|
|
|
Private Sub frmPartnerDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Cursor = Cursors.WaitCursor
|
|
If Select_Addr_Allowed = False Then
|
|
Me.AdresseAuswählenToolStripMenuItem1.Visible = False
|
|
Me.AdresseAuswählenToolStripMenuItem.Visible = False
|
|
Else
|
|
Me.AdresseAuswählenToolStripMenuItem1.Visible = True
|
|
Me.AdresseAuswählenToolStripMenuItem.Visible = True
|
|
End If
|
|
|
|
Dim s As String
|
|
Dim s1 As String
|
|
Dim s2 As String
|
|
Dim s3 As String
|
|
Dim s4 As String
|
|
Me.Height = Me.Height - Me.pnlGeburtsdatum.Height - Me.pnlWeitereAdressen.Height
|
|
Me.Betreuerlabel.Text = ""
|
|
partner = mypartner.Partner_Detail(Me.Partnernr)
|
|
vv = mypartner.Partner_VV(Me.Partnernr)
|
|
ZusAddr = mypartner.Partner_zus_Adressen(Me.Partnernr)
|
|
|
|
If ZusAddr.Rows.Count > 0 Then
|
|
grpZusAdressen.Visible = True
|
|
Me.pnlWeitereAdressen.Visible = True
|
|
Me.Height = Me.Height + Me.pnlWeitereAdressen.Height
|
|
Me.c1zusAdressen.DataSource = Nothing
|
|
Me.c1zusAdressen.DataSource = ZusAddr
|
|
Me.c1zusAdressen.DataMember = ZusAddr.TableName
|
|
Me.c1zusAdressen.Splits(0).DisplayColumns(0).Visible = False
|
|
Me.c1zusAdressen.Splits(0).DisplayColumns(1).Width = Me.c1zusAdressen.Width - 55
|
|
Me.c1zusAdressen.Splits(0).DisplayColumns(2).Width = 50
|
|
Else
|
|
Me.grpZusAdressen.Visible = False
|
|
Me.pnlWeitereAdressen.Visible = False
|
|
End If
|
|
Me.txtPartnernr.Text = partner.Rows(0).Item("nrpar00")
|
|
|
|
Me.txtInhaber.Text = ""
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d1").ToString + vbCrLf
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d2").ToString + vbCrLf
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d3").ToString + vbCrLf
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d4").ToString + vbCrLf
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d5").ToString + vbCrLf
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d6").ToString + vbCrLf
|
|
Me.txtInhaber.Text = Me.txtInhaber.Text + partner.Rows(0).Item("d7").ToString + vbCrLf
|
|
|
|
Me.txtZusteller.Text = ""
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h1").ToString + vbCrLf
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h2").ToString + vbCrLf
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h3").ToString + vbCrLf
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h4").ToString + vbCrLf
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h5").ToString + vbCrLf
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h6").ToString + vbCrLf
|
|
Me.txtZusteller.Text = Me.txtZusteller.Text + partner.Rows(0).Item("h7").ToString + vbCrLf
|
|
|
|
Me.txtBkapr00.Text = partner.Rows(0).Item("bkpar00").ToString
|
|
|
|
Me.Betreuerlabel.Text = mypartner.Partner_Betreuer(Me.Partnernr)
|
|
Try
|
|
Dim d As DateTime = partner.Rows(0).Item("GebGruendDat").ToString
|
|
Me.GBDatLabel.Text = d.ToShortDateString
|
|
Catch ex As Exception
|
|
Me.GBDatLabel.Text = partner.Rows(0).Item("GebGruendDat").ToString
|
|
End Try
|
|
'Me.GBDatLabel.Text = partner.Rows(0).Item("GebGruendDat").ToString
|
|
If Me.GBDatLabel.Text = "" Or Me.GBDatLabel.Text.Substring(0, 10) = "01.01.1900" Then
|
|
Me.GroupBox8.Visible = False
|
|
Me.pnlGeburtsdatum.Visible = False
|
|
Else
|
|
Me.GroupBox8.Visible = True
|
|
Me.pnlGeburtsdatum.Visible = True
|
|
Me.Height = Me.Height + Me.pnlGeburtsdatum.Height
|
|
End If
|
|
|
|
If partner.Rows(0).Item("saldiert") = True Then
|
|
Me.txtsaldiert.Visible = True
|
|
Else
|
|
Me.txtsaldiert.Visible = False
|
|
End If
|
|
|
|
get_ma_vip()
|
|
|
|
Try
|
|
Me.cbboersenkotiert.Checked = partner.Rows(0).Item("boersenkotiert")
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
Me.vvlist.DataSource = Nothing
|
|
Me.vvlist.DataMember = Nothing
|
|
Me.vvlist.DataSource = Me.vv
|
|
Me.vvlist.DataMember = "vv"
|
|
Me.vvlist.FetchRowStyles = True
|
|
Me.vvlist.Splits(0).DisplayColumns(0).AutoSize()
|
|
Me.vvlist.Splits(0).DisplayColumns(1).AutoSize()
|
|
'Me.vvlist.Splits(0).DisplayColumns(1).Width = 100
|
|
Me.vvlist.Splits(0).DisplayColumns(2).Width = 180
|
|
Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
|
|
'Me.vvlist.Splits(0).DisplayColumns(4).Visible = False
|
|
Me.vvlist.Splits(0).DisplayColumns(4).AutoSize()
|
|
Me.vvlist.Splits(0).DisplayColumns(5).Visible = False
|
|
Me.vvlist.Splits(0).DisplayColumns(6).Visible = True
|
|
Me.vvlist.Splits(0).DisplayColumns(7).AutoSize()
|
|
Me.vvlist.Splits(0).DisplayColumns(7).Visible = False
|
|
|
|
|
|
'Me.vvlist.Splits(0).DisplayColumns(1).Width = 140
|
|
'Me.vvlist.Splits(0).DisplayColumns(2).Visible = False
|
|
'Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
|
|
'Me.vvlist.Splits(0).DisplayColumns(4).Visible = False
|
|
'Me.vvlist.Splits(0).DisplayColumns(5).Visible = True
|
|
'Me.vvlist.Splits(0).DisplayColumns(5).AutoSize()
|
|
'Me.vvlist.Splits(0).DisplayColumns(6).Visible = False
|
|
|
|
Try
|
|
Me.lblemail.Text = partner.Rows(0).Item("email_adresse").ToString
|
|
Catch ex As Exception
|
|
Me.lblemail.Text = ""
|
|
End Try
|
|
Me.Cursor = Cursors.Default
|
|
Exit Sub
|
|
|
|
'Me.txtPartnerEmpfaenger.Text = partner.Rows(0).Item("nrparad")
|
|
|
|
|
|
|
|
|
|
|
|
' Me.Cursor = Cursors.WaitCursor
|
|
' Dim s As String
|
|
' Dim s1 As String
|
|
' Dim s2 As String
|
|
' Dim s3 As String
|
|
' Dim s4 As String
|
|
' Me.Betreuerlabel.Text = ""
|
|
' partner = mypartner.Partner_Detail(Me.Partnernr)
|
|
' vv = mypartner.Partner_VV(Me.Partnernr)
|
|
|
|
' Me.txtPartnernr.Text = partner.Rows(0).Item("nrpar00")
|
|
' Me.txtBkapr00.Text = partner.Rows(0).Item("bkpar00")
|
|
' Me.txtPartnerEmpfaenger.Text = partner.Rows(0).Item("nrparad")
|
|
|
|
' Me.Betreuerlabel.Text = mypartner.Partner_Betreuer(Me.Partnernr)
|
|
' Try
|
|
' Me.GBDatLabel.Text = mypartner.Partner_Gebdat(Me.Partnernr)
|
|
' If Me.GBDatLabel.Text = "" Then Me.GroupBox8.Visible = False Else Me.GroupBox8.Visible = True
|
|
' Catch
|
|
' Me.GroupBox8.Visible = False
|
|
' End Try
|
|
|
|
' If partner.Rows(0).Item("cdvig00") = "Y" Then
|
|
' Me.cbvi.Checked = True
|
|
' Else
|
|
' ' Me.cbvi.Checked = False
|
|
' End If
|
|
' If partner.Rows(0).Item("azepl00") > 1 Then
|
|
' Me.cbvi.Checked = True
|
|
' Else
|
|
' ' Me.cbvi.Checked = False
|
|
' End If
|
|
' If partner.Rows(0).Item("cdvsa00") = True Then
|
|
' Me.cbvi.Checked = True
|
|
' Else
|
|
' ' Me.cbvi.Checked = False
|
|
' End If
|
|
|
|
' Try
|
|
' If partner.Rows(0).Item("SAVRS00") = "Y" Then
|
|
' Me.cbvsa.Checked = True
|
|
' Else
|
|
' Me.cbvsa.Checked = False
|
|
' End If
|
|
' Catch ex As Exception
|
|
' 'MsgBox(ex.Message)
|
|
' End Try
|
|
' If partner.Rows(0).Item("saldiert") = True Then
|
|
' Me.txtsaldiert.Visible = True
|
|
' Else
|
|
' Me.txtsaldiert.Visible = False
|
|
' End If
|
|
' s = ""
|
|
' s1 = ""
|
|
' s2 = ""
|
|
' s = s + partner.Rows(0).Item("txadz012") + vbCrLf
|
|
' s = s + partner.Rows(0).Item("txadz022") + vbCrLf
|
|
' s = s + partner.Rows(0).Item("txadz032") + vbCrLf
|
|
' s = s + partner.Rows(0).Item("txadz042") + vbCrLf
|
|
' s = s + partner.Rows(0).Item("txadz052") + vbCrLf
|
|
' s = s + partner.Rows(0).Item("txadz062") + vbCrLf
|
|
' s = s + partner.Rows(0).Item("txadz072") + vbCrLf
|
|
' s3 = ""
|
|
' s3 = s3 + partner.Rows(0).Item("txadz012")
|
|
' s3 = s3 + partner.Rows(0).Item("txadz022")
|
|
' s3 = s3 + partner.Rows(0).Item("txadz032")
|
|
' s3 = s3 + partner.Rows(0).Item("txadz042")
|
|
' s3 = s3 + partner.Rows(0).Item("txadz052")
|
|
' s3 = s3 + partner.Rows(0).Item("txadz062")
|
|
' s3 = s3 + partner.Rows(0).Item("txadz072")
|
|
|
|
' s1 = s1 + partner.Rows(0).Item("txadz011") + vbCrLf
|
|
' s1 = s1 + partner.Rows(0).Item("txadz021") + vbCrLf
|
|
' s1 = s1 + partner.Rows(0).Item("txadz031") + vbCrLf
|
|
' s1 = s1 + partner.Rows(0).Item("txadz041") + vbCrLf
|
|
' s1 = s1 + partner.Rows(0).Item("txadz051") + vbCrLf
|
|
' s1 = s1 + partner.Rows(0).Item("txadz061") + vbCrLf
|
|
' s1 = s1 + partner.Rows(0).Item("txadz071") + vbCrLf
|
|
' s4 = ""
|
|
' s4 = s4 + partner.Rows(0).Item("txadz011")
|
|
' s4 = s4 + partner.Rows(0).Item("txadz021")
|
|
' s4 = s4 + partner.Rows(0).Item("txadz031")
|
|
' s4 = s4 + partner.Rows(0).Item("txadz041")
|
|
' s4 = s4 + partner.Rows(0).Item("txadz051")
|
|
' s4 = s4 + partner.Rows(0).Item("txadz061")
|
|
' s4 = s4 + partner.Rows(0).Item("txadz071")
|
|
|
|
' get_ma_vip()
|
|
|
|
' 'If Not (partner.Rows(0).Item("adresszeile1") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile1") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile1") + vbCrLf
|
|
' 'End If
|
|
' 'If Not (partner.Rows(0).Item("adresszeile2") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile2") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile2") + vbCrLf
|
|
' 'End If
|
|
' 'If Not (partner.Rows(0).Item("adresszeile3") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile3") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile3") + vbCrLf
|
|
' 'End If
|
|
' 'If Not (partner.Rows(0).Item("adresszeile4") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile4") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile4") + vbCrLf
|
|
' 'End If
|
|
' 'If Not (partner.Rows(0).Item("adresszeile5") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile5") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile5") + vbCrLf
|
|
' 'End If
|
|
' 'If Not (partner.Rows(0).Item("adresszeile6") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile6") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile6") + vbCrLf
|
|
' 'End If
|
|
' 'If Not (partner.Rows(0).Item("adresszeile7") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile7") = "") Then
|
|
' 's2 = s2 + partner.Rows(0).Item("adresszeile7") + vbCrLf
|
|
' 'End If
|
|
|
|
' If Val(Me.txtPartnerEmpfaenger.Text) <> Val(Me.txtPartnernr.Text) Then
|
|
' Me.txtInhaber.Text = s
|
|
' Me.txtZusteller.Text = s1
|
|
' Else
|
|
' Me.txtInhaber.Text = s1
|
|
' Me.txtZusteller.Text = ""
|
|
' Me.txtPartnerEmpfaenger.Text = ""
|
|
' End If
|
|
|
|
' If Trim(s3) <> Trim(s4) And Trim(s3) <> "" Then
|
|
' Me.txtInhaber.Text = s
|
|
' Me.txtZusteller.Text = s1
|
|
' Else
|
|
' Me.txtInhaber.Text = Trim(s1)
|
|
' End If
|
|
' Me.txtZusatz.Text = s2
|
|
|
|
' Me.vvlist.DataSource = Nothing
|
|
' Me.vvlist.DataMember = Nothing
|
|
' Me.vvlist.DataSource = Me.vv
|
|
' Me.vvlist.DataMember = "vv"
|
|
' Me.vvlist.Splits(0).DisplayColumns(1).Width = 140
|
|
' Me.vvlist.Splits(0).DisplayColumns(2).Visible = False
|
|
' Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
|
|
' Me.Cursor = Cursors.Default
|
|
' Dim i As Integer
|
|
' For i = 0 To Me.vvlist.Columns.Count - 1
|
|
' If UCase(Me.vvlist.Columns(i).Caption) = "SAREC00" Then
|
|
' Me.vvlist.Splits(0).DisplayColumns(i).Visible = False
|
|
' End If
|
|
' Next
|
|
End Sub
|
|
|
|
Private Sub frmPartnerDetails_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
partner.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Dim f1 As New frmEdokaAdresse()
|
|
f1.Partnernr = Me.Partnernr
|
|
f1.ShowDialog()
|
|
frmPartnerDetails_Load(sender, e)
|
|
End Sub
|
|
|
|
Private Sub get_ma_vip()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "sp_ma_vip"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Partnernr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ma", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vip", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If scmCmdToExecute.Parameters("@ma").Value > 0 Then Me.cbmitarbeiter.Checked = True Else Me.cbmitarbeiter.Checked = False
|
|
If scmCmdToExecute.Parameters("@vip").Value > 0 Then Me.cbVip.Checked = True Else Me.cbVip.Checked = False
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub vvlist_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles vvlist.FetchRowStyle
|
|
If Me.vvlist.Columns("sarec00").CellValue(e.Row) <> 2 Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub ctxMenuZusAdressen_Opening(sender As Object, e As CancelEventArgs) Handles ctxMenuZusAdressen.Opening
|
|
If Me.c1zusAdressen.Splits(0).Rows.Count < 1 Then AdresseAuswählenToolStripMenuItem.Enabled = False Else Me.AdresseAuswählenToolStripMenuItem.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub ctxMenuVVAdressen_Opening(sender As Object, e As CancelEventArgs) Handles ctxMenuVVAdressen.Opening
|
|
If Me.vvlist.Splits(0).Rows.Count < 1 Then Me.AdresseAuswählenToolStripMenuItem1.Enabled = False Else Me.AdresseAuswählenToolStripMenuItem1.Enabled = True
|
|
If Me.vvlist.Columns(6).Value = "" Then Me.AdresseAuswählenToolStripMenuItem1.Enabled = False Else Me.AdresseAuswählenToolStripMenuItem1.Enabled = True
|
|
End Sub
|
|
|
|
Private Sub AdresseAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AdresseAuswählenToolStripMenuItem.Click
|
|
Get_Adresse(Me.c1zusAdressen.Columns(0).Value)
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub ctxMenuVVAdressen_Click(sender As Object, e As EventArgs) Handles ctxMenuVVAdressen.Click
|
|
Get_Adresse(Me.vvlist.Columns(7).Value)
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Get_Adresse(ByVal Addr_Obj_ID As String)
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "dbo.sp_get_adresse"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@addrobjid", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Addr_Obj_ID))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l1", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l2", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l3", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l4", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l5", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l6", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@l7", SqlDbType.VarChar, 1024, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@Anrede", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Globals.conn.OpenConnection()
|
|
scmCmdToExecute.ExecuteNonQuery()
|
|
Globals.conn.CloseConnection(True)
|
|
Me.Selected_Adresse = scmCmdToExecute.Parameters("@l1").Value.ToString
|
|
Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l2").Value.ToString
|
|
Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l3").Value.ToString
|
|
Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l4").Value.ToString
|
|
Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l5").Value.ToString
|
|
Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l6").Value.ToString
|
|
Me.Selected_Adresse = Me.Selected_Adresse + vbCrLf + scmCmdToExecute.Parameters("@l7").Value.ToString
|
|
Me.Selected_Anrede = scmCmdToExecute.Parameters("@anrede").Value.ToString
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub c1ZusAdressen_MouseDown(sender As Object, e As MouseEventArgs) Handles c1zusAdressen.MouseDown
|
|
Try
|
|
Me.c1zusAdressen.Bookmark = Me.c1zusAdressen.RowContaining(e.Y)
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub vvlist_MouseDown(sender As Object, e As MouseEventArgs) Handles vvlist.MouseDown
|
|
Me.vvlist.Bookmark = Me.vvlist.RowContaining(e.Y)
|
|
End Sub
|
|
|
|
Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
|
|
|
|
End Sub
|
|
|
|
Private Sub AdresseAuswählenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles AdresseAuswählenToolStripMenuItem1.Click
|
|
|
|
End Sub
|
|
End Class
|