Imports iTextSharp.text.pdf
Imports System.IO
Imports System.Drawing.Printing
Imports System.Runtime.InteropServices
Imports System.Runtime.Serialization
Imports Microsoft.Office.Interop
Imports System.Text
Imports System.Net
Imports GrapeCity.ActiveReports
Imports Microsoft.VisualBasic.ApplicationServices
Imports System.Net.Mail
Imports System.Reflection
Imports System.Text.RegularExpressions

Public Class frmFormulare
    Dim isSingleForm = False
    Event ShownFIN()
    Dim KdNr As Integer = 0

    Sub New()

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(KDNR As Integer)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.KdNr = KDNR
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(PDFArt As String)


        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.KdNr = -1
        Me.isSingleForm = isSingleForm
        AddHandler Me.Shown, Sub()
                                 addForm(PDFArt, Nothing)
                                 RaiseEvent ShownFIN()
                             End Sub

    End Sub

    Sub New(PDFArt As String, KdNr As Integer, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.KdNr = KdNr
        Me.isSingleForm = isSingleForm
        AddHandler Me.Shown, Sub()
                                 addForm(PDFArt, param)
                                 RaiseEvent ShownFIN()
                             End Sub

    End Sub



    Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyFlowLayoutPanel1.DragDrop
        If e.Data.GetDataPresent(DataFormats.FileDrop, False) Then
            Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
            For Each path In files
                If path.EndsWith(".pdf") Then
                    addForm("Sonst_PDF", {path})
                Else
                    MsgBox("Es können nur PDF Dateien angefügt werden: " & vbNewLine & vbNewLine & path)
                End If
            Next
        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
            Dim HandleFileDrops = ""

            Try
                If e.Data.GetDataPresent(DataFormats.FileDrop) Then
                    ' We have a file so lets pass it to the calling form
                    Dim Filename As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
                    HandleFileDrops = Filename(0)
                ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
                    ' We have a embedded file. First lets try to get the file name out of memory
                    Dim theStream As Stream = CType(e.Data.GetData("FileGroupDescriptor"), Stream)
                    Dim fileGroupDescriptor(512) As Byte
                    theStream.Read(fileGroupDescriptor, 0, 512)
                    Dim fileName As System.Text.StringBuilder = New System.Text.StringBuilder("")
                    Dim i As Integer = 76
                    While Not (fileGroupDescriptor(i) = 0)
                        fileName.Append(Convert.ToChar(fileGroupDescriptor(i)))
                        System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
                    End While
                    theStream.Close()
                    ' We should have the file name or if its a email the subject line. Create our temp file based on the temp path and this info
                    Dim myTempFile As String = Path.GetTempPath & fileName.ToString
                    ' Look to see if this is a email message. If so save that temporarily and get the temp file.
                    If InStr(myTempFile, ".msg") > 0 Then
                        Dim objOL As New Microsoft.Office.Interop.Outlook.Application
                        Dim objMI As Microsoft.Office.Interop.Outlook.MailItem
                        If objOL.ActiveExplorer.Selection.Count > 1 Then
                            MsgBox("Es können nur einzelne Elemente angefügt werden!", "")
                        End If
                        For Each objMI In objOL.ActiveExplorer.Selection()
                            objMI.SaveAs(myTempFile)
                            Exit For
                        Next
                        objOL = Nothing
                        objMI = Nothing
                    Else
                        ' If its a attachment we need to pull the file itself out of memory
                        Dim ms As MemoryStream = CType(e.Data.GetData("FileContents", True), MemoryStream)
                        Dim FileBytes(CInt(ms.Length)) As Byte
                        ' read the raw data into our variable
                        ms.Position = 0
                        ms.Read(FileBytes, 0, CInt(ms.Length))
                        ms.Close()
                        ' save the raw data into our temp file
                        Dim fs As FileStream = New FileStream(myTempFile, FileMode.OpenOrCreate, FileAccess.Write)
                        fs.Write(FileBytes, 0, FileBytes.Length)
                        fs.Close()
                    End If
                    ' Make sure we have a actual file and also if we do make sure we erase it when done
                    If File.Exists(myTempFile) Then
                        ' Assign the file name to the add dialog
                        HandleFileDrops = myTempFile
                        '  Call AddTempFileToArray(myTempFile)
                    Else
                        HandleFileDrops = String.Empty
                    End If
                Else
                    Throw New System.Exception("An exception has occurred.")
                End If
            Catch ex As Exception
                MsgBox(ex.Message & ex.StackTrace)
                HandleFileDrops = String.Empty
            End Try
            If HandleFileDrops.EndsWith(".pdf") Then
                addForm("Sonst_PDF", {HandleFileDrops})
            Else
                MsgBox("Es können nur PDF Dateien angefügt werden: " & vbNewLine & vbNewLine & HandleFileDrops)
            End If
        End If
    End Sub

    Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles MyFlowLayoutPanel1.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
            e.Effect = DragDropEffects.Copy
        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
            e.Effect = DragDropEffects.Copy
        Else
        End If
    End Sub

    Private Shared Function GetIP() As String
        Dim thisIp As IPAddress = Nothing

        Dim strHostName As String = Dns.GetHostName()
        Dim iphostentry As IPHostEntry = Dns.GetHostEntry(strHostName)
        ' Find host name
        For Each ipAddress As IPAddress In iphostentry.AddressList
            ' Grab the first IP addresses
            If ipAddress.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then
                thisIp = ipAddress
            End If
        Next

        Return thisIp.ToString
    End Function

    Private Sub frmFormulare_Load(sender As Object, e As EventArgs) Handles Me.Load

        'Dim IPs As Net.IPAddress = Net.Dns.GetHostEntry(My.Computer.Name).AddressList(0)
        Try

            ' If GetIP() = "192.168.0.96" And Not isSingleForm Then
            ' btnPrint.Visible = False
            ' End If

        Catch ex As Exception

        End Try

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"

                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))

                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))

                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_IMEX))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bonitäts-Auskunft", FormularManagerArten.Boniteatsauskunft))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))

                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))


                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))

                ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
                ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))




                cboVorlage.Items.Clear()
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE_IMEX))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal_IMEX))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT_IMEX))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal_IMEX))

            Case "ATILLA"
            Case Else
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht", FormularManagerArten.AT_Vollmacht))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Vollmacht 4200 EV", FormularManagerArten.AT_Vollmacht_EV))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Fiskal-Vollmacht", FormularManagerArten.AT_Fiskal))

                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
                MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Export Vollmacht", FormularManagerArten.ATILLA_EXPORT))

                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (VERAG Spedition AG)", FormularManagerArten.VUB_AG))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB (Customs Service GmbH)", FormularManagerArten.VUB_CS))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso Vorauskasse", FormularManagerArten.Importaviso_VK))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Importaviso", FormularManagerArten.Importaviso))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Gestellungsgarantie", FormularManagerArten.Gestellungsgarantie))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollungspreise", FormularManagerArten.Verzollungspreise))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Bonitäts-Auskunft", FormularManagerArten.Boniteatsauskunft))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))

                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AT Informationsblatt Fiskalverzollung", FormularManagerArten.AT_InformationsblattFiskalverzollung))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Informationsblatt Fiskalverzollung", FormularManagerArten.DE_InformationsblattFiskalverzollung))

                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
                MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
                ' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))




                cboVorlage.Items.Clear()
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE Fiskal", FormularVorlagenGruppe.NeukundeDEFiskal))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT", FormularVorlagenGruppe.NeukundeAT))
                cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde AT Fiskal", FormularVorlagenGruppe.NeukundeATFiskal))

        End Select



        'MyListBox1.fillWithMyListItem()




        initDrucker(cboPrinter)

        If isSingleForm Then
            pnl.Enabled = False
        End If
    End Sub

    Sub initFlowLPHeight()
        Dim h = 0
        For Each c As Control In MyFlowLayoutPanel1.Controls
            h += c.Height + c.Margin.Top + c.Margin.Bottom
        Next
        MyFlowLayoutPanel1.MinimumSize = New Size(1000, If(h < pnlBody.Height, pnlBody.Height - 5, h))
        pnlBody.AutoScrollMinSize = New Size(1000, If(h < pnlBody.Height, pnlBody.Height - 5, h))


        For Each c In MyFlowLayoutPanel1.Controls
            c.width = pnlBody.Width - c.Margin.left + c.Margin.right - If(pnlBody.VerticalScroll.Visible, 20, 0) - 10
        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
        Try
            addForm(DirectCast(lb.SelectedItems(0), VERAG_PROG_ALLGEMEIN.MyListItem).Value)
        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub


    Public Sub addForm(valueTMP As String, Optional param() As Object = Nothing)
        Try
            Select Case valueTMP
                Case FormularManagerArten.DE_Vollmacht
                    Dim c As New usrcntlVollmacht_DE
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.DE_Fiskal
                    Dim c As New usrcntlVollmacht_DE_Fiskal
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.AT_Vollmacht
                    Dim c As New usrcntlVollmacht_AT
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.AT_Vollmacht_EV
                    Dim c As New usrcntlVollmacht_AT_EV
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.AT_Fiskal
                    Dim c As New usrcntlVollmacht_AT_Fiskal
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.ATILLA_EXPORT
                    Dim c As New usrcntlVollmacht_ATILLA_EXPORT
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.VERAG_EXPORT
                    Dim c As New usrcntlVollmacht_VERAG_EXPORT
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.Importaviso_VK
                    Dim c As usrcntlVorauskasse
                    If param Is Nothing Then
                        c = New usrcntlVorauskasse
                    Else
                        c = New usrcntlVorauskasse(param)

                    End If
                    '   Dim c As New usrcntlVorauskasse(param(0))
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.Importaviso
                    Dim c As usrcntlImportaviso
                    If param Is Nothing Then
                        c = New usrcntlImportaviso
                    Else
                        c = New usrcntlImportaviso(param)

                    End If
                    '   Dim c As New usrcntlVorauskasse(param(0))
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.Gestellungsgarantie
                    Dim c As New usrcntlGestellungsgarantie
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.Verzollungspreise
                    Dim c As New usrcntlVerzollungspreise
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        AddHandler c.LOADED, Sub()
                                                 If param IsNot Nothing Then
                                                     c.MyComboBox1.changeItem(param(0))
                                                     c.btnStandardPreiseLaden.PerformClick()
                                                 End If
                                             End Sub
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.Boniteatsauskunft
                    Dim c As New usrcntlCreditreformBoniAuskunft
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        AddHandler c.LOADED, Sub()
                                                 If param IsNot Nothing Then c.LoadValues(param(0))
                                             End Sub
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.DispoListe
                    If param Is Nothing Then param = {0}
                    Dim c As New usrCntlDispoliste(param(0))
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        AddHandler c.SizeChanged, Sub()
                                                      initFlowLPHeight()
                                                  End Sub
                        AddHandler Me.ShownFIN, Sub()
                                                    c.initAVISOID()
                                                End Sub
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If




                Case FormularManagerArten.SA_Gestellung
                    If param Is Nothing Then param = {0}
                    isSingleForm = True
                    btn.Visible = False
                    Button2.BackgroundImage = My.Resources.Excel_logo
                    Dim c As New usrCntlSA_Gestellung(param(0))
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        AddHandler c.SizeChanged, Sub()
                                                      initFlowLPHeight()
                                                  End Sub
                        AddHandler Me.ShownFIN, Sub()
                                                    c.initAVISOID()
                                                End Sub
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If

                Case FormularManagerArten.VerpflichtungserklärungFahrer
                    If param Is Nothing Then param = {0}
                    Dim c As New usrCntlVerpflichtungserklärungFahrer(param(0))
                    If ControlExists_addOK(c.GetType.ToString) Then
                        c.Width = MyFlowLayoutPanel1.Width - 6
                        c.KdNR = KdNr
                        AddHandler c.CHANGED, AddressOf ValueChanged
                        AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
                        AddHandler c.DELETE, AddressOf ControlDELETE
                        AddHandler c.MOVE_UP, AddressOf ControlMoveUp
                        AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
                        AddHandler c.SizeChanged, Sub()
                                                      initFlowLPHeight()
                                                  End Sub
                        MyFlowLayoutPanel1.Controls.Add(c)
                    End If
                Case FormularManagerArten.Sonst_PDF
                    If param Is Nothing Then Exit Sub
                    Dim c As New usrcntlSonstigesPDF(param(0))
                    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.Verzollungsunterlagen
                    ' If param Is Nothing Then Exit Sub
                    Dim c As New usrcntlVerzollungsunterlagen()
                    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.VerzollungsunterlagenBAR
                    ' If param Is Nothing Then Exit Sub
                    Dim c As New usrcntlVerzollungsunterlagen_BAR()
                    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
                    If valueTMP = FormularManagerArten.AT_InformationsblattFiskalverzollung Then displayName = "AT Informationsblatt Fiskalverzollung"
                    If valueTMP = FormularManagerArten.DE_InformationsblattFiskalverzollung Then displayName = "DE Informationsblatt Fiskalverzollung"
                    Dim c As New usrcntlFiskalInfoschreiben(valueTMP, displayName)
                    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.VUB_AG, FormularManagerArten.VUB_CS, FormularManagerArten.VUB_IMEX
                    Dim displayName = ""
                    If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
                    If valueTMP = FormularManagerArten.VUB_CS Then displayName = "VUB - VERAG Customs Service GmbH"
                    If valueTMP = FormularManagerArten.VUB_IMEX Then displayName = "VUB - IMEX Customs Service GmbH"
                    Dim c As New usrcntlVUB(valueTMP, displayName)
                    If ControlExists_addOK_OhneFelder(c.BEZEICHNUNG, c.DS_ORDNER) Then
                        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)
                    End If
                Case FormularManagerArten.QS_UeDok
                    Dim displayName = ""
                    Dim c As New usrcntlQS_UeDok
                    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.Verbundenheit
                    Dim displayName = ""
                    Dim c As New usrcntlVerbundenheit
                    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 Else '"VUB_AG", "VUB_CS"
                    Dim displayName = ""
                    If valueTMP = FormularManagerArten.VUB_AG Then displayName = "VUB - VERAG Spedition AG"
                    If valueTMP = FormularManagerArten.VUB_CS Then displayName = "VUB - VERAG Customs Service GmbH"
                    Dim c As New usrcntlFormOhneFelder(valueTMP, "SONSTIGE", displayName)
                    If ControlExists_addOK_OhneFelder(c.BEZEICHNUNG, c.DS_ORDNER) Then
                        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)
                    End If




            End Select

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

    Function ControlExists_addOK(t, Optional BEZ = "", Optional ORDNER = "") As Boolean
        For Each c As Control In MyFlowLayoutPanel1.Controls
            If c.GetType.ToString = t Then
                Return vbYes = MsgBox("Dieses Formular existiert bereits - Möchten Sie es ein weiteres Mal hinzufügen?", vbYesNoCancel)
            End If
        Next
        Return True
    End Function
    Function ControlExists_addOK_OhneFelder(BEZEICHNUNG, ORDNER) As Boolean
        For Each c As Control In MyFlowLayoutPanel1.Controls
            If c.GetType.ToString = GetType(usrcntlFormOhneFelder).ToString Then
                If DirectCast(c, usrcntlFormOhneFelder).BEZEICHNUNG = BEZEICHNUNG And DirectCast(c, usrcntlFormOhneFelder).DS_ORDNER = ORDNER Then
                    Return vbYes = MsgBox("Dieses Formular existiert bereits - Möchten Sie es ein weiteres Mal hinzufügen?", vbYesNoCancel)
                End If
            End If
        Next
        Return True
    End Function

    Sub ValueChanged(name, value)
        If Not cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked Then Exit Sub
        For Each c As Control In MyFlowLayoutPanel1.Controls
            For Each cc As Control In c.Controls
                If cc.Name = name Then
                    Select Case cc.GetType().ToString
                        Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString : DirectCast(cc, VERAG_PROG_ALLGEMEIN.MyTextBox).Text = value
                        Case GetType(TextBox).ToString : DirectCast(cc, TextBox).Text = value
                        Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString : DirectCast(cc, VERAG_PROG_ALLGEMEIN.MyComboBox).changeItem(value)
                    End Select
                End If
            Next
        Next
    End Sub

    Sub KDNR_CHANGED(kdnr)
        If Not cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked Then Exit Sub
        For Each c As Control In MyFlowLayoutPanel1.Controls
            If TypeOf c Is FormualrInterface Then
                DirectCast(c, FormualrInterface).ChangeKDNr(kdnr)
            End If
        Next
    End Sub



    Sub ControlDELETE(CONTROL As Control)
        '  If Not cbxAnderungGliecherFelderBeiAllenFormularenBerucksichtigen.Checked Then Exit Sub
        MyFlowLayoutPanel1.Controls.Remove(CONTROL)
        'For Each c As Control In MyFlowLayoutPanel1.Controls

        'Next
    End Sub

    Sub ControlMoveDown(CONTROL As Control)
        Dim tmp = Nothing
        For Each c As Control In MyFlowLayoutPanel1.Controls
            If tmp IsNot Nothing Then
                ' MyFlowLayoutPanel1.Controls.SetChildIndex(c, MyFlowLayoutPanel1.Controls.GetChildIndex(tmp))
                MyFlowLayoutPanel1.Controls.SetChildIndex(tmp, MyFlowLayoutPanel1.Controls.GetChildIndex(c))
                Exit Sub
            End If
            If c Is CONTROL Then
                tmp = c
            End If
        Next
    End Sub

    Sub ControlMoveUp(CONTROL As Control)
        ' MyFlowLayoutPanel1.Controls(0).
        Dim tmp = Nothing
        For Each c As Control In MyFlowLayoutPanel1.Controls
            If c Is CONTROL Then
                If tmp Is Nothing Then Exit Sub
                '  MyFlowLayoutPanel1.Controls.SetChildIndex(c, MyFlowLayoutPanel1.Controls.GetChildIndex(tmp))
                MyFlowLayoutPanel1.Controls.SetChildIndex(tmp, MyFlowLayoutPanel1.Controls.GetChildIndex(c))
                Exit Sub
            End If
            'MyFlowLayoutPanel1.Controls.
            tmp = c
        Next
    End Sub

    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 = ""



        Try

            'VALIDIERUNG:
            txtErr.Text = ""
            Dim hassValidErr = False
            For Each c In MyFlowLayoutPanel1.Controls
                Dim err = ""
                If Not FormularManagerNEU.validFormulare(c, err) Then
                    txtErr.Text &= err
                    hassValidErr = True
                End If
            Next
            If hassValidErr Then
                MsgBox("Es sind Validierungsfehler aufgetreten!")
                Me.Cursor = Cursors.Default
                Exit Sub
            End If


            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)
            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)
                    For Each pfad In pfadList
                        If pfad <> "" Then list.Add(pfad)
                    Next
                Next

                Dim dest_path = ""
                If list.Count = 0 Then Me.Cursor = Cursors.Default : Exit Sub

                If list.Count = 1 Then
                    dest_path = list(0)
                Else
                    dest_path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("VERAG_Formular.pdf", ".pdf", False, False)
                    If Not FormularManagerNEU.MergePdfFiles(list, dest_path) Then
                        dest_path = "" : MsgBox("Fehler PDF")
                    End If
                End If

                If dest_path <> "" Then
                    If sender Is Button2 Then
                        Process.Start(dest_path)
                    ElseIf sender Is btn Then
                        'System.Diagnostics.Process.Start("mailto:" & "" & "?subject=" & "?" & "&body=" & "?" & "&attachment=" & dest_path)
                        Try




                            'Dim Mail As New MailMessage

                            'Try
                            '    Dim SMTP As New SmtpClient("smtp.gmail.com")
                            '    SMTP.EnableSsl = True
                            '    SMTP.Credentials = New System.Net.NetworkCredential("[your gmail address@gmail.com]", "[the associated password]")
                            '    SMTP.Port = 587

                            '    Mail.From = New MailAddress("""[Friendly Name]"" <[your gmail address@gmail.com>")


                            '    Mail.Subject = ""
                            '    Mail.Body = ""
                            '    If dest_path <> "" Then Mail.Attachments.Add(New Mail.Attachment(dest_path))
                            '    Mail.IsBodyHtml = True

                            '    ' SMTP.Send(Mail)

                            '    'Clear Mail Object
                            '    Mail.Dispose()

                            '    'Function Return
                            '    Return True

                            'Catch ex As Exception

                            '    'Function Return
                            '    Return False

                            'End Try



                            If False Then
                                Dim mapi As New VERAG_PROG_ALLGEMEIN.SendFileTo.MAPI

                                mapi.AddAttachment(dest_path)
                                mapi.SendMailPopup("testing", "body text")
                                Exit Sub
                            End If

                            If False Then




                                Call ShellExecute(Me.Handle, "open", "mailto:" & "" & "?subject=" & "?" & "&body=" & "?" & "&Attach=""" & dest_path & """", vbNullString, vbNullString, SW_SHOW)
                                '    Call ShellExecute(Me.Handle, "open", "mailto:" & "" & "?subject=" & "?" & "&body=" & "?", "", "", SW_SHOW)


                                Exit Sub


                                Dim MailMessage As New System.Net.Mail.MailMessage()
                                '                                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.Attachments.Add(New Attachment(dest_path))

                                Dim filename = "C://Temp/mymessage.eml"

                                'save the MailMessage to the filesystem
                                ' MailMessage.save(filename)
                                Save(MailMessage, filename)
                                'Open the file with the default associated application registered on the local machine




                                Process.Start(filename)

                                'Dim mapi As New VERAG_PROG_ALLGEMEIN.SendFileTo.cSendMailAttach

                                'mapi.AddAttachment(dest_path)
                                ''mapi.AddRecipientTo("person1@somewhere.com")
                                ''mapi.AddRecipientTo("person2@somewhere.com")
                                'mapi.SendMailPopup("", "")
                                Exit Sub
                            End If

                            'Dim Mail As Outlook.MailItem = CType(Application.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem)

                            ' If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
                            ' 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


                            Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
                            Mail.Display()

                            'Dim matilPath = "C:\TEMP\VERAG_Mail.msg"
                            ' Mail.SaveAs(matilPath)
                            ' Process.Start(matilPath)

                        Catch ex As Exception
                            MsgBox("Fehler beim erstellen der E-Mail:" & vbNewLine & ex.Message & ex.StackTrace)
                        End Try
                    ElseIf sender Is btnPrint Then
                        'VERAG_PROG_ALLGEMEIN.cFormularManager.PrintFile(dest_path, "")
                        VERAG_PROG_ALLGEMEIN.cFormularManager.PrintViaGS(dest_path, cboPrinter.SelectedItem.ToString)
                    End If
                End If
            End If

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
        Me.Cursor = Cursors.Default
        '        If list.Count > 0 Then 
    End Sub

    Const SW_SHOW = 5
    Declare Function ShellExecute Lib "shell32.dll" _
  Alias "ShellExecuteA" (
  ByVal hwnd As Integer,
  ByVal lpOperation As String,
  ByVal lpFile As String,
  ByVal lpParameters As String,
  ByVal lpDirectory As String,
  ByVal nShowCmd As Long) As Long

    '   <Extension()>
    Public Shared Sub Save(ByVal Message As MailMessage, ByVal FileName As String)
        Dim assembly As Assembly = GetType(SmtpClient).Assembly
        Dim _mailWriterType As Type = assembly.[GetType]("System.Net.Mail.MailWriter")

        Using _fileStream As FileStream = New FileStream(FileName, FileMode.Create)
            Dim _mailWriterContructor As ConstructorInfo = _mailWriterType.GetConstructor(BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Type() {GetType(Stream)}, Nothing)
            Dim _mailWriter As Object = _mailWriterContructor.Invoke(New Object() {_fileStream})
            Dim _sendMethod As MethodInfo = GetType(MailMessage).GetMethod("Send", BindingFlags.Instance Or BindingFlags.NonPublic)
            _sendMethod.Invoke(Message, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {_mailWriter, True}, Nothing)
            Dim _closeMethod As MethodInfo = _mailWriter.[GetType]().GetMethod("Close", BindingFlags.Instance Or BindingFlags.NonPublic)
            _closeMethod.Invoke(_mailWriter, BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, New Object() {}, Nothing)
        End Using
    End Sub

    Public Shared Sub initDrucker(cboPrinter As ComboBox, Optional srch As String = "")
        ' alle installierten Drucker ermitteln und 
        ' in in ein ArrayList-Objekt speichern
        Dim sPrinters As New ArrayList
        For Each sPrinter As String In PrinterSettings.InstalledPrinters
            sPrinters.Add(sPrinter)
        Next

        ' Array sortieren
        sPrinters.Sort()

        ' jetzt alle Drucker in sortierter Reihenfolge in einer
        ' ComboBox zur Auswahl anbieten
        Dim oPS As New System.Drawing.Printing.PrinterSettings
        For i As Integer = 0 To sPrinters.Count - 1
            cboPrinter.Items.Add(sPrinters(i))
        Next


        If sPrinters.Count > 0 Then
            cboPrinter.SelectedIndex = 0
            If srch <> "" Then
                For Each i In cboPrinter.Items
                    If i.ToString.ToUpper.Contains(srch.ToUpper) Then
                        cboPrinter.SelectedItem = i
                        Exit Sub
                    End If
                Next
            Else
                For Each i In cboPrinter.Items
                    If i.ToString = oPS.PrinterName Then
                        cboPrinter.SelectedItem = i
                        Exit Sub
                    End If
                Next
            End If
        End If
    End Sub


    Private Sub MyFlowLayoutPanel1_ControlAdded(sender As Object, e As ControlEventArgs) Handles MyFlowLayoutPanel1.ControlAdded, MyFlowLayoutPanel1.ControlRemoved
        initFlowLPHeight()
    End Sub

    Private Sub pnlBody_SizeChanged(sender As Object, e As EventArgs) Handles pnlBody.SizeChanged
        initFlowLPHeight()

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim fd As New OpenFileDialog
        fd.Title = "PDF auswählen"
        fd.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        fd.Filter = "PDF|*.PDF"
        fd.FilterIndex = 2
        fd.DefaultExt = ".pdf"
        fd.RestoreDirectory = True
        Dim result As DialogResult = fd.ShowDialog()

        If result = System.Windows.Forms.DialogResult.OK Then
            addForm("Sonst_PDF", {fd.FileName})
        End If

    End Sub

    Private Sub cboVorlage_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboVorlage.SelectedIndexChanged
        If cboVorlage._value = "" Then Exit Sub
        If MyFlowLayoutPanel1.Controls.Count = 0 OrElse vbYes = MsgBox("Beim Laden einer Vorlagengruppe werden alle vohanden Elemente gelöscht. Möchten Sie fortfahren?", vbYesNoCancel) Then
            Select Case cboVorlage._value
                Case FormularVorlagenGruppe.NeukundeAT
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.AT_Vollmacht)
                    addForm(FormularManagerArten.Verzollungspreise)
                    addForm(FormularManagerArten.VUB_CS)
                Case FormularVorlagenGruppe.NeukundeATFiskal
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.AT_Fiskal)
                    addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
                    addForm(FormularManagerArten.VUB_CS)
                    addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
                Case FormularVorlagenGruppe.NeukundeDE
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.DE_Vollmacht)
                    addForm(FormularManagerArten.Verzollungspreise)
                    addForm(FormularManagerArten.VUB_AG)
                Case FormularVorlagenGruppe.NeukundeDEFiskal
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.DE_Fiskal)
                    addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
                    addForm(FormularManagerArten.VUB_AG)
                    addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)




                Case FormularVorlagenGruppe.NeukundeAT_IMEX
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.AT_Vollmacht)
                    addForm(FormularManagerArten.Verzollungspreise)
                    addForm(FormularManagerArten.VUB_IMEX)
                Case FormularVorlagenGruppe.NeukundeATFiskal_IMEX
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.AT_Fiskal)
                    addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL"})
                    addForm(FormularManagerArten.VUB_IMEX)
                    addForm(FormularManagerArten.AT_InformationsblattFiskalverzollung)
                Case FormularVorlagenGruppe.NeukundeDE_IMEX
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.DE_Vollmacht)
                    addForm(FormularManagerArten.Verzollungspreise)
                    addForm(FormularManagerArten.VUB_IMEX)
                Case FormularVorlagenGruppe.NeukundeDEFiskal_IMEX
                    MyFlowLayoutPanel1.Controls.Clear()
                    addForm(FormularManagerArten.DE_Fiskal)
                    addForm(FormularManagerArten.Verzollungspreise, {"VZ_FISKAL_DE"})
                    addForm(FormularManagerArten.VUB_IMEX)
                    addForm(FormularManagerArten.DE_InformationsblattFiskalverzollung)
            End Select
        End If
    End Sub

    Private Sub cboPrinter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPrinter.SelectedIndexChanged

    End Sub
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)
        Dim retStr = ""
        Dim striList As New List(Of String)
        Select Case c.GetType.ToString
            Case GetType(usrcntlVollmacht_DE).ToString
                retStr = FormularManagerNEU.VM_De(c)
            Case GetType(usrcntlVollmacht_AT).ToString
                retStr = FormularManagerNEU.VM_AT(c)
            Case GetType(usrcntlFormOhneFelder).ToString
                retStr = FormularManagerNEU.SimplePDF(c)

            Case GetType(usrcntlVollmacht_DE_Fiskal).ToString
                retStr = FormularManagerNEU.VM_DE_Fiskal(c)
            Case GetType(usrcntlVollmacht_AT_EV).ToString
                retStr = FormularManagerNEU.VM_AT_EV(c)
            Case GetType(usrcntlVollmacht_AT_Fiskal).ToString
                retStr = FormularManagerNEU.VM_AT_Fiskal(c)
            Case GetType(usrcntlVollmacht_ATILLA_EXPORT).ToString
                retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
            Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
                retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
            Case GetType(usrcntlVorauskasse).ToString
                retStr = FormularManagerNEU.Importaviso_VK(c)
            Case GetType(usrcntlImportaviso).ToString
                retStr = FormularManagerNEU.Importaviso(c)
            Case GetType(usrcntlGestellungsgarantie).ToString
                retStr = FormularManagerNEU.Gestellungsgarantie(c)
            Case GetType(usrcntlVerzollungspreise).ToString
                retStr = FormularManagerNEU.Verzollungspreise(c)
            Case GetType(usrcntlCreditreformBoniAuskunft).ToString
                retStr = FormularManagerNEU.Bonitaetsauskunft(c)
            Case GetType(usrcntlSonstigesPDF).ToString
                retStr = FormularManagerNEU.SonstPDF(c)
            Case GetType(usrCntlDispoliste).ToString
                retStr = FormularManagerNEU.DispoListe(c)

            Case GetType(usrCntlSA_Gestellung).ToString
                open = False
                retStr = FormularManagerNEU.SA_Gestellung(c, printReportElsePdf, printerName)
            Case GetType(usrCntlVerpflichtungserklärungFahrer).ToString
                ' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c)
                striList = FormularManagerNEU.VerpflichtungserklärungFahrerRpt(c, printReportElsePdf, printerName)
            Case GetType(usrcntlFiskalInfoschreiben).ToString
                retStr = FormularManagerNEU.FiskalInfoschreiben(c)
            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)

            Case GetType(usrcntlQS_UeDok).ToString
                retStr = FormularManagerNEU.QS_UeDok(c)
            Case GetType(usrcntlVerbundenheit).ToString
                retStr = FormularManagerNEU.Verbundenheit(c)

            Case GetType(usrcntlVUB).ToString
                retStr = FormularManagerNEU.VUB(c)

        End Select
        If retStr <> "" Then
            striList.Add(retStr)
        End If
        If open Then
            For Each r In striList
                If r <> "" Then Process.Start(r)
            Next
        End If
        Return striList
    End Function

    Shared Function validFormulare(c As Control, ByRef err As String) As Boolean
        validFormulare = True

        Dim striList As New List(Of String)

        Select Case c.GetType.ToString
            Case GetType(usrcntlVollmacht_DE).ToString
                '  retStr = FormularManagerNEU.VM_De(c)
            Case GetType(usrcntlVollmacht_AT).ToString
                '    retStr = FormularManagerNEU.VM_AT(c)
            Case GetType(usrcntlFormOhneFelder).ToString
                '   retStr = FormularManagerNEU.SimplePDF(c)

            Case GetType(usrcntlVollmacht_DE_Fiskal).ToString
                '    retStr = FormularManagerNEU.VM_DE_Fiskal(c)
            Case GetType(usrcntlVollmacht_AT_EV).ToString
                '   retStr = FormularManagerNEU.VM_AT_EV(c)
            Case GetType(usrcntlVollmacht_AT_Fiskal).ToString
                '   retStr = FormularManagerNEU.VM_AT_Fiskal(c)
            Case GetType(usrcntlVollmacht_ATILLA_EXPORT).ToString
                '   retStr = FormularManagerNEU.VM_ATILLA_EXPORT(c)
            Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
                '  retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
            Case GetType(usrcntlVorauskasse).ToString
                validFormulare = DirectCast(c, usrcntlVorauskasse).ValidValues(err)
            Case GetType(usrcntlGestellungsgarantie).ToString
                ' retStr = FormularManagerNEU.Gestellungsgarantie(c)
            Case GetType(usrcntlVerzollungspreise).ToString
                ' retStr = FormularManagerNEU.Verzollungspreise(c)
            Case GetType(usrcntlCreditreformBoniAuskunft).ToString
                'retStr = FormularManagerNEU.Bonitaetsauskunft(c)
            Case GetType(usrcntlSonstigesPDF).ToString
                ' retStr = FormularManagerNEU.SonstPDF(c)
            Case GetType(usrCntlDispoliste).ToString
                'retStr = FormularManagerNEU.DispoListe(c)
            Case GetType(usrCntlVerpflichtungserklärungFahrer).ToString
                ' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c)
            Case GetType(usrcntlFiskalInfoschreiben).ToString
                ' retStr = FormularManagerNEU.FiskalInfoschreiben(c)

            Case GetType(usrcntlVUB).ToString
                '  retStr = FormularManagerNEU.VUB(c)
        End Select


    End Function


    Shared Function VM_De(usrCntl As usrcntlVollmacht_DE) As String

        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 50, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 62, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 68, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 119, 68, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 119, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 80, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        Dim top = 0
        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then
            top = 25
        End If
        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite = addEinmaligeVM(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
        ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
            listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 200, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
        End If


        Select Case usrCntl.cboSprache._value
            Case "EN"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_EN", listTowrite)
            Case Else
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "DE_VM", listTowrite)
        End Select
        Return ""
    End Function

    Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String

        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 34, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 49, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 55, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 61, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 67, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))


        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 82, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 82, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 88, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, 132, 88, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite = addEinmaligeVM(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
        ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
            listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
        End If


        Select Case usrCntl.cboSprache._value
            Case "EN"
                MsgBox("AT - Vollmacht ist nicht auf Englisch verfügbar!")
            Case Else
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "AT_VM", listTowrite)
        End Select
        Return ""
    End Function


    Shared Function SimplePDF(usrCntl As usrcntlFormOhneFelder) As String
        Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", usrCntl.DS_ORDNER, "", "", usrCntl.BEZEICHNUNG)
        Return DS.OPEN_SINGLE(False)
    End Function


    Shared Function VUB(usrCntl As usrcntlVUB) As String

        ' Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", usrCntl.DS_ORDNER, "", "", usrCntl.BEZEICHNUNG)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
        If usrCntl.BEZEICHNUNG = FormularManagerArten.VUB_AG Then
            Select Case usrCntl.cboSprache._value
                Case "EN"
                    Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_ENGLISCH", Nothing)
                Case Else
                    Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_AG", Nothing)
            End Select
        ElseIf usrCntl.BEZEICHNUNG = FormularManagerArten.VUB_CS Then
            Select Case usrCntl.cboSprache._value
                Case "EN"
                    Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_CS_ENGLISCH", Nothing)
                Case Else
                    Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_CS", Nothing)
            End Select
        Else
            Select Case usrCntl.cboSprache._value
                Case "EN"
                    Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB_ENGLISCH", Nothing)
                Case Else
                    Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VUB", Nothing)
            End Select
        End If

    End Function


    Shared Function SonstPDF(usrCntl As usrcntlSonstigesPDF) As String
        If IO.File.Exists(usrCntl.PFAD) Then
            Return usrCntl.PFAD
        End If
        Return ""
    End Function

    Shared Function DispSendungslisteoListe(AvisoId As Integer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
        Dim AVISO = (New VERAG_PROG_ALLGEMEIN.cAvisoDAL).LesenAviso(AvisoId, "")
        If AVISO Is Nothing Then Return ""
        Dim SENDUNG_LIST As New List(Of VERAG_PROG_ALLGEMEIN.cSendungen)
        VERAG_PROG_ALLGEMEIN.cSendungen.LOAD_LIST(SENDUNG_LIST, 0, AvisoId) 'LÄDT alle SENDUNGSDATEN
        If SENDUNG_LIST Is Nothing OrElse SENDUNG_LIST.Count = 0 Then Return ""
        Return DispSendungslisteoListe(AVISO, SENDUNG_LIST)
    End Function

    Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
        '  Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Dim tmpPath = ""
        Try

            Dim rpt As New rptDispoHaftListe


            rpt.txtLKW.Text = AVISO.LKW_Nr
            rpt.txtLKWId.Text = AVISO.AvisoID


            If AVISO.Zollstelle IsNot Nothing AndAlso AVISO.Zollstelle <> "" Then
                rpt.txtGrenzstelle.Text = VSQL.getValueTxtBySql("SELECT basncd_dstnr +' - ' + [basncd_name]  FROM basncd WHERE basncd_dstnr='" & AVISO.Zollstelle & "' ", "ATLAS")
            Else
                Select Case AVISO.Grenzstelle
                    Case "SUB" : rpt.txtGrenzstelle.Text = "SUBEN"
                    Case "WAI" : rpt.txtGrenzstelle.Text = "WAIDHAUS"
                    Case "SBG" : rpt.txtGrenzstelle.Text = "BAD REICHENHALL"
                    Case "SFD" : rpt.txtGrenzstelle.Text = "SPIELFELD"
                    Case Else : rpt.txtGrenzstelle.Text = AVISO.Grenzstelle.Replace("???", "")
                End Select
            End If



            rpt.txtDatum.Text = Now.ToShortDateString
            rpt.txtSB.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME

            Dim ort = "Suben"
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX"
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_IMEX.Visible = True
                    rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
                    rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "IMEX Customs Service GmbH")
                    rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "IMEX Customs Service GmbH")
                    rpt.TextBox7.Text = rpt.TextBox7.Text.Replace("%Firma%", "IMEX Customs Service GmbH")
                    rpt.TextBox32.Text = "Avisierer (*):"
                    rpt.txtFraechter.Text = AVISO.Auftraggeber
            '   rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
                Case "ATILLA"
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_ATILLA.Visible = True
                    rpt.picVERAG.Image = My.Resources.Atilla
                    rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "ATILLA Spedition GmbH")
                    rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "ATILLA Spedition GmbH")
                    rpt.TextBox7.Text = rpt.TextBox7.Text.Replace("%Firma%", "ATILLA Spedition GmbH")
                    rpt.TextBox32.Text = "Avisierer (*):"
                    rpt.txtFraechter.Text = AVISO.Auftraggeber
                    '   rpt.txtFraechter.Text = If(AVISO.Frächter_KdNr <> "", AVISO.Frächter_KdNr & " ", "") & AVISO.Frächter
                    'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
                Case Else
                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                        Case "SBG" : ort = "Bad Reichenhall"
                        Case "WAI" : ort = "Waidhaus"
                        Case "NKD" : ort = "Nickelsdorf"
                    End Select
                    rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("%Firma%", "VERAG Spedition AG")
                    rpt.TextBox3.Text = rpt.TextBox3.Text.Replace("%Firma%", "VERAG Spedition AG")
                    rpt.TextBox7.Text = rpt.TextBox7.Text.Replace("%Firma%", "VERAG Spedition AG")
                    rpt.TextBox32.Text = "Avisierer (*):"
                    rpt.txtFraechter.Text = AVISO.Auftraggeber
                    'rpt.TextBox19.Text = "Rechnung Fatura" 'Stern weg
            End Select


            Dim tb As New DataTable
            tb.Columns.Add("Nr", GetType(Integer))
            '   tb.Columns.Add("Nr", GetType(String))
            '   tb.Columns.Add("PosNr", GetType(String))
            '   tb.Columns.Add("AbfArt", GetType(String))
            Dim cnt = 1

            For Each s In SENDUNGEN
                'Ä tb.Rows.Add(cnt, s.AbfertigungsNr, s.tblSnd_Abfertigungsart_ID)
                tb.Rows.Add(SENDUNGEN.IndexOf(s))
                cnt += 1
            Next



            'MsgBox(tb.Rows.Count)

            rpt.DataSource = tb
            Dim fiskal_bool = False

            AddHandler rpt.Detail.Format, Sub()
                                              Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = SENDUNGEN(rpt.Fields.Item("Nr").Value)
                                              rpt.txtNr.Text = CInt(rpt.Fields.Item("Nr").Value) + 1

                                              rpt.txtAnmerkung.Text = ""
                                              Dim anmerkung = ""
                                              Dim colliGewicht = ""
                                              Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                                                  Case "IMEX"
                                                      If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
                                                      If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"


                                                      anmerkung = If(SND.tblSnd_AnmerkungDispoliste, "").ToString.Trim ' If(SND.tblSnd_Anmerkung, "").ToString.Trim & vbNewLine & If(SND.tblSnd_AnmerkungDispoliste, "").ToString.Trim 'Übergangsphase: beide Txt

                                                  Case Else
                                                      If If(SND.tblSnd_Colli, "") <> "" Then colliGewicht &= "Colli: " & SND.tblSnd_Colli & "; "
                                                      If If(SND.tblSnd_Gewicht, "") <> "" Then colliGewicht &= "Gewicht: " & SND.tblSnd_Gewicht & " kg"

                                                      anmerkung &= If(SND.tblSnd_AnmerkungDispoliste, "").ToString.Trim
                                              End Select

                                              If SND.tblSnd_Fremdspedition Then
                                                  rpt.txtAbfertigungsart.Text = "FREMD"
                                                  rpt.txtPosNr.Text = SND.tblSnd_FremdspeditionText
                                              Else
                                                  rpt.txtPosNr.Text = If(SND.FilialenNr > 0, SND.FilialenNr & "/", "") & If(SND.AbfertigungsNr > 0, SND.AbfertigungsNr, "-")
                                                  If anmerkung <> "" Then
                                                      rpt.txtAnmerkung.Text = "Anmerkung: " & anmerkung.Replace(vbNewLine, "; ").Replace(Chr(10), "; ").Replace(Chr(13), "; ")
                                                      rpt.txtAnmerkung.Text = Regex.Replace(rpt.txtAnmerkung.Text, "\r\n$", String.Empty)
                                                      While rpt.txtAnmerkung.Text.Contains("; ;")
                                                          rpt.txtAnmerkung.Text = rpt.txtAnmerkung.Text.Replace("; ;", "; ") 'Falls dpl-return war
                                                      End While
                                                  End If

                                                  If SND.tblSnd_Abfertigungsart_ID > 0 Then
                                                      Select Case SND.tblSnd_Abfertigungsart_ID
                                                          Case 1 : rpt.txtAbfertigungsart.Text = "Zollabfertigung"
                                                          Case 23 : rpt.txtAbfertigungsart.Text = "ATA-Nr."
                                                          Case 26, 28
                                                              rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
                                                              fiskal_bool = True
                                                          Case Else : rpt.txtAbfertigungsart.Text = VERAG_PROG_ALLGEMEIN.cAbfertigungsarten.getAbfertigungsartBezById(SND.tblSnd_Abfertigungsart_ID)
                                                      End Select
                                                  Else
                                                      rpt.txtAbfertigungsart.Text = "-"
                                                  End If
                                              End If
                                              If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim


                                              Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                                                  Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
                                              End Select

                                              rpt.txtAbsender.Text = If(SND.tblSnd_Absender, "-")
                                              ' rpt.txtEmpfänger.Text = (If(SND.tblSnd_EmpfaengerKdNr > 0, SND.tblSnd_EmpfaengerKdNr, "") & " " & If(SND.tblSnd_Empfaenger, "")).Trim
                                              rpt.txtEmpfänger.Text = If(SND.tblSnd_Empfaenger, "").Trim
                                              rpt.txtEmpfänger.Text = rpt.txtEmpfänger.Text.Replace("(IMEX)", "").Trim

                                              Dim NCTS_VZAdr = ""
                                              NCTS_VZAdr = If(SND.tblSnd_NCTSVerzollungsadresse, "")
                                              NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Strasse, "")
                                              NCTS_VZAdr &= vbNewLine & If(SND.NCTS_Verzollungsadresse_Land, "") & " " & If(SND.NCTS_Verzollungsadresse_PLZ, "") & " " & If(SND.NCTS_Verzollungsadresse_Ort, "")
                                              NCTS_VZAdr &= vbNewLine
                                              If If(SND.NCTS_Bestimmungszollstelle, "") <> "" Then NCTS_VZAdr &= "Best.Zollst.:" & If(SND.NCTS_Bestimmungszollstelle, "") & "   "
                                              '  If If(SENDUNG.NCTS_Verzollungsadresse_EORI, "") <> "" Then VALUES.NCTS_VZAdr &= "EORI:" & If(SND.NCTS_Verzollungsadresse_EORI, "") & If(SND.NCTS_Verzollungsadresse_EORI_NL, "")


                                              rpt.txtVerzollungsadresse.Text = NCTS_VZAdr.Trim


                                              '.Replace("\n","")
                                              rpt.txtAbrechnung.Text = ""
                                              SND.LOAD_ABRECHNUNG()

                                              If SND.ABRECHNUNG IsNot Nothing Then
                                                  For Each a In SND.ABRECHNUNG
                                                      If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "AVISIERER" Then
                                                          rpt.txtAbrechnung.Text = "X"
                                                      End If

                                                      'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                                                      '    Case "IMEX"
                                                      '        If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "FRACHTF" Then
                                                      '            rpt.txtAbrechnung.Text = "X"
                                                      '        End If
                                                      '    Case Else
                                                      '        If a.sndabr_abrArt = "ABFKOST" And a.sndabr_beteiligter = "AVISIERER" Then
                                                      '            rpt.txtAbrechnung.Text = "X"
                                                      '        End If
                                                      'End Select

                                                  Next
                                              End If


                                          End Sub

            If fiskal_bool Then
                rpt.TextBox10.Visible = True
                rpt.Shape9.Visible = True

            End If



            AddHandler rpt.Detail.BeforePrint, Sub()
                                                   rpt.Shape8.Height = rpt.Detail.Height
                                                   rpt.Shape10.Height = rpt.Detail.Height
                                                   rpt.Shape11.Height = rpt.Detail.Height
                                               End Sub

            If printReportElsePDF Then 'NUR DRUCK!!
                rpt.Run(False)

                rpt.Document.Printer.PrinterName = printername
                rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
                rpt.Document.Printer.OriginAtMargins = False

                rpt.Document.Print((printername = ""), False)
                rpt.Dispose()
            Else


                tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("Dispoliste.pdf", ".pdf", , False)
                Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
                rpt.Run(False)

                p.NeverEmbedFonts = ""
                p.Export(rpt.Document, tmpPath)

                rpt.Dispose()

            End If



        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try
        Return tmpPath
    End Function

    Shared Function DispoListe(usrCntl As usrCntlDispoliste) As String
        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
        Dim oWord As New Microsoft.Office.Interop.Word.Application
        Try
            Dim nameDispo = ""
            Select Case usrCntl.cboSprache._value
                Case "TR"
                    nameDispo = "Dispoliste_TR"
                Case Else
                    nameDispo = "Dispoliste_EN"
            End Select

            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
            Dim pfadWord = DS.GET_TOP1_PATH(False)

            Dim cGenWord As New cGenWord

            odoc = cGenWord.openWord(pfadWord, False, oWord)

            Dim oTable As Word.Table

            odoc.FormFields("An1").Range.Text = usrCntl.txtFirma.Text
            odoc.FormFields("An2").Range.Text = usrCntl.txtAnsprechpartner.Text
            odoc.FormFields("An3").Range.Text = usrCntl.txtAdresse1.Text
            odoc.FormFields("An4").Range.Text = usrCntl.txtAdresse2.Text
            odoc.FormFields("An5").Range.Text = usrCntl.txtAdresse3.Text
            odoc.FormFields("LKW").Range.Text = usrCntl.txtLKWKennzeichen.Text
            odoc.FormFields("SB").Range.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME

            If odoc.Range.Bookmarks.Exists("Tabelle") Then
                If odoc.Bookmarks("Tabelle").Range.Tables.Count > 0 Then
                    oTable = odoc.Bookmarks("Tabelle").Range.Tables(1)
                    Dim i = 1
                    Dim kfzTmp = ""
                    'For Each r As DataRow In dt.Rows
                    For Each c In usrCntl.MyFlowLayoutPanel1.Controls
                        Dim tmp = DirectCast(c, usrCnrlDispolisteElemente) 'For i = 1 To i = 3
                        oTable.Rows.Add()
                        oTable.Rows(i + 1).Cells(1).Range.Text = tmp.RichTextBox.Text
                        oTable.Rows(i + 1).Cells(2).Range.Text = tmp.RichTextBox1.Text
                        oTable.Rows(i + 1).Cells(3).Range.Text = tmp.RichTextBox2.Text
                        oTable.Rows(i + 1).Cells(4).Range.Text = tmp.RichTextBox3.Text
                        'oTable.Rows(i + 1).Cells(3).Range.Text = tmp.RichTextBox4.Text
                        i += 1
                    Next
                End If
            Else
                MessageBox.Show("Textmarke nicht vorhanden!")
            End If
            odoc.Save() : odoc.Activate()


            Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)

            odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)

            Try
                odoc.Close()
                oWord.Quit()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

            Return path



        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return ""
    End Function

    Shared Function SA_Gestellung(usrCntl As usrCntlSA_Gestellung, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        ' Dim odoc As Microsoft.Office.Interop.Excel.Sheets = Nothing
        Dim oExc As New Microsoft.Office.Interop.Excel.Application

        Dim excelBook As Excel.Workbook

        Try
            Dim nameDispo = "SA_Gestellung"
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                Case "WAI" : nameDispo = "SA_Gestellung_WAI"
            End Select

            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
            Dim pfadWord = DS.GET_TOP1_PATH(False)

            ' Dim cGenWord As New cGenWord

            '  oExc = cGenWord.openWord(pfadWord, False, oWord)
            excelBook = oExc.Workbooks.Open(pfadWord)


            Dim vname = ""
            If VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Length > 0 Then vname = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_VNAME.Substring(0, 1) & "."

            oExc.Range("C4").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME & " " & vname
            oExc.Range("C5").Value = usrCntl.txtFilialeLKWId.Text
            oExc.Range("I7").Value = usrCntl.txtLKWKennzeichen.Text

            oExc.Range("C8").Value = usrCntl.txtGesColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
            oExc.Range("D8").Value = usrCntl.txtGesGewicht.Text.Replace(".", "")
            oExc.Range("I5").Value = Now.ToShortDateString
            oExc.Range("C7").Value = usrCntl.txtT1Gestellung.Text
            oExc.Range("F7").Value = usrCntl.txtBezugsNrSumA.Text


            oExc.Range("F4").Value = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl <> "", VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_durchwahl, "+43 7711 / 2777 - 0")
            'oExc.Range("F5").Value = usrCntl.txtT1Gestellung.Text


            'Wenn die Excel-Vorlage nciht reicht, werden neue Zeilen eingefügt
            For cnt = 13 To usrCntl.MyFlowLayoutPanel1.Controls.Count
                oExc.Range("A11").EntireRow.Copy()
                oExc.Range("A11").EntireRow.Insert(Excel.XlDirection.xlDown)
            Next


            Dim i = 0
            For Each c In usrCntl.MyFlowLayoutPanel1.Controls
                Dim tmp = DirectCast(c, usrCntlSA_GestellungElemente) 'For i = 1 To i = 3
                oExc.Range("A" & (i + 11)).Value = tmp.lbl1.Text ' (i + 1)
                oExc.Range("B" & (i + 11)).Value = tmp.txtWarenbezeichnung.Text
                oExc.Range("C" & (i + 11)).Value = tmp.txtColli.Text.Replace(".", "") ' Damit nicht falsche kommastelle erzuegt wird
                oExc.Range("D" & (i + 11)).Value = tmp.txtGewicht.Text
                oExc.Range("E" & (i + 11)).Value = tmp.txtAbsender.Text
                oExc.Range("F" & (i + 11)).Value = tmp.txtEmpfaenger.Text
                oExc.Range("G" & (i + 11)).Value = tmp.cboAbfertigungsart.Text
                oExc.Range("H" & (i + 11)).Value = tmp.txtAtaMrn.Text
                oExc.Range("I" & (i + 11)).Value = tmp.rtbBemerkung.Text

                i += 1
            Next


            Dim p = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".xlsx", ".xlsx", True, False)

            excelBook.SaveAs(p) ': oExc.Activate()


            If printReportElsePDF Then 'NUR DRUCK!!
                oExc.Visible = False

                'Print
                oExc.Workbooks(1).PrintOutEx() '1, 1, 1, True)

                Try
                    oExc.Workbooks.Close()
                    oExc.Quit()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
            Else
                oExc.Visible = True
            End If


            '  Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)

            '            odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)


            Return ""
            '   Return pfadWord



        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return ""
    End Function


    Shared Function VerpflichtungserklärungFahrerRpt(usrCntl As usrCntlVerpflichtungserklärungFahrer, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As List(Of String)
        '  Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
        ' Dim oWord As New Microsoft.Office.Interop.Word.Application
        Dim striList As New List(Of String)
        Try




            '  s()
            Dim rpt As New rptVerpflichtungserklaerung


            rpt.txtFraechter.Text = usrCntl.txtFirma.Text
            rpt.txtLKWKennz.Text = usrCntl.txtLKWKennzeichen.Text
            rpt.txtFahrername.Text = usrCntl.txtFahrername.Text
            rpt.txtPassnummer.Text = usrCntl.txtPassnummer.Text

            rpt.txtWohnort.Text = usrCntl.txtAdresseFahrer.Text
            'If usrCntl.txtAdresseFahrer.Lines.Count > 0 Then odoc.FormFields("Adresse1").Range.Text = usrCntl.txtAdresseFahrer.Lines(0) Else odoc.FormFields("Adresse1").Range.Text = ""
            'If usrCntl.txtAdresseFahrer.Lines.Count > 1 Then odoc.FormFields("Adresse2").Range.Text = usrCntl.txtAdresseFahrer.Lines(1) Else odoc.FormFields("Adresse2").Range.Text = ""

            rpt.txtMobilTel.Text = usrCntl.txtMobilNr.Text
            rpt.txtAvisoId.Text = usrCntl.AVISOID
            Dim ort = "Suben"
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX"
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_IMEX.Visible = True
                    rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
                Case "ATILLA"
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_ATILLA.Visible = True
                    rpt.picVERAG.Image = My.Resources.Atilla
                Case Else
                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                        Case "SBG" : ort = "Bad Reichenhall"
                        Case "WAI" : ort = "Waidhaus"
                        Case "NKD" : ort = "Nickelsdorf"
                    End Select
            End Select


            rpt.txtDatumOrt.Text = ort & ", den " & Now.ToShortDateString


            Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("VE-" & If(usrCntl.AVISOID Is Nothing, 0, usrCntl.AVISOID) & "", 1, True, 20)
            'Dim bc As New List(Of VERAG_PROG_ALLGEMEIN.barcodeToPdf)
            'Dim b = New VERAG_PROG_ALLGEMEIN.barcodeToPdf(barcodeLKW, 20, 200, 20, 20, 1, Drawing.RotateFlipType.Rotate270FlipNone)
            'bc.Add(b)
            barcodeLKW.RotateFlip(RotateFlipType.Rotate270FlipNone)
            rpt.picBarcodeVerpfl.Image = barcodeLKW


            Dim tb As New DataTable
            tb.Columns.Add("MRN1", GetType(String))
            tb.Columns.Add("MRN2", GetType(String))
            Dim cnt = 0

            Dim v1 = ""
            Dim v2 = ""

            For Each c As DataGridViewRow In usrCntl.MyDatagridview1.Rows
                If c.Cells(0).Value <> "" Then 'Wenn Zeile nicht leer
                    If cnt Mod 2 = 0 Then 'gerade
                        v1 = (cnt + 1) & ". " & c.Cells(0).Value
                    Else
                        v2 = (cnt + 1) & ". " & c.Cells(0).Value
                        tb.Rows.Add(v1, v2)
                        v1 = ""
                        v2 = ""
                    End If
                    cnt += 1
                End If
            Next
            If v1 <> "" Then
                tb.Rows.Add(v1, "")
            End If

            'MsgBox(tb.Rows.Count)

            rpt.DataSource = tb

            AddHandler rpt.Detail.Format, Sub()
                                              rpt.txtMRN1.Text = nullStr(rpt.Fields.Item(0).Value)
                                              rpt.txtMRN2.Text = nullStr(rpt.Fields.Item(1).Value)
                                          End Sub


            If printReportElsePDF Then 'NUR DRUCK!!
                rpt.Run(False)

                rpt.Document.Printer.PrinterName = printername
                rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
                rpt.Document.Printer.OriginAtMargins = False

                rpt.Document.Print((printername = ""), False)
                rpt.Dispose()
            Else


                Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("tmp_Verpfichtungserklärung.pdf", ".pdf", , False)
                Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
                rpt.Run(False)

                p.NeverEmbedFonts = ""
                p.Export(rpt.Document, tmpPath)

                striList.Add(tmpPath)
                rpt.Dispose()
            End If


        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return striList
    End Function

    Shared Function nullStr(o As Object) As String
        Try
            If o Is DBNull.Value Then Return ""
            Return CStr(o)
        Catch ex As Exception
            Return ""
        End Try

    End Function
    Shared Function VerpflichtungserklärungFa9hrer(usrCntl As usrCntlVerpflichtungserklärungFahrer) As List(Of String)
        Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
        Dim oWord As New Microsoft.Office.Interop.Word.Application
        Dim striList As New List(Of String)
        Try
            Dim nameDispo = ""
            nameDispo = "VerpflichtungserklärungFahrer"
            'Select Case usrCntl.cboSprache._value
            'End Select

            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
            Dim pfadWord = DS.GET_TOP1_PATH(False)

            Dim cGenWord As New cGenWord

            odoc = cGenWord.openWord(pfadWord, False, oWord)
            If odoc Is Nothing Then Return striList

            Dim oTable As Word.Table

            odoc.FormFields("Frächter").Range.Text = usrCntl.txtFirma.Text
            odoc.FormFields("LKW").Range.Text = usrCntl.txtLKWKennzeichen.Text
            odoc.FormFields("Fahrer").Range.Text = usrCntl.txtFahrername.Text
            odoc.FormFields("Pass").Range.Text = usrCntl.txtPassnummer.Text


            If usrCntl.txtAdresseFahrer.Lines.Count > 0 Then odoc.FormFields("Adresse1").Range.Text = usrCntl.txtAdresseFahrer.Lines(0) Else odoc.FormFields("Adresse1").Range.Text = ""
            If usrCntl.txtAdresseFahrer.Lines.Count > 1 Then odoc.FormFields("Adresse2").Range.Text = usrCntl.txtAdresseFahrer.Lines(1) Else odoc.FormFields("Adresse2").Range.Text = ""

            odoc.FormFields("Mobil").Range.Text = usrCntl.txtMobilNr.Text
            odoc.FormFields("AvisoId").Range.Text = "VERAG LKW-ID: " & usrCntl.AVISOID

            If odoc.Range.Bookmarks.Exists("Tabelle") Then
                If odoc.Bookmarks("Tabelle").Range.Tables.Count > 0 Then
                    oTable = odoc.Bookmarks("Tabelle").Range.Tables(1)
                    Dim i = 0
                    Dim cnt = 1
                    Dim kfzTmp = ""
                    'For Each r As DataRow In dt.Rows
                    Dim newrow = True
                    For Each c As DataGridViewRow In usrCntl.MyDatagridview1.Rows
                        If c.Cells(0).Value <> "" Then
                            If newrow Then
                                If i > 0 Then oTable.Rows.Add()
                                i += 1
                                oTable.Rows(i + 1).Cells(1).Range.Text = cnt & " - " & c.Cells(0).Value : cnt += 1
                            Else
                                oTable.Rows(i + 1).Cells(2).Range.Text = cnt & " - " & c.Cells(0).Value : cnt += 1
                            End If
                            newrow = Not newrow
                        End If
                    Next
                End If
            Else
                MessageBox.Show("Textmarke nicht vorhanden!")
            End If
            odoc.Save() : odoc.Activate()

            'VE_ für Verpflichtungserklärung
            Dim barcodeLKW As Image = Code128Rendering.MakeBarcodeImage("VE-" & If(usrCntl.AVISOID Is Nothing, 0, usrCntl.AVISOID) & "", 1, True, 20)
            Dim bc As New List(Of VERAG_PROG_ALLGEMEIN.barcodeToPdf)
            Dim b = New VERAG_PROG_ALLGEMEIN.barcodeToPdf(barcodeLKW, 20, 200, 20, 20, 1, Drawing.RotateFlipType.Rotate270FlipNone)
            bc.Add(b)

            Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)

            odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)

            Try
                odoc.Close()
                oWord.Quit()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try

            'Aufdruck ORT DATUM:
            Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
            Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
            Dim ort = "Suben"
            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
                Case "SBG" : ort = "Bad Reichenhall"
                Case "WAI" : ort = "Waidhaus"
                Case "NKD" : ort = "Nickelsdorf"
            End Select
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(ort & ", den " & Now.ToShortDateString, 25, 270, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

            striList.Add(fm.fillPDFVorhandenesLokalesPDF_Path(path, listTowrite, , , , , bc))

            If usrCntl.DS_FD IsNot Nothing AndAlso usrCntl.DS_FD.DATA_LIST.LIST.Count > 0 AndAlso usrCntl.cbxPassDrucken.Checked Then
                striList.Add(usrCntl.DS_FD.OPEN_SINGLE(False))
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return striList
    End Function

    Shared Function VM_DE_Fiskal(usrCntl As usrcntlVollmacht_DE_Fiskal) As String
        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 45, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 51, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 56, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        Select Case usrCntl.cboSprache._value
            Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 50, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
            Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End Select

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 62, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 70, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 70, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 75, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 75, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 81, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite = addEinmaligeVM(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
        ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
            listTowrite = addEinmaligeVMCarnetATA(listTowrite, 88, 110, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "", True)
        End If


        Select Case usrCntl.cboSprache._value
            Case "EN"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_Fiskal_EN", listTowrite)
            Case "FR"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_Fiskal_FR", listTowrite)
            Case Else
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_DE_Fiskal", listTowrite)
        End Select
        Return ""
    End Function

    Shared Function VM_AT_EV(usrCntl As usrcntlVollmacht_AT_EV) As String
        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 33, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 53, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 59, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        Select Case usrCntl.cboSprache._value
            Case "EN" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 52, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
            Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End Select

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 74, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 74, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 80, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 80, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFaStNr.Text, If(usrCntl.cboSprache._value = "EN", 135, 129), 86, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxEVVerzollung.Checked, "x", ""), 38, 94, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxKonto.Checked, "x", ""), 38, 98, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite = addEinmaligeVM(listTowrite, 0, 225, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
        ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
            listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, 225, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "")
        End If


        Select Case usrCntl.cboSprache._value
            Case "EN"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_4200_EN", listTowrite)
            Case Else
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_4200", listTowrite)
        End Select
        Return ""
    End Function



    Shared Function VM_AT_Fiskal(usrCntl As usrcntlVollmacht_AT_Fiskal) As String

        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)


        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 42, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 47, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        Select Case usrCntl.cboSprache._value
            Case "EN", "FR" : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 45, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
            Case Else : listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechtsform.Text, 40, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End Select

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 61, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 66, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 72, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite = addEinmaligeVM(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text, True)
        ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then
            listTowrite = addEinmaligeVMCarnetATA(listTowrite, 88, 100, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "", True)
        End If


        Select Case usrCntl.cboSprache._value
            Case "EN"
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_EN", listTowrite)
            Case "FR"
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 145, 24, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 140, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 133, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal_FR", listTowrite)
            Case Else
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 24, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtInhaber.Text, 129, 53, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 129, 66, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 129, 61, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_AT_Fiskal", listTowrite)
        End Select
        Return ""
    End Function

    Shared Function VM_ATILLA_EXPORT(usrCntl As usrcntlVollmacht_ATILLA_EXPORT) As String
        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 128, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        'If usrCntl.cbxEinmaligeVollmacht.Checked Then
        'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
        ' End If
        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        Else
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End If


        Select Case usrCntl.cboSprache._value
            Case "EN"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_ATILLA_EN", listTowrite)
            Case Else
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_ATILLA", listTowrite)
        End Select
        Return ""
    End Function

    Shared Function VM_VERAG_EXPORT(usrCntl As usrcntlVollmacht_VERAG_EXPORT) As String
        'Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem)
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 68, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 74, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 80, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 40, 87, 71, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAEO.Text, 133, 87, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 40, 93, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 133, 93, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 40, 99, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        'If usrCntl.cbxEinmaligeVollmacht.Checked Then
        'listTowrite = addEinmaligeVM(listTowrite, 0, 215, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text)
        ' End If
        If usrCntl.cbxEinmaligeVollmacht.Checked Then
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 54, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgNr.Text, 67, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEinmalig_RgDat.Text, 134, 54, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        Else
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("x", 40, 49, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        End If


        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"
                Select Case usrCntl.cboSprache._value
                    Case "EN"
                        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_EN", listTowrite)
                    Case Else
                        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT", listTowrite)
                End Select
            Case Else
                Select Case usrCntl.cboSprache._value
                    Case "EN"
                        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_VERAG_EN", listTowrite)
                    Case Else
                        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", getUO2, "", "VM_EXPORT_VERAG", listTowrite)
                End Select
        End Select



        Return ""
    End Function

    Shared Function Importaviso_VK(usrCntl As usrcntlVorauskasse) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 36, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 30.2, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 52, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))


        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 106, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 113, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 113, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 126, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 126, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 160, 126, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))



        Dim top = 208
        If usrCntl.cboFiliale._value <> "" Then
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT))
        Else
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbfertigungsNr.Text, 60, top + 71.5, 43, 8, "bold", 13, , iTextSharp.text.Element.ALIGN_RIGHT))
        End If


        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.lblRechnungsbetrag.Text, 70, top + 0, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkostenAusl.Text, 70, top + 4, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZwischensumme.Text, 70, top + 8.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZoll.Text, 70, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZollProzent.Text, 40, top + 12, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkostenInl.Text, 70, top + 16, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstText.Text, 13, top + 20.8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEustSonstBetrag.Text, 70, top + 20.5, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSumme.Text, 70, top + 25, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        Dim eustProz = If(IsNumeric(usrCntl.txtEustProzent._value), CDbl(usrCntl.txtEustProzent._value).ToString("P2"), usrCntl.txtEustProzent._value)
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(eustProz, 40, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEUST.Text, 70, top + 29, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

        top = 209
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZoll2.Text, 170, top + 0, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEust2.Text, 170, top + 4, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenText.Text, 116.5, top + 8, 40, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAndereAbgabenBetrag.Text, 170, top + 8, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollungskosten.Text, 170, top + 13, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWeitereTarifPos.Text, 170, top + 17, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 170, top + 21, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 170, top + 25, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtKorrRechnung.Text, 170, top + 29, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUebersetzungRg.Text, 170, top + 33, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAviso.Text, 170, top + 37, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSvs.Text, 170, top + 41, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKostenText.Text, 116.5, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstigeKosten.Text, 170, top + 45, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMwstProzent.Text, 140, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMWST.Text, 170, top + 49, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 170, top + 56, 30, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGesamtsumme.Text, 170, top + 61, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

        If usrCntl.cbxLKWWartet.Checked Then
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
        End If

        If usrCntl.cbxBeimErstellenSpeichern.Checked Then
            '   If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
            saveVorauskasse(usrCntl)
            'End If
        End If


        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_VK", listTowrite)
            Case Else

                Select Case usrCntl.cboFirma._value
                    Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS_NEU2", listTowrite)
                    Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG_NEU2", listTowrite)
                End Select

        End Select


        Return ""
    End Function


    Shared Function Importaviso(usrCntl As usrcntlImportaviso) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Dim top = -5
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartnerVERAG.Text, 144, 38 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("– " & usrCntl.txtDW.Text, 45, 32.8 + top, 15, 4, "normal", 8, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text, 32, 53.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 60 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 32, 66 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 71.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 32, 78 + top, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 120, 78 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 32, 85 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 32, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 120, 91 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        top = -10
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRechnungsnummern.Text, 83, 107.5 + top, 110, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAbsender.Text, 32, 114 + top, 88, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATUEur1.Text, 145, 114 + top, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLKWKennz.Text, 43, 120 + top, 45, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUnternehmer.Text, 112, 120 + top, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnzVerp.Text, 32, 127 + top, 32, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtWarenbez.Text, 83, 127 + top, 62, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.txtGewicht.Text.Trim.EndsWith("kg"), usrCntl.txtGewicht.Text, usrCntl.txtGewicht.Text & " kg"), 163, 127 + top, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))





        If usrCntl.cbxLKWWartet.Checked Then
            listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
        End If

        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso", listTowrite)
            Case Else

                Select Case usrCntl.cboFirma._value
                    Case "CS" : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_CS", listTowrite)
                    Case Else : Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Importaviso_AG", listTowrite)
                End Select

        End Select

        Return ""
    End Function

    Shared Function Gestellungsgarantie(usrCntl As usrcntlGestellungsgarantie) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        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.txtAdresse1.Text, 53, 88, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 53, 95, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAnsprechpartner.Text, 53, 102, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTel.Text, 53, 108, 55, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFax.Text, 121, 108, 70, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEmail.Text, 53, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEORI.Text, 121, 115, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer1.Text, 72, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZulassungsnummer2.Text, 114, 123, 33, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))


        Select Case usrCntl.cboSprache._value
            Case "EN"
                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)
            Case "FR"
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 85, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_FR", listTowrite)
            Case Else
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 92, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_DE", listTowrite)
        End Select

        Return ""
    End Function


    Shared Function getPosNrByLNr(dt As DataTable, dt2 As DataTable, LNr As String) As String
        For i = 0 To dt.Rows.Count - 1
            If dt.Rows(i)("LNr") = LNr Then
                Return If(dt.Rows(i)("Pos"), "")
            End If
        Next
        For i = 0 To dt2.Rows.Count - 1
            If dt2.Rows(i)("ZLNr") = LNr Then
                Return "0"
            End If
        Next
        Return ""
    End Function

    Shared Function Verzollungspreise(usrCntl As usrcntlVerzollungspreise, Optional printReportElsePDF As Boolean = False, Optional printername As String = "") As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
        '     Dim striList As New List(Of String)
        Verzollungspreise = ""
        Try

            Dim rpt As New rptPreislisten
            Dim subRpt As New subrptPreislisten
            Dim subRpt_Zoll As New subrptPreislisten_Zoll
            rpt.SubReport.Report = subRpt

            Dim dt As DataTable = cProgramFunctions.dgridViewTods(usrCntl.DataGridView)
            Dim dt2 As DataTable = cProgramFunctions.dgridViewTods(usrCntl.dgvZusatzleistung)
            If dt.Rows.Count > 0 Then
                dt.Rows.RemoveAt(dt.Rows.Count - 1) 'leere Zeile
            End If
            If dt2.Rows.Count > 0 Then
                dt2.Rows.RemoveAt(dt2.Rows.Count - 1) 'leere Zeile
            End If


            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                Case "IMEX"
                    rpt.txtFirmenkennung.Text = "IMEX Customs Service GmbH"
                    rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_IMEX.Visible = True
                Case "ATILLA"
                    rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
                    rpt.picVERAG.Image = My.Resources.Atilla
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_ATILLA.Visible = True
                Case Else 'Nix
            End Select

            rpt.DataSource = dt

            If dt2.Rows.Count > 0 Then
                subRpt.DataSource = dt2
            Else
                rpt.SubReport.Visible = False
            End If
            '   rpt.txtDatumOrt.Text = ort & ", den " & Now.ToShortDateString

            Dim PosVorlage = getPosNrByLNr(dt, dt2, 700)
            Dim PosKredit = getPosNrByLNr(dt, dt2, 750)
            Dim PosClearing = getPosNrByLNr(dt, dt2, 347)


            If PosVorlage = "" And PosKredit = "" Then
                rpt.txtVorlageKredit.Visible = False
            ElseIf PosVorlage = "" And PosKredit <> "" Then
                rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosKredit & " weg.)"
            ElseIf PosKredit = "" And PosVorlage <> "" Then
                rpt.txtVorlageKredit.Text = "(Bei Bereitstellung eines eigenen Aufschubkontos fällt Pos. " & PosVorlage & " weg.)"
            Else
                rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosVorlage]", "Pos. " & PosVorlage)
                rpt.txtVorlageKredit.Text = rpt.txtVorlageKredit.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
            End If

            rpt.txtZahlungsziel.Text = rpt.txtZahlungsziel.Text.Replace("[Zahlungsziel]", If(usrCntl.txtZahlunsziel.Text = "", "10", usrCntl.txtZahlunsziel.Text))

            If PosKredit = "" Then 'Wenn keine Kredítaufwendung
                rpt.txtZahlungsziel2.Visible = False
            Else
                If usrCntl.txtZahlunsziel.Text = "" Then
                    rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", "10")
                Else
                    rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[Zahlungsziel]", usrCntl.txtZahlunsziel.Text)
                End If
                rpt.txtZahlungsziel2.Text = rpt.txtZahlungsziel2.Text.Replace("[PosKredit]", "Pos. " & PosKredit)
            End If


            If PosClearing = "" Then
                rpt.txtClearing.Visible = False
                '  Else
                '     rpt.txtClearing.Text = rpt.txtClearing.Text.Replace("[PosClearing]", "Pos. " & PosClearing)
            End If


            If usrCntl.cboFirma._value = "CS" Then
                rpt.txtFirmenkennung.Text = "VERAG Customs Service GmbH"
                rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo_med
                '                rpt.txtAdresse.Text = "A-5071 Wals	Tel.  +43 77 11 / 27 77-39 	      www.verag.ag" & vbNewLine &
                '                                      "Zollstraße 6	Fax  +43 77 11 / 27 88	       cw@verag.ag"
                rpt.txtFirmaInfo_VERAG.Text = "A-5071 Wals" & vbTab & "Tel.  +43 77 11 / 27 77-39" & vbTab & "www.verag.ag" & vbNewLine &
                                      "Zollstraße 6" & vbTab & "Fax  +43 77 11 / 27 88" & vbTab & "cw@verag.ag"

            End If

            If usrCntl.cbxZollpflichtigeAbfertigung.Checked Then
                rpt.SubReport2.Report = subRpt_Zoll
            End If


            AddHandler rpt.Detail.Format, Sub()
                                              Try
                                                  '  MsgBox(rpt.Fields.Item(1).Value)
                                                  rpt.txtNr.Text = nullStr(rpt.Fields.Item("Pos").Value)
                                                  rpt.txtPreis.Text = ""

                                                  If nullStr(rpt.Fields.Item("Preis").Value) = "" Then
                                                      rpt.Line8.Visible = False
                                                      rpt.txtLeistung.Size = New SizeF(rpt.txtLeistung.Size.Width + 2, rpt.txtLeistung.Size.Height)
                                                  Else
                                                      rpt.Line8.Visible = True
                                                      Dim preis = nullStr(rpt.Fields.Item("Preis").Value)
                                                      rpt.txtPreis.Text = If(IsNumeric(preis), CDbl(preis).ToString("C2"), preis)
                                                  End If
                                                  rpt.txtLeistung.Text = nullStr(rpt.Fields.Item("Leistung").Value)

                                              Catch ex As Exception
                                                  MsgBox(ex.Message & ex.StackTrace)
                                              End Try


                                          End Sub

            AddHandler subRpt.Detail.Format, Sub()
                                                 Try
                                                     '  MsgBox(rpt.Fields.Item(1).Value)
                                                     ' subRpt.txtNr.Text = nullStr(subRpt.Fields.Item("Pos").Value)
                                                     subRpt.txtPreis.Text = ""

                                                     If nullStr(subRpt.Fields.Item("ZPreis").Value) = "" Then
                                                         subRpt.Line8.Visible = False
                                                         subRpt.txtLeistung.Size = New SizeF(subRpt.txtLeistung.Size.Width + 2, subRpt.txtLeistung.Size.Height)
                                                     Else
                                                         subRpt.Line8.Visible = True
                                                         Dim preis = nullStr(subRpt.Fields.Item("ZPreis").Value)
                                                         subRpt.txtPreis.Text = If(IsNumeric(preis), CDbl(preis).ToString("C2"), preis)
                                                     End If
                                                     subRpt.txtLeistung.Text = nullStr(subRpt.Fields.Item("ZLeistung").Value)

                                                 Catch ex As Exception
                                                     MsgBox(ex.Message & ex.StackTrace)
                                                 End Try


                                             End Sub

            If printReportElsePDF Then 'NUR DRUCK!!
                rpt.Run(False)

                rpt.Document.Printer.PrinterName = printername
                ' rpt.Document.PrintOptions.Margin = New GrapeCity.ActiveReports.Extensibility.Printing.Margin(0, 0, 0, 0)
                rpt.Document.Printer.OriginAtMargins = False

                rpt.Document.Print((printername = ""), False)
                rpt.Dispose()
            Else
                Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("tmp_Verzollunspreise.pdf", ".pdf", , False)
                Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
                rpt.Run(False)
                p.Export(rpt.Document, tmpPath)

                Verzollungspreise = tmpPath
                rpt.Dispose()
            End If


        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try


    End Function

    Shared Function VerzollungspreiseOLD(usrCntl As usrcntlVerzollungspreise) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)

        Select Case usrCntl.MyComboBox1._value
            Case "VZ_EV"
                'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollung.Text, 155, 76, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTarifnummer.Text, 155, 84, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 155, 90, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSVS.Text, 155, 98, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 155, 105, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                'txtSonderLeistungBezeichnung()

                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 37, 171, 20, 6, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verzollungspreise_EV", listTowrite)
            Case "VZ_RW"
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollung.Text, 155, 76, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRueckware.Text, 155, 83, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))

                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTarifnummer.Text, 155, 91, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 155, 97, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSVS.Text, 155, 105, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 155, 112, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 37, 190, 20, 6, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verzollungspreise_RW", listTowrite)
            Case Else 'VZ
                Dim top = -4.5
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerzollung.Text, 155, top + 75.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtTarifnummer.Text, 155, top + 83, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtPapierePorti.Text, 155, top + 90, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSVS.Text, 155, top + 97.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtATLAS.Text, 155, top + 104.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))

                ' If usrCntl.txtSonderLeistungBezeichnung.Text <> "" Then
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("8", 25, top + 126, 7, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER))
                'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungBezeichnung.Text, 36, top + 126, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungPreis.Text, 155, top + 126, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                '  End If
                '  If usrCntl.txtSonderLeistungBezeichnung2.Text <> "" Then
                'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("9", 25, top + 133.5, 7, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungBezeichnung2.Text, 36, top + 133.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
                '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonderLeistungPreis2.Text, 155, top + 133.5, 30, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_RIGHT))
                ' End If
                '   listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtClearing.Text, 37, top + 188.5, 20, 6, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))

                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "VerzollungspreiseV2", listTowrite)
        End Select

        Return ""
    End Function

    Shared Function FiskalInfoschreiben(usrCntl As usrcntlFiskalInfoschreiben) As String
        Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
        Dim oWord As New Microsoft.Office.Interop.Word.Application
        Try
            Dim bez = ""
            Select Case usrCntl.BEZEICHNUNG
                Case FormularManagerArten.AT_InformationsblattFiskalverzollung
                    Select Case usrCntl.cboSprache._value
                        Case "EN" : bez = "Informationsblatt Fiskalverzollung AT in GB"
                            ' Case "NL" : bez = "Informationsblatt Fiskalverzollung AT in DE"
                        Case "FR" : bez = "Informationsblatt Fiskalverzollung AT in FR"
                        Case Else
                            : bez = "Informationsblatt Fiskalverzollung AT in DE"
                    End Select
                Case FormularManagerArten.DE_InformationsblattFiskalverzollung
                    Select Case usrCntl.cboSprache._value
                        Case "NL" : bez = "Informationsblatt Fiskalverzollung DE in NL"
                        Case "EN" : bez = "Informationsblatt Fiskalverzollung DE in GB"
                        Case "FR" : bez = "Informationsblatt Fiskalverzollung DE in FR"
                        Case Else
                            : bez = "Informationsblatt Fiskalverzollung DE in DE"
                    End Select
            End Select



            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", bez)
            Dim pfadWord = DS.GET_TOP1_PATH(False)

            Return pfadWord

        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return ""
    End Function


    Shared Function Verzollungsunterlagen(usrCntl As usrcntlVerzollungsunterlagen, Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional openWord As Boolean = False) As List(Of String)
        Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
        Dim oWord As New Microsoft.Office.Interop.Word.Application
        Dim striList As New List(Of String)
        Try
            Dim nameDispo = ""
            nameDispo = "VerzollungsunterlagenAG2"
            Select Case usrCntl.cboFirma._value
                Case "CS" : nameDispo = "VerzollungsunterlagenCS"
                Case Else : nameDispo = "VerzollungsunterlagenAG2"
            End Select

            Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", nameDispo)
            Dim pfadWord = DS.GET_TOP1_PATH(False)
            ' MsgBox(pfadWord)
            Dim cGenWord As New cGenWord

            odoc = cGenWord.openWord(pfadWord, False, oWord)
            If odoc Is Nothing Then Return striList

            '  Dim oTable As Word.Table

            odoc.FormFields("Adresse1").Range.Text = usrCntl.txtFirma.Text
            odoc.FormFields("Adresse2").Range.Text = usrCntl.txtFirma2.Text
            odoc.FormFields("Adresse3").Range.Text = usrCntl.txtAdresse1.Text
            odoc.FormFields("Adresse4").Range.Text = usrCntl.txtAdresse2.Text
            odoc.FormFields("Adresse5").Range.Text = usrCntl.txtAdresse3.Text

            odoc.FormFields("PosNr").Range.Text = usrCntl.txtPosNr.Text

            odoc.FormFields("Anlage1").Range.Text = usrCntl.txtAnlage1.Text
            odoc.FormFields("Anlage2").Range.Text = usrCntl.txtAnlage2.Text
            odoc.FormFields("Anlage3").Range.Text = usrCntl.txtAnlage3.Text
            odoc.FormFields("Anlage4").Range.Text = usrCntl.txtAnlage4.Text
            odoc.FormFields("Anlage5").Range.Text = usrCntl.txtAnlage5.Text
            odoc.FormFields("Anlage6").Range.Text = usrCntl.txtAnlage6.Text


            odoc.FormFields("Tel").Range.Text = usrCntl.txtTel.Text
            odoc.FormFields("Fax").Range.Text = usrCntl.txtFax.Text
            odoc.FormFields("Email").Range.Text = usrCntl.txtEmail.Text
            odoc.FormFields("Bearbeiter").Range.Text = usrCntl.txtBearbeiter.Text
            odoc.FormFields("Bearbeiter2").Range.Text = usrCntl.txtBearbeiter.Text

            odoc.Save() : odoc.Activate()

            If openWord Then
                oWord.Visible = True
                Return New List(Of String)
            ElseIf printReportElsePDF Then

                oWord.DisplayAlerts = False
                oWord.PrintOut()
                Try
                    oWord.Documents.Close()
                    'Quit word application
                    oWord.Quit()

                    'Release
                    oWord = Nothing
                Catch ex As Exception
                    'NIX, kann sein, dass noch offen..
                End Try

            Else
                'oWord.Visible = True
                Dim path = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(nameDispo & ".pdf", ".pdf", True, False)

                odoc.SaveAs(path, Word.WdSaveFormat.wdFormatPDF)

                Try
                    odoc.Close()
                    oWord.Quit()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try
                striList.Add(path)
            End If

        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try

        Return striList
    End Function


    Shared Function 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)
        Try

            MailHTMLText = "<div style=""font-family:Calibri, Arial"">"

            If usrCntl.KdNR > 0 Then
                Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
                If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
                Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
                If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
            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"

                            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)

                    End Select

                Case "DE_FISKAL"
                    Select Case usrCntl.cboSprache._value
                        Case "EN"

                            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)

                    End Select

                    'MailHTMLText &= cFakturierung.getSignature(11)
            End Select

            MailHTMLText &= "</div>"
            'MAIL??

        Catch ex As Exception
            MessageBox.Show(ex.ToString & ex.StackTrace)
        End Try
        Return New List(Of String)
    End Function



    Shared Function Verbundenheit(usrCntl As usrcntlVerbundenheit) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Dim top = 0
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 40, 33 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 40, 38.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 40, 43.5 + top, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUid.Text, 40, 51 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 130, 51 + top, 65, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        Select Case usrCntl.cboSprache._value
            Case "EN"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verbundenheit_EN", listTowrite)
            Case "FR"
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verbundenheit_FR", listTowrite)
            Case Else
                Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Verbundenheit", listTowrite)
        End Select

    End Function


    Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)


        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 32, 52, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 32, 60, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtEori.Text, 32, 71, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxRechnung.Checked, "x", ""), 13, 91, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxPackUrsprung.Checked, "x", ""), 13, 99, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxAusfuhr.Checked, "x", ""), 13, 107.5, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        Dim netto = usrCntl.txtNettoGewicht.Text
        If IsNumeric(netto) Then netto = CDbl(netto).ToString("N0") & " kg"
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(netto, 45, 114.5, 130, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_EXW.Checked, "x", ""), 13, 135, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_FCA.Checked, "x", ""), 13, 139, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CPT.Checked, "x", ""), 13, 155.2, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIP.Checked, "x", ""), 13, 159, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_CIF.Checked, "x", ""), 13, 163, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DAP.Checked, "x", ""), 13, 167.5, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxFracht_DDP.Checked, "x", ""), 13, 171, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_1.Text, 167, 138, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFrachtkost_2.Text, 167, 166, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_EXW.Checked, "x", ""), 13, 204, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_FCA.Checked, "x", ""), 13, 208, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CPT.Checked, "x", ""), 13, 212, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIP.Checked, "x", ""), 13, 224, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_CIF.Checked, "x", ""), 13, 228.2, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DAP.Checked, "x", ""), 13, 232, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(usrCntl.cbxVers_DDP.Checked, "x", ""), 13, 236.3, 3, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_1.Text, 167, 207, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVerskost_2.Text, 167, 232, 20, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_RIGHT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString, 12, 262, 68, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME, 125, 262, 68, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))


        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "QS_UeDok", listTowrite)
    End Function



    Shared Function Bonitaetsauskunft(usrCntl As usrcntlCreditreformBoniAuskunft) As String
        Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager

        Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)


        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRArt.Text, 192, 44, 80, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.cboCRFrauHerr.Text, 192, 54, 15, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRGesprochenMit.Text, 207, 54, 70, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtCRDatum.Text, 248, 64, 25, 6, "normal", 12, , iTextSharp.text.Element.ALIGN_CENTER))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 153, 82, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse1.Text, 153, 92, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtAdresse2.Text, 153, 102, 130, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtLetztesBearbeitungsDatum.Text, 195, 115, 25, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBonitaetsindex.Text, 254, 113, 20, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGruendungsdatum.Text, 172, 125, 20, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtUmsatz.Text, 210, 125, 35, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtMitarbeiter.Text, 260, 125, 20, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_CENTER))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBankverbindung.Text, 185, 137, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtZahlungsweise.Text, 182, 147, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHoechstkredit.Text, 182, 157, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtGeschaeftsfuehrerName.Text, 182, 167, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
        listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtSonstiges.Text, 182, 177, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))

        If usrCntl.cbxInKundendatenSpeichern.Checked Then
            If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
                If IsNumeric(usrCntl.KdNR) AndAlso usrCntl.KdNR > 0 Then
                    saveCreditreform(usrCntl)
                Else
                    MsgBox("Fehler: Keine KundenNr ausgewählt - speichern abgebrochen.")
                End If
            End If
        End If

        Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Bonitaetsauskunft", listTowrite)
    End Function

    Public Shared Function getUO2() As String
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "IMEX", "ATILLA" : Return VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case Else : Return ""
        End Select
    End Function
    Shared Function saveCreditreform(usrCntl As usrcntlCreditreformBoniAuskunft) As Boolean
        Try
            Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(usrCntl.KdNR, Now)


            If cBonitaetsauskunft Is Nothing Then
                cBonitaetsauskunft = New VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft
            ElseIf vbYes <> MsgBox("Es wurde heute um '" & cBonitaetsauskunft.ba_Datum.ToShortTimeString & "' bereits eine Bonitätsauskunft für den Kunden eingeholt, möchten Sie diese überschreiben?", vbYesNoCancel) Then
                Return False
            End If

            cBonitaetsauskunft.ba_KundenNr = (usrCntl.KdNR)
            cBonitaetsauskunft.ba_CRAnsprechpartnerHerrFrau = (usrCntl.cboCRFrauHerr._value)
            cBonitaetsauskunft.ba_CRAnsprechpartner = (usrCntl.txtCRGesprochenMit.Text)
            cBonitaetsauskunft.ba_CRArt = (usrCntl.cboCRArt._value)
            cBonitaetsauskunft.ba_Datum = cProgramFunctions.isLeerNothing(usrCntl.txtCRDatum._value)

            cBonitaetsauskunft.ba_Firma = usrCntl.txtFirma.Text
            cBonitaetsauskunft.ba_Adresse1 = usrCntl.txtAdresse1.Text
            cBonitaetsauskunft.ba_Adresse2 = usrCntl.txtAdresse2.Text
            cBonitaetsauskunft.ba_LetztesBearbeitungsDatum = cProgramFunctions.isLeerNothing(usrCntl.txtLetztesBearbeitungsDatum._value)
            cBonitaetsauskunft.ba_BonitaetsIndex = If(IsNumeric(usrCntl.txtBonitaetsindex.Text), usrCntl.txtBonitaetsindex.Text, 0)
            cBonitaetsauskunft.ba_GruendundsDatum = cProgramFunctions.isLeerNothing(usrCntl.txtGruendungsdatum._value)

            Dim umsatz = usrCntl.txtUmsatz.Text
            If IsNumeric(usrCntl.txtUmsatz.Text) Then
                umsatz = CDbl(usrCntl.txtUmsatz.Text).ToString("N2")
            End If
            cBonitaetsauskunft.ba_Umsatz = cProgramFunctions.isLeerNothing(umsatz)
            cBonitaetsauskunft.ba_Mitarbeiter = cProgramFunctions.isLeerNothing(usrCntl.txtMitarbeiter.Text)
            cBonitaetsauskunft.ba_Bankverbindung = usrCntl.txtBankverbindung.Text
            cBonitaetsauskunft.ba_Zahlungsweise = usrCntl.txtZahlungsweise.Text
            cBonitaetsauskunft.ba_Hoechstkredit = cProgramFunctions.isLeerNothingDbl(usrCntl.txtHoechstkredit._value)
            cBonitaetsauskunft.ba_GFName = usrCntl.txtGeschaeftsfuehrerName.Text
            cBonitaetsauskunft.ba_Sonstiges = usrCntl.txtSonstiges.Text
            cBonitaetsauskunft.ba_MaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
            cBonitaetsauskunft.ba_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME

            If cBonitaetsauskunft.SAVE Then
                usrCntl.lblCRsaved.Text = "(gespeichert)"
                usrCntl.lblCRsaved.ForeColor = Color.Green
                VSQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")
                Return True
            Else
                Return False
            End If


        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
    End Function


    Shared Function saveVorauskasse(usrCntl As usrcntlVorauskasse) As Boolean
        Try
            If Not IsNumeric(usrCntl.cboFiliale._value) Then Return False
            If Not IsNumeric(usrCntl.txtAbfertigungsNr.Text) Then Return False

            Dim cVorauskasse As VERAG_PROG_ALLGEMEIN.cVorauskasse = VERAG_PROG_ALLGEMEIN.cVorauskasse.LOADByFilialeAbfNr(usrCntl.cboFiliale._value, usrCntl.txtAbfertigungsNr.Text, usrCntl.ROLLE)


            If cVorauskasse Is Nothing Then
                cVorauskasse = New VERAG_PROG_ALLGEMEIN.cVorauskasse
            ElseIf vbYes <> MsgBox("Es wurde am '" & cVorauskasse.vk_Datum.ToShortDateString & "' um '" & cVorauskasse.vk_Datum.ToShortTimeString & "' bereits eine Vorauskasse mit dieser Abfertigungsnummer angefordert, möchten Sie diese überschreiben?", vbYesNoCancel) Then
                Return False
            End If

            cVorauskasse.vk_KdNr = If(usrCntl.KdNR > 0, usrCntl.KdNR, Nothing)

            cVorauskasse.vk_FilialeNr = usrCntl.cboFiliale._value
            cVorauskasse.vk_AbfertigungsNr = usrCntl.txtAbfertigungsNr.Text
            cVorauskasse.vk_Datum = Now
            cVorauskasse.vk_LKW = usrCntl.txtLKWKennz.Text

            cVorauskasse.vk_Firma = usrCntl.txtFirma.Text
            cVorauskasse.vk_Betrag = CDbl(usrCntl.txtGesamtsumme._value)
            cVorauskasse.vk_QS_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
            cVorauskasse.vk_QS_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
            cVorauskasse.vk_QS_Bemerkung = usrCntl.txtVKVermerk.Text
            'cVorauskasse.vk_GeldEingetroffen = usrCntl.XXXXXXX
            'cVorauskasse.vk_BH_SachbearbeiterId = usrCntl.XXXXXXX
            'cVorauskasse.vk_BH_Sachbearbeiter = usrCntl.XXXXXXX
            'cVorauskasse.vk_BH_Bemerkung = usrCntl.XXXXXXX
            'cVorauskasse.vk_BH_DatumGeldeingang = usrCntl.XXXXXXX

            usrCntl.getValues(cVorauskasse)

            If cVorauskasse.SAVE Then
                usrCntl.lblCRsaved.Text = "(gespeichert)"
                usrCntl.lblCRsaved.ForeColor = Color.Green
                '  VSQL.doSQL("UPDATE Kunden SET Bonität='" & cVorauskasse.ba_BonitaetsIndex & "', Bonitätsdatum='" & cVorauskasse.ba_Datum & "', Höchstkredit=" & If(cVorauskasse.ba_Hoechstkredit Is Nothing, "null", "'" & cVorauskasse.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cVorauskasse.ba_KundenNr & "'", "FMZOLL")

                cVorauskasseOptions.insertVermerk(cVorauskasse.vk_FilialeNr, cVorauskasse.vk_AbfertigungsNr, 13)

                Return True
            Else
                Return False
            End If


        Catch ex As Exception
            MsgBox("SaveVK: " & ex.Message)
            Return False
        End Try
    End Function


    Shared Function addEinmaligeVM(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, RgNr As String, RgDat As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Select Case language
            Case "EN", "FR"
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following invoice:", "This power of attorney is valid only for the following invoice:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                If small Then
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.:  _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                Else
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 33, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                End If
            Case Else
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgende Rechnung:", "Diese Vollmacht ist nur für folgende Rechnung gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                If small Then
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Nr.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                Else
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgNr, left + 41, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                End If
        End Select
        Return listTowrite
    End Function

    Shared Function addEinmaligeVMCarnetATA(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, CarnetATAr As String, XXXX As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
        Select Case language
            Case "EN"
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("UNIQUE AUTHORISATION", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Valid only for the following Carnet-ATA:", "This power of attorney is valid only for the following Carnet-ATA:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                If small Then
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.No.: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    '     listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Inv.Dat.:  _______________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                Else
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-No.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Invoice-Date: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 33, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 126, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                End If
            Case Else
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("EINMALIGE VOLLMACHT", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("______________________", left + 15, top + 0, 180, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(If(small, "Gültig für folgendes Carnet-ATA:", "Diese Vollmacht ist nur für folgendes Carnet-ATA gültig:"), left + 62, top + 0, 180, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                If small Then
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA: ________________________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rg.-Datum: _____________________________________ ", left + 15, top + 13, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 28, top + 5, 80, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 31, top + 12, 75, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                Else
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Carnet-ATA-Nr.: ______________________________ ", left + 15, top + 6, 100, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    ' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Rechnungs-Datum: _____________________ ", left + 103, top + 6, 90, 6, "normal", 10, , iTextSharp.text.Element.ALIGN_LEFT))
                    listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(CarnetATAr, left + 41, top + 5, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                    '  listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RgDat, left + 136, top + 5, 40, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
                End If
        End Select
        Return listTowrite
    End Function


    Public Shared Function MergePdfFiles(ByVal fileNames As List(Of String), ByVal targetPdf As String) As Boolean
        Dim merged As Boolean = True
        Using stream As FileStream = New FileStream(targetPdf, FileMode.Create)
            Dim document As New iTextSharp.text.Document
            Dim pdf As PdfCopy = New PdfCopy(document, stream)
            Dim reader As PdfReader = Nothing
            Try
                document.Open()
                For Each file As String In fileNames
                    reader = New PdfReader(file)
                    pdf.AddDocument(reader)
                    reader.Close()
                Next
            Catch __unusedException1__ As Exception
                merged = False
                If reader IsNot Nothing Then
                    reader.Close()
                End If

            Finally
                If document IsNot Nothing Then
                    document.Close()
                End If
            End Try
        End Using

        Return merged
    End Function

    'ALT: Hier kam es zum komischen Problemen bei einem PDF: es wurde eine alte Verison ausgegeben, obwohl die alten texte nicht ersichtlich waren?? --> Infoschreiben Fiskal
    Public Shared Function MergePdfFiles2ALT(ByVal pdfFiles As List(Of String), ByVal outputPath As String) As Boolean
        Dim result As Boolean = False
        Dim pdfCount As Integer = 0     'total input pdf file count
        Dim f As Integer = 0    'pointer to current input pdf file
        Dim fileName As String
        Dim reader As iTextSharp.text.pdf.PdfReader = Nothing
        Dim pageCount As Integer = 0
        Dim pdfDoc As iTextSharp.text.Document = Nothing    'the output pdf document
        Dim writer As PdfWriter = Nothing
        Dim cb As PdfContentByte = Nothing

        Dim page As PdfImportedPage = Nothing
        Dim rotation As Integer = 0

        Try
            pdfCount = pdfFiles.Count
            If pdfCount > 1 Then
                'Open the 1st item in the array PDFFiles
                fileName = pdfFiles(f)
                reader = New iTextSharp.text.pdf.PdfReader(fileName)
                'Get page count
                pageCount = reader.NumberOfPages
                pdfDoc = New iTextSharp.text.Document(reader.GetPageSizeWithRotation(1), 18, 18, 18, 18)
                writer = PdfWriter.GetInstance(pdfDoc, New FileStream(outputPath, FileMode.OpenOrCreate))

                With pdfDoc
                    .Open()
                End With
                'Instantiate a PdfContentByte object
                cb = writer.DirectContent
                'Now loop thru the input pdfs
                While f < pdfCount
                    'Declare a page counter variable
                    Dim i As Integer = 0
                    'Loop thru the current input pdf's pages starting at page 1
                    While i < pageCount
                        i += 1
                        'Get the input page size
                        pdfDoc.SetPageSize(reader.GetPageSizeWithRotation(i))
                        'Create a new page on the output document
                        pdfDoc.NewPage()
                        'If it is the 1st page, we add bookmarks to the page
                        'Now we get the imported page
                        page = writer.GetImportedPage(reader, i)
                        'Read the imported page's rotation
                        rotation = reader.GetPageRotation(i)
                        'Then add the imported page to the PdfContentByte object as a template based on the page's rotation
                        If rotation = 90 Then
                            cb.AddTemplate(page, 0, -1.0F, 1.0F, 0, 0, reader.GetPageSizeWithRotation(i).Height)
                        ElseIf rotation = 270 Then
                            cb.AddTemplate(page, 0, 1.0F, -1.0F, 0, reader.GetPageSizeWithRotation(i).Width + 60, -30)
                        Else
                            cb.AddTemplate(page, 1.0F, 0, 0, 1.0F, 0, 0)
                        End If
                    End While
                    'Increment f and read the next input pdf file
                    f += 1
                    If f < pdfCount Then
                        fileName = pdfFiles(f)
                        reader = New iTextSharp.text.pdf.PdfReader(fileName)
                        pageCount = reader.NumberOfPages
                    End If
                End While
                'When all done, we close the document so that the pdfwriter object can write it to the output file
                pdfDoc.Close()

                result = True
            End If
        Catch ex As Exception
            MsgBox(ex.Message & vbNewLine & ex.StackTrace)
            Return False
        End Try
        Return result
    End Function


    Shared Sub OPEN_FORM(PDFArt As String)
        Dim f As New frmFormulare(PDFArt) : f.Show()
    End Sub

    Shared Sub OPEN_FORM(KdNr As Integer, Optional param() As Object = Nothing)
        Dim f As New frmFormulare(KdNr) : f.Show()
    End Sub

    Shared Sub OPEN_FORM(PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
        Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm)
        f.Show()

    End Sub

    Shared Sub OPEN_FORM(FORM As Form, PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
        Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm)
        f.Show(FORM)

    End Sub
End Class

Public Interface FormualrInterface
    Sub ChangeKDNr(kdnr As Integer)
End Interface


Public Class FormularManagerArten
    ' Implements IReadOnlyCollection(Of String)

    Shared Property DE_Vollmacht = "DE_Vollmacht"

    Shared Property DE_Fiskal = "DE_Fiskal"
    Shared Property AT_Vollmacht = "AT_Vollmacht"
    Shared Property AT_Vollmacht_EV = "AT_Vollmacht_EV"
    Shared Property AT_Fiskal = "AT_Fiskal"

    Shared Property VERAG_EXPORT = "VERAG_EXPORT"
    Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"

    Shared Property VUB_AG = "VUB_AG"
    Shared Property VUB_IMEX = "VUB_IMEX"
    Shared Property VUB_CS = "VUB_CS"
    Shared Property Importaviso_VK = "Importaviso_VK"
    Shared Property Gestellungsgarantie = "Gestellungsgarantie"
    Shared Property Verzollungspreise = "Verzollungspreise"
    Shared Property Boniteatsauskunft = "Boniteatsauskunft"
    Shared Property Sonst_PDF = "Sonst_PDF"
    Shared Property DispoListe = "DispoListe"
    Shared Property VerpflichtungserklärungFahrer = "VerpflichtungserklärungFahrer"
    Shared Property DE_InformationsblattFiskalverzollung = "DE_InformationsblattFiskalverzollung"
    Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
    Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
    Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
    Shared Property QS_UeDok = "QS_UeDok"
    Shared Property SA_Gestellung = "SA_Gestellung"
    Shared Property Importaviso = "Importaviso"
    Shared Property Verbundenheit = "Verbundenheit"

    Shared Property Sendungsliste = "Sendungsliste"



End Class



Public Class FormularVorlagenGruppe
    ' Implements IReadOnlyCollection(Of String)
    Shared Property NeukundeAT = "NeukundeAT"
    Shared Property NeukundeDE = "NeukundeDE"
    Shared Property NeukundeATFiskal = "NeukundeATFiskal"
    Shared Property NeukundeDEFiskal = "NeukundeDEFiskal"


    Shared Property NeukundeAT_IMEX = "NeukundeAT_IMEX"
    Shared Property NeukundeDE_IMEX = "NeukundeDE_IMEX"
    Shared Property NeukundeATFiskal_IMEX = "NeukundeATFiskal_IMEX"
    Shared Property NeukundeDEFiskal_IMEX = "NeukundeDEFiskal_IMEX"
End Class

Public NotInheritable Class FormularManagerArten2
    Inherits System.Object

    Shared Property DE_Vollmacht = "DE_Vollmacht"

End Class

'Member von System.Windows.Forms