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.
609 lines
25 KiB
609 lines
25 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 vvlist As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents txtInhaber As System.Windows.Forms.RichTextBox
|
|
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cbmitarbeiter As System.Windows.Forms.CheckBox
|
|
Friend WithEvents cbVip As System.Windows.Forms.CheckBox
|
|
Friend WithEvents GroupBox6 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GroupBox7 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents Betreuerlabel As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox8 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GBDatLabel As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPartnerDetails))
|
|
Me.txtPartnernr = New System.Windows.Forms.TextBox
|
|
Me.Label1 = New System.Windows.Forms.Label
|
|
Me.Label2 = New System.Windows.Forms.Label
|
|
Me.txtBkapr00 = New System.Windows.Forms.TextBox
|
|
Me.cbvi = New System.Windows.Forms.CheckBox
|
|
Me.cbvsa = New System.Windows.Forms.CheckBox
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox
|
|
Me.Label3 = New System.Windows.Forms.Label
|
|
Me.txtPartnerEmpfaenger = New System.Windows.Forms.TextBox
|
|
Me.txtZusteller = New System.Windows.Forms.RichTextBox
|
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox
|
|
Me.txtZusatz = New System.Windows.Forms.RichTextBox
|
|
Me.Button1 = New System.Windows.Forms.Button
|
|
Me.Button2 = New System.Windows.Forms.Button
|
|
Me.txtsaldiert = New System.Windows.Forms.Label
|
|
Me.vvlist = New C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox
|
|
Me.txtInhaber = New System.Windows.Forms.RichTextBox
|
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox
|
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox
|
|
Me.cbVip = New System.Windows.Forms.CheckBox
|
|
Me.cbmitarbeiter = New System.Windows.Forms.CheckBox
|
|
Me.GroupBox6 = New System.Windows.Forms.GroupBox
|
|
Me.GroupBox7 = New System.Windows.Forms.GroupBox
|
|
Me.Betreuerlabel = New System.Windows.Forms.Label
|
|
Me.GroupBox8 = New System.Windows.Forms.GroupBox
|
|
Me.GBDatLabel = New System.Windows.Forms.Label
|
|
Me.GroupBox2.SuspendLayout()
|
|
Me.GroupBox3.SuspendLayout()
|
|
CType(Me.vvlist, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.GroupBox4.SuspendLayout()
|
|
Me.GroupBox5.SuspendLayout()
|
|
Me.GroupBox6.SuspendLayout()
|
|
Me.GroupBox7.SuspendLayout()
|
|
Me.GroupBox8.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'txtPartnernr
|
|
'
|
|
Me.txtPartnernr.Location = New System.Drawing.Point(72, 8)
|
|
Me.txtPartnernr.Name = "txtPartnernr"
|
|
Me.txtPartnernr.ReadOnly = True
|
|
Me.txtPartnernr.Size = New System.Drawing.Size(80, 20)
|
|
Me.txtPartnernr.TabIndex = 0
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 8)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label1.TabIndex = 1
|
|
Me.Label1.Text = "Partner-Nr."
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(176, 8)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label2.TabIndex = 3
|
|
Me.Label2.Text = "Kurzname"
|
|
'
|
|
'txtBkapr00
|
|
'
|
|
Me.txtBkapr00.Location = New System.Drawing.Point(232, 8)
|
|
Me.txtBkapr00.Name = "txtBkapr00"
|
|
Me.txtBkapr00.ReadOnly = True
|
|
Me.txtBkapr00.Size = New System.Drawing.Size(208, 20)
|
|
Me.txtBkapr00.TabIndex = 2
|
|
Me.txtBkapr00.Text = "TextBox2"
|
|
'
|
|
'cbvi
|
|
'
|
|
Me.cbvi.Location = New System.Drawing.Point(8, 16)
|
|
Me.cbvi.Name = "cbvi"
|
|
Me.cbvi.Size = New System.Drawing.Size(104, 24)
|
|
Me.cbvi.TabIndex = 4
|
|
Me.cbvi.Text = "VI beachten"
|
|
'
|
|
'cbvsa
|
|
'
|
|
Me.cbvsa.Location = New System.Drawing.Point(120, 16)
|
|
Me.cbvsa.Name = "cbvsa"
|
|
Me.cbvsa.Size = New System.Drawing.Size(112, 24)
|
|
Me.cbvsa.TabIndex = 5
|
|
Me.cbvsa.Text = "Ad. versandfähig"
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.Add(Me.Label3)
|
|
Me.GroupBox2.Controls.Add(Me.txtPartnerEmpfaenger)
|
|
Me.GroupBox2.Controls.Add(Me.txtZusteller)
|
|
Me.GroupBox2.Location = New System.Drawing.Point(8, 224)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(248, 176)
|
|
Me.GroupBox2.TabIndex = 7
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Zustell-Adresse (VI auf Ebene Partner)"
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(8, 144)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(120, 23)
|
|
Me.Label3.TabIndex = 3
|
|
Me.Label3.Text = "Partner-Nr. Empfänger"
|
|
'
|
|
'txtPartnerEmpfaenger
|
|
'
|
|
Me.txtPartnerEmpfaenger.Location = New System.Drawing.Point(128, 144)
|
|
Me.txtPartnerEmpfaenger.Name = "txtPartnerEmpfaenger"
|
|
Me.txtPartnerEmpfaenger.ReadOnly = True
|
|
Me.txtPartnerEmpfaenger.Size = New System.Drawing.Size(112, 20)
|
|
Me.txtPartnerEmpfaenger.TabIndex = 2
|
|
Me.txtPartnerEmpfaenger.Text = "TextBox3"
|
|
'
|
|
'txtZusteller
|
|
'
|
|
Me.txtZusteller.Dock = System.Windows.Forms.DockStyle.Top
|
|
Me.txtZusteller.Location = New System.Drawing.Point(3, 16)
|
|
Me.txtZusteller.Name = "txtZusteller"
|
|
Me.txtZusteller.ReadOnly = True
|
|
Me.txtZusteller.Size = New System.Drawing.Size(242, 120)
|
|
Me.txtZusteller.TabIndex = 0
|
|
Me.txtZusteller.Text = ""
|
|
'
|
|
'GroupBox3
|
|
'
|
|
Me.GroupBox3.Controls.Add(Me.txtZusatz)
|
|
Me.GroupBox3.Location = New System.Drawing.Point(272, 384)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(248, 24)
|
|
Me.GroupBox3.TabIndex = 8
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "EDOKA-Zustelladresse"
|
|
Me.GroupBox3.Visible = False
|
|
'
|
|
'txtZusatz
|
|
'
|
|
Me.txtZusatz.Location = New System.Drawing.Point(8, 16)
|
|
Me.txtZusatz.Name = "txtZusatz"
|
|
Me.txtZusatz.ReadOnly = True
|
|
Me.txtZusatz.Size = New System.Drawing.Size(232, 152)
|
|
Me.txtZusatz.TabIndex = 0
|
|
Me.txtZusatz.Text = "1"
|
|
'
|
|
'Button1
|
|
'
|
|
Me.Button1.Location = New System.Drawing.Point(440, 464)
|
|
Me.Button1.Name = "Button1"
|
|
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
|
Me.Button1.TabIndex = 10
|
|
Me.Button1.Text = "Schliessen"
|
|
'
|
|
'Button2
|
|
'
|
|
Me.Button2.Location = New System.Drawing.Point(8, 464)
|
|
Me.Button2.Name = "Button2"
|
|
Me.Button2.Size = New System.Drawing.Size(144, 23)
|
|
Me.Button2.TabIndex = 11
|
|
Me.Button2.Text = "Zustelladresse bearbeiten"
|
|
Me.Button2.Visible = False
|
|
'
|
|
'txtsaldiert
|
|
'
|
|
Me.txtsaldiert.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.txtsaldiert.ForeColor = System.Drawing.Color.Red
|
|
Me.txtsaldiert.Location = New System.Drawing.Point(216, 464)
|
|
Me.txtsaldiert.Name = "txtsaldiert"
|
|
Me.txtsaldiert.Size = New System.Drawing.Size(168, 23)
|
|
Me.txtsaldiert.TabIndex = 12
|
|
Me.txtsaldiert.Text = "Partner saldiert!"
|
|
'
|
|
'vvlist
|
|
'
|
|
Me.vvlist.AlternatingRows = True
|
|
Me.vvlist.ColumnHeaders = False
|
|
Me.vvlist.FetchRowStyles = True
|
|
Me.vvlist.GroupByCaption = "Drag a column header here to group by that column"
|
|
Me.vvlist.Images.Add(CType(resources.GetObject("vvlist.Images"), System.Drawing.Image))
|
|
Me.vvlist.Location = New System.Drawing.Point(8, 16)
|
|
Me.vvlist.Name = "vvlist"
|
|
Me.vvlist.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
|
Me.vvlist.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
|
Me.vvlist.PreviewInfo.ZoomFactor = 75
|
|
Me.vvlist.PrintInfo.PageSettings = CType(resources.GetObject("vvlist.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
|
Me.vvlist.RecordSelectors = False
|
|
Me.vvlist.RowSubDividerColor = System.Drawing.Color.Transparent
|
|
Me.vvlist.Size = New System.Drawing.Size(240, 304)
|
|
Me.vvlist.TabIndex = 13
|
|
Me.vvlist.Text = "C1TrueDBGrid1"
|
|
Me.vvlist.PropBag = resources.GetString("vvlist.PropBag")
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.Add(Me.txtInhaber)
|
|
Me.GroupBox1.Location = New System.Drawing.Point(8, 80)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(248, 144)
|
|
Me.GroupBox1.TabIndex = 6
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Inhaber-Adresse"
|
|
'
|
|
'txtInhaber
|
|
'
|
|
Me.txtInhaber.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.txtInhaber.Location = New System.Drawing.Point(3, 16)
|
|
Me.txtInhaber.Name = "txtInhaber"
|
|
Me.txtInhaber.ReadOnly = True
|
|
Me.txtInhaber.Size = New System.Drawing.Size(242, 125)
|
|
Me.txtInhaber.TabIndex = 1
|
|
Me.txtInhaber.Text = "1"
|
|
'
|
|
'GroupBox4
|
|
'
|
|
Me.GroupBox4.Controls.Add(Me.vvlist)
|
|
Me.GroupBox4.Location = New System.Drawing.Point(264, 128)
|
|
Me.GroupBox4.Name = "GroupBox4"
|
|
Me.GroupBox4.Size = New System.Drawing.Size(256, 328)
|
|
Me.GroupBox4.TabIndex = 14
|
|
Me.GroupBox4.TabStop = False
|
|
Me.GroupBox4.Text = "Vorhandene VV's"
|
|
'
|
|
'GroupBox5
|
|
'
|
|
Me.GroupBox5.Controls.Add(Me.cbVip)
|
|
Me.GroupBox5.Controls.Add(Me.cbmitarbeiter)
|
|
Me.GroupBox5.Location = New System.Drawing.Point(264, 80)
|
|
Me.GroupBox5.Name = "GroupBox5"
|
|
Me.GroupBox5.Size = New System.Drawing.Size(256, 48)
|
|
Me.GroupBox5.TabIndex = 15
|
|
Me.GroupBox5.TabStop = False
|
|
Me.GroupBox5.Text = "Mitarbeiter/VIP"
|
|
'
|
|
'cbVip
|
|
'
|
|
Me.cbVip.Location = New System.Drawing.Point(160, 16)
|
|
Me.cbVip.Name = "cbVip"
|
|
Me.cbVip.Size = New System.Drawing.Size(80, 24)
|
|
Me.cbVip.TabIndex = 18
|
|
Me.cbVip.Text = "VIP"
|
|
'
|
|
'cbmitarbeiter
|
|
'
|
|
Me.cbmitarbeiter.Location = New System.Drawing.Point(8, 16)
|
|
Me.cbmitarbeiter.Name = "cbmitarbeiter"
|
|
Me.cbmitarbeiter.Size = New System.Drawing.Size(144, 24)
|
|
Me.cbmitarbeiter.TabIndex = 17
|
|
Me.cbmitarbeiter.Text = "Mitarbeiter/Angehöriger"
|
|
'
|
|
'GroupBox6
|
|
'
|
|
Me.GroupBox6.Controls.Add(Me.cbvsa)
|
|
Me.GroupBox6.Controls.Add(Me.cbvi)
|
|
Me.GroupBox6.Location = New System.Drawing.Point(8, 408)
|
|
Me.GroupBox6.Name = "GroupBox6"
|
|
Me.GroupBox6.Size = New System.Drawing.Size(248, 48)
|
|
Me.GroupBox6.TabIndex = 16
|
|
Me.GroupBox6.TabStop = False
|
|
Me.GroupBox6.Text = "Versandinstruktion"
|
|
'
|
|
'GroupBox7
|
|
'
|
|
Me.GroupBox7.Controls.Add(Me.Betreuerlabel)
|
|
Me.GroupBox7.Location = New System.Drawing.Point(264, 40)
|
|
Me.GroupBox7.Name = "GroupBox7"
|
|
Me.GroupBox7.Size = New System.Drawing.Size(256, 40)
|
|
Me.GroupBox7.TabIndex = 17
|
|
Me.GroupBox7.TabStop = False
|
|
Me.GroupBox7.Text = "Betreuer"
|
|
'
|
|
'Betreuerlabel
|
|
'
|
|
Me.Betreuerlabel.Location = New System.Drawing.Point(8, 14)
|
|
Me.Betreuerlabel.Name = "Betreuerlabel"
|
|
Me.Betreuerlabel.Size = New System.Drawing.Size(240, 23)
|
|
Me.Betreuerlabel.TabIndex = 0
|
|
'
|
|
'GroupBox8
|
|
'
|
|
Me.GroupBox8.Controls.Add(Me.GBDatLabel)
|
|
Me.GroupBox8.Location = New System.Drawing.Point(8, 40)
|
|
Me.GroupBox8.Name = "GroupBox8"
|
|
Me.GroupBox8.Size = New System.Drawing.Size(248, 40)
|
|
Me.GroupBox8.TabIndex = 18
|
|
Me.GroupBox8.TabStop = False
|
|
Me.GroupBox8.Text = "Geburtsdatum"
|
|
'
|
|
'GBDatLabel
|
|
'
|
|
Me.GBDatLabel.Location = New System.Drawing.Point(8, 14)
|
|
Me.GBDatLabel.Name = "GBDatLabel"
|
|
Me.GBDatLabel.Size = New System.Drawing.Size(200, 23)
|
|
Me.GBDatLabel.TabIndex = 0
|
|
'
|
|
'frmPartnerDetails
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(528, 495)
|
|
Me.Controls.Add(Me.GroupBox1)
|
|
Me.Controls.Add(Me.GroupBox8)
|
|
Me.Controls.Add(Me.GroupBox7)
|
|
Me.Controls.Add(Me.GroupBox6)
|
|
Me.Controls.Add(Me.GroupBox5)
|
|
Me.Controls.Add(Me.GroupBox4)
|
|
Me.Controls.Add(Me.txtsaldiert)
|
|
Me.Controls.Add(Me.Button2)
|
|
Me.Controls.Add(Me.Button1)
|
|
Me.Controls.Add(Me.GroupBox3)
|
|
Me.Controls.Add(Me.GroupBox2)
|
|
Me.Controls.Add(Me.txtBkapr00)
|
|
Me.Controls.Add(Me.Label1)
|
|
Me.Controls.Add(Me.txtPartnernr)
|
|
Me.Controls.Add(Me.Label2)
|
|
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmPartnerDetails"
|
|
Me.Text = "Partner-Details"
|
|
Me.TopMost = True
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.GroupBox2.PerformLayout()
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
CType(Me.vvlist, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.GroupBox4.ResumeLayout(False)
|
|
Me.GroupBox5.ResumeLayout(False)
|
|
Me.GroupBox6.ResumeLayout(False)
|
|
Me.GroupBox7.ResumeLayout(False)
|
|
Me.GroupBox8.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim m_partnernr As Long
|
|
Dim partner As DataTable
|
|
Dim vv As DataTable
|
|
Dim mypartner As New edokaDB.clsMyPartner()
|
|
Property Partnernr() As Long
|
|
Get
|
|
Return m_partnernr
|
|
End Get
|
|
Set(ByVal Value As Long)
|
|
m_partnernr = Value
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub frmPartnerDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim s As String
|
|
Dim s1 As String
|
|
Dim s2 As String
|
|
Dim s3 As String
|
|
Dim s4 As String
|
|
Me.Betreuerlabel.Text = ""
|
|
partner = mypartner.Partner_Detail(Me.Partnernr)
|
|
vv = mypartner.Partner_VV(Me.Partnernr)
|
|
Me.txtPartnernr.Text = partner.Rows(0).Item("nrpar00")
|
|
Me.txtBkapr00.Text = partner.Rows(0).Item("bkpar00")
|
|
Me.txtPartnerEmpfaenger.Text = partner.Rows(0).Item("nrparad")
|
|
|
|
Me.Betreuerlabel.Text = mypartner.Partner_Betreuer(Me.Partnernr)
|
|
Try
|
|
Me.GBDatLabel.Text = mypartner.Partner_Gebdat(Me.Partnernr)
|
|
If Me.GBDatLabel.Text = "" Then Me.GroupBox8.Visible = False Else Me.GroupBox8.Visible = True
|
|
Catch
|
|
Me.GroupBox8.Visible = False
|
|
End Try
|
|
|
|
If partner.Rows(0).Item("cdvig00") = "Y" Then
|
|
Me.cbvi.Checked = True
|
|
Else
|
|
' Me.cbvi.Checked = False
|
|
End If
|
|
If partner.Rows(0).Item("azepl00") > 1 Then
|
|
Me.cbvi.Checked = True
|
|
Else
|
|
' Me.cbvi.Checked = False
|
|
End If
|
|
If partner.Rows(0).Item("cdvsa00") = True Then
|
|
Me.cbvi.Checked = True
|
|
Else
|
|
' Me.cbvi.Checked = False
|
|
End If
|
|
|
|
Try
|
|
If partner.Rows(0).Item("SAVRS00") = "Y" Then
|
|
Me.cbvsa.Checked = True
|
|
Else
|
|
Me.cbvsa.Checked = False
|
|
End If
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
If partner.Rows(0).Item("saldiert") = True Then
|
|
Me.txtsaldiert.Visible = True
|
|
Else
|
|
Me.txtsaldiert.Visible = False
|
|
End If
|
|
s = ""
|
|
s1 = ""
|
|
s2 = ""
|
|
s = s + partner.Rows(0).Item("txadz012") + vbCrLf
|
|
s = s + partner.Rows(0).Item("txadz022") + vbCrLf
|
|
s = s + partner.Rows(0).Item("txadz032") + vbCrLf
|
|
s = s + partner.Rows(0).Item("txadz042") + vbCrLf
|
|
s = s + partner.Rows(0).Item("txadz052") + vbCrLf
|
|
s = s + partner.Rows(0).Item("txadz062") + vbCrLf
|
|
s = s + partner.Rows(0).Item("txadz072") + vbCrLf
|
|
s3 = ""
|
|
s3 = s3 + partner.Rows(0).Item("txadz012")
|
|
s3 = s3 + partner.Rows(0).Item("txadz022")
|
|
s3 = s3 + partner.Rows(0).Item("txadz032")
|
|
s3 = s3 + partner.Rows(0).Item("txadz042")
|
|
s3 = s3 + partner.Rows(0).Item("txadz052")
|
|
s3 = s3 + partner.Rows(0).Item("txadz062")
|
|
s3 = s3 + partner.Rows(0).Item("txadz072")
|
|
|
|
s1 = s1 + partner.Rows(0).Item("txadz011") + vbCrLf
|
|
s1 = s1 + partner.Rows(0).Item("txadz021") + vbCrLf
|
|
s1 = s1 + partner.Rows(0).Item("txadz031") + vbCrLf
|
|
s1 = s1 + partner.Rows(0).Item("txadz041") + vbCrLf
|
|
s1 = s1 + partner.Rows(0).Item("txadz051") + vbCrLf
|
|
s1 = s1 + partner.Rows(0).Item("txadz061") + vbCrLf
|
|
s1 = s1 + partner.Rows(0).Item("txadz071") + vbCrLf
|
|
s4 = ""
|
|
s4 = s4 + partner.Rows(0).Item("txadz011")
|
|
s4 = s4 + partner.Rows(0).Item("txadz021")
|
|
s4 = s4 + partner.Rows(0).Item("txadz031")
|
|
s4 = s4 + partner.Rows(0).Item("txadz041")
|
|
s4 = s4 + partner.Rows(0).Item("txadz051")
|
|
s4 = s4 + partner.Rows(0).Item("txadz061")
|
|
s4 = s4 + partner.Rows(0).Item("txadz071")
|
|
|
|
get_ma_vip()
|
|
|
|
'If Not (partner.Rows(0).Item("adresszeile1") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile1") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile1") + vbCrLf
|
|
'End If
|
|
'If Not (partner.Rows(0).Item("adresszeile2") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile2") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile2") + vbCrLf
|
|
'End If
|
|
'If Not (partner.Rows(0).Item("adresszeile3") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile3") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile3") + vbCrLf
|
|
'End If
|
|
'If Not (partner.Rows(0).Item("adresszeile4") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile4") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile4") + vbCrLf
|
|
'End If
|
|
'If Not (partner.Rows(0).Item("adresszeile5") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile5") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile5") + vbCrLf
|
|
'End If
|
|
'If Not (partner.Rows(0).Item("adresszeile6") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile6") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile6") + vbCrLf
|
|
'End If
|
|
'If Not (partner.Rows(0).Item("adresszeile7") Is System.DBNull.Value) And Not (partner.Rows(0).Item("adresszeile7") = "") Then
|
|
's2 = s2 + partner.Rows(0).Item("adresszeile7") + vbCrLf
|
|
'End If
|
|
|
|
If Val(Me.txtPartnerEmpfaenger.Text) <> Val(Me.txtPartnernr.Text) Then
|
|
Me.txtInhaber.Text = s
|
|
Me.txtZusteller.Text = s1
|
|
Else
|
|
Me.txtInhaber.Text = s1
|
|
Me.txtZusteller.Text = ""
|
|
Me.txtPartnerEmpfaenger.Text = ""
|
|
End If
|
|
|
|
If Trim(s3) <> Trim(s4) And Trim(s3) <> "" Then
|
|
Me.txtInhaber.Text = s
|
|
Me.txtZusteller.Text = s1
|
|
Else
|
|
Me.txtInhaber.Text = Trim(s1)
|
|
End If
|
|
Me.txtZusatz.Text = s2
|
|
|
|
Me.vvlist.DataSource = Nothing
|
|
Me.vvlist.DataMember = Nothing
|
|
Me.vvlist.DataSource = Me.vv
|
|
Me.vvlist.DataMember = "vv"
|
|
Me.vvlist.Splits(0).DisplayColumns(1).Width = 140
|
|
Me.vvlist.Splits(0).DisplayColumns(2).Visible = False
|
|
Me.vvlist.Splits(0).DisplayColumns(3).Visible = False
|
|
Me.Cursor = Cursors.Default
|
|
Dim i As Integer
|
|
For i = 0 To Me.vvlist.Columns.Count - 1
|
|
If UCase(Me.vvlist.Columns(i).Caption) = "SAREC00" Then
|
|
Me.vvlist.Splits(0).DisplayColumns(i).Visible = False
|
|
End If
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub frmPartnerDetails_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
partner.Dispose()
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
|
Dim f1 As New frmEdokaAdresse()
|
|
f1.Partnernr = Me.Partnernr
|
|
f1.ShowDialog()
|
|
frmPartnerDetails_Load(sender, e)
|
|
End Sub
|
|
|
|
Private Sub get_ma_vip()
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
scmCmdToExecute.CommandText = "sp_ma_vip"
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
Try
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.Partnernr))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ma", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vip", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If scmCmdToExecute.Parameters("@ma").Value > 0 Then Me.cbmitarbeiter.Checked = True Else Me.cbmitarbeiter.Checked = False
|
|
If scmCmdToExecute.Parameters("@vip").Value > 0 Then Me.cbVip.Checked = True Else Me.cbVip.Checked = False
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
dtToReturn.Dispose()
|
|
End Try
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub vvlist_FetchRowStyle(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FetchRowStyleEventArgs) Handles vvlist.FetchRowStyle
|
|
If Me.vvlist.Columns("sarec00").CellValue(e.Row) <> 2 Then
|
|
Dim FNT As Font = e.CellStyle.Font
|
|
e.CellStyle.Font = New Font(FNT, FontStyle.Strikeout)
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|