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.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGruendungsdat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGruendungsdat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label17 = New System.Windows.Forms.Label() 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() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -96,7 +102,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
'Label7 'Label7
' '
Me.Label7.AutoSize = True 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13) Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26 Me.Label7.TabIndex = 26
@@ -210,7 +216,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
'Label13 'Label13
' '
Me.Label13.AutoSize = True 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.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13) Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64 Me.Label13.TabIndex = 64
@@ -219,7 +225,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
'datDatum 'datDatum
' '
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] 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.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20) Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65 Me.datDatum.TabIndex = 65
@@ -654,7 +660,7 @@ Partial Class usrcntlVollmacht_MDM_BHI
Me.txtOrt._WaehrungZeichen = True Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = "" Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -833,12 +839,110 @@ Partial Class usrcntlVollmacht_MDM_BHI
Me.Label17.TabIndex = 90 Me.Label17.TabIndex = 90
Me.Label17.Text = "Gründungsdat..:" 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 'usrcntlVollmacht_MDM_BHI
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.txtGruendungsdat)
Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.Label17)
Me.Controls.Add(Me.cbxKapitalWahrung) Me.Controls.Add(Me.cbxKapitalWahrung)
@@ -946,4 +1050,10 @@ Partial Class usrcntlVollmacht_MDM_BHI
Friend WithEvents Label10 As Label Friend WithEvents Label10 As Label
Friend WithEvents txtGruendungsdat As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtGruendungsdat As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label17 As Label 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 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 txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
End If 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_Adresse.Text = If(GF.kkd_Adresse, "")
txt_GF_Ort.Text = If(GF.kkd_Ort, "") txt_GF_Ort.Text = If(GF.kkd_Ort, "")
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "") txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
cbx_GF_Land.changeItem(GF.kkd_Land) cbx_GF_Land.changeItem(GF.kkd_Land)
txt_GF_Geburtsort.Text = If(GF.kkd_Geburtsort, "")
cbx_GF_Geburtsland.changeItem(GF.kkd_Geburtsland)
Else Else
txt_GF_Name.Text = "" txt_GF_Name.Text = ""
txt_GF_Geb.Text = "" txt_GF_Geb.Text = ""
@@ -71,6 +77,8 @@ Public Class usrcntlVollmacht_MDM_BHI
txt_GF_Ort.Text = "" txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = "" txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("") cbx_GF_Land.changeItem("")
txt_GF_Geburtsort.Text = ""
cbx_GF_Geburtsland.changeItem("")
End If End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") 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.Label5 = New System.Windows.Forms.Label()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label() 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() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -100,7 +107,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'Label7 'Label7
' '
Me.Label7.AutoSize = True 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13) Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26 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.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten
Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21) Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9 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.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben
Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21) Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4 Me.btnUp.TabIndex = 4
@@ -177,7 +184,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del
Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat 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.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21) Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0 Me.btnDel.TabIndex = 0
@@ -214,7 +221,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'Label13 'Label13
' '
Me.Label13.AutoSize = True 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.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13) Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64 Me.Label13.TabIndex = 64
@@ -223,7 +230,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'datDatum 'datDatum
' '
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] 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.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20) Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65 Me.datDatum.TabIndex = 65
@@ -647,7 +654,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.txtOrt._WaehrungZeichen = True Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = "" Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -901,12 +908,120 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.Label18.TabIndex = 96 Me.Label18.TabIndex = 96
Me.Label18.Text = "UID-Nr:" 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 'usrcntlVollmacht_MDM_EU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.txtGruendungsdat)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbxKapitalWahrung) Me.Controls.Add(Me.cbxKapitalWahrung)
@@ -962,7 +1077,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM_EU" 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() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
Me.PerformLayout() Me.PerformLayout()
@@ -1022,4 +1137,11 @@ Partial Class usrcntlVollmacht_MDM_EU
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label18 As Label 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 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 txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
End If 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_Adresse.Text = If(GF.kkd_Adresse, "")
txt_GF_Ort.Text = If(GF.kkd_Ort, "") txt_GF_Ort.Text = If(GF.kkd_Ort, "")
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "") txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
cbx_GF_Land.changeItem(GF.kkd_Land) cbx_GF_Land.changeItem(GF.kkd_Land)
txt_GF_Geburtsort.Text = If(GF.kkd_Geburtsort, "")
cbx_GF_Geburtsland.changeItem(GF.kkd_Geburtsland)
Else Else
txt_GF_Name.Text = "" txt_GF_Name.Text = ""
txt_GF_Geb.Text = "" txt_GF_Geb.Text = ""
@@ -71,6 +77,8 @@ Public Class usrcntlVollmacht_MDM_EU
txt_GF_Ort.Text = "" txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = "" txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("") cbx_GF_Land.changeItem("")
txt_GF_Geburtsort.Text = ""
cbx_GF_Geburtsland.changeItem("")
End If End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") 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, "") txtGruendungsdat.Text = If(KUNDE_ERW.kde_GruendungsDatum, "")
End Sub End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click 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 Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler() initControlsHandler()
cboLand.Items.Clear() 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("Austria", "AT"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE")) 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("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("Sweden", "SE"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK")) 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("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) 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) cbxKapitalWahrung.fillWithSQL("SELECT [Währungscode],[Land] FROM Währungstabelle ORDER BY Währungscode", , "FMZOLL", False)
txtEmailzurueck.Text = "juricevic@verag.ag" txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben" 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_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Adresse = 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_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.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse3 = 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.Label5 = New System.Windows.Forms.Label()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label18 = New System.Windows.Forms.Label() 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() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -276,7 +284,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'datDatum 'datDatum
' '
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short] 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.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20) Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 108 Me.datDatum.TabIndex = 108
@@ -284,7 +292,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'Label13 'Label13
' '
Me.Label13.AutoSize = True 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.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13) Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 107 Me.Label13.TabIndex = 107
@@ -293,7 +301,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'Label7 'Label7
' '
Me.Label7.AutoSize = True 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.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13) Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 105 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.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Geb.TabIndex = 112 Me.txt_GF_Geb.TabIndex = 112
' '
'txt_GF_Name 'txt_GF_nachname
' '
Me.txt_GF_Name._DateTimeOnly = False Me.txt_GF_nachname._DateTimeOnly = False
Me.txt_GF_Name._numbersOnly = False Me.txt_GF_nachname._numbersOnly = False
Me.txt_GF_Name._numbersOnlyKommastellen = "" Me.txt_GF_nachname._numbersOnlyKommastellen = ""
Me.txt_GF_Name._numbersOnlyTrennzeichen = True Me.txt_GF_nachname._numbersOnlyTrennzeichen = True
Me.txt_GF_Name._Prozent = False Me.txt_GF_nachname._Prozent = False
Me.txt_GF_Name._ShortDateNew = False Me.txt_GF_nachname._ShortDateNew = False
Me.txt_GF_Name._ShortDateOnly = False Me.txt_GF_nachname._ShortDateOnly = False
Me.txt_GF_Name._TimeOnly = False Me.txt_GF_nachname._TimeOnly = False
Me.txt_GF_Name._TimeOnly_Seconds = False Me.txt_GF_nachname._TimeOnly_Seconds = False
Me.txt_GF_Name._value = Nothing Me.txt_GF_nachname._value = Nothing
Me.txt_GF_Name._Waehrung = False Me.txt_GF_nachname._Waehrung = False
Me.txt_GF_Name._WaehrungZeichen = True Me.txt_GF_nachname._WaehrungZeichen = True
Me.txt_GF_Name.ForeColor = System.Drawing.Color.Black Me.txt_GF_nachname.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Name.Location = New System.Drawing.Point(254, 222) Me.txt_GF_nachname.Location = New System.Drawing.Point(254, 222)
Me.txt_GF_Name.MaxLineLength = -1 Me.txt_GF_nachname.MaxLineLength = -1
Me.txt_GF_Name.MaxLines_Warning = "" Me.txt_GF_nachname.MaxLines_Warning = ""
Me.txt_GF_Name.MaxLines_Warning_Label = Nothing Me.txt_GF_nachname.MaxLines_Warning_Label = Nothing
Me.txt_GF_Name.Name = "txt_GF_Name" Me.txt_GF_nachname.Name = "txt_GF_nachname"
Me.txt_GF_Name.Size = New System.Drawing.Size(310, 20) Me.txt_GF_nachname.Size = New System.Drawing.Size(142, 20)
Me.txt_GF_Name.TabIndex = 110 Me.txt_GF_nachname.TabIndex = 110
' '
'txtOrt 'txtOrt
' '
@@ -517,7 +525,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.txtOrt._WaehrungZeichen = True Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black 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.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = "" Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -867,12 +875,145 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Label18.TabIndex = 126 Me.Label18.TabIndex = 126
Me.Label18.Text = "UID-Nr:" 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 'usrcntlVollmacht_MDM_NICHT_EU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle 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.txtGruendungsdat)
Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.cbxKapitalWahrung) Me.Controls.Add(Me.cbxKapitalWahrung)
@@ -899,7 +1040,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Controls.Add(Me.Label10) Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.txt_GF_Geb) Me.Controls.Add(Me.txt_GF_Geb)
Me.Controls.Add(Me.lblGFGebDat) 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.Label12)
Me.Controls.Add(Me.datDatum) Me.Controls.Add(Me.datDatum)
Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.Label13)
@@ -925,6 +1066,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma) Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl) Me.Controls.Add(Me.lbl)
Me.Controls.Add(Me.txt_GF_vorname)
Me.Name = "usrcntlVollmacht_MDM_NICHT_EU" Me.Name = "usrcntlVollmacht_MDM_NICHT_EU"
Me.Size = New System.Drawing.Size(1000, 339) Me.Size = New System.Drawing.Size(1000, 339)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -967,7 +1109,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Friend WithEvents Label10 As Label Friend WithEvents Label10 As Label
Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGFGebDat As Label 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 Label12 As Label
Friend WithEvents datDatum As DateTimePicker Friend WithEvents datDatum As DateTimePicker
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
@@ -984,4 +1126,12 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label18 As Label 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 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) Dim GF As cKundenKontakte = KK_List.LIST.Find(Function(c) c.kkd_kkaId = 13 And c.kkd_KundenNr = KdNR)
If GF IsNot Nothing Then 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 If (GF.kkd_GebDatum IsNot Nothing AndAlso IsDate(GF.kkd_GebDatum)) Then
txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString txt_GF_Geb.Text = CDate(GF.kkd_GebDatum).ToShortDateString
End If 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_Adresse.Text = If(GF.kkd_Adresse, "")
txt_GF_Ort.Text = If(GF.kkd_Ort, "") txt_GF_Ort.Text = If(GF.kkd_Ort, "")
txt_GF_PLZ.Text = If(GF.kkd_PLZ, "") txt_GF_PLZ.Text = If(GF.kkd_PLZ, "")
cbx_GF_Land.changeItem(GF.kkd_Land) cbx_GF_Land.changeItem(GF.kkd_Land)
txt_GF_Geburtsort.Text = If(GF.kkd_Geburtsort, "")
cbx_GF_Geburtsland.changeItem(GF.kkd_Geburtsland)
Else Else
txt_GF_Name.Text = "" txt_GF_nachname.Text = ""
txt_GF_vorname.Text = ""
txt_GF_Geb.Text = "" txt_GF_Geb.Text = ""
txt_GF_Adresse.Text = "" txt_GF_Adresse.Text = ""
txt_GF_Ort.Text = "" txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = "" txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("") cbx_GF_Land.changeItem("")
txt_GF_Geburtsort.Text = ""
cbx_GF_Geburtsland.changeItem("")
End If End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "") 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 Private Sub usrcntlVollmacht_DE_Load(sender As Object, e As EventArgs) Handles Me.Load
initControlsHandler() initControlsHandler()
cboLand.Items.Clear() 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("Austria", "AT"))
cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Belgium", "BE")) 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("Denmark", "DK"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Finland", "FI"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Germany", "DE")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("France", "FR"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Hungary", "HU")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Great Britain", "GB"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Italy", "IT")) 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("Lithuania", "LT"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Luxenbourg", "LU")) 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("Netherlands", "NL"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Norway", "NO")) '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("Poland", "PL"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Romania", "RO")) 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("Sweden", "SE"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovakia", "SK"))
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES")) cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Slovenia", "SI"))
cboLand.changeItem("AT") cboLand.changeItem("")
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True) 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_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" txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben" txtOrt.Text = "Suben"
@@ -149,4 +167,13 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub 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 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 "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 "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 "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 "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 "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)) Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txt_GF_Name.Text))
@@ -1684,118 +1695,249 @@ Public Class FormularManagerNEU
Try Try
'aktuell immer nur WORD Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager 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 odoc As Microsoft.Office.Interop.Word.Document = Nothing
Dim oWord As New Microsoft.Office.Interop.Word.Application 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 = "" 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 DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
Dim pfadWord = DS.GET_TOP1_PATH(False) Dim pfadWord = DS.GET_TOP1_PATH(False)
Dim cGenWord As New cGenWord Dim cGenWord As New cGenWord
odoc = cGenWord.openWord(pfadWord, False, oWord) If pfadWord <> "" Then
If odoc Is Nothing Then Return striList
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 Select Case fieldName.ToString.ToLower
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_1" : 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 "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 "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 "zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value Case "lpo" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text Case "country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbxLandKz._value
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_Name.Text <> "", usrCntl.txt_GF_Name.Text, "") Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text Case "strasse" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
Case "mailcontact" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtEmail.Text ' TODO: neues Feld im formular Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txt_GF_nachname.Text <> "", usrCntl.txt_GF_nachname.Text, "")
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
'Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text)) Case "ceo_place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Ort.Text
'Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text)) Case "ceo_country" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbx_GF_Land._value
'Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text)) Case "ceo_zipcode" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_PLZ.Text
'Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text)) Case "ceo_birthdate" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Geb.Text
'Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text)) Case "ceo_street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Adresse.Text
'Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.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 "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) Case "ceo_birthplace" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Geburtsort.Text
'Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) Case "ceo_birthcountry" : odoc.FormFields(fieldName).Range.Text = usrCntl.cbx_GF_Geburtsland._value
'Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text)) Case "ceo_passportvaliduntil" : odoc.FormFields(fieldName).Range.Text = usrCntl.txt_GF_Passgueltigbis.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 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 If openWord Then
oWord.Visible = True oWord.Visible = True
Return New List(Of String) Return New List(Of String)
ElseIf printReportElsePDF Then ElseIf printReportElsePDF Then
oWord.DisplayAlerts = False oWord.DisplayAlerts = False
oWord.PrintOut() oWord.PrintOut()
Try Try
oWord.Documents.Close() oWord.Documents.Close()
'Quit word application 'Quit word application
oWord.Quit() oWord.Quit()
'Release 'Release
oWord = Nothing oWord = Nothing
Catch ex As Exception Catch ex As Exception
'NIX, kann sein, dass noch offen.. 'NIX, kann sein, dass noch offen..
End Try End Try
Else Else
'oWord.Visible = True 'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_NICHTEU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False) 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() Try
Catch ex As Exception odoc.Close()
MsgBox(ex.Message) oWord.Quit()
End Try Catch ex As Exception
striList.Add(path) MsgBox(ex.Message)
End Try
If path <> "" Then striList.Add(path)
End If
End If End If
Catch ex As Exception 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_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_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_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 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_name6" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez
Case "c_name7" : 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_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_zipcode" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Ort
Case "c_vatno" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_UID 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_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.lbl = New System.Windows.Forms.Label()
Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboKontaktArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.pnlKontakt = New System.Windows.Forms.Panel() Me.pnlKontakt = New System.Windows.Forms.Panel()
Me.txtOrt = New System.Windows.Forms.TextBox()
Me.picBoxKorr = New System.Windows.Forms.PictureBox() Me.picBoxKorr = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.lblEmailBCC = New System.Windows.Forms.TextBox() Me.lblEmailBCC = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtKorrAdd = New System.Windows.Forms.TextBox() Me.txtKorrAdd = New System.Windows.Forms.TextBox()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.PictureBox7 = 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.lblEmailCC = New System.Windows.Forms.TextBox()
Me.txtPLZ = New System.Windows.Forms.TextBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.lblMobil = New System.Windows.Forms.TextBox() Me.lblMobil = New System.Windows.Forms.TextBox()
Me.lblFax = 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.lblEmail = New System.Windows.Forms.TextBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox() Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = 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.Label5 = New System.Windows.Forms.Label()
Me.txtPassgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtPassgueltigbis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label() 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.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.txtGebDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() 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.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() Me.pnlKontakt.SuspendLayout()
CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, 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.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, 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.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlGeschaeftsfuehrer.SuspendLayout() Me.pnlGeschaeftsfuehrer.SuspendLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlMain.SuspendLayout() Me.pnlMain.SuspendLayout()
Me.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.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.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.Name = "btn"
Me.btn.Size = New System.Drawing.Size(136, 39) Me.btn.Size = New System.Drawing.Size(136, 39)
Me.btn.TabIndex = 9 Me.btn.TabIndex = 9
@@ -144,6 +148,17 @@ Partial Class frmKundenKontakteDetails
Me.pnlKontakt.Size = New System.Drawing.Size(505, 271) Me.pnlKontakt.Size = New System.Drawing.Size(505, 271)
Me.pnlKontakt.TabIndex = 10 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 'picBoxKorr
' '
Me.picBoxKorr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.picBoxKorr.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -185,6 +200,15 @@ Partial Class frmKundenKontakteDetails
Me.lblEmailBCC.TabIndex = 232 Me.lblEmailBCC.TabIndex = 232
Me.lblEmailBCC.Text = "email" 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 'txtKorrAdd
' '
Me.txtKorrAdd.BackColor = System.Drawing.Color.White Me.txtKorrAdd.BackColor = System.Drawing.Color.White
@@ -196,6 +220,17 @@ Partial Class frmKundenKontakteDetails
Me.txtKorrAdd.TabIndex = 264 Me.txtKorrAdd.TabIndex = 264
Me.txtKorrAdd.Text = "adresse" 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 'PictureBox7
' '
Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -207,6 +242,17 @@ Partial Class frmKundenKontakteDetails
Me.PictureBox7.TabIndex = 233 Me.PictureBox7.TabIndex = 233
Me.PictureBox7.TabStop = False 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 'lblEmailCC
' '
Me.lblEmailCC.BackColor = System.Drawing.Color.White Me.lblEmailCC.BackColor = System.Drawing.Color.White
@@ -219,6 +265,17 @@ Partial Class frmKundenKontakteDetails
Me.lblEmailCC.TabIndex = 230 Me.lblEmailCC.TabIndex = 230
Me.lblEmailCC.Text = "email" 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 'PictureBox6
' '
Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -230,6 +287,19 @@ Partial Class frmKundenKontakteDetails
Me.PictureBox6.TabIndex = 231 Me.PictureBox6.TabIndex = 231
Me.PictureBox6.TabStop = False 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 'PictureBox1
' '
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
@@ -263,6 +333,17 @@ Partial Class frmKundenKontakteDetails
Me.lblFax.TabIndex = 219 Me.lblFax.TabIndex = 219
Me.lblFax.Text = "fax" 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 'lblEmail
' '
Me.lblEmail.BackColor = System.Drawing.Color.White Me.lblEmail.BackColor = System.Drawing.Color.White
@@ -367,14 +448,18 @@ Partial Class frmKundenKontakteDetails
'pnlGeschaeftsfuehrer 'pnlGeschaeftsfuehrer
' '
Me.pnlGeschaeftsfuehrer.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink 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.Label5)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtGeburtsort)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtPassgueltigbis) Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtPassgueltigbis)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label4) Me.pnlGeschaeftsfuehrer.Controls.Add(Me.Label4)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.PictureBox9) Me.pnlGeschaeftsfuehrer.Controls.Add(Me.PictureBox9)
Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtGebDatum) Me.pnlGeschaeftsfuehrer.Controls.Add(Me.txtGebDatum)
Me.pnlGeschaeftsfuehrer.Location = New System.Drawing.Point(9, 322) Me.pnlGeschaeftsfuehrer.Location = New System.Drawing.Point(9, 322)
Me.pnlGeschaeftsfuehrer.Name = "pnlGeschaeftsfuehrer" 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.TabIndex = 11
Me.pnlGeschaeftsfuehrer.Visible = False Me.pnlGeschaeftsfuehrer.Visible = False
' '
@@ -417,54 +502,23 @@ Partial Class frmKundenKontakteDetails
'Label4 'Label4
' '
Me.Label4.AutoSize = True 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.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(53, 13) Me.Label4.Size = New System.Drawing.Size(53, 13)
Me.Label4.TabIndex = 263 Me.Label4.TabIndex = 263
Me.Label4.Text = "Geb-Dat.:" 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 'PictureBox9
' '
Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None Me.PictureBox9.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.PictureBox9.Image = CType(resources.GetObject("PictureBox9.Image"), System.Drawing.Image) 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.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(25, 18) Me.PictureBox9.Size = New System.Drawing.Size(25, 18)
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.PictureBox9.TabIndex = 260 Me.PictureBox9.TabIndex = 260
Me.PictureBox9.TabStop = False 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 'txtGebDatum
' '
Me.txtGebDatum._DateTimeOnly = False Me.txtGebDatum._DateTimeOnly = False
@@ -492,52 +546,6 @@ Partial Class frmKundenKontakteDetails
Me.txtGebDatum.TabIndex = 258 Me.txtGebDatum.TabIndex = 258
Me.txtGebDatum.Text = "geburtsdatum" 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 'pnlMain
' '
Me.pnlMain.Controls.Add(Me.lbl) Me.pnlMain.Controls.Add(Me.lbl)
@@ -547,9 +555,51 @@ Partial Class frmKundenKontakteDetails
Me.pnlMain.Controls.Add(Me.pnlKontakt) Me.pnlMain.Controls.Add(Me.pnlKontakt)
Me.pnlMain.Location = New System.Drawing.Point(7, 12) Me.pnlMain.Location = New System.Drawing.Point(7, 12)
Me.pnlMain.Name = "pnlMain" 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 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 'frmKundenKontakteDetails
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -557,7 +607,7 @@ Partial Class frmKundenKontakteDetails
Me.AutoSize = True Me.AutoSize = True
Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.BackColor = System.Drawing.Color.White 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.Controls.Add(Me.pnlMain)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKundenKontakteDetails" Me.Name = "frmKundenKontakteDetails"
@@ -566,7 +616,9 @@ Partial Class frmKundenKontakteDetails
Me.pnlKontakt.ResumeLayout(False) Me.pnlKontakt.ResumeLayout(False)
Me.pnlKontakt.PerformLayout() Me.pnlKontakt.PerformLayout()
CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picBoxKorr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, 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.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, 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() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlGeschaeftsfuehrer.ResumeLayout(False) Me.pnlGeschaeftsfuehrer.ResumeLayout(False)
Me.pnlGeschaeftsfuehrer.PerformLayout() Me.pnlGeschaeftsfuehrer.PerformLayout()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlMain.ResumeLayout(False) Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout() Me.pnlMain.PerformLayout()
Me.ResumeLayout(False) Me.ResumeLayout(False)
@@ -622,4 +672,8 @@ Partial Class frmKundenKontakteDetails
Friend WithEvents lblAnsprechpartnerNN As TextBox Friend WithEvents lblAnsprechpartnerNN As TextBox
Friend WithEvents PictureBox5 As PictureBox Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents pnlMain As Panel 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 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.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxLand.changeItem("") 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 cboKontaktArt.Items.Count > 0 Then cboKontaktArt.SelectedIndex = 0
If kkd_id > 0 Then If kkd_id > 0 Then
@@ -64,9 +67,13 @@
txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "") txtStrasse.Text = If(KD_KONTAKT.kkd_Adresse, "")
txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "") txtPLZ.Text = If(KD_KONTAKT.kkd_PLZ, "")
txtKorrAdd.Text = If(KD_KONTAKT.kkd_Firmenname, "") 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), "") 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), "") 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 End Sub

4
VERAG_PROG_ALLGEMEIN/Classes/cKundenKontakte.vb
View File

@@ -103,6 +103,8 @@ Public Class cKundenKontakte
Property kkd_Land As Object = Nothing Property kkd_Land As Object = Nothing
Property kkd_Passgueltigbis As Object = Nothing Property kkd_Passgueltigbis As Object = Nothing
Property kkd_Firmenname As Object = Nothing Property kkd_Firmenname As Object = Nothing
Property kkd_Geburtsort As Object = Nothing
Property kkd_Geburtsland As Object = Nothing
@@ -142,6 +144,8 @@ Public Class cKundenKontakte
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Land", kkd_Land))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Passgueltigbis", kkd_Passgueltigbis)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Passgueltigbis", kkd_Passgueltigbis))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Firmenname", kkd_Firmenname))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsort", kkd_Geburtsort))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kkd_Geburtsland", kkd_Geburtsland))
Return list Return list

7
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -984,13 +984,16 @@ Public Class cFormularManager
Dim fi As New IO.DirectoryInfo(path_src) Dim fi As New IO.DirectoryInfo(path_src)
Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False) Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)
Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src) Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src)
pdf.unethicalreading = True
Using fw As New FileStream(destPath, FileMode.OpenOrCreate) Using fw As New FileStream(destPath, FileMode.OpenOrCreate)
Dim stamper = New PdfStamper(pdf, fw) Dim stamper = New PdfStamper(pdf, fw)
Try Try
Dim f = stamper.AcroFields Dim f = stamper.AcroFields
If f IsNot Nothing Then If f IsNot Nothing AndAlso f.Fields.Count > 0 Then
f.GenerateAppearances = True f.GenerateAppearances = True
For Each r In f.Fields For Each r In f.Fields
Dim key = r.Key.ToString Dim key = r.Key.ToString
@@ -1001,7 +1004,7 @@ Public Class cFormularManager
Next Next
Else Else
MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!") 'MsgBox("In der Vorlage wurden sind keine ausfühlbaren Felder vorhanden!")
End If End If