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

118
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb generated
View File

@@ -72,6 +72,12 @@ Partial Class usrcntlVollmacht_MDM_BHI
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGruendungsdat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.cbx_GF_Geburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.txt_GF_Geburtsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.txt_GF_Passgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -96,7 +102,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 284)
Me.Label7.Location = New System.Drawing.Point(585, 303)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26
@@ -210,7 +216,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(812, 284)
Me.Label13.Location = New System.Drawing.Point(810, 303)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64
@@ -219,7 +225,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(868, 284)
Me.datDatum.Location = New System.Drawing.Point(866, 303)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
@@ -654,7 +660,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black
Me.txtOrt.Location = New System.Drawing.Point(653, 281)
Me.txtOrt.Location = New System.Drawing.Point(651, 300)
Me.txtOrt.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -833,12 +839,110 @@ Partial Class usrcntlVollmacht_MDM_BHI
Me.Label17.TabIndex = 90
Me.Label17.Text = "Gründungsdat..:"
'
'cbx_GF_Geburtsland
'
Me.cbx_GF_Geburtsland._allowedValuesFreiText = Nothing
Me.cbx_GF_Geburtsland._allowFreiText = False
Me.cbx_GF_Geburtsland._value = ""
Me.cbx_GF_Geburtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbx_GF_Geburtsland.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbx_GF_Geburtsland.DropDownWidth = 200
Me.cbx_GF_Geburtsland.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbx_GF_Geburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_GF_Geburtsland.FormattingEnabled = True
Me.cbx_GF_Geburtsland.Location = New System.Drawing.Point(489, 258)
Me.cbx_GF_Geburtsland.Name = "cbx_GF_Geburtsland"
Me.cbx_GF_Geburtsland.Size = New System.Drawing.Size(73, 21)
Me.cbx_GF_Geburtsland.TabIndex = 118
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(416, 265)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(67, 13)
Me.Label21.TabIndex = 117
Me.Label21.Text = "Geburtsland:"
'
'txt_GF_Geburtsort
'
Me.txt_GF_Geburtsort._DateTimeOnly = False
Me.txt_GF_Geburtsort._numbersOnly = False
Me.txt_GF_Geburtsort._numbersOnlyKommastellen = ""
Me.txt_GF_Geburtsort._numbersOnlyTrennzeichen = False
Me.txt_GF_Geburtsort._Prozent = False
Me.txt_GF_Geburtsort._ShortDateNew = False
Me.txt_GF_Geburtsort._ShortDateOnly = False
Me.txt_GF_Geburtsort._TimeOnly = False
Me.txt_GF_Geburtsort._TimeOnly_Seconds = False
Me.txt_GF_Geburtsort._value = ""
Me.txt_GF_Geburtsort._Waehrung = False
Me.txt_GF_Geburtsort._WaehrungZeichen = False
Me.txt_GF_Geburtsort.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Geburtsort.Location = New System.Drawing.Point(251, 259)
Me.txt_GF_Geburtsort.MaxLength = 10
Me.txt_GF_Geburtsort.MaxLineLength = -1
Me.txt_GF_Geburtsort.MaxLines_Warning = ""
Me.txt_GF_Geburtsort.MaxLines_Warning_Label = Nothing
Me.txt_GF_Geburtsort.Name = "txt_GF_Geburtsort"
Me.txt_GF_Geburtsort.Size = New System.Drawing.Size(159, 20)
Me.txt_GF_Geburtsort.TabIndex = 116
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(158, 265)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(59, 13)
Me.Label20.TabIndex = 115
Me.Label20.Text = "Geburtsort:"
'
'txt_GF_Passgueltigbis
'
Me.txt_GF_Passgueltigbis._DateTimeOnly = False
Me.txt_GF_Passgueltigbis._numbersOnly = False
Me.txt_GF_Passgueltigbis._numbersOnlyKommastellen = ""
Me.txt_GF_Passgueltigbis._numbersOnlyTrennzeichen = True
Me.txt_GF_Passgueltigbis._Prozent = False
Me.txt_GF_Passgueltigbis._ShortDateNew = True
Me.txt_GF_Passgueltigbis._ShortDateOnly = True
Me.txt_GF_Passgueltigbis._TimeOnly = False
Me.txt_GF_Passgueltigbis._TimeOnly_Seconds = False
Me.txt_GF_Passgueltigbis._value = ""
Me.txt_GF_Passgueltigbis._Waehrung = False
Me.txt_GF_Passgueltigbis._WaehrungZeichen = False
Me.txt_GF_Passgueltigbis.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Passgueltigbis.Location = New System.Drawing.Point(852, 258)
Me.txt_GF_Passgueltigbis.MaxLength = 10
Me.txt_GF_Passgueltigbis.MaxLineLength = -1
Me.txt_GF_Passgueltigbis.MaxLines_Warning = ""
Me.txt_GF_Passgueltigbis.MaxLines_Warning_Label = Nothing
Me.txt_GF_Passgueltigbis.Name = "txt_GF_Passgueltigbis"
Me.txt_GF_Passgueltigbis.Size = New System.Drawing.Size(108, 20)
Me.txt_GF_Passgueltigbis.TabIndex = 114
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(751, 262)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(86, 13)
Me.Label19.TabIndex = 113
Me.Label19.Text = "Pass gueltig bis.:"
'
'usrcntlVollmacht_MDM_BHI
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbx_GF_Geburtsland)
Me.Controls.Add(Me.Label21)
Me.Controls.Add(Me.txt_GF_Geburtsort)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.txt_GF_Passgueltigbis)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.txtGruendungsdat)
Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.cbxKapitalWahrung)
@@ -946,4 +1050,10 @@ Partial Class usrcntlVollmacht_MDM_BHI
Friend WithEvents Label10 As Label
Friend WithEvents txtGruendungsdat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label17 As Label
Friend WithEvents cbx_GF_Geburtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label21 As Label
Friend WithEvents txt_GF_Geburtsort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents txt_GF_Passgueltigbis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
End Class

8
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.vb
View File

@@ -60,10 +60,16 @@ Public Class usrcntlVollmacht_MDM_BHI
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
End If
If (GF.kkd_Passgueltigbis IsNot Nothing AndAlso IsDate(GF.kkd_Passgueltigbis)) Then
txt_GF_Passgueltigbis.Text = CDate(GF.kkd_Passgueltigbis).ToShortDateString
End If
txt_GF_Adresse.Text = If(GF.kkd_Adresse, "")
txt_GF_Ort.Text = If(GF.kkd_Ort, "")
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
cbx_GF_Land.changeItem(GF.kkd_Land)
txt_GF_Geburtsort.Text = If(GF.kkd_Geburtsort, "")
cbx_GF_Geburtsland.changeItem(GF.kkd_Geburtsland)
Else
txt_GF_Name.Text = ""
txt_GF_Geb.Text = ""
@@ -71,6 +77,8 @@ Public Class usrcntlVollmacht_MDM_BHI
txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("")
txt_GF_Geburtsort.Text = ""
cbx_GF_Geburtsland.changeItem("")
End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")

138
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb generated
View File

@@ -76,6 +76,13 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.Label5 = New System.Windows.Forms.Label()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.txt_GF_Passgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.txt_GF_Geburtsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.cbx_GF_Geburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.CheckedListBox1 = New System.Windows.Forms.CheckedListBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -100,7 +107,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 306)
Me.Label7.Location = New System.Drawing.Point(590, 337)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26
@@ -153,7 +160,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDown.Location = New System.Drawing.Point(976, 42)
Me.btnDown.Location = New System.Drawing.Point(1119, 42)
Me.btnDown.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
@@ -165,7 +172,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUp.Location = New System.Drawing.Point(976, 22)
Me.btnUp.Location = New System.Drawing.Point(1119, 22)
Me.btnUp.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
@@ -177,7 +184,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Location = New System.Drawing.Point(976, -1)
Me.btnDel.Location = New System.Drawing.Point(1119, -1)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
@@ -214,7 +221,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(809, 306)
Me.Label13.Location = New System.Drawing.Point(812, 337)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64
@@ -223,7 +230,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(865, 306)
Me.datDatum.Location = New System.Drawing.Point(868, 337)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
@@ -647,7 +654,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black
Me.txtOrt.Location = New System.Drawing.Point(650, 303)
Me.txtOrt.Location = New System.Drawing.Point(653, 334)
Me.txtOrt.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -901,12 +908,120 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.Label18.TabIndex = 96
Me.Label18.Text = "UID-Nr:"
'
'txt_GF_Passgueltigbis
'
Me.txt_GF_Passgueltigbis._DateTimeOnly = False
Me.txt_GF_Passgueltigbis._numbersOnly = False
Me.txt_GF_Passgueltigbis._numbersOnlyKommastellen = ""
Me.txt_GF_Passgueltigbis._numbersOnlyTrennzeichen = True
Me.txt_GF_Passgueltigbis._Prozent = False
Me.txt_GF_Passgueltigbis._ShortDateNew = True
Me.txt_GF_Passgueltigbis._ShortDateOnly = True
Me.txt_GF_Passgueltigbis._TimeOnly = False
Me.txt_GF_Passgueltigbis._TimeOnly_Seconds = False
Me.txt_GF_Passgueltigbis._value = ""
Me.txt_GF_Passgueltigbis._Waehrung = False
Me.txt_GF_Passgueltigbis._WaehrungZeichen = False
Me.txt_GF_Passgueltigbis.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Passgueltigbis.Location = New System.Drawing.Point(855, 290)
Me.txt_GF_Passgueltigbis.MaxLength = 10
Me.txt_GF_Passgueltigbis.MaxLineLength = -1
Me.txt_GF_Passgueltigbis.MaxLines_Warning = ""
Me.txt_GF_Passgueltigbis.MaxLines_Warning_Label = Nothing
Me.txt_GF_Passgueltigbis.Name = "txt_GF_Passgueltigbis"
Me.txt_GF_Passgueltigbis.Size = New System.Drawing.Size(108, 20)
Me.txt_GF_Passgueltigbis.TabIndex = 108
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(754, 294)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(86, 13)
Me.Label19.TabIndex = 107
Me.Label19.Text = "Pass gueltig bis.:"
'
'txt_GF_Geburtsort
'
Me.txt_GF_Geburtsort._DateTimeOnly = False
Me.txt_GF_Geburtsort._numbersOnly = False
Me.txt_GF_Geburtsort._numbersOnlyKommastellen = ""
Me.txt_GF_Geburtsort._numbersOnlyTrennzeichen = False
Me.txt_GF_Geburtsort._Prozent = False
Me.txt_GF_Geburtsort._ShortDateNew = False
Me.txt_GF_Geburtsort._ShortDateOnly = False
Me.txt_GF_Geburtsort._TimeOnly = False
Me.txt_GF_Geburtsort._TimeOnly_Seconds = False
Me.txt_GF_Geburtsort._value = ""
Me.txt_GF_Geburtsort._Waehrung = False
Me.txt_GF_Geburtsort._WaehrungZeichen = False
Me.txt_GF_Geburtsort.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Geburtsort.Location = New System.Drawing.Point(254, 291)
Me.txt_GF_Geburtsort.MaxLength = 10
Me.txt_GF_Geburtsort.MaxLineLength = -1
Me.txt_GF_Geburtsort.MaxLines_Warning = ""
Me.txt_GF_Geburtsort.MaxLines_Warning_Label = Nothing
Me.txt_GF_Geburtsort.Name = "txt_GF_Geburtsort"
Me.txt_GF_Geburtsort.Size = New System.Drawing.Size(159, 20)
Me.txt_GF_Geburtsort.TabIndex = 110
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(161, 297)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(59, 13)
Me.Label20.TabIndex = 109
Me.Label20.Text = "Geburtsort:"
'
'cbx_GF_Geburtsland
'
Me.cbx_GF_Geburtsland._allowedValuesFreiText = Nothing
Me.cbx_GF_Geburtsland._allowFreiText = False
Me.cbx_GF_Geburtsland._value = ""
Me.cbx_GF_Geburtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbx_GF_Geburtsland.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbx_GF_Geburtsland.DropDownWidth = 200
Me.cbx_GF_Geburtsland.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbx_GF_Geburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_GF_Geburtsland.FormattingEnabled = True
Me.cbx_GF_Geburtsland.Location = New System.Drawing.Point(492, 290)
Me.cbx_GF_Geburtsland.Name = "cbx_GF_Geburtsland"
Me.cbx_GF_Geburtsland.Size = New System.Drawing.Size(73, 21)
Me.cbx_GF_Geburtsland.TabIndex = 112
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(419, 297)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(67, 13)
Me.Label21.TabIndex = 111
Me.Label21.Text = "Geburtsland:"
'
'CheckedListBox1
'
Me.CheckedListBox1.FormattingEnabled = True
Me.CheckedListBox1.Location = New System.Drawing.Point(981, 3)
Me.CheckedListBox1.Name = "CheckedListBox1"
Me.CheckedListBox1.Size = New System.Drawing.Size(126, 124)
Me.CheckedListBox1.TabIndex = 113
Me.CheckedListBox1.Visible = False
'
'usrcntlVollmacht_MDM_EU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.CheckedListBox1)
Me.Controls.Add(Me.cbx_GF_Geburtsland)
Me.Controls.Add(Me.Label21)
Me.Controls.Add(Me.txt_GF_Geburtsort)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.txt_GF_Passgueltigbis)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.txtGruendungsdat)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbxKapitalWahrung)
@@ -962,7 +1077,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM_EU"
Me.Size = New System.Drawing.Size(1000, 340)
Me.Size = New System.Drawing.Size(1143, 368)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -1022,4 +1137,11 @@ Partial Class usrcntlVollmacht_MDM_EU
Friend WithEvents Label5 As Label
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label18 As Label
Friend WithEvents txt_GF_Passgueltigbis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
Friend WithEvents txt_GF_Geburtsort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents cbx_GF_Geburtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label21 As Label
Friend WithEvents CheckedListBox1 As CheckedListBox
End Class

15
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb
View File

@@ -60,10 +60,16 @@ Public Class usrcntlVollmacht_MDM_EU
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
End If
If (GF.kkd_Passgueltigbis IsNot Nothing AndAlso IsDate(GF.kkd_Passgueltigbis)) Then
txt_GF_Passgueltigbis.Text = CDate(GF.kkd_Passgueltigbis).ToShortDateString
End If
txt_GF_Adresse.Text = If(GF.kkd_Adresse, "")
txt_GF_Ort.Text = If(GF.kkd_Ort, "")
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
cbx_GF_Land.changeItem(GF.kkd_Land)
txt_GF_Geburtsort.Text = If(GF.kkd_Geburtsort, "")
cbx_GF_Geburtsland.changeItem(GF.kkd_Geburtsland)
Else
txt_GF_Name.Text = ""
txt_GF_Geb.Text = ""
@@ -71,6 +77,8 @@ Public Class usrcntlVollmacht_MDM_EU
txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("")
txt_GF_Geburtsort.Text = ""
cbx_GF_Geburtsland.changeItem("")
End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
@@ -91,6 +99,7 @@ Public Class usrcntlVollmacht_MDM_EU
txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
@@ -107,7 +116,9 @@ Public Class usrcntlVollmacht_MDM_EU
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboLand.Items.Clear()
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Austria", "AT"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Czech Rep", "CZ"))
@@ -124,8 +135,9 @@ Public Class usrcntlVollmacht_MDM_EU
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sweden", "SE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
cboLand.changeItem("")
cboLand.changeItem("AT")
CheckedListBox1.Items.AddRange(cboLand.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
@@ -133,7 +145,6 @@ Public Class usrcntlVollmacht_MDM_EU
cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben"

206
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb generated
View File

@@ -53,7 +53,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_nachname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -74,6 +74,14 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Label5 = New System.Windows.Forms.Label()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label()
Me.cbx_GF_Geburtsland = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label21 = New System.Windows.Forms.Label()
Me.txt_GF_Geburtsort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label20 = New System.Windows.Forms.Label()
Me.txt_GF_Passgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox()
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -276,7 +284,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(865, 292)
Me.datDatum.Location = New System.Drawing.Point(868, 309)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 108
@@ -284,7 +292,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(809, 292)
Me.Label13.Location = New System.Drawing.Point(812, 309)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 107
@@ -293,7 +301,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 292)
Me.Label7.Location = New System.Drawing.Point(590, 309)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 105
@@ -478,28 +486,28 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Geb.TabIndex = 112
'
'txt_GF_Name
'txt_GF_nachname
'
Me.txt_GF_Name._DateTimeOnly = False
Me.txt_GF_Name._numbersOnly = False
Me.txt_GF_Name._numbersOnlyKommastellen = ""
Me.txt_GF_Name._numbersOnlyTrennzeichen = True
Me.txt_GF_Name._Prozent = False
Me.txt_GF_Name._ShortDateNew = False
Me.txt_GF_Name._ShortDateOnly = False
Me.txt_GF_Name._TimeOnly = False
Me.txt_GF_Name._TimeOnly_Seconds = False
Me.txt_GF_Name._value = Nothing
Me.txt_GF_Name._Waehrung = False
Me.txt_GF_Name._WaehrungZeichen = True
Me.txt_GF_Name.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Name.Location = New System.Drawing.Point(254, 222)
Me.txt_GF_Name.MaxLineLength = -1
Me.txt_GF_Name.MaxLines_Warning = ""
Me.txt_GF_Name.MaxLines_Warning_Label = Nothing
Me.txt_GF_Name.Name = "txt_GF_Name"
Me.txt_GF_Name.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Name.TabIndex = 110
Me.txt_GF_nachname._DateTimeOnly = False
Me.txt_GF_nachname._numbersOnly = False
Me.txt_GF_nachname._numbersOnlyKommastellen = ""
Me.txt_GF_nachname._numbersOnlyTrennzeichen = True
Me.txt_GF_nachname._Prozent = False
Me.txt_GF_nachname._ShortDateNew = False
Me.txt_GF_nachname._ShortDateOnly = False
Me.txt_GF_nachname._TimeOnly = False
Me.txt_GF_nachname._TimeOnly_Seconds = False
Me.txt_GF_nachname._value = Nothing
Me.txt_GF_nachname._Waehrung = False
Me.txt_GF_nachname._WaehrungZeichen = True
Me.txt_GF_nachname.ForeColor = System.Drawing.Color.Black
Me.txt_GF_nachname.Location = New System.Drawing.Point(254, 222)
Me.txt_GF_nachname.MaxLineLength = -1
Me.txt_GF_nachname.MaxLines_Warning = ""
Me.txt_GF_nachname.MaxLines_Warning_Label = Nothing
Me.txt_GF_nachname.Name = "txt_GF_nachname"
Me.txt_GF_nachname.Size = New System.Drawing.Size(142, 20)
Me.txt_GF_nachname.TabIndex = 110
'
'txtOrt
'
@@ -517,7 +525,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black
Me.txtOrt.Location = New System.Drawing.Point(650, 289)
Me.txtOrt.Location = New System.Drawing.Point(653, 306)
Me.txtOrt.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -867,12 +875,145 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Label18.TabIndex = 126
Me.Label18.Text = "UID-Nr:"
'
'cbx_GF_Geburtsland
'
Me.cbx_GF_Geburtsland._allowedValuesFreiText = Nothing
Me.cbx_GF_Geburtsland._allowFreiText = False
Me.cbx_GF_Geburtsland._value = ""
Me.cbx_GF_Geburtsland.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbx_GF_Geburtsland.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbx_GF_Geburtsland.DropDownWidth = 200
Me.cbx_GF_Geburtsland.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbx_GF_Geburtsland.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_GF_Geburtsland.FormattingEnabled = True
Me.cbx_GF_Geburtsland.Location = New System.Drawing.Point(491, 277)
Me.cbx_GF_Geburtsland.Name = "cbx_GF_Geburtsland"
Me.cbx_GF_Geburtsland.Size = New System.Drawing.Size(73, 21)
Me.cbx_GF_Geburtsland.TabIndex = 142
'
'Label21
'
Me.Label21.AutoSize = True
Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label21.Location = New System.Drawing.Point(418, 284)
Me.Label21.Name = "Label21"
Me.Label21.Size = New System.Drawing.Size(67, 13)
Me.Label21.TabIndex = 141
Me.Label21.Text = "Geburtsland:"
'
'txt_GF_Geburtsort
'
Me.txt_GF_Geburtsort._DateTimeOnly = False
Me.txt_GF_Geburtsort._numbersOnly = False
Me.txt_GF_Geburtsort._numbersOnlyKommastellen = ""
Me.txt_GF_Geburtsort._numbersOnlyTrennzeichen = False
Me.txt_GF_Geburtsort._Prozent = False
Me.txt_GF_Geburtsort._ShortDateNew = False
Me.txt_GF_Geburtsort._ShortDateOnly = False
Me.txt_GF_Geburtsort._TimeOnly = False
Me.txt_GF_Geburtsort._TimeOnly_Seconds = False
Me.txt_GF_Geburtsort._value = ""
Me.txt_GF_Geburtsort._Waehrung = False
Me.txt_GF_Geburtsort._WaehrungZeichen = False
Me.txt_GF_Geburtsort.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Geburtsort.Location = New System.Drawing.Point(253, 278)
Me.txt_GF_Geburtsort.MaxLength = 10
Me.txt_GF_Geburtsort.MaxLineLength = -1
Me.txt_GF_Geburtsort.MaxLines_Warning = ""
Me.txt_GF_Geburtsort.MaxLines_Warning_Label = Nothing
Me.txt_GF_Geburtsort.Name = "txt_GF_Geburtsort"
Me.txt_GF_Geburtsort.Size = New System.Drawing.Size(159, 20)
Me.txt_GF_Geburtsort.TabIndex = 140
'
'Label20
'
Me.Label20.AutoSize = True
Me.Label20.Location = New System.Drawing.Point(160, 284)
Me.Label20.Name = "Label20"
Me.Label20.Size = New System.Drawing.Size(59, 13)
Me.Label20.TabIndex = 139
Me.Label20.Text = "Geburtsort:"
'
'txt_GF_Passgueltigbis
'
Me.txt_GF_Passgueltigbis._DateTimeOnly = False
Me.txt_GF_Passgueltigbis._numbersOnly = False
Me.txt_GF_Passgueltigbis._numbersOnlyKommastellen = ""
Me.txt_GF_Passgueltigbis._numbersOnlyTrennzeichen = True
Me.txt_GF_Passgueltigbis._Prozent = False
Me.txt_GF_Passgueltigbis._ShortDateNew = True
Me.txt_GF_Passgueltigbis._ShortDateOnly = True
Me.txt_GF_Passgueltigbis._TimeOnly = False
Me.txt_GF_Passgueltigbis._TimeOnly_Seconds = False
Me.txt_GF_Passgueltigbis._value = ""
Me.txt_GF_Passgueltigbis._Waehrung = False
Me.txt_GF_Passgueltigbis._WaehrungZeichen = False
Me.txt_GF_Passgueltigbis.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Passgueltigbis.Location = New System.Drawing.Point(854, 277)
Me.txt_GF_Passgueltigbis.MaxLength = 10
Me.txt_GF_Passgueltigbis.MaxLineLength = -1
Me.txt_GF_Passgueltigbis.MaxLines_Warning = ""
Me.txt_GF_Passgueltigbis.MaxLines_Warning_Label = Nothing
Me.txt_GF_Passgueltigbis.Name = "txt_GF_Passgueltigbis"
Me.txt_GF_Passgueltigbis.Size = New System.Drawing.Size(108, 20)
Me.txt_GF_Passgueltigbis.TabIndex = 138
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(753, 281)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(86, 13)
Me.Label19.TabIndex = 137
Me.Label19.Text = "Pass gueltig bis.:"
'
'cbxPrivatfirma
'
Me.cbxPrivatfirma.AutoSize = True
Me.cbxPrivatfirma.Location = New System.Drawing.Point(653, 193)
Me.cbxPrivatfirma.Name = "cbxPrivatfirma"
Me.cbxPrivatfirma.Size = New System.Drawing.Size(75, 17)
Me.cbxPrivatfirma.TabIndex = 143
Me.cbxPrivatfirma.Text = "Privatfirma"
Me.cbxPrivatfirma.UseVisualStyleBackColor = True
Me.cbxPrivatfirma.Visible = False
'
'txt_GF_vorname
'
Me.txt_GF_vorname._DateTimeOnly = False
Me.txt_GF_vorname._numbersOnly = False
Me.txt_GF_vorname._numbersOnlyKommastellen = ""
Me.txt_GF_vorname._numbersOnlyTrennzeichen = True
Me.txt_GF_vorname._Prozent = False
Me.txt_GF_vorname._ShortDateNew = False
Me.txt_GF_vorname._ShortDateOnly = False
Me.txt_GF_vorname._TimeOnly = False
Me.txt_GF_vorname._TimeOnly_Seconds = False
Me.txt_GF_vorname._value = Nothing
Me.txt_GF_vorname._Waehrung = False
Me.txt_GF_vorname._WaehrungZeichen = True
Me.txt_GF_vorname.ForeColor = System.Drawing.Color.Black
Me.txt_GF_vorname.Location = New System.Drawing.Point(402, 222)
Me.txt_GF_vorname.MaxLineLength = -1
Me.txt_GF_vorname.MaxLines_Warning = ""
Me.txt_GF_vorname.MaxLines_Warning_Label = Nothing
Me.txt_GF_vorname.Name = "txt_GF_vorname"
Me.txt_GF_vorname.Size = New System.Drawing.Size(163, 20)
Me.txt_GF_vorname.TabIndex = 144
'
'usrcntlVollmacht_MDM_NICHT_EU
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.cbxPrivatfirma)
Me.Controls.Add(Me.cbx_GF_Geburtsland)
Me.Controls.Add(Me.Label21)
Me.Controls.Add(Me.txt_GF_Geburtsort)
Me.Controls.Add(Me.Label20)
Me.Controls.Add(Me.txt_GF_Passgueltigbis)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.txtGruendungsdat)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbxKapitalWahrung)
@@ -899,7 +1040,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txt_GF_Geb)
Me.Controls.Add(Me.lblGFGebDat)
Me.Controls.Add(Me.txt_GF_Name)
Me.Controls.Add(Me.txt_GF_nachname)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.datDatum)
Me.Controls.Add(Me.Label13)
@@ -925,6 +1066,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.txt_GF_vorname)
Me.Name = "usrcntlVollmacht_MDM_NICHT_EU"
Me.Size = New System.Drawing.Size(1000, 339)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -967,7 +1109,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Friend WithEvents Label10 As Label
Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGFGebDat As Label
Friend WithEvents txt_GF_Name As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txt_GF_nachname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label12 As Label
Friend WithEvents datDatum As DateTimePicker
Friend WithEvents Label13 As Label
@@ -984,4 +1126,12 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Friend WithEvents Label5 As Label
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label18 As Label
Friend WithEvents cbx_GF_Geburtsland As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label21 As Label
Friend WithEvents txt_GF_Geburtsort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label20 As Label
Friend WithEvents txt_GF_Passgueltigbis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label19 As Label
Friend WithEvents cbxPrivatfirma As CheckBox
Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

59
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb
View File

@@ -54,23 +54,32 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
If GF IsNot Nothing Then
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & " " & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
txt_GF_nachname.Text = IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "")
txt_GF_vorname.Text = IIf(GF.kkd_AnsprechpartnerVorname <> "", GF.kkd_AnsprechpartnerVorname & " ", "")
If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
End If
If (GF.kkd_Passgueltigbis IsNot Nothing AndAlso IsDate(GF.kkd_Passgueltigbis)) Then
txt_GF_Passgueltigbis.Text = CDate(GF.kkd_Passgueltigbis).ToShortDateString
End If
txt_GF_Adresse.Text = If(GF.kkd_Adresse, "")
txt_GF_Ort.Text = If(GF.kkd_Ort, "")
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
cbx_GF_Land.changeItem(GF.kkd_Land)
txt_GF_Geburtsort.Text = If(GF.kkd_Geburtsort, "")
cbx_GF_Geburtsland.changeItem(GF.kkd_Geburtsland)
Else
txt_GF_Name.Text = ""
txt_GF_nachname.Text = ""
txt_GF_vorname.Text = ""
txt_GF_Geb.Text = ""
txt_GF_Adresse.Text = ""
txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("")
txt_GF_Geburtsort.Text = ""
cbx_GF_Geburtsland.changeItem("")
End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
@@ -106,29 +115,38 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler()
cboLand.Items.Clear()
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Austria", "AT"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Czech Rep", "CZ"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Croatia", "HR"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Croatia MÖST", "HR_MOEST"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Denmark", "DK"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Germany", "DE"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Finland", "FI"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Great Britain", "GB"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Ireland", "IE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Lithuania", "LT"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Netherlands", "NL"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Netherlands", "NL"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Norway", "NO"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Poland", "PL"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
cboLand.changeItem("AT")
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Poland", "PL"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Sweden", "SE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
cboLand.changeItem("")
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbx_GF_Land.Items.Clear()
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
cbx_GF_Geburtsland.Items.Clear()
cbx_GF_Geburtsland.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben"
@@ -149,4 +167,13 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
If cboLand._value = "NL" Or cboLand._value = "HR" Then
cbxPrivatfirma.Visible = True
Else
cbxPrivatfirma.Visible = False
cbxPrivatfirma.Checked = False
End If
End Sub
End Class

314
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -1650,6 +1650,17 @@ Public Class FormularManagerNEU
Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
Case "taxno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtSteuerNr.Text))
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
Case "ceo_place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Ort.Text))
Case "ceo_country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Land._value))
Case "ceo_zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_PLZ.Text))
Case "ceo_birthdate" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geb.Text))
Case "ceo_street" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Adresse.Text))
Case "ceo_address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Adresse.Text & " " & usrCntl.cbx_GF_Land._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
Case "ceo_birthplace" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geburtsort.Text))
Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")))
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
@@ -1684,118 +1695,249 @@ Public Class FormularManagerNEU
Try
'aktuell immer nur WORD
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
list = fm.getPDFFields_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value)
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim foundingDateIsValid As Boolean = False
Dim privateFirma As Boolean = False
If usrCntl.txtGruendungsdat.Text <> "" AndAlso IsDate(usrCntl.txtGruendungsdat.Text) Then foundingDateIsValid = True
privateFirma = usrCntl.cbxPrivatfirma.Checked
For Each item In list
Select Case item.Text.ToLower().Trim()
Case "name" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
Case "name_adress" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text & " " & usrCntl.txtAdresse1.Text & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
Case "lpo" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
Case "strasse" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text))
Case "business" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, "4941 - Transport"))
Case "business1" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, "4941 - Transport"))
Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text))
Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz._value))
Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
Case "taxno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtSteuerNr.Text))
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
Case "ort" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text)) 'wegen LU PDF
Case "ort_" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse3.Text)) 'wegen NL PDF
Case "ustnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtSteuerNr.Text)) 'wegen LU PDF
Case "founding_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text, "")))
Case "founding_day" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text.ToString.Substring(0, 2), "")))
Case "founding_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text.ToString.Substring(3, 2), "")))
Case "founding_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid, usrCntl.txtGruendungsdat.Text.ToString.Substring(6, 4), "")))
'NL
Case "private_no" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "Off", "On")))
Case "private_yes" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrivatfirma.Checked, "On", "Off")))
'soll nur bei aktv. Flag "private Firma" angedruckt werden!
Case "ceo_place_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Ort.Text, "")))
Case "ceo_street_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Adresse.Text, "")))
Case "ceo_country_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Land._value, "")))
Case "ceo_zipcode_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_PLZ.Text, "")))
Case "ceo_address_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Adresse.Text & " " & usrCntl.cbx_GF_Land._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text, "")))
Case "ceo_surname_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_nachname.Text, "")))
Case "ceo_firstname_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_vorname.Text, "")))
Case "ceo_passportvaliduntil_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Passgueltigbis.Text, "")))
Case "ceo_birthdate_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Geb.Text, "")))
Case "ceo_birthplace_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.txt_GF_Geburtsort.Text, "")))
Case "ceo_birthcountry_prv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(privateFirma, usrCntl.cbx_GF_Geburtsland.Text, "")))
'soll nur bei deaktv. Flag "private Firma" angedruckt werden!
Case "name_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
Case "company_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtFirma.Text, "")))
Case "strasse_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtAdresse1.Text, "")))
Case "founding_date_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(foundingDateIsValid AndAlso Not privateFirma, usrCntl.txtGruendungsdat.Text, "")))
Case "ort_nprv" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(Not privateFirma, usrCntl.txtAdresse3.Text & usrCntl.cbxLandKz._value, "")))
Case "ceo_birthdate" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geb.Text))
Case "ceo" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
Case "ceo_address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Adresse.Text & " " & usrCntl.cbx_GF_Land._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
Case "ceo_birthplace" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Geburtsort.Text))
Case "ceo_birthcountry" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbx_GF_Geburtsland.Text))
Case "ceo_passportvaliduntil" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Passgueltigbis.Text))
Case "function" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.txt_GF_nachname.Text <> "", "CEO", "")))
Case "ceo_surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_nachname.Text))
Case "ceo_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_vorname.Text))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, ""))) -> soll nicht gesetzt werden
Case "capital" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value))
Case "crnumber" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHRNr.Text))
Case "c_name" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bez))
Case "c_address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort))
Case "c_name_adress" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & ", " & FIRMA.Firma_Ort))
Case "c_name_adress1" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & ", " & FIRMA.Firma_Ort))
Case "c_street" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Straße))
Case "c_zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Ort))
Case "c_vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_UID))
Case "c_phone" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Telefon))
Case "c_fax" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Telefax))
Case "c_mailcontact" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtEmailzurueck.Text))
Case "c_bank" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_Bankverbindung1))
Case "c_iban" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "")))
Case "c_bic" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_BIC1.Replace("BIC:", "")))
Case "c_kontonr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(13, 7)))
Case "c_blz" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, FIRMA.Firma_IBAN1.Replace("IBAN:", "").Replace(" ", "").ToString.Trim().Substring(3, 5)))
End Select
'surname_firstname
'surname
'lastname
'place_date
'vat_country
'place
'c_mailcontact
Next
striList.Add(fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
'aktuell WORD und PDF
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
Dim oWord As New Microsoft.Office.Interop.Word.Application
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Dim docBez As String = ""
docBez = "VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value
docBez = "VM_NICHTEUW_" & usrCntl.cboLand._value
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
Dim pfadWord = DS.GET_TOP1_PATH(False)
Dim cGenWord As New cGenWord
odoc = cGenWord.openWord(pfadWord, False, oWord)
If odoc Is Nothing Then Return striList
If pfadWord <> "" Then
odoc = cGenWord.openWord(pfadWord, False, oWord)
If odoc Is Nothing Then Return striList
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For Each item In odoc.FormFields
For Each item In odoc.FormFields
Dim fieldName = item.Name.ToLower().Trim()
Dim fieldName = item.Name.ToLower().Trim()
Select Case fieldName
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, "")
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
Case "function" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", "CEO", "")
Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name3" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name4" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name5" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort
Case "c_street" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID
Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "")
Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
Select Case fieldName.ToString.ToLower
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
Case "lpo" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "strasse" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_nachname.Text <> "", usrCntl.txt_GF_nachname.Text, "")
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
'Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text))
'Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
'Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
'Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
'Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
'Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
'Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
'Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
Case "ceo_place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Ort.Text
Case "ceo_country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbx_GF_Land._value
Case "ceo_zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_PLZ.Text
Case "ceo_birthdate" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Geb.Text
Case "ceo_street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Adresse.Text
Case "ceo_address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Adresse.Text & " " & usrCntl.cbx_GF_Land._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "ceo_birthplace" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Geburtsort.Text
Case "ceo_birthcountry" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbx_GF_Geburtsland._value
Case "ceo_passportvaliduntil" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Passgueltigbis.Text
End Select
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "phone" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular
Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
Case "function" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_nachname.Text <> "", "CEO", "")
Case "c_name" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name1" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name3" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name4" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name5" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort
Case "c_street" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID
Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
Case "c_mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmailzurueck.Text
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bankverbindung1
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_IBAN1.Replace("IBAN:", "")
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_BIC1.Replace("BIC:", "")
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "")
Case "capital" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtKapital.Text & " " & usrCntl.cbxKapitalWahrung._value
Case "crnumber" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHRNr.Text
Next
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
'Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text))
'Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
'Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
'Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
'Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
'Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
'Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
'Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
'Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
End Select
Next
odoc.Save() : odoc.Activate()
odoc.Save() : odoc.Activate()
If openWord Then
oWord.Visible = True
Return New List(Of String)
ElseIf printReportElsePDF Then
If openWord Then
oWord.Visible = True
Return New List(Of String)
ElseIf printReportElsePDF Then
oWord.DisplayAlerts = False
oWord.PrintOut()
Try
oWord.Documents.Close()
'Quit word application
oWord.Quit()
oWord.DisplayAlerts = False
oWord.PrintOut()
Try
oWord.Documents.Close()
'Quit word application
oWord.Quit()
'Release
oWord = Nothing
Catch ex As Exception
'NIX, kann sein, dass noch offen..
End Try
'Release
oWord = Nothing
Catch ex As Exception
'NIX, kann sein, dass noch offen..
End Try
Else
'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
Else
'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_NICHTEUW_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
Try
odoc.Close()
oWord.Quit()
Catch ex As Exception
MsgBox(ex.Message)
End Try
striList.Add(path)
Try
odoc.Close()
oWord.Quit()
Catch ex As Exception
MsgBox(ex.Message)
End Try
If path <> "" Then striList.Add(path)
End If
End If
Catch ex As Exception
@@ -1857,6 +1999,9 @@ Public Class FormularManagerNEU
Case "ceo_birthdate" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Geb.Text
Case "ceo_street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Adresse.Text
Case "ceo_address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Adresse.Text & " " & usrCntl.cbx_GF_Land._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "ceo_birthplace" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Geburtsort.Text
Case "ceo_birthcountry" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbx_GF_Geburtsland._value
Case "ceo_passportvaliduntil" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Passgueltigbis.Text
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
@@ -1872,6 +2017,7 @@ Public Class FormularManagerNEU
Case "c_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name7" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_address" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße & " " & FIRMA.Firma_Ort
Case "c_street" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Straße
Case "c_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID
Case "c_phone" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax

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