diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb index c863000a..59cace15 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb @@ -46,6 +46,8 @@ Partial Class usrcntlVerzollungspreise Me.ZLeistung = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.ZPreis = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.MyComboBoxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvZusatzleistung, System.ComponentModel.ISupportInitialize).BeginInit() @@ -190,10 +192,12 @@ Partial Class usrcntlVerzollungspreise Me.txtZahlunsziel._DateTimeOnly = False Me.txtZahlunsziel._numbersOnly = True Me.txtZahlunsziel._numbersOnlyKommastellen = "" + Me.txtZahlunsziel._numbersOnlyTrennzeichen = True Me.txtZahlunsziel._Prozent = False Me.txtZahlunsziel._ShortDateNew = False Me.txtZahlunsziel._ShortDateOnly = False Me.txtZahlunsziel._TimeOnly = False + Me.txtZahlunsziel._TimeOnly_Seconds = False Me.txtZahlunsziel._value = "10" Me.txtZahlunsziel._Waehrung = False Me.txtZahlunsziel._WaehrungZeichen = True @@ -284,12 +288,35 @@ Partial Class usrcntlVerzollungspreise Me.cbxZollpflichtigeAbfertigung.Text = "Zollpflichtige Abfertigung" Me.cbxZollpflichtigeAbfertigung.UseVisualStyleBackColor = True ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(8, 92) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(58, 13) + Me.Label1.TabIndex = 38 + Me.Label1.Text = "Sprache:" + ' + 'MyComboBoxSprache + ' + Me.MyComboBoxSprache._allowedValuesFreiText = Nothing + Me.MyComboBoxSprache._allowFreiText = False + Me.MyComboBoxSprache._value = "" + Me.MyComboBoxSprache.FormattingEnabled = True + Me.MyComboBoxSprache.Location = New System.Drawing.Point(72, 89) + Me.MyComboBoxSprache.Name = "MyComboBoxSprache" + Me.MyComboBoxSprache.Size = New System.Drawing.Size(144, 21) + Me.MyComboBoxSprache.TabIndex = 39 + ' '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.MyComboBoxSprache) + Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung) Me.Controls.Add(Me.dgvZusatzleistung) Me.Controls.Add(Me.cboFirma) @@ -339,4 +366,6 @@ Partial Class usrcntlVerzollungspreise Friend WithEvents ZLeistung As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents ZPreis As System.Windows.Forms.DataGridViewTextBoxColumn Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox + Friend WithEvents Label1 As Label + Friend WithEvents MyComboBoxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 016d70c3..5f598e57 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -150,357 +150,763 @@ Sub initPreisliste() + + Dim formManager As New SDL.frmFormulare + Dim cnt = 1 cboFirma.changeItem("AG") DataGridView.Rows.Clear() dgvZusatzleistung.Rows.Clear() - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - Select Case MyComboBox1._value - Case "VZ" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + Select Case MyComboBoxSprache._value + Case "EN" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + Select Case MyComboBox1._value + Case "VZ" + ' Translated English code + DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request") + dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + + dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + Case "VZ_EV_EN" + DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request") + dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + + Case "VZ_FISKAL" + DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + Case "VZ_FISKAL_DE" + DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + + Case "VZ_SPECIAL_1" + DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + + Case "VZ_SPECIAL_2" + DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + + Case "EUST" + DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + End Select + Case "AMBAR" + Select Case MyComboBox1._value + Case "VZ" + DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr") + dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(37).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG Goods Location", CDbl(60).ToString("C2")) + + Case "VZ_RW" + DataGridView.Rows.Add(cnt, "", "Customs Clearance (incl. 1 tariff number)", CDbl(169).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr") + dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + + Case "VZ_FISKAL_DE" + DataGridView.Rows.Add(cnt, "", "Fiscal Customs Clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(8).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "498", "Request Corrected Invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr") + dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2")) + + Case "T1_EN" + DataGridView.Rows.Add(cnt, "", "T1/T2 Clearance", CDbl(60).ToString("C2")) : cnt += 1 + + Case "VZ_SPECIAL_1" ' "Customs Clearance Vegetables, Pharmaceuticals, Food" + DataGridView.Rows.Add(cnt, "", "Customs Clearance Vegetables, Pharmaceuticals, Food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(18).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + Case "VZ_SPECIAL_2" ' "Customs Clearance Bakery Products" + DataGridView.Rows.Add(cnt, "", "Customs Clearance Bakery Products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + Case "EUST" + DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + End Select + + Case "ATILLA" + Case Else 'VERAG + Select Case MyComboBox1._value + Case "VZ" + DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") + dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + + Case "VZ_EV" + DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") + dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + + cboFirma.changeItem("CS") + + Case "VZ_FISKAL" + DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + 'dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + + cboFirma.changeItem("CS") + + Case "VZ_FISKAL_DE" + DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + + cboFirma.changeItem("AG") + + Case "VZ_SPECIAL_1" ' "VZ Vegetables, Pharmaceuticals, Food" + DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(18).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + + Case "VZ_SPECIAL_2" ' "VZ Food Bakery Products" + DataGridView.Rows.Add(cnt, "", "Customs clearance for bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + + dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + + Case "EUST" + DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + + cboFirma.changeItem("AG") + + Case "HANDLING" + 'DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + DataGridView.Rows.Add(cnt, "345", "Handling/own declaration", CDbl(30).ToString("C2")) : cnt += 1 + dgvZusatzleistung.Rows.Add("", "345", "Notification fee (only if truck is not pre-notified)", CDbl(15).ToString("C2")) + + cboFirma.changeItem("AG") + + Case "PRIVAT" + DataGridView.Rows.Add(cnt, "", "Customs clearance all-in") : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Items 1-10", CDbl(200).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Items 11-20", CDbl(250).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Items 21-30", CDbl(300).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "And so on") : cnt += 1 + + cboFirma.changeItem("AG") + End Select + + End Select + + Case Else + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" + Select Case MyComboBox1._value + Case "VZ" + DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + Case "VZ_EV" + DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) ' cboFirma.changeItem("CS") - Case "VZ_RW" 'NICHT MEHR! - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(132).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + Case "VZ_RW" 'NICHT MEHR! + DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(132).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) - Case "VZ_FISKAL" + Case "VZ_FISKAL" - DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) ' cboFirma.changeItem("CS") - Case "VZ_FISKAL_DE" + Case "VZ_FISKAL_DE" - DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) ' cboFirma.changeItem("AG") - Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) - Case "VZ_SPECIAL_2" '"VZ Backwaren" - DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + Case "VZ_SPECIAL_2" '"VZ Backwaren" + DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) - Case "EUST" + Case "EUST" - DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + 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(112).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + Case Else 'VERAG + Select Case MyComboBox1._value + Case "VZ" + DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + Case "VZ_EV" + DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - cboFirma.changeItem("CS") + 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 @@ -518,128 +924,129 @@ ' ' 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(240).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + 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(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + 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(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 + Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" + DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel" + DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - Case "EUST" + 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", "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 @@ -672,4 +1079,8 @@ Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged btnStandardPreiseLaden.PerformClick() End Sub + + Private Sub MyComboBoxSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBoxSprache.SelectedIndexChanged + initPreisliste() + End Sub End Class diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index d1086882..e27f4d37 100644 --- a/SDL/Formulare/KDFormulare/frmFormulare.vb +++ b/SDL/Formulare/KDFormulare/frmFormulare.vb @@ -616,6 +616,10 @@ Public Class frmFormulare End If End Sub MyFlowLayoutPanel1.Controls.Add(c) + + Dim sprachen() As String = {"DE", "EN"} + c.MyComboBoxSprache.Items.Clear() + c.MyComboBoxSprache.Items.AddRange(sprachen) End If Case FormularManagerArten.Boniteatsauskunft Dim c As New usrcntlCreditreformBoniAuskunft