X

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.Designer.vb

@@ -41,6 +41,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.cboTEXT = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label12 = New System.Windows.Forms.Label()
         Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbx = New System.Windows.Forms.CheckBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
@@ -60,7 +61,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 14
         Me.lbl.Text = "Firmenwortlaut:"
         '
         'Label6
@@ -69,7 +70,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 3
         Me.Label6.Text = "Filiale/Pos.Nr::"
         '
         'txtAdresse1
@@ -91,7 +92,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.txtAdresse1.MaxLines_Warning_Label = Nothing
         Me.txtAdresse1.Name = "txtAdresse1"
         Me.txtAdresse1.Size = New System.Drawing.Size(709, 20)
-        Me.txtAdresse1.TabIndex = 14
+        Me.txtAdresse1.TabIndex = 16
         '
         'pic
         '
@@ -113,7 +114,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 12
         Me.btnDown.UseVisualStyleBackColor = True
         '
         'btnUp
@@ -125,7 +126,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 8
         Me.btnUp.UseVisualStyleBackColor = True
         '
         'btnDel
@@ -161,7 +162,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.txtFirma.nurAktive = True
         Me.txtFirma.searchActive = True
         Me.txtFirma.Size = New System.Drawing.Size(709, 20)
-        Me.txtFirma.TabIndex = 12
+        Me.txtFirma.TabIndex = 15
         Me.txtFirma.usrcntl = Nothing
         '
         'cboFiliale
@@ -174,7 +175,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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
+        Me.cboFiliale.TabIndex = 4
         '
         'txtAbfertigungsnummer
         '
@@ -196,7 +197,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.txtAbfertigungsnummer.Multiline = True
         Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer"
         Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(244, 21)
-        Me.txtAbfertigungsnummer.TabIndex = 7
+        Me.txtAbfertigungsnummer.TabIndex = 5
         '
         'cboRechnungAn
         '
@@ -207,7 +208,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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
+        Me.cboRechnungAn.TabIndex = 10
         '
         'Label1
         '
@@ -215,7 +216,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 9
         Me.Label1.Text = "Kunde:"
         '
         'cboSpedBuchUnterNr
@@ -229,7 +230,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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
+        Me.cboSpedBuchUnterNr.TabIndex = 6
         '
         'Button1
         '
@@ -239,7 +240,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 7
         Me.Button1.Text = "Daten laden"
         Me.Button1.UseVisualStyleBackColor = False
         '
@@ -249,7 +250,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 17
         Me.Label2.Text = "Text:"
         '
         'cboTEXT
@@ -261,7 +262,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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
+        Me.cboTEXT.TabIndex = 18
         '
         'Label12
         '
@@ -269,7 +270,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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.TabIndex = 11
         Me.Label12.Text = "Sprache:"
         '
         'cboSprache
@@ -281,7 +282,19 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         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
+        Me.cboSprache.TabIndex = 13
+        '
+        'cbx
+        '
+        Me.cbx.AutoSize = True
+        Me.cbx.Checked = True
+        Me.cbx.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbx.Location = New System.Drawing.Point(639, 5)
+        Me.cbx.Name = "cbx"
+        Me.cbx.Size = New System.Drawing.Size(135, 17)
+        Me.cbx.TabIndex = 1
+        Me.cbx.Text = "Anhänge zurücksetzen"
+        Me.cbx.UseVisualStyleBackColor = True
         '
         'usrcntlVerzollungsunterlagen_BAR
         '
@@ -308,6 +321,7 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
         Me.Controls.Add(Me.cboFiliale)
         Me.Controls.Add(Me.txtAbfertigungsnummer)
         Me.Controls.Add(Me.Label6)
+        Me.Controls.Add(Me.cbx)
         Me.Name = "usrcntlVerzollungsunterlagen_BAR"
         Me.Size = New System.Drawing.Size(1000, 147)
         CType(Me.pic, System.ComponentModel.ISupportInitialize).EndInit()
@@ -334,4 +348,5 @@ Partial Class usrcntlVerzollungsunterlagen_BAR
     Friend WithEvents cboTEXT As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label12 As Label
     Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbx As CheckBox
 End Class

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_BAR.vb

@@ -80,6 +80,7 @@
         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"))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("EV Verzollung", "EV"))
 
 
         '  cboFiliale.fillWithSQL(" SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", , "FMZOLL", True)
@@ -120,13 +121,15 @@
     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
+        If SPEDBUCH IsNot Nothing Then
+            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 If
     End Sub
 
     Sub loadAdressen(KdNr)
@@ -144,21 +147,16 @@
         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
+    Private Sub txtAbfertigungsNr_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.Leave, txtAbfertigungsnummer.Leave
+        If txtAbfertigungsnummer.Text.Length >= 8 And cboFiliale._value <> "" And cboSpedBuchUnterNr._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
@@ -224,9 +222,14 @@
 
     Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
     Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim FORMULARE As frmFormulare = Me.FindForm
+        If cbx.Checked Then FORMULARE.clearExceptMe(Me)
+
+        SPEDBUCH = Nothing
         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 cboRechnungAn._value = "" Then cboRechnungAn.changeItem("2")
+
 
         If SPEDBUCH.DokumentId_Steuerbeleg IsNot Nothing AndAlso SPEDBUCH.DokumentId_Steuerbeleg.ToString <> "" Then
             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(SPEDBUCH.DokumentId_Steuerbeleg)
@@ -239,10 +242,12 @@
         txtFirma.Focus() ' Leave
 
         Select Case SPEDBUCH.Abfertigungsart
-            Case "26", "38"
+            Case "26"
                 cboTEXT.changeItem("AT_FISKAL")
             Case "28" 'DE
                 cboTEXT.changeItem("DE_FISKAL")
+            Case "38" 'EV
+                cboTEXT.changeItem("EV")
         End Select
     End Sub
 

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_Verbringsungsnachweis.Designer.vb

@@ -0,0 +1,239 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class usrcntlVerzollungsunterlagen_Verbringsungsnachweis
+    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.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.Label2 = New System.Windows.Forms.Label()
+        Me.cboTEXT = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.txtvbnr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = 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(191, 20)
+        Me.lblVollmachtDE.TabIndex = 2
+        Me.lblVollmachtDE.Text = "Gelangensbestätigung"
+        '
+        'lbl
+        '
+        Me.lbl.AutoSize = True
+        Me.lbl.Location = New System.Drawing.Point(170, 40)
+        Me.lbl.Name = "lbl"
+        Me.lbl.Size = New System.Drawing.Size(78, 13)
+        Me.lbl.TabIndex = 11
+        Me.lbl.Text = "Firmenwortlaut:"
+        '
+        '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, 57)
+        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, 38)
+        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
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(170, 86)
+        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, 83)
+        Me.cboTEXT.Name = "cboTEXT"
+        Me.cboTEXT.Size = New System.Drawing.Size(183, 21)
+        Me.cboTEXT.TabIndex = 34
+        '
+        'txtvbnr
+        '
+        Me.txtvbnr._DateTimeOnly = False
+        Me.txtvbnr._numbersOnly = True
+        Me.txtvbnr._numbersOnlyKommastellen = ""
+        Me.txtvbnr._Prozent = False
+        Me.txtvbnr._ShortDateNew = False
+        Me.txtvbnr._ShortDateOnly = False
+        Me.txtvbnr._TimeOnly = False
+        Me.txtvbnr._value = ""
+        Me.txtvbnr._Waehrung = False
+        Me.txtvbnr._WaehrungZeichen = True
+        Me.txtvbnr.ForeColor = System.Drawing.Color.Black
+        Me.txtvbnr.Location = New System.Drawing.Point(748, 83)
+        Me.txtvbnr.MaxLineLength = -1
+        Me.txtvbnr.MaxLines_Warning = ""
+        Me.txtvbnr.MaxLines_Warning_Label = Nothing
+        Me.txtvbnr.Name = "txtvbnr"
+        Me.txtvbnr.ReadOnly = True
+        Me.txtvbnr.Size = New System.Drawing.Size(215, 20)
+        Me.txtvbnr.TabIndex = 14
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(718, 86)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(24, 13)
+        Me.Label1.TabIndex = 35
+        Me.Label1.Text = "Nr.:"
+        '
+        'usrcntlVerzollungsunterlagen_Verbringsungsnachweis
+        '
+        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.Label1)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.cboTEXT)
+        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.txtvbnr)
+        Me.Controls.Add(Me.txtAdresse1)
+        Me.Controls.Add(Me.lbl)
+        Me.Controls.Add(Me.lblVollmachtDE)
+        Me.Name = "usrcntlVerzollungsunterlagen_Verbringsungsnachweis"
+        Me.Size = New System.Drawing.Size(1000, 132)
+        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 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 Label2 As Label
+    Friend WithEvents cboTEXT As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents txtvbnr As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+End Class

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

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungsunterlagen_Verbringsungsnachweis.vb

@@ -0,0 +1,127 @@
+Public Class usrcntlVerzollungsunterlagen_Verbringsungsnachweis
+    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 Path As String = ""
+    Public VBNr 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
+
+        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
+        If VBNr > 0 Then txtvbnr.Text = VBNr
+
+
+
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal (direkt)", "AT_FISKAL_DIREKT"))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal (indirekt)", "AT_FISKAL_INDIREKT"))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (GB)", "DE_FISKAL_GB"))
+        cboTEXT.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal (FR)", "DE_FISKAL_FR"))
+
+
+
+    End Sub
+
+
+    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
+        Process.Start(Path)
+    End Sub
+
+
+
+    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
+        FormularManagerNEU.genPDF(Me, , , , True)
+    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
+
+
+    Sub loadData()
+        Dim Spedbuch As New VERAG_PROG_ALLGEMEIN.cSpeditionsbuch()
+    End Sub
+
+
+
+End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -290,6 +290,19 @@ Public Class frmFormulare
         Next
 
     End Sub
+
+    Public Sub clearExceptMe(usrCntl)
+        Dim list As New List(Of Object)
+        For Each o In MyFlowLayoutPanel1.Controls
+            If o.GetType IsNot usrCntl.GetType Then
+                list.Add(o)
+            End If
+        Next
+        For Each i In list
+            MyFlowLayoutPanel1.Controls.Remove(i)
+        Next
+    End Sub
+
     Public Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick, MyListBox2.DoubleClick
         Dim lb = DirectCast(sender, VERAG_PROG_ALLGEMEIN.MyListBox)
         If lb.SelectedItems().Count = 0 Then Exit Sub
@@ -560,6 +573,19 @@ Public Class frmFormulare
                     AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                     AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                     MyFlowLayoutPanel1.Controls.Add(c)
+                Case FormularManagerArten.Gelangensbestaetigung
+                    ' If param Is Nothing Then Exit Sub
+                    Dim c As New usrcntlVerzollungsunterlagen_Verbringsungsnachweis
+                    c.KdNR = param(0)
+                    c.Path = param(1)
+                    c.VBNr = param(2)
+                    c.Width = MyFlowLayoutPanel1.Width - 6
+                    c.KdNR = KdNr
+                    AddHandler c.DELETE, AddressOf ControlDELETE
+                    AddHandler c.MOVE_UP, AddressOf ControlMoveUp
+                    AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
+                    MyFlowLayoutPanel1.Controls.Add(c)
+
                 Case FormularManagerArten.AT_InformationsblattFiskalverzollung, FormularManagerArten.DE_InformationsblattFiskalverzollung
                     Dim displayName = ""
                     '   If param Is Nothing Then Exit Sub
@@ -716,12 +742,9 @@ Public Class frmFormulare
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click, btnPrint.Click
         Me.Cursor = Cursors.WaitCursor
-        Dim MailHTMLText = ""
-        Dim Mail_To = ""
-        Dim Mail_CC = ""
-        Dim Mail_Subject = ""
 
 
+        Dim listMail As New List(Of FormMangagerEmail)
 
         Try
 
@@ -744,13 +767,13 @@ Public Class frmFormulare
 
             If isSingleForm And sender Is btnPrint Then 'Sofortdruck --> wir bei ActiveRepots benötigt --> schneller, als zuerst pdf....
                 If Not MyFlowLayoutPanel1.Controls.Count = 1 Then Me.Cursor = Cursors.Default : Exit Sub 'funkt. nur bei genau 1 Control
-                FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
+                FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, listMail)
             Else
 
                 Dim list As New List(Of String) ' Sammlung PDFs
 
                 For Each c In MyFlowLayoutPanel1.Controls
-                    Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
+                    Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, listMail)
                     For Each pfad In pfadList
                         If pfad <> "" Then list.Add(pfad)
                     Next
@@ -835,7 +858,7 @@ Public Class frmFormulare
                                 '                                MailMessage.From = New MailAddress("someone@yourdomain.com")
                                 MailMessage.Subject = "" ' "Your subject here"
                                 MailMessage.IsBodyHtml = True
-                                MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
+                                '   MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
 
                                 MailMessage.Attachments.Add(New Attachment(dest_path))
 
@@ -866,18 +889,34 @@ Public Class frmFormulare
                             ' Else
                             '                            Dim outl = CreateObject("Outlook.Application")
                             ' Dim Mail = CreateObject("Microsoft.Office.Interop.Outlook.MailItem")
-                            Dim outl As New Outlook.Application
-                            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
-                            Mail = outl.CreateItem(0)
 
-                            If MailHTMLText <> "" Then Mail.HTMLBody = MailHTMLText
-                            If Mail_To <> "" Then Mail.To = Mail_To
-                            If Mail_CC <> "" Then Mail.CC = Mail_CC
-                            If Mail_Subject <> "" Then Mail.Subject = Mail_Subject
+                            If listMail IsNot Nothing AndAlso listMail.Count > 0 Then
+                                For Each l In listMail
+                                    Dim outl As New Outlook.Application
+                                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                                    Mail = outl.CreateItem(0)
+
+                                    If l.MailHTMLText <> "" Then Mail.HTMLBody = l.MailHTMLText
+                                    If l.Mail_To <> "" Then Mail.To = l.Mail_To
+                                    If l.Mail_CC <> "" Then Mail.CC = l.Mail_CC
+                                    If l.Mail_BCC <> "" Then Mail.CC = l.Mail_BCC
+                                    If l.Mail_Subject <> "" Then Mail.Subject = l.Mail_Subject
 
 
-                            Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
-                            Mail.Display()
+                                    Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
+                                    Mail.Display()
+
+                                Next
+                            Else
+                                Dim outl As New Outlook.Application
+                                Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                                Mail = outl.CreateItem(0)
+
+                                Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
+                                Mail.Display()
+
+                            End If
+
 
                             'Dim matilPath = "C:\TEMP\VERAG_Mail.msg"
                             ' Mail.SaveAs(matilPath)
@@ -1055,7 +1094,7 @@ End Class
 Public Class FormularManagerNEU
 
     Shared VSQL As New VERAG_PROG_ALLGEMEIN.SQL
-    Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef MailHTMLText As String = "", Optional ByRef Mail_To As String = "", Optional ByRef Mail_CC As String = "", Optional ByRef Mail_Subject As String = "") As List(Of String)
+    Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef listMail As List(Of FormMangagerEmail) = Nothing) As List(Of String)
         Dim retStr = ""
         Dim striList As New List(Of String)
         Select Case c.GetType.ToString
@@ -1102,7 +1141,9 @@ Public Class FormularManagerNEU
             Case GetType(usrcntlVerzollungsunterlagen).ToString
                 striList = FormularManagerNEU.Verzollungsunterlagen(c, printReportElsePdf, printerName, openWord)
             Case GetType(usrcntlVerzollungsunterlagen_BAR).ToString
-                striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
+                striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, listMail)
+            Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString
+                striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail)
 
             Case GetType(usrcntlQS_UeDok).ToString
                 retStr = FormularManagerNEU.QS_UeDok(c)
@@ -2724,10 +2765,233 @@ Public Class FormularManagerNEU
     End Function
 
 
-    Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef MailHTMLText As String, ByRef Mail_To As String, ByRef Mail_CC As String, ByRef Mail_Subject As String) As List(Of String)
+    Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef listMail As List(Of FormMangagerEmail)) As List(Of String)
         Try
 
+            Dim MailHTMLText = ""
+            Dim Mail_Subject = ""
+
+            Dim MailHTMLText_STBFA = ""
+            Dim Mail_Subject_STBFA = ""
+
+            Dim mail_To = ""
+
+
+            Dim mail_To_Stb = ""
+            Dim mail_To_FA = ""
+
+            Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
+            Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
+
+            If usrCntl.KdNR > 0 Then
+                AD = New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
+                KD = New VERAG_PROG_ALLGEMEIN.cKunde(usrCntl.KdNR)
+                If AD IsNot Nothing AndAlso AD.E_Mail <> "" Then
+                    mail_To = AD.E_Mail
+                End If
+
+                Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
+                If FISKAL IsNot Nothing Then
+                    mail_To_Stb = If(FISKAL.fisk_schreibenSB_Mail, "")
+                    mail_To_FA = If(FISKAL.fisk_schreibenFA_Mail, "")
+                End If
+
+            End If
+
+            Dim posNr = usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsnummer.Text
+            If posNr = "/" Then
+                posNr = ""
+            Else
+                posNr = "  Pos.Nr.: " & posNr
+            End If
+
+            Dim bool_StbFA = False
+
             MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
+            MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
+
+            Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
+            MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
+            MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
+            MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
+            MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
+            Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
+            Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
+            MailHTMLText_STBFA &= "</table></b>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
+            MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
+            MailHTMLText_STBFA &= "<br>"
+            MailHTMLText_STBFA &= "<br>"
+
+
+            Select Case usrCntl.cboTEXT._value
+                    Case "AT_FISKAL"
+                        bool_StbFA = True
+                        Select Case usrCntl.cboSprache._value
+                            Case "DE", ""
+                                Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr
+                                MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
+                                MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145  an</b>.<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
+                                MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<b>Bitte:<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "•	  GUT LESBAR<br>"
+                                MailHTMLText &= "•	  VERMERK: WAREN ERHALTEN<br>"
+                                MailHTMLText &= "•	  GENAUES DATUM DER WARENÜBERNAHME<br>"
+                                MailHTMLText &= "•	  ORIGINAL FIRMENSTEMPEL<br>"
+                                MailHTMLText &= "•	  ORIGINAL UNTERSCHRIFT</b><br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<b>Post Adresse:</b><br>"
+                                MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
+                                MailHTMLText &= "POSTFACH 1013<br>"
+                                MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Freundlichen Grüßen<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= cFakturierung.getSignature("D", 11)
+                                MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
+                            Case "EN"
+
+                                Mail_Subject = "intra-community acquisition" & posNr
+                                MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Dear Sir / Madam,<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
+                                MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
+                                MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<b>Please ensure the following:<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "•	  THE DOCUMENT IS FULLY LEGIBLE<br>"
+                                MailHTMLText &= "•	  YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
+                                MailHTMLText &= "•	  YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
+                                MailHTMLText &= "•	  YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
+                                MailHTMLText &= "•	  YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<b>Adress:</b><br>"
+                                MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
+                                MailHTMLText &= "POSTFACH 1013<br>"
+                                MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Yours faithfully,<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= cFakturierung.getSignature("EN", 11)
+                                MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
+
+                        End Select
+
+                    Case "DE_FISKAL"
+                        bool_StbFA = True
+                        Select Case usrCntl.cboSprache._value
+                            Case "EN"
+
+                                Mail_Subject = "intra-community acquisition" & posNr
+                                MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Dear Sir / Madam,<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
+                                MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Yours faithfully<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= cFakturierung.getSignature("EN", 99)
+                                MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
+
+                        End Select
+
+                    Case "EV"
+                        Select Case usrCntl.cboSprache._value
+                            Case "DE", ""
+                                Mail_Subject = "Verzollungsunterlagen" & posNr
+                                MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Freundlichen Grüßen<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= cFakturierung.getSignature("D", 11)
+                            Case "EN"
+                                Mail_Subject = "Verzollungsunterlagen" & posNr
+                                MailHTMLText &= "Dear Sir / Madam,<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "attached you will find the documents for customs clearance.<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "Yours faithfully<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= "<br>"
+                                MailHTMLText &= cFakturierung.getSignature("EN", 11)
+
+                        End Select
+
+                        'MailHTMLText &= cFakturierung.getSignature(11)
+                End Select
+
+                MailHTMLText &= "</div>"
+                'MAIL??
+
+
+
+                listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText))
+                If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA))
+
+
+            Catch ex As Exception
+                MessageBox.Show(ex.ToString & ex.StackTrace)
+        End Try
+        Return New List(Of String)
+    End Function
+
+    Shared Function Verzollungsunterlagen_Verbringungsnachweis(usrCntl As usrcntlVerzollungsunterlagen_Verbringsungsnachweis, ByRef listMail As List(Of FormMangagerEmail)) As List(Of String)
+        Dim striList = New List(Of String)
+        Try
+            Dim VBNW_Nr = usrCntl.VBNr
+            Dim MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
+            Dim Mail_Subject = ""
+            Dim Mail_CC = ""
+            Dim Mail_To = ""
 
             If usrCntl.KdNR > 0 Then
                 Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
@@ -2737,120 +3001,123 @@ Public Class FormularManagerNEU
             End If
 
             Select Case usrCntl.cboTEXT._value
-                Case "AT_FISKAL"
-                    Select Case usrCntl.cboSprache._value
-                        Case "DE", ""
-                            Mail_Subject = "Meldung innergemeinschaftlicher Erwerb"
-                            MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
-                            MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145  an</b>.<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
-                            MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<b>Bitte:<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "•	  GUT LESBAR<br>"
-                            MailHTMLText &= "•	  VERMERK: WAREN ERHALTEN<br>"
-                            MailHTMLText &= "•	  GENAUES DATUM DER WARENÜBERNAHME<br>"
-                            MailHTMLText &= "•	  ORIGINAL FIRMENSTEMPEL<br>"
-                            MailHTMLText &= "•	  ORIGINAL UNTERSCHRIFT</b><br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<b>Post Adresse:</b><br>"
-                            MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
-                            MailHTMLText &= "POSTFACH 1013<br>"
-                            MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Freundlichen Grüßen<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= cFakturierung.getSignature("D", 11)
-                        Case "EN"
+                Case "AT_FISKAL_DIREKT"
 
-                            Mail_Subject = "intra-community acquisition"
-                            MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Dear Sir / Madam,<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
-                            MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
-                            MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<b>Please ensure the following:<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "•	  THE DOCUMENT IS FULLY LEGIBLE<br>"
-                            MailHTMLText &= "•	  YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
-                            MailHTMLText &= "•	  YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
-                            MailHTMLText &= "•	  YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
-                            MailHTMLText &= "•	  YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<b>Adress:</b><br>"
-                            MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
-                            MailHTMLText &= "POSTFACH 1013<br>"
-                            MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Yours faithfully,<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= cFakturierung.getSignature("EN", 11)
+                    Mail_Subject = "Verbringungsnachweis AT-Fiskal | Nr.: " & VBNW_Nr
 
-                    End Select
+                    MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "beiliegend erhalten Sie eine Liste der Sendungen, bei denen eine FIskalverzollung durchgeführt wurde.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Die Aufstellung dient als Verbringungsnachweis der Ware, wir bitten Sie das Eingangsdatum der Sendung auszufüllen und das Formular mit Firmenstempel, Unterschrift und aktuellem Datum zu bestätigen.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "<b>Bitte den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse senden:<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Verag Customs Service GmbH<br>"
+                    MailHTMLText &= "Postfach 1013<br>"
+                    MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Vielen Dank im Voraus.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= cFakturierung.getSignature("D", 11)
 
-                Case "DE_FISKAL"
-                    Select Case usrCntl.cboSprache._value
-                        Case "EN"
+                Case "AT_FISKAL_INDIREKT"
 
-                            Mail_Subject = "intra-community acquisition"
-                            MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Dear Sir / Madam,<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
-                            MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "Yours faithfully,<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= "<br>"
-                            MailHTMLText &= cFakturierung.getSignature("EN", 99)
+                    Mail_Subject = "Verbringungsnachweis AT-Fiskal | Nr.: " & VBNW_Nr
 
-                    End Select
+                    MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "beiliegend erhalten Sie die Verbringungsnachweise für die jeweiligen Firmen, bei denen eine Fikalverzollung duchgeführt wurde.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Die jeweiligen Kunden sollen den beigefügten Verbringungsnachweis mit dem Eingangsdatum der Sendung ausfüllen und mit Firmenstempel,<br>"
+                    MailHTMLText &= "Unterschrift und aktuellem Datum ergänzen.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "<b>Wir bitten Sie den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse zu senden:<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Verag Customs Service GmbH<br>"
+                    MailHTMLText &= "Postfach 1013<br>"
+                    MailHTMLText &= "DE-94152 Neuhaus/Inn<br>"
+                    MailHTMLText &= "</b><br>"
+                    MailHTMLText &= "Vielen Dank im Voraus.<br>"
+                    MailHTMLText &= "<br>"
+
+                    MailHTMLText &= cFakturierung.getSignature("D", 11)
+
+
+                Case "DE_FISKAL_GB"
+
+
+                    Mail_Subject = "ENTRY CERTIFICATE | Nr.: " & VBNW_Nr
+
+                    MailHTMLText &= "Dear Sir Or Madam,<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "we made german fiscal custom clearances for you at the border.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "In relation to this, we would like to inform you, that you have to register the acquisition and submit an Intrastat declaration.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "You also have to send us the necessary entry certificate.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "<b>Please confirm us the attached entry certificate With the date Of delivery, company stamp, Signature And<br>"
+                    MailHTMLText &= "the current date And send it back by E-Mail.</b><br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Thanks in advance.<br>"
+                    MailHTMLText &= "<br>"
+
+
+                    MailHTMLText &= cFakturierung.getSignature("GB", 99)
+
+
+
+                Case "DE_FISKAL_FR"
+
+
+                    Mail_Subject = "ATTESTATION DE RECEPTION | Nr.: " & VBNW_Nr
+
+                    MailHTMLText &= "Madame, Monsieur!<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Nous avons transporté pour vous de la marchandise provenant dans le cadre d'une livraison intracommunautaire exemptée de taxes.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Par consequent, nous vous informons du fait que vous êtes tenus de déclarer l'acquisation intracommunautaire et de remettre une déclaration Intrastat.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "En outre, s'il vous plaît envoyer nous la nécessité attestation de reception.<br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "<b>Confirmez, simplement la attestation de reception (voir ci-joint) avec du cachet de l'entreprise, signature, <br>"
+                    MailHTMLText &= "date de la marchandise d'entrée et la date courante et retourner à mon adresse e-mail.</b><br>"
+                    MailHTMLText &= "<br>"
+                    MailHTMLText &= "Merci d'avance.<br>"
+                    MailHTMLText &= "<br>"
+
+                    MailHTMLText &= cFakturierung.getSignature("FR", 99)
 
-                    'MailHTMLText &= cFakturierung.getSignature(11)
             End Select
 
+
+
             MailHTMLText &= "</div>"
-            'MAIL??
+
+
+            listMail.Add(New FormMangagerEmail(Mail_To, Mail_CC, "", Mail_Subject, MailHTMLText))
+
+
+            Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
+
+            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+
+            '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
+            '  Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
+
+
+            'oWord.Visible = True
+
+
+            striList.Add(usrCntl.Path)
 
         Catch ex As Exception
             MessageBox.Show(ex.ToString & ex.StackTrace)
         End Try
-        Return New List(Of String)
+        Return striList
     End Function
 
-
-
     Shared Function Verbundenheit(usrCntl As usrcntlVerbundenheit) As String
         Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
 
@@ -3307,6 +3574,7 @@ Public Class FormularManagerArten
     Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
     Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
     Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
+    Shared Property Gelangensbestaetigung = "Gelangensbestaetigung"
     Shared Property QS_UeDok = "QS_UeDok"
     Shared Property SA_Gestellung = "SA_Gestellung"
     Shared Property Importaviso = "Importaviso"
@@ -3341,4 +3609,19 @@ Public NotInheritable Class FormularManagerArten2
 
 End Class
 
+
+Public Class FormMangagerEmail
+    Property Mail_To
+    Property Mail_CC
+    Property Mail_BCC
+    Property Mail_Subject
+    Property MailHTMLText
+    Sub New(Mail_To, Mail_CC, Mail_BCC, Mail_Subject, MailHTMLText)
+        Me.Mail_To = Mail_To
+        Me.Mail_CC = Mail_CC
+        Me.Mail_BCC = Mail_BCC
+        Me.Mail_Subject = Mail_Subject
+        Me.MailHTMLText = MailHTMLText
+    End Sub
+End Class
 'Member von System.Windows.Forms