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.
657 lines
27 KiB
657 lines
27 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Imports System.ComponentModel
|
|
Imports System.Windows.Forms
|
|
|
|
Public Class frmInteressent
|
|
Inherits System.Windows.Forms.Form
|
|
Dim partner As New edokadb.clsPartner()
|
|
|
|
#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 btnSave As System.Windows.Forms.Button
|
|
Friend WithEvents btnCancel As System.Windows.Forms.Button
|
|
Friend WithEvents btnClose As System.Windows.Forms.Button
|
|
Friend WithEvents Label1 As System.Windows.Forms.Label
|
|
Friend WithEvents Label2 As System.Windows.Forms.Label
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents Label4 As System.Windows.Forms.Label
|
|
Friend WithEvents Label5 As System.Windows.Forms.Label
|
|
Friend WithEvents Label6 As System.Windows.Forms.Label
|
|
Friend WithEvents Label7 As System.Windows.Forms.Label
|
|
Friend WithEvents Label8 As System.Windows.Forms.Label
|
|
Friend WithEvents Label9 As System.Windows.Forms.Label
|
|
Friend WithEvents Label10 As System.Windows.Forms.Label
|
|
Friend WithEvents txtvorname As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtname As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtzhd As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtadresse1 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtadresse2 As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtplz As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtort As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtkurzbezeichnung As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtbriefanrede As System.Windows.Forms.TextBox
|
|
Friend WithEvents txtanrede As System.Windows.Forms.TextBox
|
|
Friend WithEvents adraufbereitet As System.Windows.Forms.TextBox
|
|
Friend WithEvents Label11 As System.Windows.Forms.Label
|
|
Friend WithEvents Label12 As System.Windows.Forms.Label
|
|
Friend WithEvents txterfasser As System.Windows.Forms.TextBox
|
|
Friend WithEvents lblsaldiert As System.Windows.Forms.Label
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmInteressent))
|
|
Me.btnSave = New System.Windows.Forms.Button()
|
|
Me.btnCancel = New System.Windows.Forms.Button()
|
|
Me.btnClose = New System.Windows.Forms.Button()
|
|
Me.txtvorname = New System.Windows.Forms.TextBox()
|
|
Me.txtname = New System.Windows.Forms.TextBox()
|
|
Me.txtzhd = New System.Windows.Forms.TextBox()
|
|
Me.txtadresse1 = New System.Windows.Forms.TextBox()
|
|
Me.txtadresse2 = New System.Windows.Forms.TextBox()
|
|
Me.txtplz = New System.Windows.Forms.TextBox()
|
|
Me.txtort = New System.Windows.Forms.TextBox()
|
|
Me.txtkurzbezeichnung = New System.Windows.Forms.TextBox()
|
|
Me.Label1 = New System.Windows.Forms.Label()
|
|
Me.Label2 = New System.Windows.Forms.Label()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.Label4 = New System.Windows.Forms.Label()
|
|
Me.Label5 = New System.Windows.Forms.Label()
|
|
Me.Label6 = New System.Windows.Forms.Label()
|
|
Me.Label7 = New System.Windows.Forms.Label()
|
|
Me.Label8 = New System.Windows.Forms.Label()
|
|
Me.Label9 = New System.Windows.Forms.Label()
|
|
Me.Label10 = New System.Windows.Forms.Label()
|
|
Me.txtbriefanrede = New System.Windows.Forms.TextBox()
|
|
Me.txtanrede = New System.Windows.Forms.TextBox()
|
|
Me.adraufbereitet = New System.Windows.Forms.TextBox()
|
|
Me.Label11 = New System.Windows.Forms.Label()
|
|
Me.Label12 = New System.Windows.Forms.Label()
|
|
Me.txterfasser = New System.Windows.Forms.TextBox()
|
|
Me.lblsaldiert = New System.Windows.Forms.Label()
|
|
Me.SuspendLayout()
|
|
'
|
|
'btnSave
|
|
'
|
|
Me.btnSave.Location = New System.Drawing.Point(208, 392)
|
|
Me.btnSave.Name = "btnSave"
|
|
Me.btnSave.TabIndex = 11
|
|
Me.btnSave.Text = "&Speichern"
|
|
'
|
|
'btnCancel
|
|
'
|
|
Me.btnCancel.Location = New System.Drawing.Point(120, 392)
|
|
Me.btnCancel.Name = "btnCancel"
|
|
Me.btnCancel.TabIndex = 10
|
|
Me.btnCancel.Text = "&Abbruch"
|
|
'
|
|
'btnClose
|
|
'
|
|
Me.btnClose.Location = New System.Drawing.Point(168, 392)
|
|
Me.btnClose.Name = "btnClose"
|
|
Me.btnClose.TabIndex = 11
|
|
Me.btnClose.Text = "&Schliessen"
|
|
'
|
|
'txtvorname
|
|
'
|
|
Me.txtvorname.Location = New System.Drawing.Point(120, 48)
|
|
Me.txtvorname.Name = "txtvorname"
|
|
Me.txtvorname.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtvorname.TabIndex = 1
|
|
Me.txtvorname.Text = ""
|
|
'
|
|
'txtname
|
|
'
|
|
Me.txtname.Location = New System.Drawing.Point(120, 72)
|
|
Me.txtname.Name = "txtname"
|
|
Me.txtname.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtname.TabIndex = 2
|
|
Me.txtname.Text = ""
|
|
'
|
|
'txtzhd
|
|
'
|
|
Me.txtzhd.Location = New System.Drawing.Point(120, 96)
|
|
Me.txtzhd.Name = "txtzhd"
|
|
Me.txtzhd.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtzhd.TabIndex = 3
|
|
Me.txtzhd.Text = ""
|
|
'
|
|
'txtadresse1
|
|
'
|
|
Me.txtadresse1.Location = New System.Drawing.Point(120, 120)
|
|
Me.txtadresse1.Name = "txtadresse1"
|
|
Me.txtadresse1.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtadresse1.TabIndex = 4
|
|
Me.txtadresse1.Text = ""
|
|
'
|
|
'txtadresse2
|
|
'
|
|
Me.txtadresse2.Location = New System.Drawing.Point(120, 144)
|
|
Me.txtadresse2.Name = "txtadresse2"
|
|
Me.txtadresse2.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtadresse2.TabIndex = 5
|
|
Me.txtadresse2.Text = ""
|
|
'
|
|
'txtplz
|
|
'
|
|
Me.txtplz.Location = New System.Drawing.Point(120, 168)
|
|
Me.txtplz.Name = "txtplz"
|
|
Me.txtplz.Size = New System.Drawing.Size(60, 20)
|
|
Me.txtplz.TabIndex = 6
|
|
Me.txtplz.Text = ""
|
|
'
|
|
'txtort
|
|
'
|
|
Me.txtort.Location = New System.Drawing.Point(232, 168)
|
|
Me.txtort.Name = "txtort"
|
|
Me.txtort.Size = New System.Drawing.Size(136, 20)
|
|
Me.txtort.TabIndex = 7
|
|
Me.txtort.Text = ""
|
|
'
|
|
'txtkurzbezeichnung
|
|
'
|
|
Me.txtkurzbezeichnung.Location = New System.Drawing.Point(120, 200)
|
|
Me.txtkurzbezeichnung.Name = "txtkurzbezeichnung"
|
|
Me.txtkurzbezeichnung.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtkurzbezeichnung.TabIndex = 8
|
|
Me.txtkurzbezeichnung.Text = ""
|
|
'
|
|
'Label1
|
|
'
|
|
Me.Label1.Location = New System.Drawing.Point(8, 24)
|
|
Me.Label1.Name = "Label1"
|
|
Me.Label1.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label1.TabIndex = 22
|
|
Me.Label1.Text = "Anrede"
|
|
'
|
|
'Label2
|
|
'
|
|
Me.Label2.Location = New System.Drawing.Point(8, 48)
|
|
Me.Label2.Name = "Label2"
|
|
Me.Label2.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label2.TabIndex = 23
|
|
Me.Label2.Text = "Vorname"
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.Location = New System.Drawing.Point(8, 72)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(80, 23)
|
|
Me.Label3.TabIndex = 24
|
|
Me.Label3.Text = "Name / Firma"
|
|
'
|
|
'Label4
|
|
'
|
|
Me.Label4.Location = New System.Drawing.Point(8, 96)
|
|
Me.Label4.Name = "Label4"
|
|
Me.Label4.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label4.TabIndex = 25
|
|
Me.Label4.Text = "z. Hd."
|
|
'
|
|
'Label5
|
|
'
|
|
Me.Label5.Location = New System.Drawing.Point(8, 120)
|
|
Me.Label5.Name = "Label5"
|
|
Me.Label5.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label5.TabIndex = 26
|
|
Me.Label5.Text = "Adresszeile 1"
|
|
'
|
|
'Label6
|
|
'
|
|
Me.Label6.Location = New System.Drawing.Point(8, 144)
|
|
Me.Label6.Name = "Label6"
|
|
Me.Label6.Size = New System.Drawing.Size(72, 23)
|
|
Me.Label6.TabIndex = 27
|
|
Me.Label6.Text = "Adresszeile 2"
|
|
'
|
|
'Label7
|
|
'
|
|
Me.Label7.Location = New System.Drawing.Point(8, 168)
|
|
Me.Label7.Name = "Label7"
|
|
Me.Label7.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label7.TabIndex = 28
|
|
Me.Label7.Text = "PLZ"
|
|
'
|
|
'Label8
|
|
'
|
|
Me.Label8.Location = New System.Drawing.Point(200, 168)
|
|
Me.Label8.Name = "Label8"
|
|
Me.Label8.Size = New System.Drawing.Size(32, 23)
|
|
Me.Label8.TabIndex = 29
|
|
Me.Label8.Text = "Ort"
|
|
'
|
|
'Label9
|
|
'
|
|
Me.Label9.Location = New System.Drawing.Point(8, 200)
|
|
Me.Label9.Name = "Label9"
|
|
Me.Label9.Size = New System.Drawing.Size(96, 23)
|
|
Me.Label9.TabIndex = 30
|
|
Me.Label9.Text = "Kurzbezeichnung"
|
|
'
|
|
'Label10
|
|
'
|
|
Me.Label10.Location = New System.Drawing.Point(8, 224)
|
|
Me.Label10.Name = "Label10"
|
|
Me.Label10.Size = New System.Drawing.Size(64, 23)
|
|
Me.Label10.TabIndex = 31
|
|
Me.Label10.Text = "Briefanrede"
|
|
'
|
|
'txtbriefanrede
|
|
'
|
|
Me.txtbriefanrede.Location = New System.Drawing.Point(120, 224)
|
|
Me.txtbriefanrede.Name = "txtbriefanrede"
|
|
Me.txtbriefanrede.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtbriefanrede.TabIndex = 9
|
|
Me.txtbriefanrede.Text = ""
|
|
'
|
|
'txtanrede
|
|
'
|
|
Me.txtanrede.Location = New System.Drawing.Point(120, 24)
|
|
Me.txtanrede.Name = "txtanrede"
|
|
Me.txtanrede.Size = New System.Drawing.Size(248, 20)
|
|
Me.txtanrede.TabIndex = 0
|
|
Me.txtanrede.Text = ""
|
|
'
|
|
'adraufbereitet
|
|
'
|
|
Me.adraufbereitet.Enabled = False
|
|
Me.adraufbereitet.Location = New System.Drawing.Point(120, 256)
|
|
Me.adraufbereitet.Multiline = True
|
|
Me.adraufbereitet.Name = "adraufbereitet"
|
|
Me.adraufbereitet.Size = New System.Drawing.Size(248, 101)
|
|
Me.adraufbereitet.TabIndex = 33
|
|
Me.adraufbereitet.Text = ""
|
|
'
|
|
'Label11
|
|
'
|
|
Me.Label11.Location = New System.Drawing.Point(8, 256)
|
|
Me.Label11.Name = "Label11"
|
|
Me.Label11.Size = New System.Drawing.Size(112, 16)
|
|
Me.Label11.TabIndex = 34
|
|
Me.Label11.Text = "Aufbereitete Adresse"
|
|
'
|
|
'Label12
|
|
'
|
|
Me.Label12.Location = New System.Drawing.Point(8, 360)
|
|
Me.Label12.Name = "Label12"
|
|
Me.Label12.TabIndex = 35
|
|
Me.Label12.Text = "Erfasst durch"
|
|
'
|
|
'txterfasser
|
|
'
|
|
Me.txterfasser.Location = New System.Drawing.Point(120, 360)
|
|
Me.txterfasser.Name = "txterfasser"
|
|
Me.txterfasser.ReadOnly = True
|
|
Me.txterfasser.Size = New System.Drawing.Size(248, 20)
|
|
Me.txterfasser.TabIndex = 36
|
|
Me.txterfasser.TabStop = False
|
|
Me.txterfasser.Text = ""
|
|
'
|
|
'lblsaldiert
|
|
'
|
|
Me.lblsaldiert.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
|
Me.lblsaldiert.ForeColor = System.Drawing.Color.Red
|
|
Me.lblsaldiert.Location = New System.Drawing.Point(8, 392)
|
|
Me.lblsaldiert.Name = "lblsaldiert"
|
|
Me.lblsaldiert.Size = New System.Drawing.Size(144, 24)
|
|
Me.lblsaldiert.TabIndex = 37
|
|
Me.lblsaldiert.Text = "Partner ist saldiert"
|
|
'
|
|
'frmInteressent
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.ClientSize = New System.Drawing.Size(376, 421)
|
|
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.lblsaldiert, Me.txterfasser, Me.Label12, Me.Label11, Me.adraufbereitet, Me.txtanrede, Me.Label10, Me.Label9, Me.Label8, Me.Label7, Me.Label6, Me.Label5, Me.Label4, Me.Label3, Me.Label2, Me.Label1, Me.txtbriefanrede, Me.txtkurzbezeichnung, Me.txtort, Me.txtplz, Me.txtadresse2, Me.txtadresse1, Me.txtzhd, Me.txtname, Me.txtvorname, Me.btnClose, Me.btnCancel, Me.btnSave})
|
|
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
|
Me.Name = "frmInteressent"
|
|
Me.Text = "Partner eröffnen / bearbeiten"
|
|
Me.TopMost = True
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Dim Bereits_beantwortet As Boolean = False
|
|
Dim returncode As Integer
|
|
Dim m_partnernr As Long
|
|
Dim m_display As Boolean
|
|
Property Display() As Boolean
|
|
Get
|
|
Return m_display
|
|
End Get
|
|
Set(ByVal Value As Boolean)
|
|
m_display = 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
|
|
|
|
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 adressarray(6) As String
|
|
|
|
Private Sub Interessent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
|
If Not Me.Display Then MyMsg.Show_HinweisMessage(Me.Profilnr, 1, 100, 1, True)
|
|
Dim partner As New edokadb.clsPartner()
|
|
Dim s As String
|
|
adressarray(0) = ""
|
|
adressarray(1) = ""
|
|
adressarray(2) = ""
|
|
adressarray(3) = ""
|
|
adressarray(4) = ""
|
|
adressarray(5) = ""
|
|
adressarray(6) = ""
|
|
Me.lblsaldiert.Visible = False
|
|
|
|
If Me.Partnernr > 0 Then
|
|
partner.cpMainConnectionProvider = conn
|
|
partner.iNRPAR00 = New SqlInt32(CType(Me.Partnernr, Int32))
|
|
partner.SelectOne()
|
|
Me.txtanrede.Text = partner.sTXADZ012.Value
|
|
Me.txtvorname.Text = partner.sTXADZ022.Value
|
|
Me.txtname.Text = partner.sTXADZ032.Value
|
|
Me.txtzhd.Text = partner.sTXADZ042.Value
|
|
Me.txtadresse1.Text = partner.sTXADZ052.Value
|
|
Me.txtadresse2.Text = partner.sTXADZ062.Value
|
|
Me.txtplz.Text = partner.sTXADZ072.Value
|
|
Me.txtort.Text = partner.sBEBAN012.Value
|
|
Me.txtkurzbezeichnung.Text = partner.sBKPAR00.Value
|
|
Me.txtbriefanrede.Text = partner.sBEBAN011.Value
|
|
Me.txtkurzbezeichnung.Text = partner.sBKPAR00.Value
|
|
adressarray(0) = partner.sTXADZ011.Value
|
|
adressarray(1) = partner.sTXADZ021.Value
|
|
adressarray(2) = partner.sTXADZ031.Value
|
|
adressarray(3) = partner.sTXADZ041.Value
|
|
adressarray(4) = partner.sTXADZ061.Value
|
|
adressarray(5) = partner.sTXADZ061.Value
|
|
adressarray(6) = partner.sTXADZ071.Value
|
|
If partner.bSaldiert.Value = True Then Me.lblsaldiert.Visible = True Else Me.lblsaldiert.Visible = False
|
|
s = ""
|
|
s = s + adressarray(0) + vbCrLf
|
|
s = s + adressarray(1) + vbCrLf
|
|
s = s + adressarray(2) + vbCrLf
|
|
s = s + adressarray(3) + vbCrLf
|
|
s = s + adressarray(4) + vbCrLf
|
|
s = s + adressarray(5) + vbCrLf
|
|
s = s + adressarray(6)
|
|
Me.adraufbereitet.Text = s
|
|
End If
|
|
|
|
Dim ma As New edokadb.clsMitarbeiter()
|
|
Try
|
|
Me.txterfasser.Text = ""
|
|
ma.cpMainConnectionProvider = conn
|
|
ma.iMitarbeiternr = New SqlInt32(CType(partner.iNRFOG012.Value, Int32))
|
|
ma.SelectOne()
|
|
Me.txterfasser.Text = ma.sName.Value + " " + ma.sVorname.Value + ", " + ma.sTgnummer.Value
|
|
Catch
|
|
End Try
|
|
ma.Dispose()
|
|
'Me.txtname_Leave(sender, e)
|
|
If Me.Display = True Then
|
|
Me.btnCancel.Visible = False
|
|
Me.btnSave.Visible = False
|
|
Me.btnClose.Visible = True
|
|
Else
|
|
Me.btnCancel.Visible = True
|
|
Me.btnSave.Visible = True
|
|
Me.btnClose.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
|
|
If Len(Me.txtkurzbezeichnung.Text) > 35 Then
|
|
MyMsg.show_standardmessage(106, MsgBoxStyle.Information)
|
|
Me.txtkurzbezeichnung.Focus()
|
|
Exit Sub
|
|
End If
|
|
If Len(Me.txtkurzbezeichnung.Text) < 5 Then
|
|
MyMsg.show_standardmessage(108, MsgBoxStyle.Critical)
|
|
Me.txtkurzbezeichnung.Focus()
|
|
Exit Sub
|
|
End If
|
|
If Len(Me.txtname.Text) < 2 Then
|
|
MyMsg.show_standardmessage(109, MsgBoxStyle.Critical)
|
|
Me.txtname.Focus()
|
|
Exit Sub
|
|
End If
|
|
If Len(Me.txtort.Text) < 2 Then
|
|
MyMsg.show_standardmessage(736, MsgBoxStyle.Critical)
|
|
Me.txtname.Focus()
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim dbkey As New edokadb.clsMyKey_Tabelle()
|
|
Dim key As Long
|
|
partner.cpMainConnectionProvider = conn
|
|
If Me.Partnernr = 0 Then
|
|
Dim t As DataTable
|
|
t = Generic_Select(2)
|
|
If Me.returncode <> 0 Then
|
|
|
|
If Me.Bereits_beantwortet = False Then
|
|
Dim pa As New FrmPartnersuche()
|
|
pa.Meldung_Doppelter_Partner = True
|
|
pa.NurAbfrage = True
|
|
pa.AusPartnererfassung = True
|
|
Me.Cursor = Cursors.WaitCursor
|
|
pa.Doppelte_Partner(Me.txtname.Text, Me.txtort.Text)
|
|
Me.Cursor = Cursors.Default
|
|
pa.TopMost = True
|
|
pa.ShowDialog()
|
|
Me.Bereits_beantwortet = True
|
|
If pa.PartnerNr <> 0 Then
|
|
Me.Partnernr = pa.PartnerNr
|
|
Me.Close()
|
|
Exit Sub
|
|
End If
|
|
Exit Sub
|
|
Else
|
|
End If
|
|
End If
|
|
dbkey.cpMainConnectionProvider = conn
|
|
key = dbkey.get_dbkey("Interessent")
|
|
Else
|
|
partner.iNRPAR00 = New SqlInt32(CType(Me.Partnernr, Int32))
|
|
partner.SelectOne()
|
|
End If
|
|
conn.OpenConnection()
|
|
Me.Cursor = Cursors.WaitCursor
|
|
partner.sBKPAR00 = New SqlString(CType(Me.txtkurzbezeichnung.Text, String))
|
|
partner.sBEBAN012 = New SqlString(CType(Me.txtort.Text, String))
|
|
partner.sTXADZ012 = New SqlString(CType(Me.txtanrede.Text, String))
|
|
partner.sTXADZ022 = New SqlString(CType(Me.txtvorname.Text, String))
|
|
partner.sTXADZ032 = New SqlString(CType(Me.txtname.Text, String))
|
|
partner.sTXADZ042 = New SqlString(CType(Me.txtzhd.Text, String))
|
|
partner.sTXADZ052 = New SqlString(CType(Me.txtadresse1.Text, String))
|
|
partner.sTXADZ062 = New SqlString(CType(Me.txtadresse2.Text, String))
|
|
partner.sTXADZ072 = New SqlString(CType(Me.txtplz.Text, String))
|
|
partner.sTXADZ011 = New SqlString(CType(Me.txtadresse1.Text, String))
|
|
partner.sTXADZ021 = New SqlString(CType(Me.txtadresse2.Text, String))
|
|
partner.sBEBAN011 = New SqlString(CType(Me.txtbriefanrede.Text, String))
|
|
|
|
partner.sTXADZ011 = New SqlString(CType(Me.adressarray(0).ToString, String))
|
|
partner.sTXADZ021 = New SqlString(CType(Me.adressarray(1).ToString, String))
|
|
partner.sTXADZ031 = New SqlString(CType(Me.adressarray(2).ToString, String))
|
|
partner.sTXADZ041 = New SqlString(CType(Me.adressarray(3).ToString, String))
|
|
partner.sTXADZ051 = New SqlString(CType(Me.adressarray(4).ToString, String))
|
|
partner.sTXADZ061 = New SqlString(CType(Me.adressarray(5).ToString, String))
|
|
partner.sTXADZ071 = New SqlString(CType(Me.adressarray(6).ToString, String))
|
|
partner.iNRFOG012 = New SqlInt32(CType(Globals.MitarbeiterNr, Int32))
|
|
partner.sTSMUT00 = New SqlString(CType(Now, String))
|
|
'Rel. 4.1
|
|
partner.bSaldiert = New SqlBoolean(CType(False, Boolean))
|
|
partner.bCDVSA00 = New SqlBoolean(CType(False, Boolean))
|
|
|
|
|
|
partner.sNRADR00 = New SqlString(CType("", String))
|
|
If Me.Partnernr = 0 Then
|
|
partner.iNRPAR00 = New SqlInt32(CType(key, Int32))
|
|
partner.Insert()
|
|
Me.Partnernr = key
|
|
Else
|
|
partner.Update()
|
|
End If
|
|
conn.CloseConnection(True)
|
|
Me.Cursor = Cursors.Default
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub frmInteressent_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
|
|
partner.Dispose()
|
|
End Sub
|
|
|
|
Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
|
|
Private Sub txtplz_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtplz.Leave
|
|
Dim plz As DataTable
|
|
plz = Generic_Select(1)
|
|
If plz.Rows.Count > 0 And Me.txtort.Text = "" Then
|
|
Me.txtort.Text = plz.Rows(0).Item(2)
|
|
End If
|
|
plz.Dispose()
|
|
End Sub
|
|
|
|
#Region "Datenhandling"
|
|
Private Function Generic_Select(ByVal typ As Integer) As DataTable
|
|
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.CommandText = "dbo.SP_get_ort"
|
|
Case 2
|
|
scmCmdToExecute.CommandText = "dbo.SP_check_partner"
|
|
Case Else
|
|
End Select
|
|
scmCmdToExecute.CommandType = CommandType.StoredProcedure
|
|
Dim dtToReturn As DataTable = New DataTable()
|
|
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
|
|
scmCmdToExecute.Connection = conn.scoDBConnection
|
|
Try
|
|
Select Case typ
|
|
Case 1
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@plz", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtplz.Text))
|
|
Case 2
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@name", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtname.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@vorname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtvorname.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ort", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtort.Text))
|
|
scmCmdToExecute.Parameters.Add(New SqlParameter("@ret", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
|
|
Case Else
|
|
End Select
|
|
If typ = 1 Then
|
|
End If
|
|
sdaAdapter.Fill(dtToReturn)
|
|
If typ = 2 Then Me.returncode = scmCmdToExecute.Parameters("@ret").Value
|
|
Return dtToReturn
|
|
Catch ex As Exception
|
|
' // some error occured. Bubble it to caller and encapsulate Exception object
|
|
Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
|
|
Finally
|
|
scmCmdToExecute.Dispose()
|
|
sdaAdapter.Dispose()
|
|
End Try
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
Private Sub txtname_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtname.Leave, txtort.Leave, txtanrede.Leave, txtvorname.Leave, txtadresse1.Leave, txtadresse2.Leave, txtzhd.Leave, txtplz.Leave, txtanrede.Enter
|
|
If Me.txtvorname.Text = "" Then
|
|
Me.txtkurzbezeichnung.Text = Me.txtname.Text
|
|
Me.txtbriefanrede.Text = "Damen und Herren"
|
|
Else
|
|
Me.txtkurzbezeichnung.Text = Me.txtvorname.Text + " " + Me.txtname.Text
|
|
Me.txtbriefanrede.Text = Me.txtanrede.Text + " " + Me.txtname.Text
|
|
End If
|
|
If Me.txtort.Text <> "" Then
|
|
Me.txtkurzbezeichnung.Text = Me.txtkurzbezeichnung.Text + ", " + Me.txtort.Text
|
|
End If
|
|
|
|
'Adresse
|
|
Dim i As Integer
|
|
For i = 0 To 6
|
|
Me.adressarray(i) = ""
|
|
Next
|
|
i = 0
|
|
If Me.txtanrede.Text <> "" Then
|
|
Me.adressarray(i) = Me.txtanrede.Text
|
|
i = i + 1
|
|
End If
|
|
If Me.txtvorname.Text <> "" Then
|
|
Me.adressarray(i) = Me.txtvorname.Text + " " + Me.txtname.Text
|
|
i = i + 1
|
|
Else
|
|
Me.adressarray(i) = Me.txtname.Text
|
|
i = i + 1
|
|
End If
|
|
|
|
If Me.txtzhd.Text <> "" Then
|
|
Me.adressarray(i) = Me.txtzhd.Text
|
|
i = i + 1
|
|
End If
|
|
If Me.txtadresse1.Text <> "" Then
|
|
Me.adressarray(i) = Me.txtadresse1.Text
|
|
i = i + 1
|
|
End If
|
|
If Me.txtadresse2.Text <> "" Then
|
|
Me.adressarray(i) = Me.txtadresse2.Text
|
|
i = i + 1
|
|
End If
|
|
Me.adressarray(i) = Me.txtplz.Text + " " + Me.txtort.Text
|
|
|
|
Me.adraufbereitet.Text = ""
|
|
Me.adraufbereitet.Text = Me.adressarray(0) + vbCrLf + Me.adressarray(1) + vbCrLf + Me.adressarray(2) + vbCrLf + Me.adressarray(3) + vbCrLf + Me.adressarray(4) + vbCrLf + Me.adressarray(5) + vbCrLf + Me.adressarray(6)
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub txtname_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtname.TextChanged, txtort.TextChanged
|
|
Me.Bereits_beantwortet = False
|
|
End Sub
|
|
End Class
|