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

FormularManager für SDL, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-08-06 16:41:35 +02:00
parent 58deafb5be
commit 8db41361dc
15 changed files with 2907 additions and 557 deletions
Download Patch File Download Diff File Expand all files Collapse all files

705
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.Designer.vb generated Normal file
View File

@@ -0,0 +1,705 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_MDM_PDF
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.txtEori = 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.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()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(158, 67)
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(158, 86)
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(170, 154)
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(587, 154)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 16
Me.Label3.Text = "EORI-Nr:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(587, 192)
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(170, 173)
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(170, 192)
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, 227)
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(937, 64)
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, 224)
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(254, 189)
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(653, 189)
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(254, 170)
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
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = Nothing
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(653, 151)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(310, 20)
Me.txtEori.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(254, 151)
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(365, 102)
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(254, 83)
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(254, 64)
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(88, 20)
Me.lblVollmacht.TabIndex = 1
Me.lblVollmacht.Text = "Vollmacht"
'
'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(254, 102)
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(158, 109)
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(653, 102)
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
'
'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
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(653, 170)
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(587, 173)
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, 227)
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, 227)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
'
'usrcntlVollmacht_MDM
'
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.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.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.txtEori)
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.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM"
Me.Size = New System.Drawing.Size(1000, 256)
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 txtEori 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 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
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.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>

124
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_PDF.vb Normal file
View File

@@ -0,0 +1,124 @@
Public Class usrcntlVollmacht_MDM_PDF
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)
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("Bulgaria", "BU"))
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"))
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"))
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

769
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.Designer.vb generated Normal file
View File

@@ -0,0 +1,769 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrcntlVollmacht_MDM_Word
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.txtEori = 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.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.lblSprache = New System.Windows.Forms.Label()
Me.cbxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'lbl
'
Me.lbl.AutoSize = True
Me.lbl.Location = New System.Drawing.Point(158, 67)
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(158, 86)
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(170, 154)
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(587, 154)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(50, 13)
Me.Label3.TabIndex = 16
Me.Label3.Text = "EORI-Nr:"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(587, 192)
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(170, 173)
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(170, 192)
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, 227)
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(937, 64)
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(523, 8)
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, 5)
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, 224)
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(254, 189)
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(653, 189)
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(254, 170)
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
'
'txtEori
'
Me.txtEori._DateTimeOnly = False
Me.txtEori._numbersOnly = False
Me.txtEori._numbersOnlyKommastellen = ""
Me.txtEori._numbersOnlyTrennzeichen = True
Me.txtEori._Prozent = False
Me.txtEori._ShortDateNew = False
Me.txtEori._ShortDateOnly = False
Me.txtEori._TimeOnly = False
Me.txtEori._TimeOnly_Seconds = False
Me.txtEori._value = Nothing
Me.txtEori._Waehrung = False
Me.txtEori._WaehrungZeichen = True
Me.txtEori.ForeColor = System.Drawing.Color.Black
Me.txtEori.Location = New System.Drawing.Point(653, 151)
Me.txtEori.MaxLineLength = -1
Me.txtEori.MaxLines_Warning = ""
Me.txtEori.MaxLines_Warning_Label = Nothing
Me.txtEori.Name = "txtEori"
Me.txtEori.Size = New System.Drawing.Size(310, 20)
Me.txtEori.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(254, 151)
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(365, 102)
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(254, 83)
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(254, 64)
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(88, 20)
Me.lblVollmacht.TabIndex = 1
Me.lblVollmacht.Text = "Vollmacht"
'
'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
'
'lblLand
'
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
'
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(254, 102)
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(158, 109)
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(653, 102)
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
'
'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
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(653, 170)
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(587, 173)
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, 227)
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, 227)
Me.datDatum.Name = "datDatum"
Me.datDatum.Size = New System.Drawing.Size(95, 20)
Me.datDatum.TabIndex = 65
'
'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:"
'
'lblSprache
'
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:"
'
'cbxSprache
'
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
'
'usrcntlVollmacht_MDM_Word
'
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.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.lblLand)
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.txtEori)
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.txtFirma)
Me.Controls.Add(Me.lbl)
Me.Name = "usrcntlVollmacht_MDM_Word"
Me.Size = New System.Drawing.Size(1000, 256)
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 txtEori 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 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 lblSprache As Label
Friend WithEvents cbxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

120
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.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>

147
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_Word.vb Normal file
View File

@@ -0,0 +1,147 @@
Public Class usrcntlVollmacht_MDM_Word
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)
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")
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"))
txtEmailzurueck.Text = "juricevic@verag.ag"
txtOrt.Text = "Suben"
cbxVMArt.changeItem("EU")
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
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

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

@@ -1,4 +1,4 @@
Imports iTextSharp.text.pdf
Imports itextsharp.text.pdf
Imports System.IO
Imports System.Drawing.Printing
Imports System.Runtime.InteropSerausices
@@ -12,6 +12,8 @@ Imports System.Net.Mail
Imports System.Reflection
Imports System.Text.RegularExpressions
Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung
Imports System.Windows.Documents
Imports VERAG_PROG_ALLGEMEIN
Public Class frmFormulare
Dim isSingleForm = False
@@ -232,6 +234,7 @@ Public Class frmFormulare
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))
Case "ATILLA"
Case "AMBAR"
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht (EV)", FormularManagerArten.AT_Vollmacht_EV))
@@ -258,6 +261,15 @@ Public Class frmFormulare
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
Case Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "16" 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("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))
'MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU Vollmacht", FormularManagerArten.MDM_Vollmacht))
Else
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
@@ -300,7 +312,7 @@ Public Class frmFormulare
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))
End If
End Select
@@ -382,6 +394,32 @@ Public Class frmFormulare
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
MyFlowLayoutPanel1.Controls.Add(c)
End If
Case FormularManagerArten.MDM_Vollmacht_PDF
Dim c As New usrcntlVollmacht_MDM_PDF
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.MDM_Vollmacht_Word
Dim c As New usrcntlVollmacht_MDM_Word
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
@@ -1412,6 +1450,12 @@ 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_Word).ToString
striList = FormularManagerNEU.VM_MDM_WORD(c, printReportElsePdf, printerName, openWord)
End Select
If retStr <> "" Then
striList.Add(retStr)
@@ -1556,6 +1600,184 @@ Public Class FormularManagerNEU
Return ""
End Function
Shared Function VM_MDM_PDF(usrCntl As usrcntlVollmacht_MDM_PDF) As String
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()
Case "name" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
Case "company" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtFirma.Text))
Case "address" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text))
Case "zipcode" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtAdresse2.Text))
Case "country" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.cbxLandKz.Text))
Case "vatno" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
Case "vatnr" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtUid.Text))
Case "surname_firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
Case "surname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
Case "firstname" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtHerrFrau.Text))
Case "place" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text))
Case "place_date" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, usrCntl.txtOrt.Text & " " & usrCntl.datDatum.ToString("ddMMyyyy")))
End Select
'surname_firstname
'surname
'lastname
'place_date
'vat_country
'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
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)
Dim striList As New List(Of String)
Try
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 = ""
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 "address" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
Case "surname_firstname" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtHerrFrau.Text
Case "vatno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtUid.Text
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_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("VOLLMACHT_" & 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_AT(usrCntl As usrcntlVollmacht_AT) As String
'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -5901,6 +6123,10 @@ Public Class FormularManagerArten
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 VERAG_EXPORT = "VERAG_EXPORT"
Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
@@ -5934,8 +6160,6 @@ Public Class FormularManagerArten
Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"
End Class

18
SDL/SDL.vbproj
View File

@@ -636,6 +636,18 @@
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEinfuhrverbot.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_Word.Designer.vb">
<DependentUpon>usrcntlVollmacht_MDM_Word.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_Word.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_PDF.Designer.vb">
<DependentUpon>usrcntlVollmacht_MDM_PDF.vb</DependentUpon>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_PDF.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.Designer.vb">
<DependentUpon>usrcntlVollmacht_DE_indirekt.vb</DependentUpon>
</Compile>
@@ -3169,6 +3181,12 @@
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlEinfuhrverbot.resx">
<DependentUpon>usrcntlEinfuhrverbot.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_Word.resx">
<DependentUpon>usrcntlVollmacht_MDM_Word.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_MDM_PDF.resx">
<DependentUpon>usrcntlVollmacht_MDM_PDF.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_DE_indirekt.resx">
<DependentUpon>usrcntlVollmacht_DE_indirekt.vb</DependentUpon>
</EmbeddedResource>

110
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

@@ -26,6 +26,8 @@ Partial Class frmMDM_USTVAntrag
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMDM_USTVAntrag))
Me.Panel3 = New System.Windows.Forms.Panel()
Me.lblRMCeingearbeitet = New System.Windows.Forms.Label()
Me.btnRMCEinarbeiten = New System.Windows.Forms.Button()
Me.btnMail = New System.Windows.Forms.Button()
Me.Button14 = New System.Windows.Forms.Button()
Me.cbxArchivierteEintracheNochmalsEinarbetien = New System.Windows.Forms.CheckBox()
@@ -69,13 +71,13 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnl = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.btnRMCEinarbeiten = New System.Windows.Forms.Button()
Me.lblRMCeingearbeitet = New System.Windows.Forms.Label()
Me.txt3470 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel3.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.Panel9.SuspendLayout()
@@ -107,6 +109,32 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3.Size = New System.Drawing.Size(1454, 100)
Me.Panel3.TabIndex = 3
'
'lblRMCeingearbeitet
'
Me.lblRMCeingearbeitet.ForeColor = System.Drawing.Color.Black
Me.lblRMCeingearbeitet.Location = New System.Drawing.Point(198, 70)
Me.lblRMCeingearbeitet.Name = "lblRMCeingearbeitet"
Me.lblRMCeingearbeitet.Size = New System.Drawing.Size(168, 19)
Me.lblRMCeingearbeitet.TabIndex = 28
Me.lblRMCeingearbeitet.Text = "alle Einträge verarbeitet"
Me.lblRMCeingearbeitet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblRMCeingearbeitet.Visible = False
'
'btnRMCEinarbeiten
'
Me.btnRMCEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRMCEinarbeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnRMCEinarbeiten.ForeColor = System.Drawing.Color.Black
Me.btnRMCEinarbeiten.Image = Global.SDL.My.Resources.Resources.plus
Me.btnRMCEinarbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRMCEinarbeiten.Location = New System.Drawing.Point(198, 29)
Me.btnRMCEinarbeiten.Name = "btnRMCEinarbeiten"
Me.btnRMCEinarbeiten.Size = New System.Drawing.Size(168, 38)
Me.btnRMCEinarbeiten.TabIndex = 27
Me.btnRMCEinarbeiten.Text = "RMC übernehmen"
Me.btnRMCEinarbeiten.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRMCEinarbeiten.UseVisualStyleBackColor = True
'
'btnMail
'
Me.btnMail.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -246,6 +274,8 @@ Partial Class frmMDM_USTVAntrag
'
Me.Panel8.BackColor = System.Drawing.Color.WhiteSmoke
Me.Panel8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Panel8.Controls.Add(Me.Label1)
Me.Panel8.Controls.Add(Me.txt3470)
Me.Panel8.Controls.Add(Me.Label3)
Me.Panel8.Controls.Add(Me.lblZeitraum)
Me.Panel8.Controls.Add(Me.txtVon)
@@ -706,14 +736,6 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1300, 269)
Me.Panel2.TabIndex = 1
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -761,31 +783,51 @@ Partial Class frmMDM_USTVAntrag
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'btnRMCEinarbeiten
'txt3470
'
Me.btnRMCEinarbeiten.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnRMCEinarbeiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.btnRMCEinarbeiten.ForeColor = System.Drawing.Color.Black
Me.btnRMCEinarbeiten.Image = Global.SDL.My.Resources.Resources.plus
Me.btnRMCEinarbeiten.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnRMCEinarbeiten.Location = New System.Drawing.Point(198, 29)
Me.btnRMCEinarbeiten.Name = "btnRMCEinarbeiten"
Me.btnRMCEinarbeiten.Size = New System.Drawing.Size(168, 38)
Me.btnRMCEinarbeiten.TabIndex = 27
Me.btnRMCEinarbeiten.Text = "RMC übernehmen"
Me.btnRMCEinarbeiten.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnRMCEinarbeiten.UseVisualStyleBackColor = True
Me.txt3470._DateTimeOnly = False
Me.txt3470._numbersOnly = True
Me.txt3470._numbersOnlyKommastellen = ""
Me.txt3470._numbersOnlyTrennzeichen = True
Me.txt3470._Prozent = False
Me.txt3470._ShortDateNew = False
Me.txt3470._ShortDateOnly = False
Me.txt3470._TimeOnly = False
Me.txt3470._TimeOnly_Seconds = False
Me.txt3470._value = ""
Me.txt3470._Waehrung = True
Me.txt3470._WaehrungZeichen = True
Me.txt3470.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!)
Me.txt3470.ForeColor = System.Drawing.Color.Black
Me.txt3470.Location = New System.Drawing.Point(858, 3)
Me.txt3470.MaxLength = 10
Me.txt3470.MaxLineLength = -1
Me.txt3470.MaxLines_Warning = ""
Me.txt3470.MaxLines_Warning_Label = Nothing
Me.txt3470.Name = "txt3470"
Me.txt3470.Size = New System.Drawing.Size(100, 23)
Me.txt3470.TabIndex = 9
'
'lblRMCeingearbeitet
'Label1
'
Me.lblRMCeingearbeitet.ForeColor = System.Drawing.Color.Black
Me.lblRMCeingearbeitet.Location = New System.Drawing.Point(198, 70)
Me.lblRMCeingearbeitet.Name = "lblRMCeingearbeitet"
Me.lblRMCeingearbeitet.Size = New System.Drawing.Size(168, 19)
Me.lblRMCeingearbeitet.TabIndex = 28
Me.lblRMCeingearbeitet.Text = "alle Einträge verarbeitet"
Me.lblRMCeingearbeitet.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblRMCeingearbeitet.Visible = False
Me.Label1.AutoSize = True
Me.Label1.BackColor = System.Drawing.Color.Transparent
Me.Label1.Cursor = System.Windows.Forms.Cursors.Hand
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ForeColor = System.Drawing.Color.Black
Me.Label1.Location = New System.Drawing.Point(785, 6)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 17)
Me.Label1.TabIndex = 10
Me.Label1.Text = "3470:"
'
'UstCntlUSTV_AntragPosition1
'
Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(0, 0)
Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1298, 267)
Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
'
'frmMDM_USTVAntrag
'
@@ -874,4 +916,6 @@ Partial Class frmMDM_USTVAntrag
Friend WithEvents cboAntragArt As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents btnRMCEinarbeiten As Button
Friend WithEvents lblRMCeingearbeitet As Label
Friend WithEvents Label1 As Label
Friend WithEvents txt3470 As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class

9
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -169,6 +169,7 @@ Public Class frmMDM_USTVAntrag
If If(USTV_ANTRAG.UStVAn_AntragArt, "") = "" Then cboAntragArt.changeItem("MWST")
cboAntragArt.changeItem(If(USTV_ANTRAG.UStVAn_AntragArt, ""))
rtbStatusText.Text = If(USTV_ANTRAG.UStVAn_StatusText, "")
txt3470.Text = If(USTV_ANTRAG.UStVAn_3470, "")
End Sub
@@ -185,6 +186,14 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_Status = cboStatus._value
USTV_ANTRAG.UStVAn_AntragArt = cboAntragArt._value
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
USTV_ANTRAG.UStVAn_3470 = CDbl(txt3470.Text)
Else
USTV_ANTRAG.UStVAn_3470 = Nothing
End If
End If
End Sub
Function Me_Validate() As Boolean

39
SDL/frmMain.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmMain
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class frmMain
'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()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
@@ -89,6 +89,8 @@ Partial Class frmMain
Me.mnuAdministrator = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.StatistikToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuFormular = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.mnuFunktionen = New System.Windows.Forms.ToolStripMenuItem()
Me.SMSToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NeueSMSSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -729,7 +731,7 @@ Partial Class frmMain
'
Me.MenuStrip1.BackColor = System.Drawing.Color.White
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFunktionen, Me.mnuFragezeichen})
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnuProgramm, Me.mnuAdministrator, Me.StatistikToolStripMenuItem, Me.mnuFormular, Me.mnuFunktionen, Me.mnuFragezeichen})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(984, 24)
@@ -748,24 +750,24 @@ Partial Class frmMain
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(154, 6)
Me.ToolStripSeparator4.Size = New System.Drawing.Size(177, 6)
'
'NeuesPasswortToolStripMenuItem
'
Me.NeuesPasswortToolStripMenuItem.Name = "NeuesPasswortToolStripMenuItem"
Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.NeuesPasswortToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.NeuesPasswortToolStripMenuItem.Text = "Neues Passwort"
'
'UpdateToolStripMenuItem
'
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.UpdateToolStripMenuItem.Text = "Update"
'
'TESTToolStripMenuItem
'
Me.TESTToolStripMenuItem.Name = "TESTToolStripMenuItem"
Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(157, 22)
Me.TESTToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.TESTToolStripMenuItem.Text = "TEST"
Me.TESTToolStripMenuItem.Visible = False
'
@@ -781,7 +783,7 @@ Partial Class frmMain
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(57, 6)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
'
'StatistikToolStripMenuItem
'
@@ -791,6 +793,21 @@ Partial Class frmMain
Me.StatistikToolStripMenuItem.Text = "Statistik"
Me.StatistikToolStripMenuItem.Visible = False
'
'mnuFormular
'
Me.mnuFormular.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3})
Me.mnuFormular.Name = "mnuFormular"
Me.mnuFormular.Size = New System.Drawing.Size(73, 20)
Me.mnuFormular.Text = "Formulare"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStripMenuItem3.Image = Global.SDL.My.Resources.Resources.android_note12
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
Me.ToolStripMenuItem3.Size = New System.Drawing.Size(192, 30)
Me.ToolStripMenuItem3.Text = "Formular - Manager"
'
'mnuFunktionen
'
Me.mnuFunktionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SMSToolStripMenuItem})
@@ -802,7 +819,7 @@ Partial Class frmMain
'
Me.SMSToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueSMSSendenToolStripMenuItem, Me.SMSVerlaufToolStripMenuItem})
Me.SMSToolStripMenuItem.Name = "SMSToolStripMenuItem"
Me.SMSToolStripMenuItem.Size = New System.Drawing.Size(97, 22)
Me.SMSToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.SMSToolStripMenuItem.Text = "SMS"
'
'NeueSMSSendenToolStripMenuItem
@@ -1142,4 +1159,6 @@ Partial Class frmMain
Friend WithEvents RechnungsdatenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AdministrationToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents EssensbestellungToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents mnuFormular As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem3 As ToolStripMenuItem
End Class

5
SDL/frmMain.vb
View File

@@ -1107,6 +1107,11 @@ Public Class frmMain
f.Show(Me)
Me.Cursor = Cursors.Default
End Sub
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
Dim f As New SDL.frmFormulare
f.Show()
End Sub
End Class
Public Class MyRenderer

942
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

47
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -859,6 +859,8 @@ Public Class cFormularManager
Try
Dim f = stamper.AcroFields
f.GenerateAppearances = True
For Each i In list
f.SetField(i.Text, i.Value)
Next
@@ -960,6 +962,51 @@ Public Class cFormularManager
Return ""
End Function
Public Function getPDFFields_Editierbar(da_kategorie As String, da_ordner As String, da_uOrdner1 As String, da_uOrdner2 As String, da_uOrdner3 As String, da_name As String) As List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
Try
Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
If Not DS.hasITEMS Then Return list
Dim path_src = DS.OPEN_SINGLE(False)
If path_src = "" Then Return list
Dim fi As New IO.DirectoryInfo(path_src)
Dim destPath = DATENVERVER_OPTIONS.getTMPPath(fi.Name, fi.Extension, True, False)
Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(path_src)
Using fw As New FileStream(destPath, FileMode.OpenOrCreate)
Dim stamper = New PdfStamper(pdf, fw)
Try
Dim f = stamper.AcroFields
f.GenerateAppearances = True
For Each r In f.Fields
Dim key = r.Key.ToString
Dim value = IIf(f.GetField(r.Key.ToString) = "", " ", r.Key.ToString)
Dim listItem As VERAG_PROG_ALLGEMEIN.MyListItem
listItem = New VERAG_PROG_ALLGEMEIN.MyListItem(r.Key.ToString, f.GetField(r.Key.ToString))
list.Add(listItem)
Next
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return list
End Function
Public Function fillPDFVorhandenesLokalesPDF_Path(path As String, listToWrite As List(Of cPDFWriteValues), Optional editierbar As Boolean = True, Optional autoDruck As Boolean = False, Optional printerName As String = "", Optional genNewPath As Boolean = True, Optional barcode As List(Of barcodeToPdf) = Nothing) As String
Return fillPDF("", "", "", "", "", "", listToWrite, editierbar, autoDruck, printerName, genNewPath, path, barcode)
End Function

13
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -24,7 +24,6 @@ Partial Class frmMessenger
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -39,12 +38,12 @@ Partial Class frmMessenger
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger))
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.SplitContainer2 = New System.Windows.Forms.SplitContainer()
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.dgvChats = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel6 = New System.Windows.Forms.Panel()
Me.Label3 = New System.Windows.Forms.Label()
Me.lblLKWChat_MsgCntInaktiv = New System.Windows.Forms.Label()
Me.cbxInaktiveChats = New System.Windows.Forms.CheckBox()
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.DGVSonstige = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
Me.Panel5 = New System.Windows.Forms.Panel()
Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
@@ -65,7 +64,7 @@ Partial Class frmMessenger
Me.btnNeu = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.UsrCntlMessenger_ChatElement1 = New VERAG_PROG_ALLGEMEIN.usrCntlMessenger_ChatElement()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.btnTeilnehmer = New System.Windows.Forms.Button()
@@ -93,9 +92,9 @@ Partial Class frmMessenger
Me.btnSendAtt = New System.Windows.Forms.Button()
Me.btnSenden = New System.Windows.Forms.Button()
Me.rtbChatMessage = New System.Windows.Forms.RichTextBox()
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer(Me.components)
Me.Timer_REFRESH = New System.Windows.Forms.Timer(Me.components)
Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TimerNEW_MESSAGE = New System.Windows.Forms.Timer()
Me.Timer_REFRESH = New System.Windows.Forms.Timer()
Me.cntxt = New System.Windows.Forms.ContextMenuStrip()
Me.ChatDeaktivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.toolChatReminder = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()