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

Vollmachten

Browse Source
This commit is contained in:
d.breimaier
2024-08-30 13:48:42 +02:00
parent f8c4af53a0
commit 3a6ba31756
25 changed files with 3526 additions and 1367 deletions
Download Patch File Download Diff File Expand all files Collapse all files

853
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.Designer.vb generated Normal file
View File

@@ -0,0 +1,853 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_MDM_BHI
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.btn = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAnsprechpartner = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtOrt = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtHRNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtUid = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtFirma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.pic = New System.Windows.Forms.PictureBox()
Me.lblVollmacht = New System.Windows.Forms.Label()
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblHerrFrau = New System.Windows.Forms.Label()
Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.datDatum = New System.Windows.Forms.DateTimePicker()
Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblGFGebDat = New System.Windows.Forms.Label()
Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label16 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(155, 50)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(78, 13)
Me.lbl.TabIndex = 6
Me.lbl.Text = "Firmenwortlaut:"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(155, 69)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(48, 13)
Me.Label1.TabIndex = 11
Me.Label1.Text = "Adresse:"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(168, 120)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 14
Me.Label2.Text = "UID-Nr:"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(585, 120)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(43, 13)
Me.Label3.TabIndex = 16
Me.Label3.Text = "HR.-Nr:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(585, 158)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 20
Me.Label4.Text = "Fax:"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(168, 139)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 18
Me.Label5.Text = "Tel.:"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(168, 158)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 22
Me.Label6.Text = "E-Mail:"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 284)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26
Me.Label7.Text = "Ort:"
'
'btn
'
Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search
Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btn.Location = New System.Drawing.Point(934, 47)
Me.btn.Name = "btn"
Me.btn.Size = New System.Drawing.Size(26, 20)
Me.btn.TabIndex = 8
Me.btn.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 12)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 13)
Me.Label8.TabIndex = 2
Me.Label8.Text = "Ansprechpartner:"
'
'txtAnsprechpartner
'
Me.txtAnsprechpartner._DateTimeOnly = False
Me.txtAnsprechpartner._numbersOnly = False
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartner._Prozent = False
Me.txtAnsprechpartner._ShortDateNew = False
Me.txtAnsprechpartner._ShortDateOnly = False
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._TimeOnly_Seconds = False
Me.txtAnsprechpartner._value = Nothing
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
Me.txtAnsprechpartner.MaxLineLength = -1
Me.txtAnsprechpartner.MaxLines_Warning = ""
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
Me.txtAnsprechpartner.Name = "txtAnsprechpartner"
Me.txtAnsprechpartner.Size = New System.Drawing.Size(310, 20)
Me.txtAnsprechpartner.TabIndex = 3
'
'txtOrt
'
Me.txtOrt._DateTimeOnly = False
Me.txtOrt._numbersOnly = False
Me.txtOrt._numbersOnlyKommastellen = ""
Me.txtOrt._numbersOnlyTrennzeichen = True
Me.txtOrt._Prozent = False
Me.txtOrt._ShortDateNew = False
Me.txtOrt._ShortDateOnly = False
Me.txtOrt._TimeOnly = False
Me.txtOrt._TimeOnly_Seconds = False
Me.txtOrt._value = Nothing
Me.txtOrt._Waehrung = False
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.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing
Me.txtOrt.Name = "txtOrt"
Me.txtOrt.Size = New System.Drawing.Size(109, 20)
Me.txtOrt.TabIndex = 27
'
'txtEmail
'
Me.txtEmail._DateTimeOnly = False
Me.txtEmail._numbersOnly = False
Me.txtEmail._numbersOnlyKommastellen = ""
Me.txtEmail._numbersOnlyTrennzeichen = True
Me.txtEmail._Prozent = False
Me.txtEmail._ShortDateNew = False
Me.txtEmail._ShortDateOnly = False
Me.txtEmail._TimeOnly = False
Me.txtEmail._TimeOnly_Seconds = False
Me.txtEmail._value = Nothing
Me.txtEmail._Waehrung = False
Me.txtEmail._WaehrungZeichen = True
Me.txtEmail.ForeColor = System.Drawing.Color.Black
Me.txtEmail.Location = New System.Drawing.Point(252, 155)
Me.txtEmail.MaxLineLength = -1
Me.txtEmail.MaxLines_Warning = ""
Me.txtEmail.MaxLines_Warning_Label = Nothing
Me.txtEmail.Name = "txtEmail"
Me.txtEmail.Size = New System.Drawing.Size(310, 20)
Me.txtEmail.TabIndex = 23
'
'txtFax
'
Me.txtFax._DateTimeOnly = False
Me.txtFax._numbersOnly = False
Me.txtFax._numbersOnlyKommastellen = ""
Me.txtFax._numbersOnlyTrennzeichen = True
Me.txtFax._Prozent = False
Me.txtFax._ShortDateNew = False
Me.txtFax._ShortDateOnly = False
Me.txtFax._TimeOnly = False
Me.txtFax._TimeOnly_Seconds = False
Me.txtFax._value = Nothing
Me.txtFax._Waehrung = False
Me.txtFax._WaehrungZeichen = True
Me.txtFax.ForeColor = System.Drawing.Color.Black
Me.txtFax.Location = New System.Drawing.Point(651, 155)
Me.txtFax.MaxLineLength = -1
Me.txtFax.MaxLines_Warning = ""
Me.txtFax.MaxLines_Warning_Label = Nothing
Me.txtFax.Name = "txtFax"
Me.txtFax.Size = New System.Drawing.Size(310, 20)
Me.txtFax.TabIndex = 21
'
'txtTel
'
Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False
Me.txtTel._TimeOnly = False
Me.txtTel._TimeOnly_Seconds = False
Me.txtTel._value = Nothing
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
Me.txtTel.ForeColor = System.Drawing.Color.Black
Me.txtTel.Location = New System.Drawing.Point(252, 136)
Me.txtTel.MaxLineLength = -1
Me.txtTel.MaxLines_Warning = ""
Me.txtTel.MaxLines_Warning_Label = Nothing
Me.txtTel.Name = "txtTel"
Me.txtTel.Size = New System.Drawing.Size(310, 20)
Me.txtTel.TabIndex = 19
'
'txtHRNr
'
Me.txtHRNr._DateTimeOnly = False
Me.txtHRNr._numbersOnly = False
Me.txtHRNr._numbersOnlyKommastellen = ""
Me.txtHRNr._numbersOnlyTrennzeichen = True
Me.txtHRNr._Prozent = False
Me.txtHRNr._ShortDateNew = False
Me.txtHRNr._ShortDateOnly = False
Me.txtHRNr._TimeOnly = False
Me.txtHRNr._TimeOnly_Seconds = False
Me.txtHRNr._value = Nothing
Me.txtHRNr._Waehrung = False
Me.txtHRNr._WaehrungZeichen = True
Me.txtHRNr.ForeColor = System.Drawing.Color.Black
Me.txtHRNr.Location = New System.Drawing.Point(651, 117)
Me.txtHRNr.MaxLineLength = -1
Me.txtHRNr.MaxLines_Warning = ""
Me.txtHRNr.MaxLines_Warning_Label = Nothing
Me.txtHRNr.Name = "txtHRNr"
Me.txtHRNr.Size = New System.Drawing.Size(310, 20)
Me.txtHRNr.TabIndex = 17
'
'txtUid
'
Me.txtUid._DateTimeOnly = False
Me.txtUid._numbersOnly = False
Me.txtUid._numbersOnlyKommastellen = ""
Me.txtUid._numbersOnlyTrennzeichen = True
Me.txtUid._Prozent = False
Me.txtUid._ShortDateNew = False
Me.txtUid._ShortDateOnly = False
Me.txtUid._TimeOnly = False
Me.txtUid._TimeOnly_Seconds = False
Me.txtUid._value = Nothing
Me.txtUid._Waehrung = False
Me.txtUid._WaehrungZeichen = True
Me.txtUid.ForeColor = System.Drawing.Color.Black
Me.txtUid.Location = New System.Drawing.Point(252, 117)
Me.txtUid.MaxLineLength = -1
Me.txtUid.MaxLines_Warning = ""
Me.txtUid.MaxLines_Warning_Label = Nothing
Me.txtUid.Name = "txtUid"
Me.txtUid.Size = New System.Drawing.Size(310, 20)
Me.txtUid.TabIndex = 15
'
'txtAdresse2
'
Me.txtAdresse2._DateTimeOnly = False
Me.txtAdresse2._numbersOnly = False
Me.txtAdresse2._numbersOnlyKommastellen = ""
Me.txtAdresse2._numbersOnlyTrennzeichen = True
Me.txtAdresse2._Prozent = False
Me.txtAdresse2._ShortDateNew = False
Me.txtAdresse2._ShortDateOnly = False
Me.txtAdresse2._TimeOnly = False
Me.txtAdresse2._TimeOnly_Seconds = False
Me.txtAdresse2._value = Nothing
Me.txtAdresse2._Waehrung = False
Me.txtAdresse2._WaehrungZeichen = True
Me.txtAdresse2.ForeColor = System.Drawing.Color.Black
Me.txtAdresse2.Location = New System.Drawing.Point(362, 85)
Me.txtAdresse2.MaxLineLength = -1
Me.txtAdresse2.MaxLines_Warning = ""
Me.txtAdresse2.MaxLines_Warning_Label = Nothing
Me.txtAdresse2.Name = "txtAdresse2"
Me.txtAdresse2.Size = New System.Drawing.Size(288, 20)
Me.txtAdresse2.TabIndex = 13
'
'txtAdresse1
'
Me.txtAdresse1._DateTimeOnly = False
Me.txtAdresse1._numbersOnly = False
Me.txtAdresse1._numbersOnlyKommastellen = ""
Me.txtAdresse1._numbersOnlyTrennzeichen = True
Me.txtAdresse1._Prozent = False
Me.txtAdresse1._ShortDateNew = False
Me.txtAdresse1._ShortDateOnly = False
Me.txtAdresse1._TimeOnly = False
Me.txtAdresse1._TimeOnly_Seconds = False
Me.txtAdresse1._value = Nothing
Me.txtAdresse1._Waehrung = False
Me.txtAdresse1._WaehrungZeichen = True
Me.txtAdresse1.ForeColor = System.Drawing.Color.Black
Me.txtAdresse1.Location = New System.Drawing.Point(251, 66)
Me.txtAdresse1.MaxLineLength = -1
Me.txtAdresse1.MaxLines_Warning = ""
Me.txtAdresse1.MaxLines_Warning_Label = Nothing
Me.txtAdresse1.Name = "txtAdresse1"
Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
Me.txtAdresse1.TabIndex = 12
'
'txtFirma
'
Me.txtFirma._DateTimeOnly = False
Me.txtFirma._numbersOnly = False
Me.txtFirma._numbersOnlyKommastellen = ""
Me.txtFirma._numbersOnlyTrennzeichen = True
Me.txtFirma._Prozent = False
Me.txtFirma._ShortDateNew = False
Me.txtFirma._ShortDateOnly = False
Me.txtFirma._TimeOnly = False
Me.txtFirma._TimeOnly_Seconds = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(251, 47)
Me.txtFirma.MaxLineLength = -1
Me.txtFirma.MaxLines_Warning = ""
Me.txtFirma.MaxLines_Warning_Label = Nothing
Me.txtFirma.Name = "txtFirma"
Me.txtFirma.Size = New System.Drawing.Size(684, 20)
Me.txtFirma.TabIndex = 7
'
'pic
'
Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.pic.Cursor = System.Windows.Forms.Cursors.Hand
Me.pic.Location = New System.Drawing.Point(5, 5)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(32, 32)
Me.pic.TabIndex = 32
Me.pic.TabStop = False
'
'lblVollmacht
'
Me.lblVollmacht.AutoSize = True
Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmacht.Location = New System.Drawing.Point(43, 9)
Me.lblVollmacht.Name = "lblVollmacht"
Me.lblVollmacht.Size = New System.Drawing.Size(124, 20)
Me.lblVollmacht.TabIndex = 1
Me.lblVollmacht.Text = "Vollmacht BHI"
'
'btnDown
'
Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.Name = "btnDown"
Me.btnDown.Size = New System.Drawing.Size(25, 21)
Me.btnDown.TabIndex = 9
Me.btnDown.UseVisualStyleBackColor = True
'
'btnUp
'
Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.Name = "btnUp"
Me.btnUp.Size = New System.Drawing.Size(25, 21)
Me.btnUp.TabIndex = 4
Me.btnUp.UseVisualStyleBackColor = True
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(25, 21)
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(3, 64)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(49, 13)
Me.Label12.TabIndex = 5
Me.Label12.Text = "für Land:"
'
'cboLand
'
Me.cboLand._allowedValuesFreiText = Nothing
Me.cboLand._allowFreiText = False
Me.cboLand._value = ""
Me.cboLand.FormattingEnabled = True
Me.cboLand.Location = New System.Drawing.Point(6, 80)
Me.cboLand.Name = "cboLand"
Me.cboLand.Size = New System.Drawing.Size(89, 21)
Me.cboLand.TabIndex = 10
'
'cbxLandKz
'
Me.cbxLandKz._allowedValuesFreiText = Nothing
Me.cbxLandKz._allowFreiText = False
Me.cbxLandKz._value = ""
Me.cbxLandKz.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbxLandKz.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbxLandKz.DropDownWidth = 200
Me.cbxLandKz.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbxLandKz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxLandKz.FormattingEnabled = True
Me.cbxLandKz.Location = New System.Drawing.Point(251, 85)
Me.cbxLandKz.Name = "cbxLandKz"
Me.cbxLandKz.Size = New System.Drawing.Size(111, 21)
Me.cbxLandKz.TabIndex = 36
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(155, 92)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(90, 13)
Me.Label9.TabIndex = 35
Me.Label9.Text = "Land / PLZ / Ort:"
'
'txtAdresse3
'
Me.txtAdresse3._DateTimeOnly = False
Me.txtAdresse3._numbersOnly = False
Me.txtAdresse3._numbersOnlyKommastellen = ""
Me.txtAdresse3._numbersOnlyTrennzeichen = True
Me.txtAdresse3._Prozent = False
Me.txtAdresse3._ShortDateNew = False
Me.txtAdresse3._ShortDateOnly = False
Me.txtAdresse3._TimeOnly = False
Me.txtAdresse3._TimeOnly_Seconds = False
Me.txtAdresse3._value = Nothing
Me.txtAdresse3._Waehrung = False
Me.txtAdresse3._WaehrungZeichen = True
Me.txtAdresse3.ForeColor = System.Drawing.Color.Black
Me.txtAdresse3.Location = New System.Drawing.Point(650, 85)
Me.txtAdresse3.MaxLineLength = -1
Me.txtAdresse3.MaxLines_Warning = ""
Me.txtAdresse3.MaxLines_Warning_Label = Nothing
Me.txtAdresse3.Name = "txtAdresse3"
Me.txtAdresse3.Size = New System.Drawing.Size(310, 20)
Me.txtAdresse3.TabIndex = 37
'
'txt_GF_Name
'
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(251, 203)
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 = 61
'
'lblHerrFrau
'
Me.lblHerrFrau.AutoSize = True
Me.lblHerrFrau.Location = New System.Drawing.Point(155, 210)
Me.lblHerrFrau.Name = "lblHerrFrau"
Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13)
Me.lblHerrFrau.TabIndex = 60
Me.lblHerrFrau.Text = "Herr/Frau:"
'
'txtSteuerNr
'
Me.txtSteuerNr._DateTimeOnly = False
Me.txtSteuerNr._numbersOnly = False
Me.txtSteuerNr._numbersOnlyKommastellen = ""
Me.txtSteuerNr._numbersOnlyTrennzeichen = True
Me.txtSteuerNr._Prozent = False
Me.txtSteuerNr._ShortDateNew = False
Me.txtSteuerNr._ShortDateOnly = False
Me.txtSteuerNr._TimeOnly = False
Me.txtSteuerNr._TimeOnly_Seconds = False
Me.txtSteuerNr._value = Nothing
Me.txtSteuerNr._Waehrung = False
Me.txtSteuerNr._WaehrungZeichen = True
Me.txtSteuerNr.ForeColor = System.Drawing.Color.Black
Me.txtSteuerNr.Location = New System.Drawing.Point(651, 136)
Me.txtSteuerNr.MaxLineLength = -1
Me.txtSteuerNr.MaxLines_Warning = ""
Me.txtSteuerNr.MaxLines_Warning_Label = Nothing
Me.txtSteuerNr.Name = "txtSteuerNr"
Me.txtSteuerNr.Size = New System.Drawing.Size(310, 20)
Me.txtSteuerNr.TabIndex = 63
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(585, 139)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(55, 13)
Me.Label11.TabIndex = 62
Me.Label11.Text = "Steuer-Nr:"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(812, 284)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64
Me.Label13.Text = "Datum:"
'
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(868, 284)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
'
'txt_GF_Geb
'
Me.txt_GF_Geb._DateTimeOnly = False
Me.txt_GF_Geb._numbersOnly = False
Me.txt_GF_Geb._numbersOnlyKommastellen = ""
Me.txt_GF_Geb._numbersOnlyTrennzeichen = True
Me.txt_GF_Geb._Prozent = False
Me.txt_GF_Geb._ShortDateNew = True
Me.txt_GF_Geb._ShortDateOnly = False
Me.txt_GF_Geb._TimeOnly = False
Me.txt_GF_Geb._TimeOnly_Seconds = False
Me.txt_GF_Geb._value = ""
Me.txt_GF_Geb._Waehrung = False
Me.txt_GF_Geb._WaehrungZeichen = False
Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Geb.Location = New System.Drawing.Point(650, 203)
Me.txt_GF_Geb.MaxLength = 10
Me.txt_GF_Geb.MaxLineLength = -1
Me.txt_GF_Geb.MaxLines_Warning = ""
Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing
Me.txt_GF_Geb.Name = "txt_GF_Geb"
Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Geb.TabIndex = 67
'
'lblGFGebDat
'
Me.lblGFGebDat.AutoSize = True
Me.lblGFGebDat.Location = New System.Drawing.Point(571, 203)
Me.lblGFGebDat.Name = "lblGFGebDat"
Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13)
Me.lblGFGebDat.TabIndex = 66
Me.lblGFGebDat.Text = "Geb-Dat.:"
'
'txt_GF_Adresse
'
Me.txt_GF_Adresse._DateTimeOnly = False
Me.txt_GF_Adresse._numbersOnly = False
Me.txt_GF_Adresse._numbersOnlyKommastellen = ""
Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True
Me.txt_GF_Adresse._Prozent = False
Me.txt_GF_Adresse._ShortDateNew = True
Me.txt_GF_Adresse._ShortDateOnly = False
Me.txt_GF_Adresse._TimeOnly = False
Me.txt_GF_Adresse._TimeOnly_Seconds = False
Me.txt_GF_Adresse._value = ""
Me.txt_GF_Adresse._Waehrung = False
Me.txt_GF_Adresse._WaehrungZeichen = False
Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Adresse.Location = New System.Drawing.Point(251, 221)
Me.txt_GF_Adresse.MaxLength = 10
Me.txt_GF_Adresse.MaxLineLength = -1
Me.txt_GF_Adresse.MaxLines_Warning = ""
Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing
Me.txt_GF_Adresse.Name = "txt_GF_Adresse"
Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20)
Me.txt_GF_Adresse.TabIndex = 69
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(155, 224)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(48, 13)
Me.Label14.TabIndex = 68
Me.Label14.Text = "Adresse:"
'
'txt_GF_Ort
'
Me.txt_GF_Ort._DateTimeOnly = False
Me.txt_GF_Ort._numbersOnly = False
Me.txt_GF_Ort._numbersOnlyKommastellen = ""
Me.txt_GF_Ort._numbersOnlyTrennzeichen = True
Me.txt_GF_Ort._Prozent = False
Me.txt_GF_Ort._ShortDateNew = False
Me.txt_GF_Ort._ShortDateOnly = False
Me.txt_GF_Ort._TimeOnly = False
Me.txt_GF_Ort._TimeOnly_Seconds = False
Me.txt_GF_Ort._value = Nothing
Me.txt_GF_Ort._Waehrung = False
Me.txt_GF_Ort._WaehrungZeichen = True
Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Ort.Location = New System.Drawing.Point(650, 238)
Me.txt_GF_Ort.MaxLineLength = -1
Me.txt_GF_Ort.MaxLines_Warning = ""
Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing
Me.txt_GF_Ort.Name = "txt_GF_Ort"
Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Ort.TabIndex = 73
'
'cbx_GF_Land
'
Me.cbx_GF_Land._allowedValuesFreiText = Nothing
Me.cbx_GF_Land._allowFreiText = False
Me.cbx_GF_Land._value = ""
Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbx_GF_Land.DropDownWidth = 200
Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_GF_Land.FormattingEnabled = True
Me.cbx_GF_Land.Location = New System.Drawing.Point(251, 238)
Me.cbx_GF_Land.Name = "cbx_GF_Land"
Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21)
Me.cbx_GF_Land.TabIndex = 72
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(155, 245)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(90, 13)
Me.Label15.TabIndex = 71
Me.Label15.Text = "Land / PLZ / Ort:"
'
'txt_GF_PLZ
'
Me.txt_GF_PLZ._DateTimeOnly = False
Me.txt_GF_PLZ._numbersOnly = False
Me.txt_GF_PLZ._numbersOnlyKommastellen = ""
Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True
Me.txt_GF_PLZ._Prozent = False
Me.txt_GF_PLZ._ShortDateNew = False
Me.txt_GF_PLZ._ShortDateOnly = False
Me.txt_GF_PLZ._TimeOnly = False
Me.txt_GF_PLZ._TimeOnly_Seconds = False
Me.txt_GF_PLZ._value = Nothing
Me.txt_GF_PLZ._Waehrung = False
Me.txt_GF_PLZ._WaehrungZeichen = True
Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black
Me.txt_GF_PLZ.Location = New System.Drawing.Point(362, 238)
Me.txt_GF_PLZ.MaxLineLength = -1
Me.txt_GF_PLZ.MaxLines_Warning = ""
Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing
Me.txt_GF_PLZ.Name = "txt_GF_PLZ"
Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20)
Me.txt_GF_PLZ.TabIndex = 70
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(10, 195)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(85, 13)
Me.Label16.TabIndex = 74
Me.Label16.Text = "Geschäftsführer:"
'
'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.Label16)
Me.Controls.Add(Me.txt_GF_Ort)
Me.Controls.Add(Me.cbx_GF_Land)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.txt_GF_PLZ)
Me.Controls.Add(Me.txt_GF_Adresse)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.txt_GF_Geb)
Me.Controls.Add(Me.lblGFGebDat)
Me.Controls.Add(Me.datDatum)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.txtSteuerNr)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txt_GF_Name)
Me.Controls.Add(Me.lblHerrFrau)
Me.Controls.Add(Me.txtAdresse3)
Me.Controls.Add(Me.cbxLandKz)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboLand)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
Me.Controls.Add(Me.btnDel)
Me.Controls.Add(Me.pic)
Me.Controls.Add(Me.lblVollmacht)
Me.Controls.Add(Me.txtAnsprechpartner)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtOrt)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.txtEmail)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.txtFax)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtTel)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.txtHRNr)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtUid)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtAdresse2)
Me.Controls.Add(Me.txtAdresse1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM_BHI"
Me.Size = New System.Drawing.Size(1000, 326)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents lbl As System.Windows.Forms.Label
Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtUid As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtHRNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents txtOrt As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents btn As System.Windows.Forms.Button
Friend WithEvents txtAnsprechpartner As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents pic As System.Windows.Forms.PictureBox
Friend WithEvents lblVollmacht As System.Windows.Forms.Label
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label9 As Label
Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txt_GF_Name As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblHerrFrau As Label
Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents Label13 As Label
Friend WithEvents datDatum As DateTimePicker
Friend WithEvents txt_GF_Geb As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGFGebDat As Label
Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label15 As Label
Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label16 As Label
End Class

0
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.resx → SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.resx
View File

36
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.vb → SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_BHI.vb
View File

@@ -1,4 +1,6 @@
Public Class usrcntlVollmacht_MDM_PDF
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlVollmacht_MDM_BHI
Implements FormualrInterface
Public Event CHANGED(name, value)
@@ -47,6 +49,28 @@
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(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
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & 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
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)
Else
txt_GF_Name.Text = ""
txt_GF_Geb.Text = ""
txt_GF_Adresse.Text = ""
txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("")
End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
@@ -54,7 +78,7 @@
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtHRNr.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
@@ -96,14 +120,10 @@
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"))
cbxLandKz.fillWithSQL(" select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("BHI", "BHI"))
cbxVMArt.changeItem("BHI")
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
If KdNR > 0 Then initKdNR(KdNR)
End Sub

326
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.Designer.vb → SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_MDM_PDF
Partial Class usrcntlVollmacht_MDM_EU
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -47,19 +47,30 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.btnDown = New System.Windows.Forms.Button()
Me.btnUp = New System.Windows.Forms.Button()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.lblLand = New System.Windows.Forms.Label()
Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxVMArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtHerrFrau = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblHerrFrau = New System.Windows.Forms.Label()
Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.datDatum = New System.Windows.Forms.DateTimePicker()
Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblGFGebDat = New System.Windows.Forms.Label()
Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -84,7 +95,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(170, 154)
Me.Label2.Location = New System.Drawing.Point(158, 154)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(43, 13)
Me.Label2.TabIndex = 14
@@ -111,7 +122,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(170, 173)
Me.Label5.Location = New System.Drawing.Point(158, 173)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(28, 13)
Me.Label5.TabIndex = 18
@@ -120,7 +131,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(170, 192)
Me.Label6.Location = New System.Drawing.Point(158, 192)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(39, 13)
Me.Label6.TabIndex = 22
@@ -129,7 +140,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 227)
Me.Label7.Location = New System.Drawing.Point(587, 301)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26
@@ -149,7 +160,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(559, 12)
Me.Label8.Location = New System.Drawing.Point(523, 8)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(88, 13)
Me.Label8.TabIndex = 2
@@ -170,7 +181,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9)
Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 5)
Me.txtAnsprechpartner.MaxLineLength = -1
Me.txtAnsprechpartner.MaxLines_Warning = ""
Me.txtAnsprechpartner.MaxLines_Warning_Label = Nothing
@@ -194,7 +205,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black
Me.txtOrt.Location = New System.Drawing.Point(653, 224)
Me.txtOrt.Location = New System.Drawing.Point(650, 298)
Me.txtOrt.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -403,9 +414,9 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmacht.Location = New System.Drawing.Point(43, 9)
Me.lblVollmacht.Name = "lblVollmacht"
Me.lblVollmacht.Size = New System.Drawing.Size(88, 20)
Me.lblVollmacht.Size = New System.Drawing.Size(118, 20)
Me.lblVollmacht.TabIndex = 1
Me.lblVollmacht.Text = "Vollmacht"
Me.lblVollmacht.Text = "Vollmacht EU"
'
'btnDown
'
@@ -443,14 +454,14 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.btnDel.TabIndex = 0
Me.btnDel.UseVisualStyleBackColor = True
'
'Label12
'lblLand
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(3, 64)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(49, 13)
Me.Label12.TabIndex = 5
Me.Label12.Text = "für Land:"
Me.lblLand.AutoSize = True
Me.lblLand.Location = New System.Drawing.Point(3, 64)
Me.lblLand.Name = "lblLand"
Me.lblLand.Size = New System.Drawing.Size(49, 13)
Me.lblLand.TabIndex = 5
Me.lblLand.Text = "für Land:"
'
'cboLand
'
@@ -512,26 +523,6 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.txtAdresse3.Size = New System.Drawing.Size(310, 20)
Me.txtAdresse3.TabIndex = 37
'
'cbxVMArt
'
Me.cbxVMArt._allowedValuesFreiText = Nothing
Me.cbxVMArt._allowFreiText = False
Me.cbxVMArt._value = ""
Me.cbxVMArt.FormattingEnabled = True
Me.cbxVMArt.Location = New System.Drawing.Point(254, 4)
Me.cbxVMArt.Name = "cbxVMArt"
Me.cbxVMArt.Size = New System.Drawing.Size(89, 21)
Me.cbxVMArt.TabIndex = 38
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(210, 9)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(23, 13)
Me.Label10.TabIndex = 39
Me.Label10.Text = "Art:"
'
'txtHerrFrau
'
Me.txtHerrFrau._DateTimeOnly = False
@@ -599,7 +590,7 @@ Partial Class usrcntlVollmacht_MDM_PDF
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(812, 227)
Me.Label13.Location = New System.Drawing.Point(809, 301)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64
@@ -608,29 +599,251 @@ Partial Class usrcntlVollmacht_MDM_PDF
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(868, 227)
Me.datDatum.Location = New System.Drawing.Point(865, 301)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
'
'usrcntlVollmacht_MDM
'txtEmailzurueck
'
Me.txtEmailzurueck._DateTimeOnly = False
Me.txtEmailzurueck._numbersOnly = False
Me.txtEmailzurueck._numbersOnlyKommastellen = ""
Me.txtEmailzurueck._numbersOnlyTrennzeichen = True
Me.txtEmailzurueck._Prozent = False
Me.txtEmailzurueck._ShortDateNew = False
Me.txtEmailzurueck._ShortDateOnly = False
Me.txtEmailzurueck._TimeOnly = False
Me.txtEmailzurueck._TimeOnly_Seconds = False
Me.txtEmailzurueck._value = Nothing
Me.txtEmailzurueck._Waehrung = False
Me.txtEmailzurueck._WaehrungZeichen = True
Me.txtEmailzurueck.ForeColor = System.Drawing.Color.Black
Me.txtEmailzurueck.Location = New System.Drawing.Point(653, 23)
Me.txtEmailzurueck.MaxLineLength = -1
Me.txtEmailzurueck.MaxLines_Warning = ""
Me.txtEmailzurueck.MaxLines_Warning_Label = Nothing
Me.txtEmailzurueck.Name = "txtEmailzurueck"
Me.txtEmailzurueck.Size = New System.Drawing.Size(310, 20)
Me.txtEmailzurueck.TabIndex = 67
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(523, 26)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(106, 13)
Me.Label14.TabIndex = 66
Me.Label14.Text = "Rücksendung EMail:"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(10, 217)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(85, 13)
Me.Label16.TabIndex = 85
Me.Label16.Text = "Geschäftsführer:"
'
'txt_GF_Ort
'
Me.txt_GF_Ort._DateTimeOnly = False
Me.txt_GF_Ort._numbersOnly = False
Me.txt_GF_Ort._numbersOnlyKommastellen = ""
Me.txt_GF_Ort._numbersOnlyTrennzeichen = True
Me.txt_GF_Ort._Prozent = False
Me.txt_GF_Ort._ShortDateNew = False
Me.txt_GF_Ort._ShortDateOnly = False
Me.txt_GF_Ort._TimeOnly = False
Me.txt_GF_Ort._TimeOnly_Seconds = False
Me.txt_GF_Ort._value = Nothing
Me.txt_GF_Ort._Waehrung = False
Me.txt_GF_Ort._WaehrungZeichen = True
Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Ort.Location = New System.Drawing.Point(653, 260)
Me.txt_GF_Ort.MaxLineLength = -1
Me.txt_GF_Ort.MaxLines_Warning = ""
Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing
Me.txt_GF_Ort.Name = "txt_GF_Ort"
Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Ort.TabIndex = 84
'
'cbx_GF_Land
'
Me.cbx_GF_Land._allowedValuesFreiText = Nothing
Me.cbx_GF_Land._allowFreiText = False
Me.cbx_GF_Land._value = ""
Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbx_GF_Land.DropDownWidth = 200
Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_GF_Land.FormattingEnabled = True
Me.cbx_GF_Land.Location = New System.Drawing.Point(254, 260)
Me.cbx_GF_Land.Name = "cbx_GF_Land"
Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21)
Me.cbx_GF_Land.TabIndex = 83
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(158, 267)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(90, 13)
Me.Label15.TabIndex = 82
Me.Label15.Text = "Land / PLZ / Ort:"
'
'txt_GF_PLZ
'
Me.txt_GF_PLZ._DateTimeOnly = False
Me.txt_GF_PLZ._numbersOnly = False
Me.txt_GF_PLZ._numbersOnlyKommastellen = ""
Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True
Me.txt_GF_PLZ._Prozent = False
Me.txt_GF_PLZ._ShortDateNew = False
Me.txt_GF_PLZ._ShortDateOnly = False
Me.txt_GF_PLZ._TimeOnly = False
Me.txt_GF_PLZ._TimeOnly_Seconds = False
Me.txt_GF_PLZ._value = Nothing
Me.txt_GF_PLZ._Waehrung = False
Me.txt_GF_PLZ._WaehrungZeichen = True
Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black
Me.txt_GF_PLZ.Location = New System.Drawing.Point(365, 260)
Me.txt_GF_PLZ.MaxLineLength = -1
Me.txt_GF_PLZ.MaxLines_Warning = ""
Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing
Me.txt_GF_PLZ.Name = "txt_GF_PLZ"
Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20)
Me.txt_GF_PLZ.TabIndex = 81
'
'txt_GF_Adresse
'
Me.txt_GF_Adresse._DateTimeOnly = False
Me.txt_GF_Adresse._numbersOnly = False
Me.txt_GF_Adresse._numbersOnlyKommastellen = ""
Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True
Me.txt_GF_Adresse._Prozent = False
Me.txt_GF_Adresse._ShortDateNew = True
Me.txt_GF_Adresse._ShortDateOnly = False
Me.txt_GF_Adresse._TimeOnly = False
Me.txt_GF_Adresse._TimeOnly_Seconds = False
Me.txt_GF_Adresse._value = ""
Me.txt_GF_Adresse._Waehrung = False
Me.txt_GF_Adresse._WaehrungZeichen = False
Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Adresse.Location = New System.Drawing.Point(254, 243)
Me.txt_GF_Adresse.MaxLength = 10
Me.txt_GF_Adresse.MaxLineLength = -1
Me.txt_GF_Adresse.MaxLines_Warning = ""
Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing
Me.txt_GF_Adresse.Name = "txt_GF_Adresse"
Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20)
Me.txt_GF_Adresse.TabIndex = 80
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(158, 246)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(48, 13)
Me.Label10.TabIndex = 79
Me.Label10.Text = "Adresse:"
'
'txt_GF_Geb
'
Me.txt_GF_Geb._DateTimeOnly = False
Me.txt_GF_Geb._numbersOnly = False
Me.txt_GF_Geb._numbersOnlyKommastellen = ""
Me.txt_GF_Geb._numbersOnlyTrennzeichen = True
Me.txt_GF_Geb._Prozent = False
Me.txt_GF_Geb._ShortDateNew = True
Me.txt_GF_Geb._ShortDateOnly = False
Me.txt_GF_Geb._TimeOnly = False
Me.txt_GF_Geb._TimeOnly_Seconds = False
Me.txt_GF_Geb._value = ""
Me.txt_GF_Geb._Waehrung = False
Me.txt_GF_Geb._WaehrungZeichen = False
Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Geb.Location = New System.Drawing.Point(653, 225)
Me.txt_GF_Geb.MaxLength = 10
Me.txt_GF_Geb.MaxLineLength = -1
Me.txt_GF_Geb.MaxLines_Warning = ""
Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing
Me.txt_GF_Geb.Name = "txt_GF_Geb"
Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Geb.TabIndex = 78
'
'lblGFGebDat
'
Me.lblGFGebDat.AutoSize = True
Me.lblGFGebDat.Location = New System.Drawing.Point(587, 228)
Me.lblGFGebDat.Name = "lblGFGebDat"
Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13)
Me.lblGFGebDat.TabIndex = 77
Me.lblGFGebDat.Text = "Geb-Dat.:"
'
'txt_GF_Name
'
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, 225)
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 = 76
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(158, 232)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(56, 13)
Me.Label12.TabIndex = 75
Me.Label12.Text = "Herr/Frau:"
'
'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.Label16)
Me.Controls.Add(Me.txt_GF_Ort)
Me.Controls.Add(Me.cbx_GF_Land)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.txt_GF_PLZ)
Me.Controls.Add(Me.txt_GF_Adresse)
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.Label12)
Me.Controls.Add(Me.txtEmailzurueck)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.datDatum)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.txtSteuerNr)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtHerrFrau)
Me.Controls.Add(Me.lblHerrFrau)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.cbxVMArt)
Me.Controls.Add(Me.txtAdresse3)
Me.Controls.Add(Me.cbxLandKz)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.lblLand)
Me.Controls.Add(Me.cboLand)
Me.Controls.Add(Me.btnDown)
Me.Controls.Add(Me.btnUp)
@@ -657,8 +870,8 @@ Partial Class usrcntlVollmacht_MDM_PDF
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM"
Me.Size = New System.Drawing.Size(1000, 256)
Me.Name = "usrcntlVollmacht_MDM_EU"
Me.Size = New System.Drawing.Size(1000, 340)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -689,17 +902,28 @@ Partial Class usrcntlVollmacht_MDM_PDF
Friend WithEvents btnDown As System.Windows.Forms.Button
Friend WithEvents btnUp As System.Windows.Forms.Button
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents lblLand As System.Windows.Forms.Label
Friend WithEvents cboLand As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label9 As Label
Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVMArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label10 As Label
Friend WithEvents txtHerrFrau As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblHerrFrau As Label
Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents Label13 As Label
Friend WithEvents datDatum As DateTimePicker
Friend WithEvents txtEmailzurueck As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents Label16 As Label
Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label15 As Label
Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox
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 Label12 As Label
End Class

0
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.resx → SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.resx
View File

51
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.vb → SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb
View File

@@ -1,4 +1,6 @@
Public Class usrcntlVollmacht_MDM_Word
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlVollmacht_MDM_EU
Implements FormualrInterface
Public Event CHANGED(name, value)
@@ -47,6 +49,28 @@
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(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
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & 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
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)
Else
txt_GF_Name.Text = ""
txt_GF_Geb.Text = ""
txt_GF_Adresse.Text = ""
txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("")
End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
@@ -97,22 +121,13 @@
'cboLand.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Spain", "ES"))
cboLand.changeItem("AT")
cbxSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EN", "EN"))
cbxSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE", "DE"))
cboLand.changeItem("DE")
cbxLandKz.fillWithSQL("select distinct landkz, Währungstabelle.Land from Währungstabelle where landkz is not null order by LandKz", , "FMZOLL", True)
cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU", "EU"))
cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO", "RO"))
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR", "TR"))
'cbxVMArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU"))
cbx_GF_Land.Items.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben"
cbxVMArt.changeItem("EU")
If KdNR > 0 Then initKdNR(KdNR)
End Sub
@@ -130,18 +145,4 @@
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub cbxVMArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxVMArt.SelectedIndexChanged
If cbxVMArt._value = "RO" Then
cboLand.Visible = False
lblLand.Visible = False
cbxSprache.Visible = True
lblSprache.Visible = True
Else
cboLand.Visible = True
lblLand.Visible = True
cbxSprache.Visible = False
lblSprache.Visible = False
End If
End Sub
End Class

314
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.Designer.vb → SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb generated
View File

@@ -1,5 +1,5 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_MDM_Word
Partial Class usrcntlVollmacht_MDM_NICHT_EU
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
@@ -52,18 +52,23 @@ Partial Class usrcntlVollmacht_MDM_Word
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxVMArt = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txtHerrFrau = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblHerrFrau = New System.Windows.Forms.Label()
Me.txtSteuerNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.datDatum = New System.Windows.Forms.DateTimePicker()
Me.txtEmailzurueck = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label14 = New System.Windows.Forms.Label()
Me.lblSprache = New System.Windows.Forms.Label()
Me.cbxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label16 = New System.Windows.Forms.Label()
Me.txt_GF_Ort = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbx_GF_Land = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label15 = New System.Windows.Forms.Label()
Me.txt_GF_PLZ = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txt_GF_Adresse = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.txt_GF_Geb = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblGFGebDat = New System.Windows.Forms.Label()
Me.txt_GF_Name = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblHerrFrau = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
@@ -133,7 +138,7 @@ Partial Class usrcntlVollmacht_MDM_Word
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(587, 227)
Me.Label7.Location = New System.Drawing.Point(584, 297)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(24, 13)
Me.Label7.TabIndex = 26
@@ -198,7 +203,7 @@ Partial Class usrcntlVollmacht_MDM_Word
Me.txtOrt._WaehrungZeichen = True
Me.txtOrt.Enabled = False
Me.txtOrt.ForeColor = System.Drawing.Color.Black
Me.txtOrt.Location = New System.Drawing.Point(653, 224)
Me.txtOrt.Location = New System.Drawing.Point(650, 294)
Me.txtOrt.MaxLineLength = -1
Me.txtOrt.MaxLines_Warning = ""
Me.txtOrt.MaxLines_Warning_Label = Nothing
@@ -407,9 +412,9 @@ Partial Class usrcntlVollmacht_MDM_Word
Me.lblVollmacht.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblVollmacht.Location = New System.Drawing.Point(43, 9)
Me.lblVollmacht.Name = "lblVollmacht"
Me.lblVollmacht.Size = New System.Drawing.Size(88, 20)
Me.lblVollmacht.Size = New System.Drawing.Size(176, 20)
Me.lblVollmacht.TabIndex = 1
Me.lblVollmacht.Text = "Vollmacht"
Me.lblVollmacht.Text = "Vollmacht NICHT EU"
'
'btnDown
'
@@ -516,58 +521,6 @@ Partial Class usrcntlVollmacht_MDM_Word
Me.txtAdresse3.Size = New System.Drawing.Size(310, 20)
Me.txtAdresse3.TabIndex = 37
'
'cbxVMArt
'
Me.cbxVMArt._allowedValuesFreiText = Nothing
Me.cbxVMArt._allowFreiText = False
Me.cbxVMArt._value = ""
Me.cbxVMArt.FormattingEnabled = True
Me.cbxVMArt.Location = New System.Drawing.Point(254, 4)
Me.cbxVMArt.Name = "cbxVMArt"
Me.cbxVMArt.Size = New System.Drawing.Size(89, 21)
Me.cbxVMArt.TabIndex = 38
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(210, 9)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(23, 13)
Me.Label10.TabIndex = 39
Me.Label10.Text = "Art:"
'
'txtHerrFrau
'
Me.txtHerrFrau._DateTimeOnly = False
Me.txtHerrFrau._numbersOnly = False
Me.txtHerrFrau._numbersOnlyKommastellen = ""
Me.txtHerrFrau._numbersOnlyTrennzeichen = True
Me.txtHerrFrau._Prozent = False
Me.txtHerrFrau._ShortDateNew = False
Me.txtHerrFrau._ShortDateOnly = False
Me.txtHerrFrau._TimeOnly = False
Me.txtHerrFrau._TimeOnly_Seconds = False
Me.txtHerrFrau._value = Nothing
Me.txtHerrFrau._Waehrung = False
Me.txtHerrFrau._WaehrungZeichen = True
Me.txtHerrFrau.ForeColor = System.Drawing.Color.Black
Me.txtHerrFrau.Location = New System.Drawing.Point(254, 46)
Me.txtHerrFrau.MaxLineLength = -1
Me.txtHerrFrau.MaxLines_Warning = ""
Me.txtHerrFrau.MaxLines_Warning_Label = Nothing
Me.txtHerrFrau.Name = "txtHerrFrau"
Me.txtHerrFrau.Size = New System.Drawing.Size(684, 20)
Me.txtHerrFrau.TabIndex = 61
'
'lblHerrFrau
'
Me.lblHerrFrau.AutoSize = True
Me.lblHerrFrau.Location = New System.Drawing.Point(158, 53)
Me.lblHerrFrau.Name = "lblHerrFrau"
Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13)
Me.lblHerrFrau.TabIndex = 60
Me.lblHerrFrau.Text = "Herr/Frau:"
'
'txtSteuerNr
'
Me.txtSteuerNr._DateTimeOnly = False
@@ -603,7 +556,7 @@ Partial Class usrcntlVollmacht_MDM_Word
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(812, 227)
Me.Label13.Location = New System.Drawing.Point(809, 297)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(41, 13)
Me.Label13.TabIndex = 64
@@ -612,7 +565,7 @@ Partial Class usrcntlVollmacht_MDM_Word
'datDatum
'
Me.datDatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.datDatum.Location = New System.Drawing.Point(868, 227)
Me.datDatum.Location = New System.Drawing.Point(865, 297)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
@@ -649,44 +602,208 @@ Partial Class usrcntlVollmacht_MDM_Word
Me.Label14.TabIndex = 66
Me.Label14.Text = "Rücksendung EMail:"
'
'lblSprache
'Label16
'
Me.lblSprache.AutoSize = True
Me.lblSprache.Location = New System.Drawing.Point(3, 110)
Me.lblSprache.Name = "lblSprache"
Me.lblSprache.Size = New System.Drawing.Size(50, 13)
Me.lblSprache.TabIndex = 68
Me.lblSprache.Text = "Sprache:"
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(10, 215)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(85, 13)
Me.Label16.TabIndex = 85
Me.Label16.Text = "Geschäftsführer:"
'
'cbxSprache
'txt_GF_Ort
'
Me.cbxSprache._allowedValuesFreiText = Nothing
Me.cbxSprache._allowFreiText = False
Me.cbxSprache._value = ""
Me.cbxSprache.FormattingEnabled = True
Me.cbxSprache.Location = New System.Drawing.Point(6, 126)
Me.cbxSprache.Name = "cbxSprache"
Me.cbxSprache.Size = New System.Drawing.Size(89, 21)
Me.cbxSprache.TabIndex = 69
Me.txt_GF_Ort._DateTimeOnly = False
Me.txt_GF_Ort._numbersOnly = False
Me.txt_GF_Ort._numbersOnlyKommastellen = ""
Me.txt_GF_Ort._numbersOnlyTrennzeichen = True
Me.txt_GF_Ort._Prozent = False
Me.txt_GF_Ort._ShortDateNew = False
Me.txt_GF_Ort._ShortDateOnly = False
Me.txt_GF_Ort._TimeOnly = False
Me.txt_GF_Ort._TimeOnly_Seconds = False
Me.txt_GF_Ort._value = Nothing
Me.txt_GF_Ort._Waehrung = False
Me.txt_GF_Ort._WaehrungZeichen = True
Me.txt_GF_Ort.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Ort.Location = New System.Drawing.Point(650, 258)
Me.txt_GF_Ort.MaxLineLength = -1
Me.txt_GF_Ort.MaxLines_Warning = ""
Me.txt_GF_Ort.MaxLines_Warning_Label = Nothing
Me.txt_GF_Ort.Name = "txt_GF_Ort"
Me.txt_GF_Ort.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Ort.TabIndex = 84
'
'usrcntlVollmacht_MDM_Word
'cbx_GF_Land
'
Me.cbx_GF_Land._allowedValuesFreiText = Nothing
Me.cbx_GF_Land._allowFreiText = False
Me.cbx_GF_Land._value = ""
Me.cbx_GF_Land.BackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cbx_GF_Land.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cbx_GF_Land.DropDownWidth = 200
Me.cbx_GF_Land.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cbx_GF_Land.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbx_GF_Land.FormattingEnabled = True
Me.cbx_GF_Land.Location = New System.Drawing.Point(251, 258)
Me.cbx_GF_Land.Name = "cbx_GF_Land"
Me.cbx_GF_Land.Size = New System.Drawing.Size(111, 21)
Me.cbx_GF_Land.TabIndex = 83
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(155, 265)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(90, 13)
Me.Label15.TabIndex = 82
Me.Label15.Text = "Land / PLZ / Ort:"
'
'txt_GF_PLZ
'
Me.txt_GF_PLZ._DateTimeOnly = False
Me.txt_GF_PLZ._numbersOnly = False
Me.txt_GF_PLZ._numbersOnlyKommastellen = ""
Me.txt_GF_PLZ._numbersOnlyTrennzeichen = True
Me.txt_GF_PLZ._Prozent = False
Me.txt_GF_PLZ._ShortDateNew = False
Me.txt_GF_PLZ._ShortDateOnly = False
Me.txt_GF_PLZ._TimeOnly = False
Me.txt_GF_PLZ._TimeOnly_Seconds = False
Me.txt_GF_PLZ._value = Nothing
Me.txt_GF_PLZ._Waehrung = False
Me.txt_GF_PLZ._WaehrungZeichen = True
Me.txt_GF_PLZ.ForeColor = System.Drawing.Color.Black
Me.txt_GF_PLZ.Location = New System.Drawing.Point(362, 258)
Me.txt_GF_PLZ.MaxLineLength = -1
Me.txt_GF_PLZ.MaxLines_Warning = ""
Me.txt_GF_PLZ.MaxLines_Warning_Label = Nothing
Me.txt_GF_PLZ.Name = "txt_GF_PLZ"
Me.txt_GF_PLZ.Size = New System.Drawing.Size(288, 20)
Me.txt_GF_PLZ.TabIndex = 81
'
'txt_GF_Adresse
'
Me.txt_GF_Adresse._DateTimeOnly = False
Me.txt_GF_Adresse._numbersOnly = False
Me.txt_GF_Adresse._numbersOnlyKommastellen = ""
Me.txt_GF_Adresse._numbersOnlyTrennzeichen = True
Me.txt_GF_Adresse._Prozent = False
Me.txt_GF_Adresse._ShortDateNew = True
Me.txt_GF_Adresse._ShortDateOnly = False
Me.txt_GF_Adresse._TimeOnly = False
Me.txt_GF_Adresse._TimeOnly_Seconds = False
Me.txt_GF_Adresse._value = ""
Me.txt_GF_Adresse._Waehrung = False
Me.txt_GF_Adresse._WaehrungZeichen = False
Me.txt_GF_Adresse.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Adresse.Location = New System.Drawing.Point(251, 241)
Me.txt_GF_Adresse.MaxLength = 10
Me.txt_GF_Adresse.MaxLineLength = -1
Me.txt_GF_Adresse.MaxLines_Warning = ""
Me.txt_GF_Adresse.MaxLines_Warning_Label = Nothing
Me.txt_GF_Adresse.Name = "txt_GF_Adresse"
Me.txt_GF_Adresse.Size = New System.Drawing.Size(709, 20)
Me.txt_GF_Adresse.TabIndex = 80
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(155, 244)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(48, 13)
Me.Label10.TabIndex = 79
Me.Label10.Text = "Adresse:"
'
'txt_GF_Geb
'
Me.txt_GF_Geb._DateTimeOnly = False
Me.txt_GF_Geb._numbersOnly = False
Me.txt_GF_Geb._numbersOnlyKommastellen = ""
Me.txt_GF_Geb._numbersOnlyTrennzeichen = True
Me.txt_GF_Geb._Prozent = False
Me.txt_GF_Geb._ShortDateNew = True
Me.txt_GF_Geb._ShortDateOnly = False
Me.txt_GF_Geb._TimeOnly = False
Me.txt_GF_Geb._TimeOnly_Seconds = False
Me.txt_GF_Geb._value = ""
Me.txt_GF_Geb._Waehrung = False
Me.txt_GF_Geb._WaehrungZeichen = False
Me.txt_GF_Geb.ForeColor = System.Drawing.Color.Black
Me.txt_GF_Geb.Location = New System.Drawing.Point(650, 223)
Me.txt_GF_Geb.MaxLength = 10
Me.txt_GF_Geb.MaxLineLength = -1
Me.txt_GF_Geb.MaxLines_Warning = ""
Me.txt_GF_Geb.MaxLines_Warning_Label = Nothing
Me.txt_GF_Geb.Name = "txt_GF_Geb"
Me.txt_GF_Geb.Size = New System.Drawing.Size(310, 20)
Me.txt_GF_Geb.TabIndex = 78
'
'lblGFGebDat
'
Me.lblGFGebDat.AutoSize = True
Me.lblGFGebDat.Location = New System.Drawing.Point(571, 223)
Me.lblGFGebDat.Name = "lblGFGebDat"
Me.lblGFGebDat.Size = New System.Drawing.Size(53, 13)
Me.lblGFGebDat.TabIndex = 77
Me.lblGFGebDat.Text = "Geb-Dat.:"
'
'txt_GF_Name
'
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(251, 223)
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 = 76
'
'lblHerrFrau
'
Me.lblHerrFrau.AutoSize = True
Me.lblHerrFrau.Location = New System.Drawing.Point(155, 230)
Me.lblHerrFrau.Name = "lblHerrFrau"
Me.lblHerrFrau.Size = New System.Drawing.Size(56, 13)
Me.lblHerrFrau.TabIndex = 75
Me.lblHerrFrau.Text = "Herr/Frau:"
'
'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.lblSprache)
Me.Controls.Add(Me.cbxSprache)
Me.Controls.Add(Me.Label16)
Me.Controls.Add(Me.txt_GF_Ort)
Me.Controls.Add(Me.cbx_GF_Land)
Me.Controls.Add(Me.Label15)
Me.Controls.Add(Me.txt_GF_PLZ)
Me.Controls.Add(Me.txt_GF_Adresse)
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.lblHerrFrau)
Me.Controls.Add(Me.txtEmailzurueck)
Me.Controls.Add(Me.Label14)
Me.Controls.Add(Me.datDatum)
Me.Controls.Add(Me.Label13)
Me.Controls.Add(Me.txtSteuerNr)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.txtHerrFrau)
Me.Controls.Add(Me.lblHerrFrau)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.cbxVMArt)
Me.Controls.Add(Me.txtAdresse3)
Me.Controls.Add(Me.cbxLandKz)
Me.Controls.Add(Me.Label9)
@@ -717,8 +834,8 @@ Partial Class usrcntlVollmacht_MDM_Word
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM_Word"
Me.Size = New System.Drawing.Size(1000, 256)
Me.Name = "usrcntlVollmacht_MDM_NICHT_EU"
Me.Size = New System.Drawing.Size(1000, 339)
CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -754,16 +871,21 @@ Partial Class usrcntlVollmacht_MDM_Word
Friend WithEvents cbxLandKz As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label9 As Label
Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVMArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label10 As Label
Friend WithEvents txtHerrFrau As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblHerrFrau As Label
Friend WithEvents txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label11 As Label
Friend WithEvents Label13 As Label
Friend WithEvents datDatum As DateTimePicker
Friend WithEvents txtEmailzurueck As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label14 As Label
Friend WithEvents lblSprache As Label
Friend WithEvents cbxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label16 As Label
Friend WithEvents txt_GF_Ort As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbx_GF_Land As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label15 As Label
Friend WithEvents txt_GF_PLZ As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txt_GF_Adresse As VERAG_PROG_ALLGEMEIN.MyTextBox
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 lblHerrFrau As Label
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

148
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb Normal file
View File

@@ -0,0 +1,148 @@
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlVollmacht_MDM_NICHT_EU
Implements FormualrInterface
Public Event CHANGED(name, value)
Public Event KDNR_CHANGED(kdnr)
Public Event DELETE(c As Control)
Public Event MOVE_UP(c As Control)
Public Event MOVE_DOWN(c As Control)
Public KdNR As Integer = -1
Public Sub ChangeKDNr(kdnr As Integer) Implements FormualrInterface.ChangeKDNr
initKdNR(kdnr)
End Sub
Sub initControlsHandler()
For Each c In Me.Controls
Select Case c.GetType.ToString
Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
RaiseEvent CHANGED(c.name, c._value)
End Sub
Case GetType(TextBox).ToString
AddHandler DirectCast(c, TextBox).Leave, Sub()
RaiseEvent CHANGED(c.name, c.text)
End Sub
End Select
Next
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Dim kdsrch As New SDL.frmKundenSuche
'Panel1.Enabled = False
If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
If IsNumeric(kdsrch.kundenNrSearch.Text) Then
initKdNR(kdsrch.kundenNrSearch.Text)
RaiseEvent KDNR_CHANGED(KdNR)
End If
End If
' Panel1.Enabled = True
End Sub
Public Sub initKdNR(KdNR)
Me.KdNR = KdNR
Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
Dim KK_List As New VERAG_PROG_ALLGEMEIN.cKundenKontakteList(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
txt_GF_Name.Text = GF.kkd_AnsprechpartnerAnrede & IIf(GF.kkd_AnsprechpartnerNachname <> "", GF.kkd_AnsprechpartnerNachname & " ", "") & 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
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)
Else
txt_GF_Name.Text = ""
txt_GF_Geb.Text = ""
txt_GF_Adresse.Text = ""
txt_GF_Ort.Text = ""
txt_GF_PLZ.Text = ""
cbx_GF_Land.changeItem("")
End If
txtFirma.Text = If(ADRESSE.Name_1, "") & If(If(ADRESSE.Name_2, "") <> "", " " & ADRESSE.Name_2, "")
txtAdresse1.Text = If(ADRESSE.Straße, "")
cbxLandKz.changeItem(ADRESSE.LandKz)
txtAdresse2.Text = If(ADRESSE.PLZ, "").ToString.Trim
txtAdresse3.Text = If(ADRESSE.Ort, "").ToString.Trim
txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
txtEori.Text = If(KUNDE.EORITIN, "")
txtTel.Text = If(ADRESSE.Telefon, "")
txtFax.Text = If(ADRESSE.Telefax, "")
txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
txtEmail.Text = If(ADRESSE.E_Mail, "")
txtAnsprechpartner.Text = (If(ADRESSE.Anrede, "") & " " & If(ADRESSE.Ansprechpartner, "")).trim
End Sub
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
RaiseEvent DELETE(Me)
End Sub
Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
RaiseEvent MOVE_UP(Me)
End Sub
Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
RaiseEvent MOVE_DOWN(Me)
End Sub
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("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("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("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("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")
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.AddRange(cbxLandKz.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben"
If KdNR > 0 Then initKdNR(KdNR)
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
FormularManagerNEU.genPDF(Me, True)
End Sub
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
End Class

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

@@ -256,8 +256,9 @@ Public Class frmFormulare
Case Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht", FormularManagerArten.MDM_Vollmacht_PDF))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_Word))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht EU", FormularManagerArten.MDM_Vollmacht_EU))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht NICHT EU", FormularManagerArten.MDM_Vollmacht_NICHT_EU))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EU Vollmacht", FormularManagerArten.MDM_Vollmacht))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RO Vollmacht", FormularManagerArten.MDM_Vollmacht))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TR Vollmacht", FormularManagerArten.MDM_Vollmacht))
@@ -390,8 +391,8 @@ Public Class frmFormulare
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.MDM_Vollmacht_PDF
Dim c As New usrcntlVollmacht_MDM_PDF
Case FormularManagerArten.MDM_Vollmacht_BHI
Dim c As New usrcntlVollmacht_MDM_BHI
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
@@ -403,8 +404,8 @@ Public Class frmFormulare
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.MDM_Vollmacht_Word
Dim c As New usrcntlVollmacht_MDM_Word
Case FormularManagerArten.MDM_Vollmacht_EU
Dim c As New usrcntlVollmacht_MDM_EU
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
@@ -415,6 +416,20 @@ Public Class frmFormulare
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.MDM_Vollmacht_NICHT_EU
Dim c As New usrcntlVollmacht_MDM_NICHT_EU
If ControlExists_addOK(c.GetType.ToString) Then
c.Width = MyFlowLayoutPanel1.Width - 6
c.KdNR = KdNr
AddHandler c.CHANGED, AddressOf ValueChanged
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
AddHandler c.DELETE, AddressOf ControlDELETE
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.DE_Fiskal
Dim c As New usrcntlVollmacht_DE_Fiskal
If ControlExists_addOK(c.GetType.ToString) Then
@@ -1459,11 +1474,14 @@ Public Class FormularManagerNEU
Case GetType(usrcntlEinfuhrverbot).ToString
retStr = FormularManagerNEU.Einfuhrverbot(c)
Case GetType(usrcntlVollmacht_MDM_PDF).ToString
retStr = FormularManagerNEU.VM_MDM_PDF(c)
Case GetType(usrcntlVollmacht_MDM_BHI).ToString
retStr = FormularManagerNEU.VM_MDM_BHI(c)
Case GetType(usrcntlVollmacht_MDM_Word).ToString
striList = FormularManagerNEU.VM_MDM_WORD(c, printReportElsePdf, printerName, openWord)
Case GetType(usrcntlVollmacht_MDM_EU).ToString
striList = FormularManagerNEU.VM_MDM_EU(c, printReportElsePdf, printerName, openWord)
Case GetType(usrcntlVollmacht_MDM_NICHT_EU).ToString
striList = FormularManagerNEU.VM_MDM_NICHT_EU(c, printReportElsePdf, printerName, openWord)
End Select
If retStr <> "" Then
@@ -1609,26 +1627,17 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function VM_MDM_PDF(usrCntl As usrcntlVollmacht_MDM_PDF) As String
Shared Function VM_MDM_BHI(usrCntl As usrcntlVollmacht_MDM_BHI) As String
'aktuell nur als PDF
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_BHI_" & usrCntl.cboLand._value)
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 70, 90, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text, 70, 98, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cbxLandKz.Text, 70, 105, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 70, 115, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 30, 197, 55, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Today(), 122, 197, 70, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
Dim listItem2 As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
For Each item In list
Select Case item.Text.ToLower().Trim()
@@ -1639,9 +1648,9 @@ Public Class FormularManagerNEU
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 "surname_firstname" : 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 "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")))
@@ -1655,28 +1664,21 @@ Public Class FormularManagerNEU
'place
'c_mailcontact
Next
Select Case usrCntl.cbxVMArt._value
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
Case "BHI" : Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
Case Else
End Select
Return fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_BHI_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False)
End Function
Shared Function VM_MDM_WORD(usrCntl As usrcntlVollmacht_MDM_Word, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
Shared Function VM_MDM_NICHT_EU(usrCntl As usrcntlVollmacht_MDM_NICHT_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
Dim striList As New List(Of String)
Try
'aktuell immer nur WORD
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
Dim oWord As New Microsoft.Office.Interop.Word.Application
@@ -1684,10 +1686,129 @@ Public Class FormularManagerNEU
Dim docBez As String = ""
Select Case usrCntl.cbxVMArt._value
Case "EU" : docBez = "VOLLMACHT_" & usrCntl.cboLand._value
Case "RO" : docBez = "GENERALVOLLMACHT_" & usrCntl.cbxVMArt._value & "_" & usrCntl.cbxSprache._value
End Select
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
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
For Each item In odoc.FormFields
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.Text & "-" & 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.Text
Case "place" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse3.Text
Case "street" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.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 "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_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.txtEmail.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 & ", " & usrCntl.datDatum.Value.ToString("dd-MM-yyyy")
'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()
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()
'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("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
Try
odoc.Close()
oWord.Quit()
Catch ex As Exception
MsgBox(ex.Message)
End Try
striList.Add(path)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString & ex.StackTrace)
End Try
Return striList
End Function
Shared Function VM_MDM_EU(usrCntl As usrcntlVollmacht_MDM_EU, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
Dim striList As New List(Of String)
Try
'aktuell immer nur WORD
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
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 = ""
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", docBez)
Dim pfadWord = DS.GET_TOP1_PATH(False)
@@ -1775,7 +1896,7 @@ Public Class FormularManagerNEU
Else
'oWord.Visible = True
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VOLLMACHT_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VM_EU_" & usrCntl.cboLand._value & ".pdf", ".pdf", True, False)
odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)
@@ -6247,8 +6368,9 @@ Public Class FormularManagerArten
Shared Property AT_Fiskal = "AT_Fiskal"
Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE"
Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt"
Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF"
Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word"
Shared Property MDM_Vollmacht_BHI = "MDM_Vollmacht_BHI"
Shared Property MDM_Vollmacht_EU = "MDM_Vollmacht_EU"
Shared Property MDM_Vollmacht_NICHT_EU = "MDM_Vollmacht_NICHT_EU"
Shared Property Vollmacht_FA = "Vollmacht_FA"
Shared Property VERAG_EXPORT = "VERAG_EXPORT"
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"