14.08.2019

2019-08-14 08:59:04 +02:00
parent d98d9950c3
commit 19cc980474
15 changed files with 1502 additions and 344 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen.Designer.vb
@@ -25,11 +25,8 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.lblVollmachtDE = New System.Windows.Forms.Label()
        Me.lbl = New System.Windows.Forms.Label()
        Me.Label6 = New System.Windows.Forms.Label()
-        Me.txtPosNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtAdresse2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtAdresse1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnlage1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.Label11 = New System.Windows.Forms.Label()
        Me.pic = New System.Windows.Forms.PictureBox()
        Me.btnDown = New System.Windows.Forms.Button()
        Me.btnUp = New System.Windows.Forms.Button()
@@ -38,21 +35,24 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.Label12 = New System.Windows.Forms.Label()
        Me.txtAdresse3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtFirma2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnlage2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnlage4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnlage3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnlage6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtAnlage5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.txtBearbeiter = 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.PictureBox1 = New System.Windows.Forms.PictureBox()
+        Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtTel = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtFax = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtEmail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtBearbeiter = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
-        Me.PictureBox1 = New System.Windows.Forms.PictureBox()
-        Me.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.Label11 = New System.Windows.Forms.Label()
+        Me.txtAnlage1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAnlage2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAnlage3 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAnlage4 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAnlage5 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtAnlage6 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.txtPosNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
@@ -85,26 +85,6 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.Label6.TabIndex = 26
        Me.Label6.Text = "Pos.Nr::"
        '
-        'txtPosNr
-        '
-        Me.txtPosNr._DateTimeOnly = False
-        Me.txtPosNr._numbersOnly = False
-        Me.txtPosNr._numbersOnlyKommastellen = ""
-        Me.txtPosNr._Prozent = False
-        Me.txtPosNr._ShortDateNew = False
-        Me.txtPosNr._ShortDateOnly = False
-        Me.txtPosNr._TimeOnly = False
-        Me.txtPosNr._value = Nothing
-        Me.txtPosNr._Waehrung = False
-        Me.txtPosNr.ForeColor = System.Drawing.Color.Black
-        Me.txtPosNr.Location = New System.Drawing.Point(254, 136)
-        Me.txtPosNr.MaxLineLength = -1
-        Me.txtPosNr.MaxLines_Warning = ""
-        Me.txtPosNr.MaxLines_Warning_Label = Nothing
-        Me.txtPosNr.Name = "txtPosNr"
-        Me.txtPosNr.Size = New System.Drawing.Size(310, 20)
-        Me.txtPosNr.TabIndex = 27
-        '
        'txtAdresse2
        '
        Me.txtAdresse2._DateTimeOnly = False
@@ -116,6 +96,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAdresse2._TimeOnly = 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(254, 91)
        Me.txtAdresse2.MaxLineLength = -1
@@ -136,6 +117,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAdresse1._TimeOnly = 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, 72)
        Me.txtAdresse1.MaxLineLength = -1
@@ -145,38 +127,9 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
        Me.txtAdresse1.TabIndex = 12
        '
-        'txtAnlage1
-        '
-        Me.txtAnlage1._DateTimeOnly = False
-        Me.txtAnlage1._numbersOnly = False
-        Me.txtAnlage1._numbersOnlyKommastellen = ""
-        Me.txtAnlage1._Prozent = False
-        Me.txtAnlage1._ShortDateNew = False
-        Me.txtAnlage1._ShortDateOnly = False
-        Me.txtAnlage1._TimeOnly = False
-        Me.txtAnlage1._value = Nothing
-        Me.txtAnlage1._Waehrung = False
-        Me.txtAnlage1.ForeColor = System.Drawing.Color.Black
-        Me.txtAnlage1.Location = New System.Drawing.Point(254, 162)
-        Me.txtAnlage1.MaxLineLength = -1
-        Me.txtAnlage1.MaxLines_Warning = ""
-        Me.txtAnlage1.MaxLines_Warning_Label = Nothing
-        Me.txtAnlage1.Name = "txtAnlage1"
-        Me.txtAnlage1.Size = New System.Drawing.Size(310, 20)
-        Me.txtAnlage1.TabIndex = 29
-        '
-        'Label11
-        '
-        Me.Label11.AutoSize = True
-        Me.Label11.Location = New System.Drawing.Point(170, 165)
-        Me.Label11.Name = "Label11"
-        Me.Label11.Size = New System.Drawing.Size(49, 13)
-        Me.Label11.TabIndex = 28
-        Me.Label11.Text = "Anlagen:"
-        '
        'pic
        '
-        Me.pic.BackgroundImage = Global.SDL.My.Resources.pdf
+        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)
@@ -188,7 +141,7 @@ Partial Class usrcntlVerzollungsunterlagen
        '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.pfeil_unten
+        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)
@@ -200,7 +153,7 @@ Partial Class usrcntlVerzollungsunterlagen
        '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.pfeil_oben
+        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)
@@ -212,7 +165,7 @@ Partial Class usrcntlVerzollungsunterlagen
        '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.del
+        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)
@@ -252,6 +205,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtAdresse3._TimeOnly = 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(254, 110)
        Me.txtAdresse3.MaxLineLength = -1
@@ -272,6 +226,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtFirma2._TimeOnly = False
        Me.txtFirma2._value = Nothing
        Me.txtFirma2._Waehrung = False
+        Me.txtFirma2._WaehrungZeichen = True
        Me.txtFirma2.ForeColor = System.Drawing.Color.Black
        Me.txtFirma2.Location = New System.Drawing.Point(254, 53)
        Me.txtFirma2.MaxLineLength = -1
@@ -281,165 +236,49 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtFirma2.Size = New System.Drawing.Size(709, 20)
        Me.txtFirma2.TabIndex = 38
        '
-        'txtAnlage2
+        'PictureBox1
        '
-        Me.txtAnlage2._DateTimeOnly = False
-        Me.txtAnlage2._numbersOnly = False
-        Me.txtAnlage2._numbersOnlyKommastellen = ""
-        Me.txtAnlage2._Prozent = False
-        Me.txtAnlage2._ShortDateNew = False
-        Me.txtAnlage2._ShortDateOnly = False
-        Me.txtAnlage2._TimeOnly = False
-        Me.txtAnlage2._value = Nothing
-        Me.txtAnlage2._Waehrung = False
-        Me.txtAnlage2.ForeColor = System.Drawing.Color.Black
-        Me.txtAnlage2.Location = New System.Drawing.Point(254, 181)
-        Me.txtAnlage2.MaxLineLength = -1
-        Me.txtAnlage2.MaxLines_Warning = ""
-        Me.txtAnlage2.MaxLines_Warning_Label = Nothing
-        Me.txtAnlage2.Name = "txtAnlage2"
-        Me.txtAnlage2.Size = New System.Drawing.Size(310, 20)
-        Me.txtAnlage2.TabIndex = 39
+        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.word
+        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
+        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.PictureBox1.Location = New System.Drawing.Point(5, 53)
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
+        Me.PictureBox1.TabIndex = 52
+        Me.PictureBox1.TabStop = False
        '
-        'txtAnlage4
+        'txtFirma
        '
-        Me.txtAnlage4._DateTimeOnly = False
-        Me.txtAnlage4._numbersOnly = False
-        Me.txtAnlage4._numbersOnlyKommastellen = ""
-        Me.txtAnlage4._Prozent = False
-        Me.txtAnlage4._ShortDateNew = False
-        Me.txtAnlage4._ShortDateOnly = False
-        Me.txtAnlage4._TimeOnly = False
-        Me.txtAnlage4._value = Nothing
-        Me.txtAnlage4._Waehrung = False
-        Me.txtAnlage4.ForeColor = System.Drawing.Color.Black
-        Me.txtAnlage4.Location = New System.Drawing.Point(254, 219)
-        Me.txtAnlage4.MaxLineLength = -1
-        Me.txtAnlage4.MaxLines_Warning = ""
-        Me.txtAnlage4.MaxLines_Warning_Label = Nothing
-        Me.txtAnlage4.Name = "txtAnlage4"
-        Me.txtAnlage4.Size = New System.Drawing.Size(310, 20)
-        Me.txtAnlage4.TabIndex = 41
+        Me.txtFirma._AllowSetValue = True
+        Me.txtFirma._autoSizeGross = False
+        Me.txtFirma._display_Name1 = True
+        Me.txtFirma._displayAVISO_Email = False
+        Me.txtFirma._displayFullName = False
+        Me.txtFirma._displayWoelflKd = False
+        Me.txtFirma._hideIfListEmpty = True
+        Me.txtFirma._loadKdData = True
+        Me.txtFirma._ValueKdAndName = False
+        Me.txtFirma.dgvpos = "LEFT"
+        Me.txtFirma.KdName = Nothing
+        Me.txtFirma.KdNr = "-1"
+        Me.txtFirma.kdNrField = Nothing
+        Me.txtFirma.KdNrNullInt = Nothing
+        Me.txtFirma.Location = New System.Drawing.Point(254, 35)
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.nurAktive = True
+        Me.txtFirma.searchActive = True
+        Me.txtFirma.Size = New System.Drawing.Size(709, 20)
+        Me.txtFirma.TabIndex = 53
+        Me.txtFirma.usrcntl = Nothing
        '
-        'txtAnlage3
+        'Label1
        '
-        Me.txtAnlage3._DateTimeOnly = False
-        Me.txtAnlage3._numbersOnly = False
-        Me.txtAnlage3._numbersOnlyKommastellen = ""
-        Me.txtAnlage3._Prozent = False
-        Me.txtAnlage3._ShortDateNew = False
-        Me.txtAnlage3._ShortDateOnly = False
-        Me.txtAnlage3._TimeOnly = False
-        Me.txtAnlage3._value = Nothing
-        Me.txtAnlage3._Waehrung = False
-        Me.txtAnlage3.ForeColor = System.Drawing.Color.Black
-        Me.txtAnlage3.Location = New System.Drawing.Point(254, 200)
-        Me.txtAnlage3.MaxLineLength = -1
-        Me.txtAnlage3.MaxLines_Warning = ""
-        Me.txtAnlage3.MaxLines_Warning_Label = Nothing
-        Me.txtAnlage3.Name = "txtAnlage3"
-        Me.txtAnlage3.Size = New System.Drawing.Size(310, 20)
-        Me.txtAnlage3.TabIndex = 40
-        '
-        'txtAnlage6
-        '
-        Me.txtAnlage6._DateTimeOnly = False
-        Me.txtAnlage6._numbersOnly = False
-        Me.txtAnlage6._numbersOnlyKommastellen = ""
-        Me.txtAnlage6._Prozent = False
-        Me.txtAnlage6._ShortDateNew = False
-        Me.txtAnlage6._ShortDateOnly = False
-        Me.txtAnlage6._TimeOnly = False
-        Me.txtAnlage6._value = Nothing
-        Me.txtAnlage6._Waehrung = False
-        Me.txtAnlage6.ForeColor = System.Drawing.Color.Black
-        Me.txtAnlage6.Location = New System.Drawing.Point(254, 257)
-        Me.txtAnlage6.MaxLineLength = -1
-        Me.txtAnlage6.MaxLines_Warning = ""
-        Me.txtAnlage6.MaxLines_Warning_Label = Nothing
-        Me.txtAnlage6.Name = "txtAnlage6"
-        Me.txtAnlage6.Size = New System.Drawing.Size(310, 20)
-        Me.txtAnlage6.TabIndex = 43
-        '
-        'txtAnlage5
-        '
-        Me.txtAnlage5._DateTimeOnly = False
-        Me.txtAnlage5._numbersOnly = False
-        Me.txtAnlage5._numbersOnlyKommastellen = ""
-        Me.txtAnlage5._Prozent = False
-        Me.txtAnlage5._ShortDateNew = False
-        Me.txtAnlage5._ShortDateOnly = False
-        Me.txtAnlage5._TimeOnly = False
-        Me.txtAnlage5._value = Nothing
-        Me.txtAnlage5._Waehrung = False
-        Me.txtAnlage5.ForeColor = System.Drawing.Color.Black
-        Me.txtAnlage5.Location = New System.Drawing.Point(254, 238)
-        Me.txtAnlage5.MaxLineLength = -1
-        Me.txtAnlage5.MaxLines_Warning = ""
-        Me.txtAnlage5.MaxLines_Warning_Label = Nothing
-        Me.txtAnlage5.Name = "txtAnlage5"
-        Me.txtAnlage5.Size = New System.Drawing.Size(310, 20)
-        Me.txtAnlage5.TabIndex = 42
-        '
-        'txtBearbeiter
-        '
-        Me.txtBearbeiter._DateTimeOnly = False
-        Me.txtBearbeiter._numbersOnly = False
-        Me.txtBearbeiter._numbersOnlyKommastellen = ""
-        Me.txtBearbeiter._Prozent = False
-        Me.txtBearbeiter._ShortDateNew = False
-        Me.txtBearbeiter._ShortDateOnly = False
-        Me.txtBearbeiter._TimeOnly = False
-        Me.txtBearbeiter._value = Nothing
-        Me.txtBearbeiter._Waehrung = False
-        Me.txtBearbeiter.ForeColor = System.Drawing.Color.Black
-        Me.txtBearbeiter.Location = New System.Drawing.Point(653, 219)
-        Me.txtBearbeiter.MaxLineLength = -1
-        Me.txtBearbeiter.MaxLines_Warning = ""
-        Me.txtBearbeiter.MaxLines_Warning_Label = Nothing
-        Me.txtBearbeiter.Name = "txtBearbeiter"
-        Me.txtBearbeiter.Size = New System.Drawing.Size(310, 20)
-        Me.txtBearbeiter.TabIndex = 48
-        '
-        'txtEmail
-        '
-        Me.txtEmail._DateTimeOnly = False
-        Me.txtEmail._numbersOnly = False
-        Me.txtEmail._numbersOnlyKommastellen = ""
-        Me.txtEmail._Prozent = False
-        Me.txtEmail._ShortDateNew = False
-        Me.txtEmail._ShortDateOnly = False
-        Me.txtEmail._TimeOnly = False
-        Me.txtEmail._value = Nothing
-        Me.txtEmail._Waehrung = False
-        Me.txtEmail.ForeColor = System.Drawing.Color.Black
-        Me.txtEmail.Location = New System.Drawing.Point(653, 200)
-        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 = 47
-        '
-        'txtFax
-        '
-        Me.txtFax._DateTimeOnly = False
-        Me.txtFax._numbersOnly = False
-        Me.txtFax._numbersOnlyKommastellen = ""
-        Me.txtFax._Prozent = False
-        Me.txtFax._ShortDateNew = False
-        Me.txtFax._ShortDateOnly = False
-        Me.txtFax._TimeOnly = False
-        Me.txtFax._value = Nothing
-        Me.txtFax._Waehrung = False
-        Me.txtFax.ForeColor = System.Drawing.Color.Black
-        Me.txtFax.Location = New System.Drawing.Point(653, 181)
-        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 = 46
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(580, 165)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(46, 13)
+        Me.Label1.TabIndex = 44
+        Me.Label1.Text = "Telefon:"
        '
        'txtTel
        '
@@ -452,6 +291,7 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtTel._TimeOnly = 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(653, 162)
        Me.txtTel.MaxLineLength = -1
@@ -461,14 +301,68 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.txtTel.Size = New System.Drawing.Size(310, 20)
        Me.txtTel.TabIndex = 45
        '
-        'Label1
+        'txtFax
        '
-        Me.Label1.AutoSize = True
-        Me.Label1.Location = New System.Drawing.Point(580, 165)
-        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(46, 13)
-        Me.Label1.TabIndex = 44
-        Me.Label1.Text = "Telefon:"
+        Me.txtFax._DateTimeOnly = False
+        Me.txtFax._numbersOnly = False
+        Me.txtFax._numbersOnlyKommastellen = ""
+        Me.txtFax._Prozent = False
+        Me.txtFax._ShortDateNew = False
+        Me.txtFax._ShortDateOnly = False
+        Me.txtFax._TimeOnly = 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, 181)
+        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 = 46
+        '
+        'txtEmail
+        '
+        Me.txtEmail._DateTimeOnly = False
+        Me.txtEmail._numbersOnly = False
+        Me.txtEmail._numbersOnlyKommastellen = ""
+        Me.txtEmail._Prozent = False
+        Me.txtEmail._ShortDateNew = False
+        Me.txtEmail._ShortDateOnly = False
+        Me.txtEmail._TimeOnly = 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(653, 200)
+        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 = 47
+        '
+        'txtBearbeiter
+        '
+        Me.txtBearbeiter._DateTimeOnly = False
+        Me.txtBearbeiter._numbersOnly = False
+        Me.txtBearbeiter._numbersOnlyKommastellen = ""
+        Me.txtBearbeiter._Prozent = False
+        Me.txtBearbeiter._ShortDateNew = False
+        Me.txtBearbeiter._ShortDateOnly = False
+        Me.txtBearbeiter._TimeOnly = False
+        Me.txtBearbeiter._value = Nothing
+        Me.txtBearbeiter._Waehrung = False
+        Me.txtBearbeiter._WaehrungZeichen = True
+        Me.txtBearbeiter.ForeColor = System.Drawing.Color.Black
+        Me.txtBearbeiter.Location = New System.Drawing.Point(653, 219)
+        Me.txtBearbeiter.MaxLineLength = -1
+        Me.txtBearbeiter.MaxLines_Warning = ""
+        Me.txtBearbeiter.MaxLines_Warning_Label = Nothing
+        Me.txtBearbeiter.Name = "txtBearbeiter"
+        Me.txtBearbeiter.Size = New System.Drawing.Size(310, 20)
+        Me.txtBearbeiter.TabIndex = 48
        '
        'Label2
        '
@@ -497,40 +391,161 @@ Partial Class usrcntlVerzollungsunterlagen
        Me.Label4.TabIndex = 51
        Me.Label4.Text = "Bearbeiter:"
        '
-        'PictureBox1
+        'Label11
        '
-        Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.word
-        Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
-        Me.PictureBox1.Cursor = System.Windows.Forms.Cursors.Hand
-        Me.PictureBox1.Location = New System.Drawing.Point(5, 53)
-        Me.PictureBox1.Name = "PictureBox1"
-        Me.PictureBox1.Size = New System.Drawing.Size(32, 32)
-        Me.PictureBox1.TabIndex = 52
-        Me.PictureBox1.TabStop = False
+        Me.Label11.AutoSize = True
+        Me.Label11.Location = New System.Drawing.Point(170, 165)
+        Me.Label11.Name = "Label11"
+        Me.Label11.Size = New System.Drawing.Size(49, 13)
+        Me.Label11.TabIndex = 28
+        Me.Label11.Text = "Anlagen:"
        '
-        'txtFirma
+        'txtAnlage1
        '
-        Me.txtFirma._AllowSetValue = True
-        Me.txtFirma._autoSizeGross = False
-        Me.txtFirma._display_Name1 = True
-        Me.txtFirma._displayAVISO_Email = False
-        Me.txtFirma._displayFullName = False
-        Me.txtFirma._displayWoelflKd = False
-        Me.txtFirma._hideIfListEmpty = True
-        Me.txtFirma._loadKdData = True
-        Me.txtFirma._ValueKdAndName = False
-        Me.txtFirma.dgvpos = "LEFT"
-        Me.txtFirma.KdName = Nothing
-        Me.txtFirma.KdNr = "-1"
-        Me.txtFirma.kdNrField = Nothing
-        Me.txtFirma.KdNrNullInt = 0
-        Me.txtFirma.Location = New System.Drawing.Point(254, 35)
-        Me.txtFirma.Name = "txtFirma"
-        Me.txtFirma.nurAktive = True
-        Me.txtFirma.searchActive = True
-        Me.txtFirma.Size = New System.Drawing.Size(709, 20)
-        Me.txtFirma.TabIndex = 53
-        Me.txtFirma.usrcntl = Nothing
+        Me.txtAnlage1._DateTimeOnly = False
+        Me.txtAnlage1._numbersOnly = False
+        Me.txtAnlage1._numbersOnlyKommastellen = ""
+        Me.txtAnlage1._Prozent = False
+        Me.txtAnlage1._ShortDateNew = False
+        Me.txtAnlage1._ShortDateOnly = False
+        Me.txtAnlage1._TimeOnly = False
+        Me.txtAnlage1._value = Nothing
+        Me.txtAnlage1._Waehrung = False
+        Me.txtAnlage1._WaehrungZeichen = True
+        Me.txtAnlage1.ForeColor = System.Drawing.Color.Black
+        Me.txtAnlage1.Location = New System.Drawing.Point(254, 162)
+        Me.txtAnlage1.MaxLineLength = -1
+        Me.txtAnlage1.MaxLines_Warning = ""
+        Me.txtAnlage1.MaxLines_Warning_Label = Nothing
+        Me.txtAnlage1.Name = "txtAnlage1"
+        Me.txtAnlage1.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnlage1.TabIndex = 29
+        '
+        'txtAnlage2
+        '
+        Me.txtAnlage2._DateTimeOnly = False
+        Me.txtAnlage2._numbersOnly = False
+        Me.txtAnlage2._numbersOnlyKommastellen = ""
+        Me.txtAnlage2._Prozent = False
+        Me.txtAnlage2._ShortDateNew = False
+        Me.txtAnlage2._ShortDateOnly = False
+        Me.txtAnlage2._TimeOnly = False
+        Me.txtAnlage2._value = Nothing
+        Me.txtAnlage2._Waehrung = False
+        Me.txtAnlage2._WaehrungZeichen = True
+        Me.txtAnlage2.ForeColor = System.Drawing.Color.Black
+        Me.txtAnlage2.Location = New System.Drawing.Point(254, 181)
+        Me.txtAnlage2.MaxLineLength = -1
+        Me.txtAnlage2.MaxLines_Warning = ""
+        Me.txtAnlage2.MaxLines_Warning_Label = Nothing
+        Me.txtAnlage2.Name = "txtAnlage2"
+        Me.txtAnlage2.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnlage2.TabIndex = 39
+        '
+        'txtAnlage3
+        '
+        Me.txtAnlage3._DateTimeOnly = False
+        Me.txtAnlage3._numbersOnly = False
+        Me.txtAnlage3._numbersOnlyKommastellen = ""
+        Me.txtAnlage3._Prozent = False
+        Me.txtAnlage3._ShortDateNew = False
+        Me.txtAnlage3._ShortDateOnly = False
+        Me.txtAnlage3._TimeOnly = False
+        Me.txtAnlage3._value = Nothing
+        Me.txtAnlage3._Waehrung = False
+        Me.txtAnlage3._WaehrungZeichen = True
+        Me.txtAnlage3.ForeColor = System.Drawing.Color.Black
+        Me.txtAnlage3.Location = New System.Drawing.Point(254, 200)
+        Me.txtAnlage3.MaxLineLength = -1
+        Me.txtAnlage3.MaxLines_Warning = ""
+        Me.txtAnlage3.MaxLines_Warning_Label = Nothing
+        Me.txtAnlage3.Name = "txtAnlage3"
+        Me.txtAnlage3.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnlage3.TabIndex = 40
+        '
+        'txtAnlage4
+        '
+        Me.txtAnlage4._DateTimeOnly = False
+        Me.txtAnlage4._numbersOnly = False
+        Me.txtAnlage4._numbersOnlyKommastellen = ""
+        Me.txtAnlage4._Prozent = False
+        Me.txtAnlage4._ShortDateNew = False
+        Me.txtAnlage4._ShortDateOnly = False
+        Me.txtAnlage4._TimeOnly = False
+        Me.txtAnlage4._value = Nothing
+        Me.txtAnlage4._Waehrung = False
+        Me.txtAnlage4._WaehrungZeichen = True
+        Me.txtAnlage4.ForeColor = System.Drawing.Color.Black
+        Me.txtAnlage4.Location = New System.Drawing.Point(254, 219)
+        Me.txtAnlage4.MaxLineLength = -1
+        Me.txtAnlage4.MaxLines_Warning = ""
+        Me.txtAnlage4.MaxLines_Warning_Label = Nothing
+        Me.txtAnlage4.Name = "txtAnlage4"
+        Me.txtAnlage4.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnlage4.TabIndex = 41
+        '
+        'txtAnlage5
+        '
+        Me.txtAnlage5._DateTimeOnly = False
+        Me.txtAnlage5._numbersOnly = False
+        Me.txtAnlage5._numbersOnlyKommastellen = ""
+        Me.txtAnlage5._Prozent = False
+        Me.txtAnlage5._ShortDateNew = False
+        Me.txtAnlage5._ShortDateOnly = False
+        Me.txtAnlage5._TimeOnly = False
+        Me.txtAnlage5._value = Nothing
+        Me.txtAnlage5._Waehrung = False
+        Me.txtAnlage5._WaehrungZeichen = True
+        Me.txtAnlage5.ForeColor = System.Drawing.Color.Black
+        Me.txtAnlage5.Location = New System.Drawing.Point(254, 238)
+        Me.txtAnlage5.MaxLineLength = -1
+        Me.txtAnlage5.MaxLines_Warning = ""
+        Me.txtAnlage5.MaxLines_Warning_Label = Nothing
+        Me.txtAnlage5.Name = "txtAnlage5"
+        Me.txtAnlage5.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnlage5.TabIndex = 42
+        '
+        'txtAnlage6
+        '
+        Me.txtAnlage6._DateTimeOnly = False
+        Me.txtAnlage6._numbersOnly = False
+        Me.txtAnlage6._numbersOnlyKommastellen = ""
+        Me.txtAnlage6._Prozent = False
+        Me.txtAnlage6._ShortDateNew = False
+        Me.txtAnlage6._ShortDateOnly = False
+        Me.txtAnlage6._TimeOnly = False
+        Me.txtAnlage6._value = Nothing
+        Me.txtAnlage6._Waehrung = False
+        Me.txtAnlage6._WaehrungZeichen = True
+        Me.txtAnlage6.ForeColor = System.Drawing.Color.Black
+        Me.txtAnlage6.Location = New System.Drawing.Point(254, 257)
+        Me.txtAnlage6.MaxLineLength = -1
+        Me.txtAnlage6.MaxLines_Warning = ""
+        Me.txtAnlage6.MaxLines_Warning_Label = Nothing
+        Me.txtAnlage6.Name = "txtAnlage6"
+        Me.txtAnlage6.Size = New System.Drawing.Size(310, 20)
+        Me.txtAnlage6.TabIndex = 43
+        '
+        'txtPosNr
+        '
+        Me.txtPosNr._DateTimeOnly = False
+        Me.txtPosNr._numbersOnly = False
+        Me.txtPosNr._numbersOnlyKommastellen = ""
+        Me.txtPosNr._Prozent = False
+        Me.txtPosNr._ShortDateNew = False
+        Me.txtPosNr._ShortDateOnly = False
+        Me.txtPosNr._TimeOnly = False
+        Me.txtPosNr._value = Nothing
+        Me.txtPosNr._Waehrung = False
+        Me.txtPosNr._WaehrungZeichen = True
+        Me.txtPosNr.ForeColor = System.Drawing.Color.Black
+        Me.txtPosNr.Location = New System.Drawing.Point(254, 136)
+        Me.txtPosNr.MaxLineLength = -1
+        Me.txtPosNr.MaxLines_Warning = ""
+        Me.txtPosNr.MaxLines_Warning_Label = Nothing
+        Me.txtPosNr.Name = "txtPosNr"
+        Me.txtPosNr.Size = New System.Drawing.Size(310, 20)
+        Me.txtPosNr.TabIndex = 27
        '
        'usrcntlVerzollungsunterlagen
        '
@@ -581,10 +596,7 @@ Partial Class usrcntlVerzollungsunterlagen
    Friend WithEvents lbl As System.Windows.Forms.Label
    Friend WithEvents txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtAdresse2 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtPosNr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
-    Friend WithEvents txtAnlage1 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents pic As System.Windows.Forms.PictureBox
    Friend WithEvents btnDown As System.Windows.Forms.Button
    Friend WithEvents btnUp As System.Windows.Forms.Button
@@ -593,20 +605,22 @@ Partial Class usrcntlVerzollungsunterlagen
    Friend WithEvents Label12 As System.Windows.Forms.Label
    Friend WithEvents txtAdresse3 As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents txtFirma2 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtAnlage2 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtAnlage4 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtAnlage3 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtAnlage6 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtAnlage5 As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtBearbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents Label1 As System.Windows.Forms.Label
-    Friend WithEvents Label2 As System.Windows.Forms.Label
-    Friend WithEvents Label3 As System.Windows.Forms.Label
-    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox
    Friend WithEvents txtFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox
-
+    Friend WithEvents Label1 As Label
+    Friend WithEvents txtTel As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtFax As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtEmail As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtBearbeiter As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label11 As Label
+    Friend WithEvents txtAnlage1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAnlage2 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAnlage3 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAnlage4 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAnlage5 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtAnlage6 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtPosNr As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb
@@ -0,0 +1,337 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlVerzollungsunterlagen_BAR
+    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.Label6 = New System.Windows.Forms.Label()
+        Me.txtAdresse1 = 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.txtFirma = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
+        Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboRechnungAn = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cboSpedBuchUnterNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.cboTEXT = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label12 = New System.Windows.Forms.Label()
+        Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        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(197, 20)
+        Me.lblVollmachtDE.TabIndex = 2
+        Me.lblVollmachtDE.Text = "Verzoll.unterlagen BAR"
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(170, 63)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(78, 13)
+        Me.lbl.TabIndex = 11
+        Me.lbl.Text = "Firmenwortlaut:"
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(170, 37)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(76, 13)
+        Me.Label6.TabIndex = 5
+        Me.Label6.Text = "Filiale/Pos.Nr::"
+        '
+        'txtAdresse1
+        '
+        Me.txtAdresse1._DateTimeOnly = False
+        Me.txtAdresse1._numbersOnly = False
+        Me.txtAdresse1._numbersOnlyKommastellen = ""
+        Me.txtAdresse1._Prozent = False
+        Me.txtAdresse1._ShortDateNew = False
+        Me.txtAdresse1._ShortDateOnly = False
+        Me.txtAdresse1._TimeOnly = 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, 80)
+        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 = 14
+        '
+        '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 = 10
+        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
+        '
+        'txtFirma
+        '
+        Me.txtFirma._AllowSetValue = True
+        Me.txtFirma._autoSizeGross = False
+        Me.txtFirma._display_Name1 = True
+        Me.txtFirma._displayAVISO_Email = False
+        Me.txtFirma._displayFullName = False
+        Me.txtFirma._displayWoelflKd = False
+        Me.txtFirma._hideIfListEmpty = True
+        Me.txtFirma._loadKdData = True
+        Me.txtFirma._ValueKdAndName = False
+        Me.txtFirma.dgvpos = "LEFT"
+        Me.txtFirma.KdName = Nothing
+        Me.txtFirma.KdNr = "-1"
+        Me.txtFirma.kdNrField = Nothing
+        Me.txtFirma.KdNrNullInt = Nothing
+        Me.txtFirma.Location = New System.Drawing.Point(254, 61)
+        Me.txtFirma.Name = "txtFirma"
+        Me.txtFirma.nurAktive = True
+        Me.txtFirma.searchActive = True
+        Me.txtFirma.Size = New System.Drawing.Size(709, 20)
+        Me.txtFirma.TabIndex = 12
+        Me.txtFirma.usrcntl = Nothing
+        '
+        'cboFiliale
+        '
+        Me.cboFiliale._allowedValuesFreiText = Nothing
+        Me.cboFiliale._allowFreiText = False
+        Me.cboFiliale._value = ""
+        Me.cboFiliale.DropDownWidth = 200
+        Me.cboFiliale.FormattingEnabled = True
+        Me.cboFiliale.Location = New System.Drawing.Point(254, 34)
+        Me.cboFiliale.Name = "cboFiliale"
+        Me.cboFiliale.Size = New System.Drawing.Size(67, 21)
+        Me.cboFiliale.TabIndex = 6
+        '
+        'txtAbfertigungsnummer
+        '
+        Me.txtAbfertigungsnummer._DateTimeOnly = False
+        Me.txtAbfertigungsnummer._numbersOnly = True
+        Me.txtAbfertigungsnummer._numbersOnlyKommastellen = ""
+        Me.txtAbfertigungsnummer._Prozent = False
+        Me.txtAbfertigungsnummer._ShortDateNew = False
+        Me.txtAbfertigungsnummer._ShortDateOnly = False
+        Me.txtAbfertigungsnummer._TimeOnly = False
+        Me.txtAbfertigungsnummer._value = ""
+        Me.txtAbfertigungsnummer._Waehrung = False
+        Me.txtAbfertigungsnummer._WaehrungZeichen = True
+        Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(320, 34)
+        Me.txtAbfertigungsnummer.MaxLength = 8
+        Me.txtAbfertigungsnummer.MaxLineLength = -1
+        Me.txtAbfertigungsnummer.MaxLines_Warning = ""
+        Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing
+        Me.txtAbfertigungsnummer.Multiline = True
+        Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
+        Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(244, 21)
+        Me.txtAbfertigungsnummer.TabIndex = 7
+        '
+        'cboRechnungAn
+        '
+        Me.cboRechnungAn._allowedValuesFreiText = Nothing
+        Me.cboRechnungAn._allowFreiText = False
+        Me.cboRechnungAn._value = ""
+        Me.cboRechnungAn.FormattingEnabled = True
+        Me.cboRechnungAn.Location = New System.Drawing.Point(780, 34)
+        Me.cboRechnungAn.Name = "cboRechnungAn"
+        Me.cboRechnungAn.Size = New System.Drawing.Size(183, 21)
+        Me.cboRechnungAn.TabIndex = 9
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(733, 37)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(41, 13)
+        Me.Label1.TabIndex = 8
+        Me.Label1.Text = "Kunde:"
+        '
+        'cboSpedBuchUnterNr
+        '
+        Me.cboSpedBuchUnterNr._allowedValuesFreiText = Nothing
+        Me.cboSpedBuchUnterNr._allowFreiText = False
+        Me.cboSpedBuchUnterNr._value = ""
+        Me.cboSpedBuchUnterNr.DropDownWidth = 350
+        Me.cboSpedBuchUnterNr.FormattingEnabled = True
+        Me.cboSpedBuchUnterNr.Location = New System.Drawing.Point(563, 34)
+        Me.cboSpedBuchUnterNr.Margin = New System.Windows.Forms.Padding(2)
+        Me.cboSpedBuchUnterNr.Name = "cboSpedBuchUnterNr"
+        Me.cboSpedBuchUnterNr.Size = New System.Drawing.Size(71, 21)
+        Me.cboSpedBuchUnterNr.TabIndex = 31
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Transparent
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.Black
+        Me.Button1.Location = New System.Drawing.Point(639, 21)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(83, 34)
+        Me.Button1.TabIndex = 32
+        Me.Button1.Text = "Daten laden"
+        Me.Button1.UseVisualStyleBackColor = False
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(170, 109)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(31, 13)
+        Me.Label2.TabIndex = 33
+        Me.Label2.Text = "Text:"
+        '
+        'cboTEXT
+        '
+        Me.cboTEXT._allowedValuesFreiText = Nothing
+        Me.cboTEXT._allowFreiText = False
+        Me.cboTEXT._value = ""
+        Me.cboTEXT.FormattingEnabled = True
+        Me.cboTEXT.Location = New System.Drawing.Point(254, 106)
+        Me.cboTEXT.Name = "cboTEXT"
+        Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
+        Me.cboTEXT.TabIndex = 34
+        '
+        'Label12
+        '
+        Me.Label12.AutoSize = True
+        Me.Label12.Location = New System.Drawing.Point(44, 44)
+        Me.Label12.Name = "Label12"
+        Me.Label12.Size = New System.Drawing.Size(50, 13)
+        Me.Label12.TabIndex = 35
+        Me.Label12.Text = "Sprache:"
+        '
+        'cboSprache
+        '
+        Me.cboSprache._allowedValuesFreiText = Nothing
+        Me.cboSprache._allowFreiText = False
+        Me.cboSprache._value = ""
+        Me.cboSprache.FormattingEnabled = True
+        Me.cboSprache.Location = New System.Drawing.Point(47, 60)
+        Me.cboSprache.Name = "cboSprache"
+        Me.cboSprache.Size = New System.Drawing.Size(89, 21)
+        Me.cboSprache.TabIndex = 36
+        '
+        'usrcntlVerzollungsunterlagen_BAR
+        '
+        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.Label12)
+        Me.Controls.Add(Me.cboSprache)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cboTEXT)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.cboSpedBuchUnterNr)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.cboRechnungAn)
+        Me.Controls.Add(Me.txtFirma)
+        Me.Controls.Add(Me.btnDown)
+        Me.Controls.Add(Me.btnUp)
+        Me.Controls.Add(Me.btnDel)
+        Me.Controls.Add(Me.pic)
+        Me.Controls.Add(Me.txtAdresse1)
+        Me.Controls.Add(Me.lbl)
+        Me.Controls.Add(Me.lblVollmachtDE)
+        Me.Controls.Add(Me.cboFiliale)
+        Me.Controls.Add(Me.txtAbfertigungsnummer)
+        Me.Controls.Add(Me.Label6)
+        Me.Name = "usrcntlVerzollungsunterlagen_BAR"
+        Me.Size = New System.Drawing.Size(1000, 147)
+        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 txtAdresse1 As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As System.Windows.Forms.Label
+    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 txtFirma As VERAG_PROG_ALLGEMEIN.KdSearchBox
+    Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Public WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents cboRechnungAn As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cboSpedBuchUnterNr As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Button1 As Button
+    Friend WithEvents Label2 As Label
+    Friend WithEvents cboTEXT As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label12 As Label
+    Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+End Class
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.resx
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.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/usrcntlVerzollungsunterlagen_BAR.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb
@@ -0,0 +1,252 @@
+Public Class usrcntlVerzollungsunterlagen_BAR
+    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)
+        txtFirma.KdNr = 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 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
+        cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
+
+        initSprache()
+
+        txtFirma.initKdBox(Me.FindForm)
+        AddHandler txtFirma.PropertyChanged, Sub()
+                                                 Me.KdNR = txtFirma.KdNr_value
+                                                 If txtFirma.KdNr_value > 0 Then
+                                                     If txtFirma.KdData_ADRESSEN IsNot Nothing Then
+                                                         Dim ADRESSE = txtFirma.KdData_ADRESSEN
+                                                         txtFirma.Text = If(ADRESSE.Name_1, ADRESSE.Ordnungsbegriff)
+                                                         txtAdresse1.Text = (If(ADRESSE.LandKz, "") & " " & If(ADRESSE.PLZ, "") & " " & If(ADRESSE.Ort, "")).ToString.Trim
+                                                     End If
+                                                 End If
+                                                 RaiseEvent KDNR_CHANGED(KdNR)
+                                             End Sub
+        initControlsHandler()
+
+        If KdNR > 0 Then txtFirma.KdNr = KdNR
+
+
+
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal", "AT_FISKAL"))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal", "DE_FISKAL"))
+
+
+        '  cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
+
+
+        cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("1 - Absender", "1"))
+        cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("2 - Empfänger", "2"))
+        cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3 - Auftraggeber", "3"))
+        cboRechnungAn.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("4 - Avisierer", "4"))
+
+
+        loaded = True
+    End Sub
+
+    Sub initSprache()
+        If cboTEXT._value = "DE_FISKAL" Then
+            cboSprache.Items.Clear()
+            cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
+            cboSprache.changeItem("EN")
+        Else
+            cboSprache.Items.Clear()
+            cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Deutsch", "DE"))
+            cboSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Englisch", "EN"))
+            cboSprache.changeItem("DE")
+        End If
+
+    End Sub
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        FormularManagerNEU.genPDF(Me, True)
+    End Sub
+
+
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
+        FormularManagerNEU.genPDF(Me, , , , True)
+    End Sub
+
+    Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
+        Select Case cboRechnungAn._value
+            Case "1" : loadAdressen(SPEDBUCH.AbsenderKundenNr)
+            Case "2" : loadAdressen(SPEDBUCH.EmpfängerKundenNr)
+            Case "3" : loadAdressen(SPEDBUCH.VermittlerKundenNr)
+            Case "4" : loadAdressen(SPEDBUCH.AvisiererKundenNr)
+            Case Else : loadAdressen(-1)
+        End Select
+    End Sub
+
+    Sub loadAdressen(KdNr)
+        Me.KdNR = KdNr
+        If KdNr IsNot Nothing AndAlso IsNumeric(KdNr) AndAlso KdNr > 0 Then
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
+            txtFirma.Text = If(AD.Name_1, "")
+            '   txtFirma2.Text = If(AD.Name_2, "")
+            txtAdresse1.Text = If(AD.LandKz, "") & " " & If(AD.PLZ, "") & " " & If(AD.Ort, "")
+
+        Else
+            txtFirma.Text = ""
+            '   txtFirma2.Text = ""
+            txtAdresse1.Text = ""
+        End If
+
+
+
+    End Sub
+
+    Private Sub txtAbfertigungsNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave
+        If txtAbfertigungsnummer.Text.Length >= 8 And cboFiliale._value <> "" Then
+            If cboRechnungAn._value = "" Then cboRechnungAn.changeItem("2")
+
+        End If
+
+    End Sub
+
+    Sub loadData()
+        Dim Spedbuch As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch()
+    End Sub
+
+
+    Private Sub txtAbfertigungsnummer_Leave(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave
+        If IsNumeric(txtAbfertigungsnummer.Text) AndAlso txtAbfertigungsnummer.Text.Length <= 6 Then
+            txtAbfertigungsnummer.Text = Now.ToString("yy") & CInt(txtAbfertigungsnummer.Text).ToString("000000")
+        End If
+    End Sub
+
+    Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.TextChanged, cboFiliale.TextChanged
+        If cboFiliale.Text.StartsWith("/") Then
+            If cboFiliale.Text.EndsWith("/") And cboFiliale.Text.Contains("-") Then
+                Dim t As String = cboFiliale.Text
+                t = t.Replace("/", "")
+                Dim v() = t.Split("-")
+                If v.Length > 1 Then
+                    txtAbfertigungsnummer.Text = v(1)
+
+                    loadedFilAbf = False 'damit changeItem kein erneuters laden verursachts
+                    cboFiliale.changeItem(v(0))
+                    loadedFilAbf = True
+
+                    getFilialeAbfertNUrnterNr(v(0), v(1))
+
+                End If
+            End If
+        Else
+            getFilialeAbfertNUrnterNr(cboFiliale._value, txtAbfertigungsnummer.Text)
+        End If
+    End Sub
+    Dim loaded = False
+    Dim loadedFilAbf = True
+    Sub getFilialeAbfertNUrnterNr(FilialenNr, AbfertigungsNr)
+        If Not loadedFilAbf Then Exit Sub
+        If FilialenNr <> String.Empty And AbfertigungsNr.Length >= 8 Then
+            cboSpedBuchUnterNr.fillWithSQL("SELECT  [UnterNr], convert(varchar(10),[Abfertigungsdatum], 104) + ' | ' + cast(Abfertigungsarten.Abfertigungsart as varchar(2)) + ' ' + Abfertigungsarten.Abfertigungsbezeichnung + '  - ' + isnull(cast(EmpfängerKundenNr as varchar(10)),'') + ' ' + isnull(Empfänger,'') " &
+                                           " FROM [Speditionsbuch] inner join Abfertigungsarten on Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart  where FilialenNr='" & FilialenNr & "' and AbfertigungsNr='" & AbfertigungsNr & "'", True, "FMZOLL", False)
+            If loaded Then
+                If cboSpedBuchUnterNr.Items.Count = 1 Then
+                    cboSpedBuchUnterNr.SelectedIndex = 0
+                    Button1.PerformClick()
+                End If
+            End If
+        Else
+            cboSpedBuchUnterNr.Items.Clear()
+        End If
+    End Sub
+
+
+    Private Sub cboFiliale_Leave(sender As Object, e As EventArgs) Handles cboFiliale.Leave
+        'If cboFiliale.Text.StartsWith("/") Then
+        '    loadedFilAbf = False 'damit changeItem kein erneuters laden verursachts
+        '    cboFiliale.changeItem(RECHNUNG.FilialenNr)
+        '    loadedFilAbf = True
+        'End If
+
+        'If cboSpedBuchUnterNr.Items.Count = 1 Then
+        '    cboSpedBuchUnterNr.SelectedIndex = 0
+        'ElseIf cboSpedBuchUnterNr.Items.Count > 1 Then
+        '    cboSpedBuchUnterNr.DroppedDown = True
+        '    cboSpedBuchUnterNr.Focus()
+        'End If
+    End Sub
+
+
+    Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
+    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        SPEDBUCH = New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch(cboFiliale._value, txtAbfertigungsnummer.Text, cboSpedBuchUnterNr._value) 'txtUnterNr.Text)
+        If Not SPEDBUCH.hasEntry Then Exit Sub
+        Dim FORMULARE As frmFormulare = Me.FindForm
+
+        If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing AndAlso SPEDBUCH.DokumentId_Steuerbeleg.ToString <> "" Then
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(SPEDBUCH.DokumentId_Steuerbeleg)
+            FORMULARE.addForm("Sonst_PDF", {DS.OPEN_SINGLE(False)})
+        End If
+        If SPEDBUCH.DokumentId_Mitteilung IsNot Nothing AndAlso SPEDBUCH.DokumentId_Mitteilung.ToString <> "" Then
+            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(SPEDBUCH.DokumentId_Mitteilung)
+            FORMULARE.addForm("Sonst_PDF", {DS.OPEN_SINGLE(False)})
+        End If
+        txtFirma.Focus() ' Leave
+
+        Select Case SPEDBUCH.Abfertigungsart
+            Case "26", "38"
+                cboTEXT.changeItem("AT_FISKAL")
+            Case "28" 'DE
+                cboTEXT.changeItem("DE_FISKAL")
+        End Select
+    End Sub
+
+    Private Sub cboTEXT_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTEXT.SelectedIndexChanged
+        initSprache()
+    End Sub
+End Class