Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

2024-08-12 10:39:35 +02:00
parent 44c41bc528 77cf27117e
commit e2ae5350a2
11 changed files with 947 additions and 67 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.Designer.vb
@@ -0,0 +1,447 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlVollmacht_FA
+    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.lblVollmachtDE = New System.Windows.Forms.Label()
+        Me.lbl = New System.Windows.Forms.Label()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.btn = New System.Windows.Forms.Button()
+        Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtSteuerNr = 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.btnDown = New System.Windows.Forms.Button()
+        Me.btnUp = New System.Windows.Forms.Button()
+        Me.btnDel = New System.Windows.Forms.Button()
+        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.cbxFA = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtFAAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFAAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFAAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'lblVollmachtDE
+        '
+        Me.lblVollmachtDE.AutoSize = True
+        Me.lblVollmachtDE.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblVollmachtDE.Location = New System.Drawing.Point(43, 9)
+        Me.lblVollmachtDE.Name = "lblVollmachtDE"
+        Me.lblVollmachtDE.Size = New System.Drawing.Size(143, 20)
+        Me.lblVollmachtDE.TabIndex = 1
+        Me.lblVollmachtDE.Text = "VOLLMACHT FA"
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(177, 92)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(78, 13)
+        Me.lbl.TabIndex = 4
+        Me.lbl.Text = "Firmenwortlaut:"
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(177, 111)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(48, 13)
+        Me.Label1.TabIndex = 9
+        Me.Label1.Text = "Adresse:"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(594, 156)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(55, 13)
+        Me.Label3.TabIndex = 14
+        Me.Label3.Text = "Steuer-Nr:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(177, 159)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(39, 13)
+        Me.Label6.TabIndex = 20
+        Me.Label6.Text = "E-Mail:"
+        '
+        '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(944, 89)
+        Me.btn.Name = "btn"
+        Me.btn.Size = New System.Drawing.Size(26, 20)
+        Me.btn.TabIndex = 6
+        Me.btn.UseVisualStyleBackColor = True
+        '
+        '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(261, 156)
+        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 = 21
+        '
+        '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(660, 153)
+        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 = 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(261, 127)
+        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(709, 20)
+        Me.txtAdresse2.TabIndex = 11
+        '
+        '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(261, 108)
+        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 = 10
+        '
+        '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(261, 89)
+        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 = 5
+        '
+        '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 = 30
+        Me.pic.TabStop = False
+        '
+        '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 = 7
+        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 = 2
+        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
+        '
+        'cboSprache
+        '
+        Me.cboSprache._allowedValuesFreiText = Nothing
+        Me.cboSprache._allowFreiText = False
+        Me.cboSprache._value = ""
+        Me.cboSprache.FormattingEnabled = True
+        Me.cboSprache.Location = New System.Drawing.Point(15, 73)
+        Me.cboSprache.Name = "cboSprache"
+        Me.cboSprache.Size = New System.Drawing.Size(89, 21)
+        Me.cboSprache.TabIndex = 8
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(12, 57)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(50, 13)
+        Me.Label12.TabIndex = 3
+        Me.Label12.Text = "Sprache:"
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(232, 20)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(23, 13)
+        Me.Label7.TabIndex = 31
+        Me.Label7.Text = "FA:"
+        '
+        'cbxFA
+        '
+        Me.cbxFA._allowedValuesFreiText = Nothing
+        Me.cbxFA._allowFreiText = False
+        Me.cbxFA._value = ""
+        Me.cbxFA.FormattingEnabled = True
+        Me.cbxFA.Location = New System.Drawing.Point(261, 16)
+        Me.cbxFA.Name = "cbxFA"
+        Me.cbxFA.Size = New System.Drawing.Size(154, 21)
+        Me.cbxFA.TabIndex = 32
+        '
+        'txtFAAdresse1
+        '
+        Me.txtFAAdresse1._DateTimeOnly = False
+        Me.txtFAAdresse1._numbersOnly = False
+        Me.txtFAAdresse1._numbersOnlyKommastellen = ""
+        Me.txtFAAdresse1._numbersOnlyTrennzeichen = True
+        Me.txtFAAdresse1._Prozent = False
+        Me.txtFAAdresse1._ShortDateNew = False
+        Me.txtFAAdresse1._ShortDateOnly = False
+        Me.txtFAAdresse1._TimeOnly = False
+        Me.txtFAAdresse1._TimeOnly_Seconds = False
+        Me.txtFAAdresse1._value = Nothing
+        Me.txtFAAdresse1._Waehrung = False
+        Me.txtFAAdresse1._WaehrungZeichen = True
+        Me.txtFAAdresse1.ForeColor = System.Drawing.Color.Black
+        Me.txtFAAdresse1.Location = New System.Drawing.Point(660, 18)
+        Me.txtFAAdresse1.MaxLineLength = -1
+        Me.txtFAAdresse1.MaxLines_Warning = ""
+        Me.txtFAAdresse1.MaxLines_Warning_Label = Nothing
+        Me.txtFAAdresse1.Name = "txtFAAdresse1"
+        Me.txtFAAdresse1.Size = New System.Drawing.Size(310, 20)
+        Me.txtFAAdresse1.TabIndex = 33
+        '
+        'txtFAAdresse2
+        '
+        Me.txtFAAdresse2._DateTimeOnly = False
+        Me.txtFAAdresse2._numbersOnly = False
+        Me.txtFAAdresse2._numbersOnlyKommastellen = ""
+        Me.txtFAAdresse2._numbersOnlyTrennzeichen = True
+        Me.txtFAAdresse2._Prozent = False
+        Me.txtFAAdresse2._ShortDateNew = False
+        Me.txtFAAdresse2._ShortDateOnly = False
+        Me.txtFAAdresse2._TimeOnly = False
+        Me.txtFAAdresse2._TimeOnly_Seconds = False
+        Me.txtFAAdresse2._value = Nothing
+        Me.txtFAAdresse2._Waehrung = False
+        Me.txtFAAdresse2._WaehrungZeichen = True
+        Me.txtFAAdresse2.ForeColor = System.Drawing.Color.Black
+        Me.txtFAAdresse2.Location = New System.Drawing.Point(660, 37)
+        Me.txtFAAdresse2.MaxLineLength = -1
+        Me.txtFAAdresse2.MaxLines_Warning = ""
+        Me.txtFAAdresse2.MaxLines_Warning_Label = Nothing
+        Me.txtFAAdresse2.Name = "txtFAAdresse2"
+        Me.txtFAAdresse2.Size = New System.Drawing.Size(309, 20)
+        Me.txtFAAdresse2.TabIndex = 34
+        '
+        'txtFAAdresse3
+        '
+        Me.txtFAAdresse3._DateTimeOnly = False
+        Me.txtFAAdresse3._numbersOnly = False
+        Me.txtFAAdresse3._numbersOnlyKommastellen = ""
+        Me.txtFAAdresse3._numbersOnlyTrennzeichen = True
+        Me.txtFAAdresse3._Prozent = False
+        Me.txtFAAdresse3._ShortDateNew = False
+        Me.txtFAAdresse3._ShortDateOnly = False
+        Me.txtFAAdresse3._TimeOnly = False
+        Me.txtFAAdresse3._TimeOnly_Seconds = False
+        Me.txtFAAdresse3._value = Nothing
+        Me.txtFAAdresse3._Waehrung = False
+        Me.txtFAAdresse3._WaehrungZeichen = True
+        Me.txtFAAdresse3.ForeColor = System.Drawing.Color.Black
+        Me.txtFAAdresse3.Location = New System.Drawing.Point(660, 54)
+        Me.txtFAAdresse3.MaxLineLength = -1
+        Me.txtFAAdresse3.MaxLines_Warning = ""
+        Me.txtFAAdresse3.MaxLines_Warning_Label = Nothing
+        Me.txtFAAdresse3.Name = "txtFAAdresse3"
+        Me.txtFAAdresse3.Size = New System.Drawing.Size(309, 20)
+        Me.txtFAAdresse3.TabIndex = 35
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(580, 18)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(64, 13)
+        Me.Label9.TabIndex = 37
+        Me.Label9.Text = "FA-Adresse:"
+        '
+        'usrcntlVollmacht_FA
+        '
+        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.Label9)
+        Me.Controls.Add(Me.txtFAAdresse3)
+        Me.Controls.Add(Me.txtFAAdresse2)
+        Me.Controls.Add(Me.txtFAAdresse1)
+        Me.Controls.Add(Me.cbxFA)
+        Me.Controls.Add(Me.Label7)
+        Me.Controls.Add(Me.Label12)
+        Me.Controls.Add(Me.cboSprache)
+        Me.Controls.Add(Me.btnDown)
+        Me.Controls.Add(Me.btnUp)
+        Me.Controls.Add(Me.btnDel)
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.btn)
+        Me.Controls.Add(Me.txtEmail)
+        Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.txtSteuerNr)
+        Me.Controls.Add(Me.Label3)
+        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.Controls.Add(Me.lblVollmachtDE)
+        Me.Name = "usrcntlVollmacht_FA"
+        Me.Size = New System.Drawing.Size(1000, 190)
+        CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+    Friend WithEvents lblVollmachtDE As System.Windows.Forms.Label
+    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 txtSteuerNr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    Friend WithEvents btn As System.Windows.Forms.Button
+    Friend WithEvents pic As System.Windows.Forms.PictureBox
+    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 cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label12 As System.Windows.Forms.Label
+    Friend WithEvents Label7 As Label
+    Friend WithEvents cbxFA As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtFAAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtFAAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtFAAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label9 As Label
+End Class
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.resx
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.resx
@@ -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>
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_FA.vb
@@ -0,0 +1,154 @@
+Public Class usrcntlVollmacht_FA
+    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
+
+    'Dim KdNR As Integer = -1
+    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, "")
+        txtAdresse2.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+        txtUid.Text = If(ADRESSE.UstIdKz, "") & If(ADRESSE.UstIdNr, "")
+        txtSteuerNr.Text = If(KUNDE.EORITIN, "")
+        txtTel.Text = If(ADRESSE.Telefon, "")
+        txtFax.Text = If(ADRESSE.Telefax, "")
+        txtEmail.Text = If(ADRESSE.E_Mail, "")
+        txtSteuerNr.Text = If(ADRESSE.Steuernummer, "")
+
+    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 Button1_Click(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub usrcntlVollmacht_AT_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initControlsHandler()
+        cboSprache.Items.Clear()
+        cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+        cboSprache.changeItem("Deutsch")
+
+        cbxFA.Items.Clear()
+        cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT-FA", "Finanzamt Österreich,Postfach 260,1000 Wien"))
+        cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Dortmund", "Finanzamt Dormund-Unna,Trakehnerweg 4,D-44143 Dortmund"))
+        cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Berlin", "Finanzamt Berlin International,Thiemannstr. 1,D-12059 Berlin"))
+        cbxFA.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE-FA Hannover", "Finanzamt Hannover-Nord,Vahrenwalder Str. 206,D-30165 Hannover"))
+
+
+        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
+
+    Private Sub cbxFA_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbxFA.SelectedIndexChanged
+
+
+        Dim faAd1 As String = ""
+        Dim faAd2 As String = ""
+        Dim faAd3 As String = ""
+
+
+        txtFAAdresse1.Text = faAd1
+        txtFAAdresse2.Text = faAd2
+        txtFAAdresse3.Text = faAd3
+
+        If Not cbxFA._value.ToString.Contains(",") Then Exit Sub
+
+        Try
+
+
+            Dim searchedString = cbxFA._value.ToString
+            Dim firstIndex = searchedString.IndexOf(",", 0)
+
+            faAd1 = searchedString.Substring(0, firstIndex)
+            txtFAAdresse1.Text = faAd1
+            searchedString = searchedString.Replace(faAd1 & ",", "")
+
+            If Not searchedString.Contains(",") Then
+                faAd2 = searchedString
+                txtFAAdresse2.Text = faAd2
+                Exit Sub
+            End If
+
+            firstIndex = searchedString.IndexOf(",", 0)
+            faAd2 = searchedString.Substring(0, firstIndex)
+            txtFAAdresse2.Text = faAd2
+
+            searchedString = searchedString.Replace(faAd2 & ",", "")
+
+            If Not searchedString.Contains(",") Then
+                faAd3 = searchedString
+                txtFAAdresse3.Text = faAd3
+                Exit Sub
+            End If
+
+            firstIndex = searchedString.IndexOf(",", 0)
+            faAd3 = searchedString.Substring(0, firstIndex)
+
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+
+    End Sub
+End Class
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -288,6 +288,7 @@ Public Class frmFormulare
                    MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
                    MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
                    MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
+                    MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht FA", FormularManagerArten.Vollmacht_FA))

                    MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
                    MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
@@ -526,6 +527,18 @@ Public Class frmFormulare
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
+                Case FormularManagerArten.Vollmacht_FA
+                    Dim c As New usrcntlVollmacht_FA
+                    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.Importaviso_VK
                    Dim c As usrcntlVorauskasse
                    If param Is Nothing Then
@@ -1400,6 +1413,8 @@ Public Class FormularManagerNEU
                retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
            Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
                retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
+            Case GetType(usrcntlVollmacht_FA).ToString
+                striList = FormularManagerNEU.VM_VERAG_FA(c, printReportElsePdf, printerName)
            Case GetType(usrcntlVorauskasse).ToString
                retStr = FormularManagerNEU.Importaviso_VK(c)
            Case GetType(usrcntlImportaviso).ToString
@@ -3669,6 +3684,113 @@ Public Class FormularManagerNEU
        Return ""
    End Function

+    Shared Function VM_VERAG_FA(usrCntl As usrcntlVollmacht_FA, 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 cFirmen
+            Dim FIRMA2 As cFirmen
+
+            Dim docBez As String = ""
+
+            If usrCntl.cbxFA.SelectedItem.ToString = "AT-FA" Then
+                docBez = "Vollmacht_Steuerabwicklung_AT"
+                FIRMA = New cFirmen(11) 'CS
+            Else
+                docBez = "Vollmacht_Steuerabwicklung_DE"
+                FIRMA = New cFirmen(1) 'AG
+                FIRMA2 = New cFirmen(2) ' GMBH
+            End If
+
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "", "", 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 & ", " & usrCntl.txtAdresse1.Text & " " & usrCntl.txtAdresse2.Text
+                    Case "taxno" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtSteuerNr.Text
+                    Case "mandant" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & " in " & FIRMA.Firma_Ort
+                    Case "mandant2" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Bez & ", " & FIRMA2.Firma_Straße & " in " & FIRMA2.Firma_Ort
+                    Case "mandant_anschrift" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Bez & ", " & FIRMA.Firma_Straße & ", " & FIRMA.Firma_Ort
+                    Case "mandant_anschrift2" : odoc.FormFields(fieldName).Range.Text = FIRMA.Firma_Telefon & " " & FIRMA.Firma_Telefax
+                    Case "mandant2_anschrift" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Bez & ", " & FIRMA2.Firma_Straße & ", " & FIRMA2.Firma_Ort
+                    Case "mandant2_anschrift2" : odoc.FormFields(fieldName).Range.Text = FIRMA2.Firma_Telefon & " " & FIRMA2.Firma_Telefax
+                    Case "fa2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse2.Text
+                    Case "fa3" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse3.Text
+                    Case "kunde1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
+                    Case "kunde2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse1.Text
+                    Case "kunde3" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtAdresse2.Text
+                    Case "fa_bez" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFAAdresse1.Text
+                    Case "date" : odoc.FormFields(fieldName).Range.Text = Today().ToString("dd-MM-yyyy")
+                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_" & docBez & ".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_VERAG_GB_IE(usrCntl As usrcntlVollmacht_GB_IE) As String
        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
@@ -6114,22 +6236,17 @@ Public Class FormularManagerArten

    Shared Property DE_Vollmacht = "DE_Vollmacht"
    Shared Property DE_Vollmacht_indirekt = "DE_Vollmacht_indirekt"
-
    Shared Property DE_Fiskal = "DE_Fiskal"
    Shared Property AT_Vollmacht = "AT_Vollmacht"
    Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV"
    Shared Property AT_Fiskal = "AT_Fiskal"
-
    Shared Property GB_Vollmacht_IE = "GB_Vollmacht_IE"
    Shared Property GB_Vollmacht_indirekt = "GB_Vollmacht_indirekt"
-
    Shared Property MDM_Vollmacht_PDF = "MDM_Vollmacht_PDF"
-
    Shared Property MDM_Vollmacht_Word = "MDM_Vollmacht_Word"
-
+    Shared Property Vollmacht_FA = "Vollmacht_FA"
    Shared Property VERAG_EXPORT = "VERAG_EXPORT"
    Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
-
    Shared Property VUB = "VUB"
    Shared Property VUB_AG = "VUB_AG"
    Shared Property VUB_IMEX = "VUB_IMEX"
@@ -6144,7 +6261,6 @@ Public Class FormularManagerArten
    Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung"
    Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
    Shared Property EORI_Antrag = "EORI_Antrag"
-
    Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
    Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
    Shared Property Gelangensbestaetigung = "Gelangensbestaetigung"
@@ -6152,11 +6268,9 @@ Public Class FormularManagerArten
    Shared Property SA_Gestellung = "SA_Gestellung"
    Shared Property Importaviso = "Importaviso"
    Shared Property Verbundenheit = "Verbundenheit"
-
    Shared Property Sendungsliste = "Sendungsliste"
    Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"
    Shared Property Zollbeschau_Protokoll = "Zollbeschau Protokoll"
-
    Shared Property Qualitaetskontrolle = "Qualitätskontrolle"
    Shared Property Einfuhrverbot = "Y824 / EU VO 833/2014"

--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -666,6 +666,12 @@
    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.vb">
      <SubType>UserControl</SubType>
    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_FA.Designer.vb">
+      <DependentUpon>usrcntlVollmacht_FA.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_FA.vb">
+      <SubType>UserControl</SubType>
+    </Compile>
    <Compile Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.Designer.vb">
      <DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
    </Compile>
@@ -3196,6 +3202,9 @@
    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_GB_IE.resx">
      <DependentUpon>usrcntlVollmacht_GB_IE.vb</DependentUpon>
    </EmbeddedResource>
+    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrcntlVollmacht_FA.resx">
+      <DependentUpon>usrcntlVollmacht_FA.vb</DependentUpon>
+    </EmbeddedResource>
    <EmbeddedResource Include="Formulare\KDFormulare\FormulareBaukasten\usrCntlZollbeschau.resx">
      <DependentUpon>usrCntlZollbeschau.vb</DependentUpon>
    </EmbeddedResource>
--- a/SDL/buchhaltung/frmBU_Mahnlauf.vb
+++ b/SDL/buchhaltung/frmBU_Mahnlauf.vb
@@ -512,8 +512,8 @@ Public Class frmBU_Mahnlauf
                        End Select
                        Mail_HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail_HTMLBody & "</div>"
                        Mail_To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Mahnung an")
-                        Mail_cc = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an")
-                        Mail_bcc = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an")
+                        Mail_CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Mahnung an")
+                        Mail_BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Mahnung an")

                        '    isnull(( SELECT  TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email,
                        'isnull(( SELECT  TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email,
--- a/SDL/frmdynMailvorlage.Designer.vb
+++ b/SDL/frmdynMailvorlage.Designer.vb
@@ -24,6 +24,8 @@ Partial Class frmdynMailvorlagen
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.mainPanel = New System.Windows.Forms.Panel()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.rtb_txthtml = New System.Windows.Forms.RichTextBox()
        Me.cbxSendungsvermerk = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label10 = New System.Windows.Forms.Label()
        Me.txtSendungsvermerk = New System.Windows.Forms.TextBox()
@@ -36,7 +38,6 @@ Partial Class frmdynMailvorlagen
        Me.Label7 = New System.Windows.Forms.Label()
        Me.txtBezeichnung = New System.Windows.Forms.TextBox()
        Me.Label6 = New System.Windows.Forms.Label()
-        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.txtBetreff = New System.Windows.Forms.TextBox()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
@@ -59,8 +60,9 @@ Partial Class frmdynMailvorlagen
        Me.Label3 = New System.Windows.Forms.Label()
        Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.dgvMailvorlagen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.Label11 = New System.Windows.Forms.Label()
-        Me.rtb_txthtml = New System.Windows.Forms.RichTextBox()
+        Me.txtfixeEmail = New System.Windows.Forms.TextBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.TextBox1 = New System.Windows.Forms.TextBox()
        Me.mainPanel.SuspendLayout()
        Me.pnlTop.SuspendLayout()
        CType(Me.dgvMailvorlagen, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -71,6 +73,9 @@ Partial Class frmdynMailvorlagen
        Me.mainPanel.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
            Or System.Windows.Forms.AnchorStyles.Left) _
            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.mainPanel.Controls.Add(Me.TextBox1)
+        Me.mainPanel.Controls.Add(Me.txtfixeEmail)
+        Me.mainPanel.Controls.Add(Me.Label12)
        Me.mainPanel.Controls.Add(Me.Label11)
        Me.mainPanel.Controls.Add(Me.rtb_txthtml)
        Me.mainPanel.Controls.Add(Me.cbxSendungsvermerk)
@@ -85,7 +90,6 @@ Partial Class frmdynMailvorlagen
        Me.mainPanel.Controls.Add(Me.Label7)
        Me.mainPanel.Controls.Add(Me.txtBezeichnung)
        Me.mainPanel.Controls.Add(Me.Label6)
-        Me.mainPanel.Controls.Add(Me.TextBox1)
        Me.mainPanel.Controls.Add(Me.txtBetreff)
        Me.mainPanel.Controls.Add(Me.Label5)
        Me.mainPanel.Controls.Add(Me.cboSprache)
@@ -101,6 +105,26 @@ Partial Class frmdynMailvorlagen
        Me.mainPanel.Size = New System.Drawing.Size(1283, 457)
        Me.mainPanel.TabIndex = 101
        '
+        'Label11
+        '
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(638, 71)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(89, 13)
+        Me.Label11.TabIndex = 41
+        Me.Label11.Text = "Email-Text-HTML"
+        '
+        'rtb_txthtml
+        '
+        Me.rtb_txthtml.AcceptsTab = True
+        Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window
+        Me.rtb_txthtml.Location = New System.Drawing.Point(641, 87)
+        Me.rtb_txthtml.Name = "rtb_txthtml"
+        Me.rtb_txthtml.ReadOnly = True
+        Me.rtb_txthtml.Size = New System.Drawing.Size(625, 307)
+        Me.rtb_txthtml.TabIndex = 40
+        Me.rtb_txthtml.Text = ""
+        '
        'cbxSendungsvermerk
        '
        Me.cbxSendungsvermerk._allowedValuesFreiText = Nothing
@@ -156,12 +180,13 @@ Partial Class frmdynMailvorlagen
        '
        Me.TextBox2.BackColor = System.Drawing.SystemColors.Control
        Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.TextBox2.Location = New System.Drawing.Point(22, 400)
+        Me.TextBox2.Location = New System.Drawing.Point(10, 414)
        Me.TextBox2.Multiline = True
        Me.TextBox2.Name = "TextBox2"
-        Me.TextBox2.Size = New System.Drawing.Size(256, 45)
+        Me.TextBox2.Size = New System.Drawing.Size(576, 31)
        Me.TextBox2.TabIndex = 34
-        Me.TextBox2.Text = "* Email-Text-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%VAR-GRENZE%"
+        Me.TextBox2.Text = "%VAR-GRENZE%, %LKW%, %LKWKennzeichen%, %Empfaenger%, %voraus-Eintreffen%, %Filial" &
+    "enNr%, %AbfertigungsNr%, %Absender%, %Gewicht%, %ImEx%, %Zollstelle%"
        '
        'btn
        '
@@ -222,28 +247,17 @@ Partial Class frmdynMailvorlagen
        Me.Label6.TabIndex = 28
        Me.Label6.Text = "Bezeichnung"
        '
-        'TextBox1
-        '
-        Me.TextBox1.BackColor = System.Drawing.SystemColors.Control
-        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
-        Me.TextBox1.Location = New System.Drawing.Point(823, 3)
-        Me.TextBox1.Multiline = True
-        Me.TextBox1.Name = "TextBox1"
-        Me.TextBox1.Size = New System.Drawing.Size(110, 61)
-        Me.TextBox1.TabIndex = 27
-        Me.TextBox1.Text = "* Betreff-Variablen: " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKW%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%LKWKennzeichen%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "%Empfaenger%" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
-        '
        'txtBetreff
        '
-        Me.txtBetreff.Location = New System.Drawing.Point(465, 20)
+        Me.txtBetreff.Location = New System.Drawing.Point(421, 21)
        Me.txtBetreff.Name = "txtBetreff"
-        Me.txtBetreff.Size = New System.Drawing.Size(290, 20)
+        Me.txtBetreff.Size = New System.Drawing.Size(460, 20)
        Me.txtBetreff.TabIndex = 26
        '
        'Label5
        '
        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(462, 3)
+        Me.Label5.Location = New System.Drawing.Point(418, 4)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(42, 13)
        Me.Label5.TabIndex = 25
@@ -274,9 +288,9 @@ Partial Class frmdynMailvorlagen
        '
        Me.rtb_Emailtext.AcceptsTab = True
        Me.rtb_Emailtext.BackColor = System.Drawing.SystemColors.Window
-        Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 72)
+        Me.rtb_Emailtext.Location = New System.Drawing.Point(10, 87)
        Me.rtb_Emailtext.Name = "rtb_Emailtext"
-        Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 322)
+        Me.rtb_Emailtext.Size = New System.Drawing.Size(625, 307)
        Me.rtb_Emailtext.TabIndex = 22
        Me.rtb_Emailtext.Text = ""
        '
@@ -323,7 +337,7 @@ Partial Class frmdynMailvorlagen
        'Label1
        '
        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(19, 56)
+        Me.Label1.Location = New System.Drawing.Point(19, 71)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(60, 13)
        Me.Label1.TabIndex = 1
@@ -483,27 +497,34 @@ Partial Class frmdynMailvorlagen
        Me.dgvMailvorlagen.Size = New System.Drawing.Size(1283, 365)
        Me.dgvMailvorlagen.TabIndex = 104
        '
-        'Label11
+        'txtfixeEmail
        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(647, 56)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(89, 13)
-        Me.Label11.TabIndex = 41
-        Me.Label11.Text = "Email-Text-HTML"
+        Me.txtfixeEmail.Location = New System.Drawing.Point(136, 61)
+        Me.txtfixeEmail.Name = "txtfixeEmail"
+        Me.txtfixeEmail.Size = New System.Drawing.Size(324, 20)
+        Me.txtfixeEmail.TabIndex = 43
        '
-        'rtb_txthtml
+        'Label12
        '
-        Me.rtb_txthtml.AcceptsTab = True
-        Me.rtb_txthtml.BackColor = System.Drawing.SystemColors.Window
-        Me.rtb_txthtml.Location = New System.Drawing.Point(641, 72)
-        Me.rtb_txthtml.Name = "rtb_txthtml"
-        Me.rtb_txthtml.ReadOnly = True
-        Me.rtb_txthtml.Size = New System.Drawing.Size(625, 322)
-        Me.rtb_txthtml.TabIndex = 40
-        Me.rtb_txthtml.Text = ""
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(133, 45)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(194, 13)
+        Me.Label12.TabIndex = 42
+        Me.Label12.Text = "fixer Empfänger (mehrere mit ; getrennt):"
        '
-        'frmdynMailvorlage
+        'TextBox1
+        '
+        Me.TextBox1.BackColor = System.Drawing.SystemColors.Control
+        Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.TextBox1.Location = New System.Drawing.Point(10, 395)
+        Me.TextBox1.Multiline = True
+        Me.TextBox1.Name = "TextBox1"
+        Me.TextBox1.Size = New System.Drawing.Size(109, 18)
+        Me.TextBox1.TabIndex = 44
+        Me.TextBox1.Text = "* Text-Variablen:"
+        '
+        'frmdynMailvorlagen
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
@@ -513,7 +534,7 @@ Partial Class frmdynMailvorlagen
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.pnlTop)
        Me.Controls.Add(Me.dgvMailvorlagen)
-        Me.Name = "frmdynMailvorlage"
+        Me.Name = "frmdynMailvorlagen"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "frmdynMailvorlage"
        Me.mainPanel.ResumeLayout(False)
@@ -542,7 +563,6 @@ Partial Class frmdynMailvorlagen
    Friend WithEvents Label2 As Label
    Friend WithEvents rtb_Emailtext As RichTextBox
    Friend WithEvents Label5 As Label
-    Friend WithEvents TextBox1 As TextBox
    Friend WithEvents txtBetreff As TextBox
    Friend WithEvents txtBezeichnung As TextBox
    Friend WithEvents Label6 As Label
@@ -562,4 +582,7 @@ Partial Class frmdynMailvorlagen
    Friend WithEvents cbSendungsvermerk As CheckBox
    Friend WithEvents Label11 As Label
    Friend WithEvents rtb_txthtml As RichTextBox
+    Friend WithEvents txtfixeEmail As TextBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents TextBox1 As TextBox
 End Class
--- a/SDL/frmdynMailvorlage.vb
+++ b/SDL/frmdynMailvorlage.vb
@@ -210,10 +210,10 @@ Public Class frmdynMailvorlagen
            rtb_txthtml.Text = txtkonserve.txt_text
            cboFirmensignatur.changeItem(txtkonserve.txt_firmaSig)
            cbxFirmaChange.changeItem(txtkonserve.txt_FIRMA)
-
            cbSendungsvermerk.Checked = txtkonserve.txt_sendungsvermerk
            cbxSendungsvermerk.changeItem(txtkonserve.txt_sendungsvermerkId)
            txtSendungsvermerk.Text = txtkonserve.txt_sendungsvermerkText
+            txtfixeEmail.Text = txtkonserve.txt_fixerEmpfaengerEmail


        Catch ex As Exception
@@ -240,7 +240,7 @@ Public Class frmdynMailvorlagen
            txtKS.txt_firmaSig = cboFirmensignatur._value
            txtKS.txt_letzteAenderung = DateTime.Now
            txtKS.txt_letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
-
+            txtKS.txt_fixerEmpfaengerEmail = txtfixeEmail.Text
            txtKS.txt_sendungsvermerk = cbSendungsvermerk.Checked

            If cbSendungsvermerk.Checked AndAlso cbxSendungsvermerk._value = "" Then MsgBox("SendungsvermerksID hinterlegen!") : Exit Sub
@@ -346,6 +346,7 @@ Public Class frmdynMailvorlagen
            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
            Mail = outl.CreateItem(0)

+            If txtfixeEmail.Text <> "" Then Mail.To = txtfixeEmail.Text

            If rtb_Emailtext.Text <> "" AndAlso cboSprache._value <> "" Then

--- a/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.Designer.vb
@@ -22,7 +22,6 @@ Partial Class frmKundenUebersichtZOLL
    '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()
@@ -30,13 +29,13 @@ Partial Class frmKundenUebersichtZOLL
        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenUebersichtZOLL))
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
        Me.KopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.tabZolltarife = New System.Windows.Forms.TabPage()
        Me.pnlZollTarife = New System.Windows.Forms.Panel()
        Me.tabKundendaten = New System.Windows.Forms.TabPage()
        Me.usrcntlKundenuebersicht = New SDL.usrCntlKundenuebersicht()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
        Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
        Me.tbcntrKundenDaten = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
@@ -84,10 +83,10 @@ Partial Class frmKundenUebersichtZOLL
        Me.btnSpeichern = New System.Windows.Forms.Button()
        Me.Label35 = New System.Windows.Forms.Label()
        Me.tbRechnungen = New System.Windows.Forms.TabPage()
-        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
-        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
+        Me.dgvRg = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
+        Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel()
        Me.btnRgPdf = New System.Windows.Forms.Button()
-        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ctxtRg = New System.Windows.Forms.ContextMenuStrip()
        Me.DateiHochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.btnMonat = New System.Windows.Forms.Button()
        Me.Button10 = New System.Windows.Forms.Button()
@@ -97,7 +96,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.tbFiskaluebersicht = New System.Windows.Forms.TabPage()
        Me.UsrcntlFiskaluebersicht1 = New SDL.usrcntlFiskaluebersicht()
        Me.tbCBAM = New System.Windows.Forms.TabPage()
-        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
+        Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon()
        Me.Panel1 = New System.Windows.Forms.Panel()
        Me.MenuStripKunden = New System.Windows.Forms.MenuStrip()
        Me.mnueKunden = New System.Windows.Forms.ToolStripMenuItem()
@@ -144,8 +143,8 @@ Partial Class frmKundenUebersichtZOLL
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.rtbInfo = New System.Windows.Forms.RichTextBox()
-        Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
-        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.tmrFiskal = New System.Windows.Forms.Timer()
+        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
        Me.ÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.HochladenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -153,6 +152,7 @@ Partial Class frmKundenUebersichtZOLL
        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.VollmachtFinanzamtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
        Me.ContextMenuStrip1.SuspendLayout()
        Me.tabZolltarife.SuspendLayout()
        Me.tabKundendaten.SuspendLayout()
@@ -1144,7 +1144,7 @@ Partial Class frmKundenUebersichtZOLL
        '
        'ToolStripMenuItem4
        '
-        Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem})
+        Me.ToolStripMenuItem4.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.toolStrVM_de, Me.ZollvollmachtDEFiskalToolStripMenuItem, Me.ToolStripMenuItem6, Me.ToolStripMenuItem8, Me.ZollvollmachtATEVToolStripMenuItem, Me.VollmachtFinanzamtToolStripMenuItem})
        Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
        Me.ToolStripMenuItem4.Size = New System.Drawing.Size(242, 22)
        Me.ToolStripMenuItem4.Text = "Vollmachten"
@@ -1512,6 +1512,12 @@ Partial Class frmKundenUebersichtZOLL
        Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
        Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
        '
+        'VollmachtFinanzamtToolStripMenuItem
+        '
+        Me.VollmachtFinanzamtToolStripMenuItem.Name = "VollmachtFinanzamtToolStripMenuItem"
+        Me.VollmachtFinanzamtToolStripMenuItem.Size = New System.Drawing.Size(204, 22)
+        Me.VollmachtFinanzamtToolStripMenuItem.Text = "Vollmacht Finanzamt"
+        '
        'frmKundenUebersichtZOLL
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -1685,4 +1691,5 @@ Partial Class frmKundenUebersichtZOLL
    Friend WithEvents mnueCBAM As ToolStripMenuItem
    Friend WithEvents EinfuhrverbotToolStripMenuItem As ToolStripMenuItem
    Friend WithEvents TOBBKdNrÄndernToolStripMenuItem As ToolStripMenuItem
+    Friend WithEvents VollmachtFinanzamtToolStripMenuItem As ToolStripMenuItem
 End Class
--- a/SDL/kunden/frmKundenUebersichtZOLL.vb
+++ b/SDL/kunden/frmKundenUebersichtZOLL.vb
@@ -1465,6 +1465,10 @@ Public Class frmKundenUebersichtZOLL
        Dim f As New frmKundenTOBBKdNr(kdNr)
        f.ShowDialog(Me)
    End Sub
+
+    Private Sub VollmachtFinanzamtToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VollmachtFinanzamtToolStripMenuItem.Click
+        SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Vollmacht_FA, kdNr, {})
+    End Sub
 End Class