From bc361f6d7af49cbe9294dfa8fc8afdb404d45fd7 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 4 Feb 2026 08:24:49 +0100 Subject: [PATCH] Verzollungspreise, RMC, etc. --- .../usrcntlVerzollungspreise.Designer.vb | 19 +- .../usrcntlVerzollungspreise.vb | 1908 +++++++++-------- SDL/mdm/frmMDMDatenverarbetiung.vb | 89 +- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 121 +- SDL/mdm/usrCntlMDMAuswertungen.vb | 34 +- VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb | 41 +- .../frmMitarbeitersuche.vb | 2 +- 8 files changed, 1277 insertions(+), 939 deletions(-) diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb index 59cace15..109ec474 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrcntlVerzollungspreise Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class usrcntlVerzollungspreise 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.lblVollmachtDE = New System.Windows.Forms.Label() Me.pic = New System.Windows.Forms.PictureBox() @@ -48,6 +48,7 @@ Partial Class usrcntlVerzollungspreise Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox() Me.Label1 = New System.Windows.Forms.Label() Me.MyComboBoxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxAusDB = New System.Windows.Forms.CheckBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvZusatzleistung, System.ComponentModel.ISupportInitialize).BeginInit() @@ -309,12 +310,23 @@ Partial Class usrcntlVerzollungspreise Me.MyComboBoxSprache.Size = New System.Drawing.Size(144, 21) Me.MyComboBoxSprache.TabIndex = 39 ' + 'cbxAusDB + ' + Me.cbxAusDB.AutoSize = True + Me.cbxAusDB.Location = New System.Drawing.Point(243, 13) + Me.cbxAusDB.Name = "cbxAusDB" + Me.cbxAusDB.Size = New System.Drawing.Size(61, 17) + Me.cbxAusDB.TabIndex = 40 + Me.cbxAusDB.Text = "aus DB" + Me.cbxAusDB.UseVisualStyleBackColor = True + ' 'usrcntlVerzollungspreise ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.cbxAusDB) Me.Controls.Add(Me.MyComboBoxSprache) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung) @@ -368,4 +380,5 @@ Partial Class usrcntlVerzollungspreise Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox Friend WithEvents Label1 As Label Friend WithEvents MyComboBoxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents cbxAusDB As CheckBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 0fb487e7..c394918f 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -172,1064 +172,1121 @@ 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("C2")) + + Dim Bezeichnung As String = row("Beschreibung_DE") + + Select Case sprache + Case "EN" : Bezeichnung = row("Beschreibung_EN") + 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("C2")) + Dim Bezeichnung As String = row("Beschreibung_DE") + + Select Case sprache + Case "EN" : Bezeichnung = row("Beschreibung_EN") + 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 - 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(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 + If cbxAusDB.Checked Then - 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")) + Dim sqlstrHauptleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis] 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] 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, MyComboBoxSprache._value) + + + Else + + 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(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 + 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%") + 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 + 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")) + 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 + 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")) + 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 + 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")) + 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 + 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")) + 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 + 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 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("", "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 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 + 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%") + 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 + 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")) + 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 + 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")) + 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 + 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")) + 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 + 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")) + 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 + 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", "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("", "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 + 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")) + 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 + 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("", "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 "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 + 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("", "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")) + 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 + 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("", "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")) + 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 + 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 + 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 + 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("", "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 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 + 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")) + 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") + 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 + 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")) + 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") + 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 + 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")) + 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") + 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 + 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("", "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 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 + 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("", "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 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 + 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")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - cboFirma.changeItem("AG") + 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")) + 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") + 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 + 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 + cboFirma.changeItem("AG") + End Select - 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 + 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("", "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 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 + 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("", "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 + 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")) + 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" + 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 + 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("", "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" + 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 + 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("", "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 + 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("", "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")) + 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 + 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("", "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")) + 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" + 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 + 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")) + 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 + 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("", "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 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 + 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("", "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 + 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")) + 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" + 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 + 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("", "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" + 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 + 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("", "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 + 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("", "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")) + 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 + 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("", "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")) + 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" + 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 + 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")) + 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 + 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("", "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 + 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")) + 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" + 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 + 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("", "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 "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 + 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("", "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")) + 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 + 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("", "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")) + 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" + 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 + 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")) + dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) - End Select + End Select - Case "ATILLA" + 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 + 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("", "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 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 + 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")) + 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") + 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 @@ -1247,131 +1304,134 @@ ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - Case "VZ_FISKAL" + 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 + 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")) + 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") + cboFirma.changeItem("CS") - Case "VZ_FISKAL_DE" + 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 + 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")) + 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") + 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 + 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("", "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 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 + 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("", "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 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" + 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 + 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")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - cboFirma.changeItem("AG") - Case "HANDLING" + 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")) + ' 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") + cboFirma.changeItem("AG") - Case "PRIVAT" + 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 + 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") + cboFirma.changeItem("AG") + + End Select + End Select + End Select + + End If - End Select - End Select - End Select DataGridView.ClearSelection() End Sub diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index e3935333..08d09f13 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/SDL/mdm/frmMDMDatenverarbetiung.vb @@ -34,7 +34,7 @@ Public Class frmMDMDatenverarbetiung Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Select Case LIEFERANT - Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE() + Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE() : genSummenbericht_nachLeistungsNr_PLOSE() Case "ASFINAG" : genSummenbericht_ASFINAG() Case "UTA" : genSummenbericht_UTA() Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked) @@ -376,6 +376,93 @@ Public Class frmMDMDatenverarbetiung + sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0) + sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) + sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0) + + End Sub + + + AddHandler rpt.ReportFooter1.Format, Sub() + rpt.lblSumMenge.Text = sumMenge.ToString("N0") + 'rpt.lblSumPreis.Text = sumPreis.ToString("N2") + rpt.lblSumNetto.Text = sumNetto.ToString("N2") + rpt.lblSumMwst.Text = sumMWST.ToString("N2") + rpt.lblSumBrutto.Text = sumBrutto.ToString("N2") + + End Sub + + print.Viewer.LoadDocument(rpt) + print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous + print.Show() + End Sub + + Sub genSummenbericht_nachLeistungsNr_PLOSE() + Dim displayFilter = False + Dim sqlstr As String = "" + sqlstr = " SELECT count(*) Anzahl ,plp_LeistungsNr + ,sum(plose_Menge) as plose_Menge + ,sum(plose_Preis) as plose_Preis + ,sum(plose_NettobetragWaehrungAbbuchung) as plose_Nettobetrag + ,sum(plose_MWSTBetragWaehrungAbbuchung) as plose_MWSTBetrag + ,sum(plose_BruttobetragWaehrungAbbuchung) as plose_Bruttobetrag + FROM tblPLOSE_Details + INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode = plp_ProductCode + WHERE plose_DatumTransaktion BETWEEN '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "' + AND plose_Fakturiert = 0 + AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ") + group by plp_LeistungsNr + order by plp_LeistungsNr" + + + Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL") + 'DataGridView.DataSource = dt + + + Dim print As New frmPrintLayout + print.Text = "PLOSE" + + Dim rpt As New rptPLOSE_TransaktionenSumary + + rpt.DataSource = dt + + + 'If cbxProdukt.Checked Then + ' rpt.GroupHeader2.DataField = "prod_descr" + 'Else + ' rpt.GroupHeader2.Visible = False + ' rpt.GroupFooter2.Visible = False + 'End If + + + + Dim sum = 0 + rpt.lblUeberschrift.Text = "PLOSE Summenbericht nach Land " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text + rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME + 'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung + + 'Dim cnt As Integer = 0 + rpt.lblDat.Text = Now.ToLongDateString + + + Dim sumPreis As Double = 0 + Dim sumNetto As Double = 0 + Dim sumMWST As Double = 0 + Dim sumBrutto As Double = 0 + Dim sumMenge As Double = 0 + + AddHandler rpt.Detail.Format, Sub() + ' rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "") + rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "") + rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_LeistungsNr").Value, "") + rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "") + ' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "") + rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "") + rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "") + rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 2, "") + + + sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0) sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0) sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0) diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 325d3aee..21d22602 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -202,6 +202,13 @@ Partial Class usrCntlMDMAuswertungen Me.btnContractdaten = New System.Windows.Forms.Button() Me.Button15 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() + Me.GroupBox21 = New System.Windows.Forms.GroupBox() + Me.txtJahr_rechnungen = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.Label70 = New System.Windows.Forms.Label() + Me.Label71 = New System.Windows.Forms.Label() + Me.Button21 = New System.Windows.Forms.Button() + Me.Label72 = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() @@ -239,6 +246,8 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox15.SuspendLayout() Me.GroupBox14.SuspendLayout() Me.pnl.SuspendLayout() + Me.GroupBox21.SuspendLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GroupBox1 @@ -333,9 +342,9 @@ Partial Class usrCntlMDMAuswertungen Me.Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark Me.Label4.Location = New System.Drawing.Point(7, 11) Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(296, 17) + Me.Label4.Size = New System.Drawing.Size(293, 17) Me.Label4.TabIndex = 9 - Me.Label4.Text = "Wölfl Rechnungen als CSV bereitstellen" + Me.Label4.Text = "RMC Rechnungen als CSV bereitstellen" ' 'GroupBox2 ' @@ -434,11 +443,11 @@ Partial Class usrCntlMDMAuswertungen ' Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button1.Location = New System.Drawing.Point(6, 19) Me.Button1.Name = "Button1" Me.Button1.Size = New System.Drawing.Size(121, 49) Me.Button1.TabIndex = 4 - Me.Button1.Text = "CSV erstellen" Me.Button1.UseVisualStyleBackColor = True ' 'Label8 @@ -1420,6 +1429,8 @@ Partial Class usrCntlMDMAuswertungen ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.Label72) + Me.TabPage3.Controls.Add(Me.GroupBox21) Me.TabPage3.Controls.Add(Me.Label66) Me.TabPage3.Controls.Add(Me.GroupBox20) Me.TabPage3.Controls.Add(Me.UsrCntlWoelfl_IM_CSVRg1) @@ -1439,9 +1450,9 @@ Partial Class usrCntlMDMAuswertungen Me.Label66.ForeColor = System.Drawing.SystemColors.ControlDarkDark Me.Label66.Location = New System.Drawing.Point(9, 136) Me.Label66.Name = "Label66" - Me.Label66.Size = New System.Drawing.Size(347, 17) + Me.Label66.Size = New System.Drawing.Size(344, 17) Me.Label66.TabIndex = 15 - Me.Label66.Text = "Wölfl Rechnungen Bearbeitungsbetrag Quartal" + Me.Label66.Text = "RMC Rechnungen Bearbeitungsbetrag Quartal" ' 'GroupBox20 ' @@ -1581,17 +1592,17 @@ Partial Class usrCntlMDMAuswertungen ' Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button20.Image = Global.SDL.My.Resources.Resources.Excel_logo Me.Button20.Location = New System.Drawing.Point(6, 19) Me.Button20.Name = "Button20" Me.Button20.Size = New System.Drawing.Size(121, 49) Me.Button20.TabIndex = 4 - Me.Button20.Text = "CSV erstellen" Me.Button20.UseVisualStyleBackColor = True ' 'UsrCntlWoelfl_IM_CSVRg1 ' Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White - Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(12, 292) + Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 421) Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1" Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97) Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10 @@ -2254,6 +2265,92 @@ Partial Class usrCntlMDMAuswertungen Me.pnl.Size = New System.Drawing.Size(1057, 54) Me.pnl.TabIndex = 26 ' + 'GroupBox21 + ' + Me.GroupBox21.Controls.Add(Me.txtJahr_rechnungen) + Me.GroupBox21.Controls.Add(Me.PictureBox8) + Me.GroupBox21.Controls.Add(Me.Label70) + Me.GroupBox21.Controls.Add(Me.Label71) + Me.GroupBox21.Controls.Add(Me.Button21) + Me.GroupBox21.Location = New System.Drawing.Point(6, 283) + Me.GroupBox21.Name = "GroupBox21" + Me.GroupBox21.Size = New System.Drawing.Size(697, 111) + Me.GroupBox21.TabIndex = 18 + Me.GroupBox21.TabStop = False + ' + 'txtJahr_rechnungen + ' + Me.txtJahr_rechnungen._DateTimeOnly = False + Me.txtJahr_rechnungen._numbersOnly = False + Me.txtJahr_rechnungen._numbersOnlyKommastellen = "" + Me.txtJahr_rechnungen._numbersOnlyTrennzeichen = True + Me.txtJahr_rechnungen._Prozent = False + Me.txtJahr_rechnungen._ShortDateNew = False + Me.txtJahr_rechnungen._ShortDateOnly = False + Me.txtJahr_rechnungen._TimeOnly = False + Me.txtJahr_rechnungen._TimeOnly_Seconds = False + Me.txtJahr_rechnungen._value = "" + Me.txtJahr_rechnungen._Waehrung = False + Me.txtJahr_rechnungen._WaehrungZeichen = True + Me.txtJahr_rechnungen.ForeColor = System.Drawing.Color.Black + Me.txtJahr_rechnungen.Location = New System.Drawing.Point(185, 47) + Me.txtJahr_rechnungen.MaxLineLength = -1 + Me.txtJahr_rechnungen.MaxLines_Warning = "" + Me.txtJahr_rechnungen.MaxLines_Warning_Label = Nothing + Me.txtJahr_rechnungen.Name = "txtJahr_rechnungen" + Me.txtJahr_rechnungen.Size = New System.Drawing.Size(53, 20) + Me.txtJahr_rechnungen.TabIndex = 13 + ' + 'PictureBox8 + ' + Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.woelfl + Me.PictureBox8.Location = New System.Drawing.Point(640, 8) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(51, 37) + Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom + Me.PictureBox8.TabIndex = 11 + Me.PictureBox8.TabStop = False + ' + 'Label70 + ' + Me.Label70.AutoSize = True + Me.Label70.Location = New System.Drawing.Point(145, 50) + Me.Label70.Name = "Label70" + Me.Label70.Size = New System.Drawing.Size(27, 13) + Me.Label70.TabIndex = 8 + Me.Label70.Text = "Jahr" + ' + 'Label71 + ' + Me.Label71.AutoSize = True + Me.Label71.Location = New System.Drawing.Point(145, 19) + Me.Label71.Name = "Label71" + Me.Label71.Size = New System.Drawing.Size(277, 13) + Me.Label71.TabIndex = 5 + Me.Label71.Text = "RMC-Rechnungen ohne zugehörigen Kunden im System." + ' + 'Button21 + ' + Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button21.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button21.Location = New System.Drawing.Point(6, 19) + Me.Button21.Name = "Button21" + Me.Button21.Size = New System.Drawing.Size(121, 49) + Me.Button21.TabIndex = 4 + Me.Button21.UseVisualStyleBackColor = True + ' + 'Label72 + ' + Me.Label72.AutoSize = True + Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label72.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label72.Location = New System.Drawing.Point(9, 267) + Me.Label72.Name = "Label72" + Me.Label72.Size = New System.Drawing.Size(238, 17) + Me.Label72.TabIndex = 19 + Me.Label72.Text = "RMC Rechnungen ohne Kunden" + ' 'usrCntlMDMAuswertungen ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -2326,6 +2423,9 @@ Partial Class usrCntlMDMAuswertungen Me.GroupBox14.PerformLayout() Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + Me.GroupBox21.ResumeLayout(False) + Me.GroupBox21.PerformLayout() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -2508,4 +2608,11 @@ Partial Class usrCntlMDMAuswertungen Friend WithEvents txtLeistungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxNurUnter50EUR As CheckBox + Friend WithEvents Label72 As Label + Friend WithEvents GroupBox21 As GroupBox + Friend WithEvents txtJahr_rechnungen As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents PictureBox8 As PictureBox + Friend WithEvents Label70 As Label + Friend WithEvents Label71 As Label + Friend WithEvents Button21 As Button End Class diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 53531a4b..a82479c9 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -1542,12 +1542,44 @@ Public Class usrCntlMDMAuswertungen Catch ex As System.Exception - MsgBox(ex.Message & ex.StackTrace) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Me.Cursor = Cursors.Default End Sub + + Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click + + Try + + + Me.Cursor = Cursors.WaitCursor + + Dim Jahr As Integer = Now().Year + + If txtJahr_rechnungen.Text <> "" AndAlso IsNumeric(txtJahr_rechnungen.Text) AndAlso txtJahr_rechnungen.Text.Length = 4 Then + Jahr = txtJahr.Text + End If + + Dim rmc As cRMC + Dim dt = rmc.getRMCBelegeOhneRechnungen(New VERAG_PROG_ALLGEMEIN.SQL, Jahr) + + If dt.Rows.Count > 0 Then + cProgramFunctions.genExcelFromDT_NEW(dt) + Else + MsgBox("keine Daten für ausgewählten Zeitraum") + End If + + + Catch ex As System.Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + Me.Cursor = Cursors.Default + + + End Sub End Class diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb index 51525788..7aee3af3 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb @@ -314,7 +314,7 @@ Public Class cAdressen Try Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False) - Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND (WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr = " & woelflKdNr & ") " & IIf(isWoelfKdNr, " AND AdressenNr LIKE '15%'", ""), conn) + Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND (WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr = " & woelflKdNr & ") " & IIf(isWoelfKdNr, " AND (AdressenNr LIKE '15%' or AdressenNr LIKE '18%')", ""), conn) Dim dr = cmd.ExecuteReader() If dr.Read Then diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb index 04112f00..090b3f6b 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb @@ -332,6 +332,45 @@ Public Class cRMC + End Function + + + + Public Shared Function getRMCBelegeOhneRechnungen(SQL As SQL, jahr As Integer) As DataTable + + + + + Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Bearbeitungsbetrag' from (SELECT + USTVA.UStVAn_KuNr as KundenNr, + USTVA.UStVAn_Name as Kundenname, + [Länderverzeichnis für die Außenhandelsstatistik].LandKz as LandKZ, + YEAR(R.Abfertigungsdatum) AS Jahr, + DATEPART(QUARTER, R.Abfertigungsdatum) AS Quartal, + POS.LeistungsNr, + SUM(POS.SteuerfreierBetrag + POS.SteuerpflichtigerBetrag) AS Betrag + FROM tblUStVAntrag AS USTVA + INNER JOIN Rechnungsausgang AS R ON R.FilialenNr = USTVA.FilialenNr AND R.AbfertigungsNr = USTVA.AbfertigungsNr + INNER JOIN RechnungsausgangPositionen AS POS ON R.RK_ID = POS.RK_ID + INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr + + GROUP BY + USTVA.UStVAn_KuNr, + USTVA.UStVAn_Name, + [Länderverzeichnis für die Außenhandelsstatistik].LandKz, + YEAR(R.Abfertigungsdatum), + DATEPART(QUARTER, R.Abfertigungsdatum), + POS.LeistungsNr + ) as Temp + WHERE 1 = 1 " & IIf(jahr > 0, " AND temp.Quartal = " & jahr, "") & " + Group by Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal" + + Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL") + + Return dt + + + End Function Public Class Paramter @@ -341,7 +380,7 @@ Public Class cRMC Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='RMC' AND [Param_name]='" & tcParam_name & "' AND Param_testsystem = " & IIf(TESTSYSTEM, 1, 0), , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) - End Function + End Function Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb index d257bfae..9386fa2f 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb @@ -34,7 +34,7 @@ Public Class frmMitarbeitersuche Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load pnl.Visible = False If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then - MsgBox("Noch nicht verfügbar!") + MsgBox("keine Berechtigung für MA-Verzeichnis!") Me.Close() Exit Sub End If