edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

MDM

Browse Source
This commit is contained in:
d.breimaier
2024-09-20 12:23:41 +02:00
parent a496cb6722
commit 06a4256140
11 changed files with 881 additions and 239 deletions
Download Patch File Download Diff File Expand all files Collapse all files

242
SDL/kunden/frmKundenKontakteDetails.Designer.vb generated
View File

@@ -27,17 +27,24 @@ Partial Class frmKundenKontakteDetails
Me.lbl = New System.Windows.Forms.Label()
Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlKontakt = New System.Windows.Forms.Panel()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.picBoxKorr = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblEmailBCC = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtKorrAdd = New System.Windows.Forms.TextBox()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.lblEmailCC = New System.Windows.Forms.TextBox()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lblMobil = New System.Windows.Forms.TextBox()
Me.lblFax = New System.Windows.Forms.TextBox()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.lblEmail = New System.Windows.Forms.TextBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -51,19 +58,18 @@ Partial Class frmKundenKontakteDetails
Me.Label5 = New System.Windows.Forms.Label()
Me.txtPassgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.txtStrasse = New System.Windows.Forms.TextBox()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.txtGeburtsort = New System.Windows.Forms.TextBox()
Me.cbxGeburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.pnlKontakt.SuspendLayout()
CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -71,9 +77,7 @@ Partial Class frmKundenKontakteDetails
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlGeschaeftsfuehrer.SuspendLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMain.SuspendLayout()
Me.SuspendLayout()
'
@@ -81,7 +85,7 @@ Partial Class frmKundenKontakteDetails
'
Me.btn.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(374, 365)
Me.btn.Location = New System.Drawing.Point(374, 391)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(136, 39)
Me.btn.TabIndex = 9
@@ -144,6 +148,17 @@ Partial Class frmKundenKontakteDetails
Me.pnlKontakt.Size = New System.Drawing.Size(505, 271)
Me.pnlKontakt.TabIndex = 10
'
'txtOrt
'
Me.txtOrt.BackColor = System.Drawing.Color.White
Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOrt.Location = New System.Drawing.Point(261, 240)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(234, 26)
Me.txtOrt.TabIndex = 255
Me.txtOrt.Text = "ort"
'
'picBoxKorr
'
Me.picBoxKorr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -185,6 +200,15 @@ Partial Class frmKundenKontakteDetails
Me.lblEmailBCC.TabIndex = 232
Me.lblEmailBCC.Text = "email"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(35, 247)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(78, 13)
Me.Label3.TabIndex = 262
Me.Label3.Text = "Land/PLZ/Ort:"
'
'txtKorrAdd
'
Me.txtKorrAdd.BackColor = System.Drawing.Color.White
@@ -196,6 +220,17 @@ Partial Class frmKundenKontakteDetails
Me.txtKorrAdd.TabIndex = 264
Me.txtKorrAdd.Text = "adresse"
'
'PictureBox10
'
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox10.Image = CType(resources.GetObject("PictureBox10.Image"), System.Drawing.Image)
Me.PictureBox10.Location = New System.Drawing.Point(0, 242)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(25, 18)
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox10.TabIndex = 261
Me.PictureBox10.TabStop = False
'
'PictureBox7
'
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -207,6 +242,17 @@ Partial Class frmKundenKontakteDetails
Me.PictureBox7.TabIndex = 233
Me.PictureBox7.TabStop = False
'
'PictureBox8
'
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image)
Me.PictureBox8.Location = New System.Drawing.Point(1, 217)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(25, 18)
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox8.TabIndex = 259
Me.PictureBox8.TabStop = False
'
'lblEmailCC
'
Me.lblEmailCC.BackColor = System.Drawing.Color.White
@@ -219,6 +265,17 @@ Partial Class frmKundenKontakteDetails
Me.lblEmailCC.TabIndex = 230
Me.lblEmailCC.Text = "email"
'
'txtPLZ
'
Me.txtPLZ.BackColor = System.Drawing.Color.White
Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPLZ.Location = New System.Drawing.Point(162, 240)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(99, 26)
Me.txtPLZ.TabIndex = 257
Me.txtPLZ.Text = "plz"
'
'PictureBox6
'
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -230,6 +287,19 @@ Partial Class frmKundenKontakteDetails
Me.PictureBox6.TabIndex = 231
Me.PictureBox6.TabStop = False
'
'cbxLand
'
Me.cbxLand._allowedValuesFreiText = Nothing
Me.cbxLand._allowFreiText = False
Me.cbxLand._value = ""
Me.cbxLand.DropDownWidth = 150
Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cbxLand.FormattingEnabled = True
Me.cbxLand.Location = New System.Drawing.Point(115, 240)
Me.cbxLand.Name = "cbxLand"
Me.cbxLand.Size = New System.Drawing.Size(50, 26)
Me.cbxLand.TabIndex = 256
'
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -263,6 +333,17 @@ Partial Class frmKundenKontakteDetails
Me.lblFax.TabIndex = 219
Me.lblFax.Text = "fax"
'
'txtStrasse
'
Me.txtStrasse.BackColor = System.Drawing.Color.White
Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtStrasse.Location = New System.Drawing.Point(44, 214)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(451, 26)
Me.txtStrasse.TabIndex = 254
Me.txtStrasse.Text = "adresse"
'
'lblEmail
'
Me.lblEmail.BackColor = System.Drawing.Color.White
@@ -367,14 +448,18 @@ Partial Class frmKundenKontakteDetails
'pnlGeschaeftsfuehrer
'
Me.pnlGeschaeftsfuehrer.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label7)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label6)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.cbxGeburtsland)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label5)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtGeburtsort)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtPassgueltigbis)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label4)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.PictureBox9)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtGebDatum)
Me.pnlGeschaeftsfuehrer.Location = New System.Drawing.Point(9, 322)
Me.pnlGeschaeftsfuehrer.Name = "pnlGeschaeftsfuehrer"
Me.pnlGeschaeftsfuehrer.Size = New System.Drawing.Size(500, 37)
Me.pnlGeschaeftsfuehrer.Size = New System.Drawing.Size(500, 65)
Me.pnlGeschaeftsfuehrer.TabIndex = 11
Me.pnlGeschaeftsfuehrer.Visible = False
'
@@ -417,54 +502,23 @@ Partial Class frmKundenKontakteDetails
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(34, 8)
Me.Label4.Location = New System.Drawing.Point(34, 11)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(53, 13)
Me.Label4.TabIndex = 263
Me.Label4.Text = "Geb-Dat.:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(35, 247)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(78, 13)
Me.Label3.TabIndex = 262
Me.Label3.Text = "Land/PLZ/Ort:"
'
'PictureBox10
'
Me.PictureBox10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox10.Image = CType(resources.GetObject("PictureBox10.Image"), System.Drawing.Image)
Me.PictureBox10.Location = New System.Drawing.Point(0, 242)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(25, 18)
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox10.TabIndex = 261
Me.PictureBox10.TabStop = False
'
'PictureBox9
'
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image)
Me.PictureBox9.Location = New System.Drawing.Point(3, 3)
Me.PictureBox9.Location = New System.Drawing.Point(3, 8)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(25, 18)
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox9.TabIndex = 260
Me.PictureBox9.TabStop = False
'
'PictureBox8
'
Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox8.Image = CType(resources.GetObject("PictureBox8.Image"), System.Drawing.Image)
Me.PictureBox8.Location = New System.Drawing.Point(1, 217)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(25, 18)
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox8.TabIndex = 259
Me.PictureBox8.TabStop = False
'
'txtGebDatum
'
Me.txtGebDatum._DateTimeOnly = False
@@ -492,52 +546,6 @@ Partial Class frmKundenKontakteDetails
Me.txtGebDatum.TabIndex = 258
Me.txtGebDatum.Text = "geburtsdatum"
'
'txtPLZ
'
Me.txtPLZ.BackColor = System.Drawing.Color.White
Me.txtPLZ.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtPLZ.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPLZ.Location = New System.Drawing.Point(162, 240)
Me.txtPLZ.Name = "txtPLZ"
Me.txtPLZ.Size = New System.Drawing.Size(99, 26)
Me.txtPLZ.TabIndex = 257
Me.txtPLZ.Text = "plz"
'
'cbxLand
'
Me.cbxLand._allowedValuesFreiText = Nothing
Me.cbxLand._allowFreiText = False
Me.cbxLand._value = ""
Me.cbxLand.DropDownWidth = 150
Me.cbxLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cbxLand.FormattingEnabled = True
Me.cbxLand.Location = New System.Drawing.Point(115, 240)
Me.cbxLand.Name = "cbxLand"
Me.cbxLand.Size = New System.Drawing.Size(50, 26)
Me.cbxLand.TabIndex = 256
'
'txtOrt
'
Me.txtOrt.BackColor = System.Drawing.Color.White
Me.txtOrt.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtOrt.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtOrt.Location = New System.Drawing.Point(261, 240)
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(234, 26)
Me.txtOrt.TabIndex = 255
Me.txtOrt.Text = "ort"
'
'txtStrasse
'
Me.txtStrasse.BackColor = System.Drawing.Color.White
Me.txtStrasse.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtStrasse.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtStrasse.Location = New System.Drawing.Point(44, 214)
Me.txtStrasse.Name = "txtStrasse"
Me.txtStrasse.Size = New System.Drawing.Size(451, 26)
Me.txtStrasse.TabIndex = 254
Me.txtStrasse.Text = "adresse"
'
'pnlMain
'
Me.pnlMain.Controls.Add(Me.lbl)
@@ -547,9 +555,51 @@ Partial Class frmKundenKontakteDetails
Me.pnlMain.Controls.Add(Me.pnlKontakt)
Me.pnlMain.Location = New System.Drawing.Point(7, 12)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(513, 407)
Me.pnlMain.Size = New System.Drawing.Size(513, 433)
Me.pnlMain.TabIndex = 12
'
'txtGeburtsort
'
Me.txtGeburtsort.BackColor = System.Drawing.Color.White
Me.txtGeburtsort.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.txtGeburtsort.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGeburtsort.Location = New System.Drawing.Point(77, 35)
Me.txtGeburtsort.Name = "txtGeburtsort"
Me.txtGeburtsort.Size = New System.Drawing.Size(183, 26)
Me.txtGeburtsort.TabIndex = 268
Me.txtGeburtsort.Text = "geburtsort"
'
'cbxGeburtsland
'
Me.cbxGeburtsland._allowedValuesFreiText = Nothing
Me.cbxGeburtsland._allowFreiText = False
Me.cbxGeburtsland._value = ""
Me.cbxGeburtsland.DropDownWidth = 150
Me.cbxGeburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!)
Me.cbxGeburtsland.FormattingEnabled = True
Me.cbxGeburtsland.Location = New System.Drawing.Point(354, 35)
Me.cbxGeburtsland.Name = "cbxGeburtsland"
Me.cbxGeburtsland.Size = New System.Drawing.Size(140, 26)
Me.cbxGeburtsland.TabIndex = 268
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(268, 42)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(67, 13)
Me.Label6.TabIndex = 269
Me.Label6.Text = "Geburtsland:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(4, 42)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(59, 13)
Me.Label7.TabIndex = 270
Me.Label7.Text = "Geburtsort:"
'
'frmKundenKontakteDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -557,7 +607,7 @@ Partial Class frmKundenKontakteDetails
Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(524, 427)
Me.ClientSize = New System.Drawing.Size(524, 455)
Me.Controls.Add(Me.pnlMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKundenKontakteDetails"
@@ -566,7 +616,9 @@ Partial Class frmKundenKontakteDetails
Me.pnlKontakt.ResumeLayout(False)
Me.pnlKontakt.PerformLayout()
CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
@@ -575,9 +627,7 @@ Partial Class frmKundenKontakteDetails
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlGeschaeftsfuehrer.ResumeLayout(False)
Me.pnlGeschaeftsfuehrer.PerformLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
Me.ResumeLayout(False)
@@ -622,4 +672,8 @@ Partial Class frmKundenKontakteDetails
Friend WithEvents lblAnsprechpartnerNN As TextBox
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents pnlMain As Panel
Friend WithEvents txtGeburtsort As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents Label6 As Label
Friend WithEvents cbxGeburtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

9
SDL/kunden/frmKundenKontakteDetails.vb
View File

@@ -35,6 +35,9 @@
cbxLand.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxLand.changeItem("")
cbxGeburtsland.Items.AddRange(cbxLand.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxGeburtsland.changeItem("")
If cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0
If kkd_id > 0 Then
@@ -64,9 +67,13 @@
txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "")
If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
txtGebDatum.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_GebDatum) AndAlso IsDate(KD_KONTAKT.kkd_GebDatum), CDate(KD_KONTAKT.kkd_GebDatum), "")
txtPassgueltigbis.Text = IIf(Not IsDBNull(KD_KONTAKT.kkd_Passgueltigbis) AndAlso IsDate(KD_KONTAKT.kkd_Passgueltigbis), CDate(KD_KONTAKT.kkd_Passgueltigbis), "")
txtGeburtsort.Text = If(KD_KONTAKT.kkd_Firmenname, "")
If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
If Not IsDBNull(KD_KONTAKT.kkd_Land) Then cbxLand.changeItem(KD_KONTAKT.kkd_Land)
End Sub