Public Class usrcntlVerzollungspreise
    Implements FormualrInterface
    'IMPORTAVISO_AG
    Public Event CHANGED(name, value)
    Public Event KDNR_CHANGED(kdnr)
    Public Event DELETE(c As Control)
    Public Event LOADED()
    Public Event MOVE_UP(c As Control)
    Public Event MOVE_DOWN(c As Control)

    Public KdNR As Integer = -1
    Public Sub ChangeKDNr(kdnr As Integer) _
       Implements FormualrInterface.ChangeKDNr
        initKdNR(kdnr)
    End Sub

    'Dim KdNR As Integer = -1
    Sub initControlsHandler()
        For Each c In Me.Controls
            Select Case c.GetType.ToString
                Case GetType(VERAG_PROG_ALLGEMEIN.MyTextBox).ToString
                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyTextBox).Leave, Sub()
                                                                                        RaiseEvent CHANGED(c.name, c.text)
                                                                                    End Sub
                Case GetType(VERAG_PROG_ALLGEMEIN.MyComboBox).ToString
                    AddHandler DirectCast(c, VERAG_PROG_ALLGEMEIN.MyComboBox).SelectedIndexChanged, Sub()
                                                                                                        RaiseEvent CHANGED(c.name, c._value)
                                                                                                    End Sub
                Case GetType(TextBox).ToString
                    AddHandler DirectCast(c, TextBox).Leave, Sub()
                                                                 RaiseEvent CHANGED(c.name, c.text)
                                                             End Sub
            End Select
        Next

      
    End Sub


    Private Sub btn_Click(sender As Object, e As EventArgs)
        Dim kdsrch As New SDL.frmKundenSuche
        'Panel1.Enabled = False
        If kdsrch.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
            If IsNumeric(kdsrch.kundenNrSearch.Text) Then
                initKdNR(kdsrch.kundenNrSearch.Text)
                RaiseEvent KDNR_CHANGED(KdNR)
            End If
        End If
        '  Panel1.Enabled = True
    End Sub

    Public Sub initKdNR(KdNR)

        Me.KdNR = KdNR
        Exit Sub
        Dim KUNDE As New VERAG_PROG_ALLGEMEIN.cKunde(KdNR)
        Dim ADRESSE As New VERAG_PROG_ALLGEMEIN.cAdressen(KdNR)
    End Sub


    Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
        RaiseEvent DELETE(Me)
    End Sub

    Private Sub btnup_Click(sender As Object, e As EventArgs) Handles btnUp.Click
        RaiseEvent MOVE_UP(Me)
    End Sub

    Private Sub btnDown_Click(sender As Object, e As EventArgs) Handles btnDown.Click
        RaiseEvent MOVE_DOWN(Me)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

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

        initControlsHandler()
        MyComboBox1.Items.Clear()

        Dim SQLWhere As String = " WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' and Aktiv = 1 "

        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" AndAlso Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then
            SQLWhere &= " AND NOT TarifCode like '%FISKAL%'"
        End If

        MyComboBox1.fillWithSQL("SELECT TarifCode, Bezeichnung FROM tblVZPreislistentypen " & SQLWhere, False, "FMZOLL")

        Select Case 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")
                '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 "ATILLA"
                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "ATILLA"))
                cboFirma.changeItem("ATILLA")
            Case "AMBAR"
                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR"))
                cboFirma.changeItem("AMBAR")
                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ"))
                '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("Verzollung Rückware", "VZ_RW"))
                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE"))
                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ"))
                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST"))
            Case Else
                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG"))
                cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS"))
                cboFirma.changeItem("AG")
                '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("nur EUST", "EUST"))
                '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"))

                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


                If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then
                    cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "LTD"))
                End If
                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
                'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT"))
                MyComboBox1.changeItem("VZ")
        End Select


        initPreisliste()

        If KdNR > 0 Then initKdNR(KdNR)

        RaiseEvent LOADED()
    End Sub

    Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
        FormularManagerNEU.genPDF(Me, True)
    End Sub



    Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click
        initPreisliste()
    End Sub


    Private Sub loadDGV(dtHauptleistungen As DataTable, dtZusatzleistungen As DataTable, sprache As String)

        DataGridView.Rows.Clear()
        dgvZusatzleistung.Rows.Clear()

        Dim couter As Integer = 1
        For Each row As DataRow In dtHauptleistungen.Rows

            Dim preisText As String = If(row.IsNull("Preis"), "", CDbl(row("Preis")).ToString("N2"))

            Dim Bezeichnung As String = row("Beschreibung_DE")

            Select Case sprache
                Case "EN"
                    Bezeichnung = row("Beschreibung_EN")
                    preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit")
                Case Else
                    preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit_DE")
            End Select

            DataGridView.Rows.Add(row("PositionsNr"), row("LeistungsCode"), Bezeichnung, preisText) : couter += 1


        Next

        couter = 1
        For Each row As DataRow In dtZusatzleistungen.Rows


            Dim preisText As String = If(row.IsNull("Preis"), "", CDbl(row("Preis")).ToString("N2"))
            Dim Bezeichnung As String = row("Beschreibung_DE")

            Select Case sprache
                Case "EN"
                    Bezeichnung = row("Beschreibung_EN")
                    preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit")
                Case Else
                    preisText &= IIf(preisText <> "", " ", "") & row("Preiseinheit_DE")
            End Select

            dgvZusatzleistung.Rows.Add("", row("LeistungsCode"), Bezeichnung, preisText) : couter += 1


        Next



    End Sub

    'ab 24 .02.2025
    Sub initPreisliste()

        Dim formManager As New SDL.frmFormulare
        Dim cnt As Integer = 1

        cboFirma.changeItem("AG")


        If cbxAusDB.Checked Then


            Dim sqlstrHauptleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE]  FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'HAUPT' AND AKTIV = 1 ORDER BY PositionsNr;"
            Dim sqlstrZusatzleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis],  [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'ZUSATZ' AND AKTIV = 1 ORDER BY Beschreibung_DE;"

            Dim dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL")
            Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL")

            loadDGV(dtHaupt, dtZusatz, cboSprache._value)


        Else

            DataGridView.Rows.Clear()
            dgvZusatzleistung.Rows.Clear()

            Select Case cboSprache._value
                Case "EN"
                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                        Case "IMEX"
                            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
                                    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
                                    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 "AMBAR"
                            Select Case MyComboBox1._value
                                Case "VZ"
                                    DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).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("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
                                    dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(37).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("", "", "Transit T1", CDbl(15).ToString("C2"))
            'dgvZusatzleistung.Rows.Add("", "", "VERAG Goods Location", CDbl(60).ToString("C2"))

                                Case "VZ_RW"
                                    DataGridView.Rows.Add(cnt, "", "Customs Clearance (incl. 1 tariff number)", CDbl(169).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(7.5).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
                                    dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", 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(12).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(8).ToString("C2")) : cnt += 1

                                    dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "498", "Request Corrected Invoice", CDbl(25).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
                                    dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
            'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2"))

                                Case "T1_EN"
                                    DataGridView.Rows.Add(cnt, "", "T1/T2 Clearance", CDbl(60).ToString("C2")) : cnt += 1

                                Case "VZ_SPECIAL_1" ' "Customs Clearance Vegetables, Pharmaceuticals, Food"
                                    DataGridView.Rows.Add(cnt, "", "Customs Clearance 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, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).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 Return Goods Clearance/Active Processing", CDbl(17).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))

                                Case "VZ_SPECIAL_2" ' "Customs Clearance Bakery Products"
                                    DataGridView.Rows.Add(cnt, "", "Customs Clearance 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, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).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 Return Goods Clearance/Active Processing", CDbl(17).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))

                                Case "EUST"
                                    DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
                            End Select

                        Case "ATILLA"
                        Case Else 'VERAG
                            Select Case MyComboBox1._value
                                Case "VZ"
                                    DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Per 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 (on import duties)", "") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on 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("", "", "Neutralization", CDbl(15).ToString("C2"))

                                    dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
                                    dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
                                'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))

                                Case "VZ_EV"
                                    DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Per 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
                                    'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
                                    'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
                                    'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).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 note", CDbl(25).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
                                    dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
                                    'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))

                                    cboFirma.changeItem("CS")

                                Case "VZ_FISKAL"
                                    DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Per 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("", "", "Neutralization", CDbl(15).ToString("C2"))
                                    'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
                                    'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
                                    'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).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 note", 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"))
                                    'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))

                                    cboFirma.changeItem("CS")

                                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, "", "Per 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
                                    'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
                                    'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
                                    'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).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("", "", "CMR dispatch note", 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("", "", "Neutralization", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
                                    'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))

                                    cboFirma.changeItem("AG")

                                Case "VZ_SPECIAL_1" ' "VZ Vegetables, Pharmaceuticals, Food"
                                    DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Per 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 (on import duties)", "") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on 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"))
                                'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))

                                Case "VZ_SPECIAL_2" ' "VZ Food Bakery Products"
                                    DataGridView.Rows.Add(cnt, "", "Customs clearance for bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Per 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 (on import duties)", "") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on 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"))
                                'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
                                'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).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 (on import duties)", "") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1

                                    dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))

                                    cboFirma.changeItem("AG")

                                Case "HANDLING"
                                    'DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "345", "Handling/own declaration", CDbl(30).ToString("C2")) : cnt += 1
                                    dgvZusatzleistung.Rows.Add("", "345", "Notification fee (only if truck is not pre-notified)", CDbl(15).ToString("C2"))

                                    cboFirma.changeItem("AG")

                                Case "PRIVAT"
                                    DataGridView.Rows.Add(cnt, "", "Customs clearance all-in") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Items 1-10", CDbl(200).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Items 11-20", CDbl(250).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Items 21-30", CDbl(300).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "And so on") : cnt += 1

                                    cboFirma.changeItem("AG")
                            End Select

                    End Select

                Case Else
                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                        Case "IMEX"
                            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 "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
                                Case "VZ"
                                    DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).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("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.")
                                    dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(37).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_RW" ' 
                                    DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(169).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.")
                                    dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))

                                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(12).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1

                                    dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.")
                                    dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
                        'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))

                       ' cboFirma.changeItem("AG")

                                Case "T1"
                                    DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1

                                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, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).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(17).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))

                                Case "VZ_SPECIAL_2" '"VZ Backwaren"
                                    DataGridView.Rows.Add(cnt, "", "Verzollung 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, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).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(17).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))

                                Case "EUST"

                                    DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))


                            End Select

                        Case "ATILLA"

                        Case Else 'VERAG
                            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", CDbl(15).ToString("C2"))

                                    dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).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("", "", "Stornokosten", "50 %")
                        '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("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
                                    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(93).ToString("C2")) : cnt += 1
                    '    DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1
                    '    DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
                    '    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
                    '    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
                    '    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).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", "Clearingkosten (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("", "", "VERAG Warenort", CDbl(60).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
                                    '   dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
                                    '   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("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).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("", "", "Neutralisierung", CDbl(15).ToString("C2"))
                                    dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel"
                                    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("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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 "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"))

                                    cboFirma.changeItem("AG")
                                Case "HANDLING"

                                    '  DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(30).ToString("C2")) : cnt += 1
                                    dgvZusatzleistung.Rows.Add("", "345", "Avisogebühr (nur wenn LKW nicht voravisiert)", CDbl(15).ToString("C2"))

                                    cboFirma.changeItem("AG")

                                Case "PRIVAT"

                                    DataGridView.Rows.Add(cnt, "", "Verzollung All in ") : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Pos 1-10", CDbl(200).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Pos 11-20", CDbl(250).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Pos 21-30", CDbl(300).ToString("C2")) : cnt += 1
                                    DataGridView.Rows.Add(cnt, "", "Usw.") : cnt += 1

                                    cboFirma.changeItem("AG")

                            End Select
                    End Select
            End Select

        End If


        DataGridView.ClearSelection()
    End Sub

    'Sub initPreisliste() bis 23.02.2025

    '    Dim formManager As New SDL.frmFormulare

    '    Dim cnt = 1
    '    cboFirma.changeItem("AG")

    '    DataGridView.Rows.Clear()
    '    dgvZusatzleistung.Rows.Clear()

    '    Select Case MyComboBoxSprache._value
    '        Case "EN"
    '            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
    '                Case "IMEX"
    '                    Select Case MyComboBox1._value
    '                        Case "VZ"
    '                            ' Translated English code
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).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(20).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(24).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(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).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(20).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(24).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")

    '                        Case "VZ_FISKAL"
    '                            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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).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 "AMBAR"
    '                    Select Case MyComboBox1._value
    '                        Case "VZ"
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).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("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
    '                            dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(37).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("", "", "Transit T1", CDbl(15).ToString("C2"))
    '        'dgvZusatzleistung.Rows.Add("", "", "VERAG Goods Location", CDbl(60).ToString("C2"))

    '                        Case "VZ_RW"
    '                            DataGridView.Rows.Add(cnt, "", "Customs Clearance (incl. 1 tariff number)", CDbl(169).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
    '                            dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", 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(12).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(8).ToString("C2")) : cnt += 1

    '                            dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "498", "Request Corrected Invoice", CDbl(25).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
    '                            dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
    '        'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2"))

    '                        Case "T1_EN"
    '                            DataGridView.Rows.Add(cnt, "", "T1/T2 Clearance", CDbl(60).ToString("C2")) : cnt += 1

    '                        Case "VZ_SPECIAL_1" ' "Customs Clearance Vegetables, Pharmaceuticals, Food"
    '                            DataGridView.Rows.Add(cnt, "", "Customs Clearance 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, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).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 Return Goods Clearance/Active Processing", CDbl(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))

    '                        Case "VZ_SPECIAL_2" ' "Customs Clearance Bakery Products"
    '                            DataGridView.Rows.Add(cnt, "", "Customs Clearance 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, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).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 Return Goods Clearance/Active Processing", CDbl(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))

    '                        Case "EUST"
    '                            DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).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", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
    '                    End Select

    '                Case "ATILLA"
    '                Case Else 'VERAG
    '                    Select Case MyComboBox1._value
    '                        Case "VZ"
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on 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("", "", "Neutralization", CDbl(15).ToString("C2"))

    '                            dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
    '                            dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
    '                            'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))

    '                        Case "VZ_EV"
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).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 note", CDbl(25).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
    '                            dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
    '                            'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))

    '                            cboFirma.changeItem("CS")

    '                        Case "VZ_FISKAL"
    '                            DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            'dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
    '                            'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).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 note", 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"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))

    '                            cboFirma.changeItem("CS")

    '                        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, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
    '                            'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).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("", "", "CMR dispatch note", 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("", "", "Neutralization", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))

    '                            cboFirma.changeItem("AG")

    '                        Case "VZ_SPECIAL_1" ' "VZ Vegetables, Pharmaceuticals, Food"
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(18).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on 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"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))

    '                        Case "VZ_SPECIAL_2" ' "VZ Food Bakery Products"
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance for bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(25).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on 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"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
    '                            'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))

    '                        Case "EUST"
    '                            DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1

    '                            dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))

    '                            cboFirma.changeItem("AG")

    '                        Case "HANDLING"
    '                            'DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "345", "Handling/own declaration", CDbl(30).ToString("C2")) : cnt += 1
    '                            dgvZusatzleistung.Rows.Add("", "345", "Notification fee (only if truck is not pre-notified)", CDbl(15).ToString("C2"))

    '                            cboFirma.changeItem("AG")

    '                        Case "PRIVAT"
    '                            DataGridView.Rows.Add(cnt, "", "Customs clearance all-in") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Items 1-10", CDbl(200).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Items 11-20", CDbl(250).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Items 21-30", CDbl(300).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "And so on") : cnt += 1

    '                            cboFirma.changeItem("AG")
    '                    End Select

    '            End Select

    '        Case Else
    '            Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
    '                Case "IMEX"
    '                    Select Case MyComboBox1._value
    '                        Case "VZ"
    '                            DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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(20).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(24).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")

    '                            dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).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(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).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(20).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(24).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(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(132).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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(20).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(24).ToString("C2"))

    '                        Case "VZ_FISKAL"

    '                            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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).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(20).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(24).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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(20).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(24).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).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(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).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(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2"))

    '                        Case "EUST"

    '                            DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).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
    '                        Case "VZ"
    '                            DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).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("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.")
    '                            dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(37).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_RW" ' 
    '                            DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(169).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.")
    '                            dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))

    '                        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(12).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1

    '                            dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.")
    '                            dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
    '                    'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))

    '                   ' cboFirma.changeItem("AG")

    '                        Case "T1"
    '                            DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1

    '                        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, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).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(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))

    '                        Case "VZ_SPECIAL_2" '"VZ Backwaren"
    '                            DataGridView.Rows.Add(cnt, "", "Verzollung 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, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).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(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))

    '                        Case "EUST"

    '                            DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2"))


    '                    End Select

    '                Case "ATILLA"

    '                Case Else 'VERAG
    '                    Select Case MyComboBox1._value
    '                        Case "VZ"
    '                            DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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", CDbl(15).ToString("C2"))

    '                            dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).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("", "", "Stornokosten", "50 %")
    '                    '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(112).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).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", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
    '                            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(93).ToString("C2")) : cnt += 1
    '                '    DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1
    '                '    DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1
    '                '    DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
    '                '    DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                '    DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).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", "Clearingkosten (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("", "", "VERAG Warenort", CDbl(60).ToString("C2"))

    '                        Case "VZ_FISKAL"

    '                            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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1
    '                            '   dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
    '                            '   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("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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("", "", "Neutralisierung", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel"
    '                            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(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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(17).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
    '                            dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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 "EUST"

    '                            DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).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"))

    '                            cboFirma.changeItem("AG")
    '                        Case "HANDLING"

    '                            '  DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(30).ToString("C2")) : cnt += 1
    '                            dgvZusatzleistung.Rows.Add("", "345", "Avisogebühr (nur wenn LKW nicht voravisiert)", CDbl(15).ToString("C2"))

    '                            cboFirma.changeItem("AG")

    '                        Case "PRIVAT"

    '                            DataGridView.Rows.Add(cnt, "", "Verzollung All in ") : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Pos 1-10", CDbl(200).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Pos 11-20", CDbl(250).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Pos 21-30", CDbl(300).ToString("C2")) : cnt += 1
    '                            DataGridView.Rows.Add(cnt, "", "Usw.") : cnt += 1

    '                            cboFirma.changeItem("AG")

    '                    End Select
    '            End Select
    '    End Select

    '    DataGridView.ClearSelection()
    'End Sub

    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim zoll As New SDL.frmKundenUebersichtZOLL
        zoll.Show()
    End Sub


    Private Sub DataGridView_UserAddedRow(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.UserAddedRow
        initRowNr()
    End Sub

    Private Sub DataGridView_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.UserDeletedRow
        initRowNr()
    End Sub

    Sub initRowNr()
        Dim cnt = 1
        For Each r As DataGridViewRow In DataGridView.Rows
            If r.Index = DataGridView.Rows.Count - 1 Then Exit Sub
            r.Cells("Pos").Value = cnt
            cnt += 1
        Next
    End Sub

    Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
        btnStandardPreiseLaden.PerformClick()
    End Sub

    Private Sub MyComboBoxSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSprache.SelectedIndexChanged
        initPreisliste()
    End Sub
End Class
