Verzollungspreise weitere Sprache Englisch
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -150,11 +150,417 @@
|
||||
|
||||
|
||||
Sub initPreisliste()
|
||||
|
||||
Dim formManager As New SDL.frmFormulare
|
||||
|
||||
Dim cnt = 1
|
||||
cboFirma.changeItem("AG")
|
||||
|
||||
DataGridView.Rows.Clear()
|
||||
dgvZusatzleistung.Rows.Clear()
|
||||
|
||||
Select Case MyComboBoxSprache._value
|
||||
Case "EN"
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
Select Case MyComboBox1._value
|
||||
Case "VZ"
|
||||
' Translated English code
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request")
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(24).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
Case "VZ_EV_EN"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request")
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(24).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
|
||||
|
||||
Case "VZ_FISKAL"
|
||||
DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
|
||||
Case "VZ_FISKAL_DE"
|
||||
DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
|
||||
Case "VZ_SPECIAL_1"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
|
||||
Case "VZ_SPECIAL_2"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
|
||||
Case "EUST"
|
||||
DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
End Select
|
||||
Case "AMBAR"
|
||||
Select Case MyComboBox1._value
|
||||
Case "VZ"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2"))
|
||||
' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(37).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "VERAG Goods Location", CDbl(60).ToString("C2"))
|
||||
|
||||
Case "VZ_RW"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs Clearance (incl. 1 tariff number)", CDbl(169).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(7.5).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
|
||||
|
||||
Case "VZ_FISKAL_DE"
|
||||
DataGridView.Rows.Add(cnt, "", "Fiscal Customs Clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(8).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "498", "Request Corrected Invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr")
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2"))
|
||||
|
||||
Case "T1_EN"
|
||||
DataGridView.Rows.Add(cnt, "", "T1/T2 Clearance", CDbl(60).ToString("C2")) : cnt += 1
|
||||
|
||||
Case "VZ_SPECIAL_1" ' "Customs Clearance Vegetables, Pharmaceuticals, Food"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs Clearance Vegetables, Pharmaceuticals, Food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(18).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2"))
|
||||
' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(17).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
|
||||
Case "VZ_SPECIAL_2" ' "Customs Clearance Bakery Products"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs Clearance Bakery Products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(25).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2"))
|
||||
' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(17).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
|
||||
Case "EUST"
|
||||
DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2"))
|
||||
End Select
|
||||
|
||||
Case "ATILLA"
|
||||
Case Else 'VERAG
|
||||
Select Case MyComboBox1._value
|
||||
Case "VZ"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(20).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
|
||||
Case "VZ_EV"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request")
|
||||
dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%")
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
|
||||
cboFirma.changeItem("CS")
|
||||
|
||||
Case "VZ_FISKAL"
|
||||
DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
|
||||
cboFirma.changeItem("CS")
|
||||
|
||||
Case "VZ_FISKAL_DE"
|
||||
DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
|
||||
cboFirma.changeItem("AG")
|
||||
|
||||
Case "VZ_SPECIAL_1" ' "VZ Vegetables, Pharmaceuticals, Food"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(18).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
|
||||
Case "VZ_SPECIAL_2" ' "VZ Food Bakery Products"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance for bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(25).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min")
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2"))
|
||||
dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2"))
|
||||
'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2"))
|
||||
|
||||
Case "EUST"
|
||||
DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1
|
||||
|
||||
dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2"))
|
||||
|
||||
cboFirma.changeItem("AG")
|
||||
|
||||
Case "HANDLING"
|
||||
'DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "345", "Handling/own declaration", CDbl(30).ToString("C2")) : cnt += 1
|
||||
dgvZusatzleistung.Rows.Add("", "345", "Notification fee (only if truck is not pre-notified)", CDbl(15).ToString("C2"))
|
||||
|
||||
cboFirma.changeItem("AG")
|
||||
|
||||
Case "PRIVAT"
|
||||
DataGridView.Rows.Add(cnt, "", "Customs clearance all-in") : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Items 1-10", CDbl(200).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Items 11-20", CDbl(250).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "Items 21-30", CDbl(300).ToString("C2")) : cnt += 1
|
||||
DataGridView.Rows.Add(cnt, "", "And so on") : cnt += 1
|
||||
|
||||
cboFirma.changeItem("AG")
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
Select Case MyComboBox1._value
|
||||
@@ -642,6 +1048,7 @@
|
||||
|
||||
End Select
|
||||
End Select
|
||||
End Select
|
||||
|
||||
DataGridView.ClearSelection()
|
||||
End Sub
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user