Preisliste UNISPED

2025-12-30 13:10:29 +01:00
parent 007e48c6d9
commit 0ce0904cee
3 changed files with 393 additions and 2 deletions
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/rptPreislisten.Designer.vb
@@ -47,6 +47,7 @@ Partial Public Class rptPreislisten
        Me.TextBox5 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.Line9 = New GrapeCity.ActiveReports.SectionReportModel.Line()
        Me.TextBox6 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
+        Me.TextBox7 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
        Me.TextBox16 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
        Me.Line = New GrapeCity.ActiveReports.SectionReportModel.Line()
@@ -77,6 +78,7 @@ Partial Public Class rptPreislisten
        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -277,7 +279,7 @@ Partial Public Class rptPreislisten
        '
        'ReportHeader1
        '
-        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6})
+        Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.txtFirmaInfo_IMEX, Me.txtFirmaInfo_ATILLA, Me.txtFirmaInfo_VERAG, Me.picVERAG, Me.Shape8, Me.TextBox8, Me.TextBox1, Me.TextBox2, Me.TextBox4, Me.TextBox5, Me.Line9, Me.TextBox6, Me.TextBox7})
        Me.ReportHeader1.Height = 2.176378!
        Me.ReportHeader1.Name = "ReportHeader1"
        '
@@ -420,6 +422,18 @@ Partial Public Class rptPreislisten
        Me.TextBox6.Visible = False
        Me.TextBox6.Width = 3.592911!
        '
+        'TextBox7
+        '
+        Me.TextBox7.Height = 0.5000001!
+        Me.TextBox7.Left = 3.120079!
+        Me.TextBox7.Name = "TextBox7"
+        Me.TextBox7.Style = "font-size: 8pt; text-align: right; vertical-align: middle; ddo-char-set: 1"
+        Me.TextBox7.Text = "A-4975 Suben" & Global.Microsoft.VisualBasic.ChrW(9) & "Tel.  +43 77 11 / 26 77-0 " & Global.Microsoft.VisualBasic.ChrW(9) & "      www.unisped.at" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Suben 15" & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & Global.Microsoft.VisualBasic.ChrW(9) & Global.Microsoft.VisualBasic.ChrW(9) & " " & Global.Microsoft.VisualBasic.ChrW(9) & "   o" &
+    "ffice@unisped.at"
+        Me.TextBox7.Top = 0!
+        Me.TextBox7.Visible = False
+        Me.TextBox7.Width = 3.592911!
+        '
        'ReportFooter1
        '
        Me.ReportFooter1.CanShrink = True
@@ -440,7 +454,7 @@ Partial Public Class rptPreislisten
        '
        'Line
        '
-        Me.Line.Height = 0.0001811981!
+        Me.Line.Height = 0.0001809597!
        Me.Line.Left = 0.02362205!
        Me.Line.LineWeight = 1.0!
        Me.Line.Name = "Line"
@@ -565,6 +579,7 @@ Partial Public Class rptPreislisten
        '
        'rptPreislisten
        '
+        Me.MasterReport = False
        Me.PageSettings.Margins.Bottom = 0.3937007!
        Me.PageSettings.Margins.Left = 0.7874016!
        Me.PageSettings.Margins.Right = 0.3937007!
@@ -600,6 +615,7 @@ Partial Public Class rptPreislisten
        CType(Me.TextBox4, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextBox5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextBox6, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.TextBox7, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextBox16, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.TextBox17, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.txtVorlageKredit, System.ComponentModel.ISupportInitialize).EndInit()
@@ -652,4 +668,5 @@ Partial Public Class rptPreislisten
    Public WithEvents txtFirmaInfo_ATILLA As GrapeCity.ActiveReports.SectionReportModel.TextBox
    Public WithEvents SubReport2 As GrapeCity.ActiveReports.SectionReportModel.SubReport
    Public WithEvents TextBox6 As GrapeCity.ActiveReports.SectionReportModel.TextBox
+    Public WithEvents TextBox7 As GrapeCity.ActiveReports.SectionReportModel.TextBox
 End Class
--- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
+++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
@@ -78,6 +78,36 @@
        initControlsHandler()

          Select VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+            Case "IMEX"
+                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
+                cboFirma.changeItem("IMEX")
+                MyComboBox1.Items.Clear()
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
+                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
+                ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
+                'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
+                ' End If
+                MyComboBox1.changeItem("VZ")
+            Case "UNISPED"
+                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED"))
+                cboFirma.changeItem("UNISPED")
+                MyComboBox1.Items.Clear()
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
+                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV"))
+                ' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
+                'If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
+                ' End If
+                MyComboBox1.changeItem("VZ")
            Case "IMEX"
                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX"))
                cboFirma.changeItem("IMEX")
@@ -270,6 +300,124 @@
                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))

+                            Case "EUST"
+                                DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                        End Select
+                    Case "UNISPED"
+                        Select Case MyComboBox1._value
+                            Case "VZ"
+                                ' Translated English code
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2"))
+                                ' dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request")
+                                dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
+                            Case "VZ_EV_EN"
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request")
+                                dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
+
+                            Case "VZ_FISKAL"
+                                DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(15).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+
+                            Case "VZ_FISKAL_DE"
+                                DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+
+                            Case "VZ_SPECIAL_1"
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+
+                            Case "VZ_SPECIAL_2"
+                                DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
+
                            Case "EUST"
                                DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
                                DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1
@@ -735,6 +883,179 @@
                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))


+                        End Select
+                    Case "UNISPED"
+                        Select Case MyComboBox1._value
+                            Case "VZ"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                               ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                        '   dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+
+                            Case "VZ_EV"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                '  DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                '  DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+                                ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                '   dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+
+                      '  cboFirma.changeItem("CS")
+                            Case "VZ_RW" 'NICHT MEHR!
+                                DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(245).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                '    dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+
+                            Case "VZ_FISKAL"
+
+                                DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(270).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(15).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+                                ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+
+                       ' cboFirma.changeItem("CS")
+
+                            Case "VZ_FISKAL_DE"
+
+                                DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                '   DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+                                ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+                                ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
+                                ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
+
+                       ' cboFirma.changeItem("AG")
+
+                            Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+
+                            Case "VZ_SPECIAL_2" '"VZ Backwaren"
+                                DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
+
+                                dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
+                                dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2"))
+
+                            Case "EUST"
+
+                                DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1
+                                DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1
+                                DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1
+
+                                dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
+
+
                        End Select
                    Case "AMBAR"
                        Select Case MyComboBox1._value
--- a/SDL/Formulare/KDFormulare/frmFormulare.vb
+++ b/SDL/Formulare/KDFormulare/frmFormulare.vb
@@ -300,6 +300,49 @@ Public Class frmFormulare
                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
                        cboVorlage.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Neukunde DE", FormularVorlagenGruppe.NeukundeDE))

+                    Case "UNISPED"
+
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht", FormularManagerArten.DE_Vollmacht))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Vollmacht (indirekt)", FormularManagerArten.DE_Vollmacht_indirekt))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DE Fiskal-Vollmacht", FormularManagerArten.DE_Fiskal))
+                        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("GB Vollmacht Import/Export", FormularManagerArten.GB_Vollmacht_IE))
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("GB Vollmacht indirekt", FormularManagerArten.GB_Vollmacht_indirekt))
+
+                        MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Export Vollmacht", FormularManagerArten.VERAG_EXPORT))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VUB", FormularManagerArten.VUB_UNISPED))
+                        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("Vollmacht FA", FormularManagerArten.Vollmacht_FA))
+
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Dispoliste", FormularManagerArten.DispoListe))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SA_Gestellung", FormularManagerArten.SA_Gestellung))
+
+                        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("EORI-Antrag", FormularManagerArten.EORI_Antrag))
+
+                        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("Qualitätskontrolle Antrag", FormularManagerArten.Qualitaetskontrolle))
+                        MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Russlandbestätigungen - Y824 / EU VO 833/2014", FormularManagerArten.Einfuhrverbot))
+                        ' 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))
                    Case Else
                        If VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = "7" Then 'SDL
                            MyListBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Vollmacht BHI", FormularManagerArten.MDM_Vollmacht_BHI))
@@ -5027,18 +5070,27 @@ Public Class FormularManagerNEU
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_IMEX.Visible = True
                    rpt.TextBox6.Visible = False
+                    rpt.TextBox7.Visible = False
                Case "AMBAR"
                    rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH"
                    rpt.picVERAG.Image = My.Resources.ambar_simple
                    rpt.txtFirmaInfo_VERAG.Visible = False
                    rpt.txtFirmaInfo_IMEX.Visible = False
                    rpt.TextBox6.Visible = True
+                    rpt.TextBox7.Visible = False
+                Case "UNISPED"
+                    rpt.txtFirmenkennung.Text = "UNISPED Speditions GmbH"
+                    rpt.picVERAG.Image = My.Resources.Unisped_logo
+                    rpt.txtFirmaInfo_VERAG.Visible = False
+                    rpt.txtFirmaInfo_IMEX.Visible = False
+                    rpt.TextBox7.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
                    rpt.TextBox6.Visible = False
+                    rpt.TextBox7.Visible = False
                Case Else 'Nix 
                    rpt.txtFirmaInfo_VERAG.Visible = True
            End Select
@@ -7071,6 +7123,7 @@ Public Class FormularManagerArten
    Shared Property VERAG_EXPORT = "VERAG_EXPORT"
    Shared Property ATILLA_EXPORT = "ATILLA_EXPORT"
    Shared Property VUB = "VUB"
+    Shared Property VUB_UNISPED = "VUB_UNISPED"
    Shared Property VUB_AG = "VUB_AG"
    Shared Property VUB_IMEX = "VUB_IMEX"
    Shared Property VUB_CS = "VUB_CS"