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

MDM

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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