diff --git a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb index 86ed9321..344a0a46 100644 --- a/SDL/Fakturierung/frmFaktSammelRgDrucken.vb +++ b/SDL/Fakturierung/frmFaktSammelRgDrucken.vb @@ -59,7 +59,7 @@ Public Class frmFaktSammelRgDrucken Dim whereAbfArt = "" If cboAbfertigungsart._value <> "" Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & cboAbfertigungsart._value & "' " - Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & " + Dim sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1]," & If(Sammelrechung = 7, "AvisoId", "0") & " as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl, SUM(Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Summe" & If(Sammelrechung = 7, ",max([LKW Kennzeichen]) as LKW", "") & " ,(SELECT CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END FROM Adressen WHERE AdressenNr=Rechnungsausgang.RechnungsKundenNr ) as Rechnungsdruck FROM Rechnungsausgang WHERE Rechnungsausgang.Status IN (0,2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '" & Sammelrechung & "' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) <= '" & txtZeitraumBis._value & "' @@ -74,6 +74,9 @@ Public Class frmFaktSammelRgDrucken .Columns("RechnungsKundenNr").Width = 120 .Columns("RechnungsKundenNr").HeaderText = "KundenNr" .Columns("RechnungsName 1").HeaderText = "Firma" + .Columns("Summe").HeaderText = "Summe" + .Columns("Summe").DefaultCellStyle.Format = "#,##0.00 €" + .Columns("Summe").Width = 80 .Columns("RechnungsLandKz").Visible = False .Columns("Anzahl").Width = 42 .Columns("Rechnungsdruck").Width = 80 @@ -81,7 +84,7 @@ Public Class frmFaktSammelRgDrucken .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter .Columns(2).Visible = False - If .Columns.Count = 7 Then + If .Columns.Count = 8 Then .Columns("LKW").Width = 80 End If 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/FormulareBaukasten/usrcntlVollmacht_DE.Designer.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.Designer.vb index 7cb64cdb..387cdc47 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.Designer.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrcntlVollmacht_DE Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class usrcntlVollmacht_DE 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.lbl = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() @@ -53,6 +53,7 @@ Partial Class usrcntlVollmacht_DE Me.cboSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cbxEinmaligeVollmachtCarnetATA = New System.Windows.Forms.CheckBox() Me.txtEinmalig_CarnetATA = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.cbxVollmachtmitBefristung = New System.Windows.Forms.CheckBox() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' @@ -140,7 +141,7 @@ Partial Class usrcntlVollmacht_DE ' 'btn ' - Me.btn.BackgroundImage = Global.SDL.My.Resources.search + Me.btn.BackgroundImage = Global.SDL.My.Resources.Resources.search Me.btn.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btn.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btn.Location = New System.Drawing.Point(937, 34) @@ -163,12 +164,15 @@ Partial Class usrcntlVollmacht_DE Me.txtAnsprechpartner._DateTimeOnly = False Me.txtAnsprechpartner._numbersOnly = False Me.txtAnsprechpartner._numbersOnlyKommastellen = "" + Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True Me.txtAnsprechpartner._Prozent = False Me.txtAnsprechpartner._ShortDateNew = False Me.txtAnsprechpartner._ShortDateOnly = False Me.txtAnsprechpartner._TimeOnly = False + Me.txtAnsprechpartner._TimeOnly_Seconds = False Me.txtAnsprechpartner._value = Nothing Me.txtAnsprechpartner._Waehrung = False + Me.txtAnsprechpartner._WaehrungZeichen = True Me.txtAnsprechpartner.ForeColor = System.Drawing.Color.Black Me.txtAnsprechpartner.Location = New System.Drawing.Point(653, 9) Me.txtAnsprechpartner.MaxLineLength = -1 @@ -183,12 +187,15 @@ Partial Class usrcntlVollmacht_DE Me.txtEinmalig_RgDat._DateTimeOnly = False Me.txtEinmalig_RgDat._numbersOnly = False Me.txtEinmalig_RgDat._numbersOnlyKommastellen = "" + Me.txtEinmalig_RgDat._numbersOnlyTrennzeichen = True Me.txtEinmalig_RgDat._Prozent = False Me.txtEinmalig_RgDat._ShortDateNew = False Me.txtEinmalig_RgDat._ShortDateOnly = False Me.txtEinmalig_RgDat._TimeOnly = False + Me.txtEinmalig_RgDat._TimeOnly_Seconds = False Me.txtEinmalig_RgDat._value = Nothing Me.txtEinmalig_RgDat._Waehrung = False + Me.txtEinmalig_RgDat._WaehrungZeichen = True Me.txtEinmalig_RgDat.Enabled = False Me.txtEinmalig_RgDat.ForeColor = System.Drawing.Color.Black Me.txtEinmalig_RgDat.Location = New System.Drawing.Point(653, 162) @@ -204,12 +211,15 @@ Partial Class usrcntlVollmacht_DE Me.txtEinmalig_RgNr._DateTimeOnly = False Me.txtEinmalig_RgNr._numbersOnly = False Me.txtEinmalig_RgNr._numbersOnlyKommastellen = "" + Me.txtEinmalig_RgNr._numbersOnlyTrennzeichen = True Me.txtEinmalig_RgNr._Prozent = False Me.txtEinmalig_RgNr._ShortDateNew = False Me.txtEinmalig_RgNr._ShortDateOnly = False Me.txtEinmalig_RgNr._TimeOnly = False + Me.txtEinmalig_RgNr._TimeOnly_Seconds = False Me.txtEinmalig_RgNr._value = Nothing Me.txtEinmalig_RgNr._Waehrung = False + Me.txtEinmalig_RgNr._WaehrungZeichen = True Me.txtEinmalig_RgNr.Enabled = False Me.txtEinmalig_RgNr.ForeColor = System.Drawing.Color.Black Me.txtEinmalig_RgNr.Location = New System.Drawing.Point(363, 162) @@ -225,12 +235,15 @@ Partial Class usrcntlVollmacht_DE Me.txtEmail._DateTimeOnly = False Me.txtEmail._numbersOnly = False Me.txtEmail._numbersOnlyKommastellen = "" + Me.txtEmail._numbersOnlyTrennzeichen = True Me.txtEmail._Prozent = False Me.txtEmail._ShortDateNew = False Me.txtEmail._ShortDateOnly = False Me.txtEmail._TimeOnly = False + Me.txtEmail._TimeOnly_Seconds = False Me.txtEmail._value = Nothing Me.txtEmail._Waehrung = False + Me.txtEmail._WaehrungZeichen = True Me.txtEmail.ForeColor = System.Drawing.Color.Black Me.txtEmail.Location = New System.Drawing.Point(254, 136) Me.txtEmail.MaxLineLength = -1 @@ -245,12 +258,15 @@ Partial Class usrcntlVollmacht_DE Me.txtFax._DateTimeOnly = False Me.txtFax._numbersOnly = False Me.txtFax._numbersOnlyKommastellen = "" + Me.txtFax._numbersOnlyTrennzeichen = True Me.txtFax._Prozent = False Me.txtFax._ShortDateNew = False Me.txtFax._ShortDateOnly = False Me.txtFax._TimeOnly = False + Me.txtFax._TimeOnly_Seconds = False Me.txtFax._value = Nothing Me.txtFax._Waehrung = False + Me.txtFax._WaehrungZeichen = True Me.txtFax.ForeColor = System.Drawing.Color.Black Me.txtFax.Location = New System.Drawing.Point(653, 117) Me.txtFax.MaxLineLength = -1 @@ -265,12 +281,15 @@ Partial Class usrcntlVollmacht_DE Me.txtTel._DateTimeOnly = False Me.txtTel._numbersOnly = False Me.txtTel._numbersOnlyKommastellen = "" + Me.txtTel._numbersOnlyTrennzeichen = True Me.txtTel._Prozent = False Me.txtTel._ShortDateNew = False Me.txtTel._ShortDateOnly = False Me.txtTel._TimeOnly = False + Me.txtTel._TimeOnly_Seconds = False Me.txtTel._value = Nothing Me.txtTel._Waehrung = False + Me.txtTel._WaehrungZeichen = True Me.txtTel.ForeColor = System.Drawing.Color.Black Me.txtTel.Location = New System.Drawing.Point(254, 117) Me.txtTel.MaxLineLength = -1 @@ -285,12 +304,15 @@ Partial Class usrcntlVollmacht_DE Me.txtEori._DateTimeOnly = False Me.txtEori._numbersOnly = False Me.txtEori._numbersOnlyKommastellen = "" + Me.txtEori._numbersOnlyTrennzeichen = True Me.txtEori._Prozent = False Me.txtEori._ShortDateNew = False Me.txtEori._ShortDateOnly = False Me.txtEori._TimeOnly = False + Me.txtEori._TimeOnly_Seconds = False Me.txtEori._value = Nothing Me.txtEori._Waehrung = False + Me.txtEori._WaehrungZeichen = True Me.txtEori.ForeColor = System.Drawing.Color.Black Me.txtEori.Location = New System.Drawing.Point(653, 98) Me.txtEori.MaxLineLength = -1 @@ -305,12 +327,15 @@ Partial Class usrcntlVollmacht_DE Me.txtUid._DateTimeOnly = False Me.txtUid._numbersOnly = False Me.txtUid._numbersOnlyKommastellen = "" + Me.txtUid._numbersOnlyTrennzeichen = True Me.txtUid._Prozent = False Me.txtUid._ShortDateNew = False Me.txtUid._ShortDateOnly = False Me.txtUid._TimeOnly = False + Me.txtUid._TimeOnly_Seconds = False Me.txtUid._value = Nothing Me.txtUid._Waehrung = False + Me.txtUid._WaehrungZeichen = True Me.txtUid.ForeColor = System.Drawing.Color.Black Me.txtUid.Location = New System.Drawing.Point(254, 98) Me.txtUid.MaxLineLength = -1 @@ -325,12 +350,15 @@ Partial Class usrcntlVollmacht_DE Me.txtAdresse2._DateTimeOnly = False Me.txtAdresse2._numbersOnly = False Me.txtAdresse2._numbersOnlyKommastellen = "" + Me.txtAdresse2._numbersOnlyTrennzeichen = True Me.txtAdresse2._Prozent = False Me.txtAdresse2._ShortDateNew = False Me.txtAdresse2._ShortDateOnly = False Me.txtAdresse2._TimeOnly = False + Me.txtAdresse2._TimeOnly_Seconds = False Me.txtAdresse2._value = Nothing Me.txtAdresse2._Waehrung = False + Me.txtAdresse2._WaehrungZeichen = True Me.txtAdresse2.ForeColor = System.Drawing.Color.Black Me.txtAdresse2.Location = New System.Drawing.Point(254, 72) Me.txtAdresse2.MaxLineLength = -1 @@ -345,12 +373,15 @@ Partial Class usrcntlVollmacht_DE Me.txtAdresse1._DateTimeOnly = False Me.txtAdresse1._numbersOnly = False Me.txtAdresse1._numbersOnlyKommastellen = "" + Me.txtAdresse1._numbersOnlyTrennzeichen = True Me.txtAdresse1._Prozent = False Me.txtAdresse1._ShortDateNew = False Me.txtAdresse1._ShortDateOnly = False Me.txtAdresse1._TimeOnly = False + Me.txtAdresse1._TimeOnly_Seconds = False Me.txtAdresse1._value = Nothing Me.txtAdresse1._Waehrung = False + Me.txtAdresse1._WaehrungZeichen = True Me.txtAdresse1.ForeColor = System.Drawing.Color.Black Me.txtAdresse1.Location = New System.Drawing.Point(254, 53) Me.txtAdresse1.MaxLineLength = -1 @@ -365,12 +396,15 @@ Partial Class usrcntlVollmacht_DE Me.txtFirma._DateTimeOnly = False Me.txtFirma._numbersOnly = False Me.txtFirma._numbersOnlyKommastellen = "" + Me.txtFirma._numbersOnlyTrennzeichen = True Me.txtFirma._Prozent = False Me.txtFirma._ShortDateNew = False Me.txtFirma._ShortDateOnly = False Me.txtFirma._TimeOnly = False + Me.txtFirma._TimeOnly_Seconds = False Me.txtFirma._value = Nothing Me.txtFirma._Waehrung = False + Me.txtFirma._WaehrungZeichen = True Me.txtFirma.ForeColor = System.Drawing.Color.Black Me.txtFirma.Location = New System.Drawing.Point(254, 34) Me.txtFirma.MaxLineLength = -1 @@ -382,7 +416,7 @@ Partial Class usrcntlVollmacht_DE ' 'pic ' - Me.pic.BackgroundImage = Global.SDL.My.Resources.pdf + Me.pic.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.pic.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch Me.pic.Cursor = System.Windows.Forms.Cursors.Hand Me.pic.Location = New System.Drawing.Point(5, 5) @@ -404,7 +438,7 @@ Partial Class usrcntlVollmacht_DE 'btnDown ' Me.btnDown.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDown.BackgroundImage = Global.SDL.My.Resources.pfeil_unten + Me.btnDown.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_unten Me.btnDown.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDown.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDown.Location = New System.Drawing.Point(976, 42) @@ -416,7 +450,7 @@ Partial Class usrcntlVollmacht_DE 'btnUp ' Me.btnUp.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnUp.BackgroundImage = Global.SDL.My.Resources.pfeil_oben + Me.btnUp.BackgroundImage = Global.SDL.My.Resources.Resources.pfeil_oben Me.btnUp.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnUp.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnUp.Location = New System.Drawing.Point(976, 22) @@ -428,7 +462,7 @@ Partial Class usrcntlVollmacht_DE 'btnDel ' Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnDel.BackgroundImage = Global.SDL.My.Resources.del + Me.btnDel.BackgroundImage = Global.SDL.My.Resources.Resources.del Me.btnDel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnDel.Location = New System.Drawing.Point(976, -1) @@ -472,12 +506,15 @@ Partial Class usrcntlVollmacht_DE Me.txtEinmalig_CarnetATA._DateTimeOnly = False Me.txtEinmalig_CarnetATA._numbersOnly = False Me.txtEinmalig_CarnetATA._numbersOnlyKommastellen = "" + Me.txtEinmalig_CarnetATA._numbersOnlyTrennzeichen = True Me.txtEinmalig_CarnetATA._Prozent = False Me.txtEinmalig_CarnetATA._ShortDateNew = False Me.txtEinmalig_CarnetATA._ShortDateOnly = False Me.txtEinmalig_CarnetATA._TimeOnly = False + Me.txtEinmalig_CarnetATA._TimeOnly_Seconds = False Me.txtEinmalig_CarnetATA._value = Nothing Me.txtEinmalig_CarnetATA._Waehrung = False + Me.txtEinmalig_CarnetATA._WaehrungZeichen = True Me.txtEinmalig_CarnetATA.Enabled = False Me.txtEinmalig_CarnetATA.ForeColor = System.Drawing.Color.Black Me.txtEinmalig_CarnetATA.Location = New System.Drawing.Point(390, 181) @@ -488,12 +525,23 @@ Partial Class usrcntlVollmacht_DE Me.txtEinmalig_CarnetATA.Size = New System.Drawing.Size(174, 20) Me.txtEinmalig_CarnetATA.TabIndex = 34 ' + 'cbxVollmachtmitBefristung + ' + Me.cbxVollmachtmitBefristung.AutoSize = True + Me.cbxVollmachtmitBefristung.Location = New System.Drawing.Point(590, 183) + Me.cbxVollmachtmitBefristung.Name = "cbxVollmachtmitBefristung" + Me.cbxVollmachtmitBefristung.Size = New System.Drawing.Size(141, 17) + Me.cbxVollmachtmitBefristung.TabIndex = 38 + Me.cbxVollmachtmitBefristung.Text = "Vollmacht mit Befristung:" + Me.cbxVollmachtmitBefristung.UseVisualStyleBackColor = True + ' 'usrcntlVollmacht_DE ' 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.cbxVollmachtmitBefristung) Me.Controls.Add(Me.txtEinmalig_CarnetATA) Me.Controls.Add(Me.cbxEinmaligeVollmachtCarnetATA) Me.Controls.Add(Me.Label12) @@ -563,5 +611,5 @@ Partial Class usrcntlVollmacht_DE Friend WithEvents cboSprache As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxEinmaligeVollmachtCarnetATA As System.Windows.Forms.CheckBox Friend WithEvents txtEinmalig_CarnetATA As VERAG_PROG_ALLGEMEIN.MyTextBox - + Friend WithEvents cbxVollmachtmitBefristung As CheckBox End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.vb index 7afb7818..e869bbba 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_DE.vb @@ -92,4 +92,5 @@ Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEinmaligeVollmachtCarnetATA.CheckedChanged txtEinmalig_CarnetATA.Enabled = sender.checked End Sub + End Class diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb index 1b6d9d96..dd75f051 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb @@ -210,22 +210,24 @@ Public Class usrcntlVorauskasse If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("31.12.2020") Then - txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0")) + txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "0,0")) + txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0,0")) 'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("5%", "0,05")) 'txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("16%", "0,16")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20")) - txtEustProzent.changeItem("0,19") + ' txtEustProzent.changeItem("0,19") ' txtEustProzent.changeItem("0,16") Else + txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "0,0")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("0%", "0")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("7%", "0,07")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("10%", "0,10")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("19%", "0,19")) txtEustProzent.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("20%", "0,20")) - txtEustProzent.changeItem("0,19") + ' txtEustProzent.changeItem("0,19") End If cboFirma.Items.Clear() @@ -425,22 +427,23 @@ Public Class usrcntlVorauskasse 'Select Case FIRMA_TMP.Firma_LandKz lblWaehrung.Text = "EUR" Select Case cboFirma._value - Case "11", - txtEustProzent.changeItem("0,20") + Case "11" + 'txtEustProzent.changeItem("0,20") + txtEustProzent.changeItem("0,0") Case "26" - txtEustProzent.changeItem("0,20") + txtEustProzent.changeItem("0,0") lblWaehrung.Text = "GBP" Case "24" cboSprache.Visible = True Label17.Visible = True - txtEustProzent.changeItem("0,19") + txtEustProzent.changeItem("0,0") Case Else 'If CDate(Now.ToShortDateString) >= CDate("01.07.2020") And CDate(Now.ToShortDateString) <= CDate("20.12.2020") Then ' txtEustProzent.changeItem("0,16") 'Else ' txtEustProzent.changeItem("0,19") 'End If - txtEustProzent.changeItem("0,19") + txtEustProzent.changeItem("0,0") End Select End If initBerechnung() @@ -451,27 +454,39 @@ Public Class usrcntlVorauskasse End Sub Private Sub btnSaveFD_Click(sender As Object, e As EventArgs) Handles btnSaveFD.Click - If txtVorlage.Text = "" Then MsgBox("Bitte ein Vorlagenbezeichnung eingeben!") : Exit Sub - Dim FV As cFormularVorlagen - If FV_ID > -1 Then - If MsgBox("Möchten Sie die Vorlage überschreiben?", vbYesNoCancel) <> MsgBoxResult.Yes Then Exit Sub - FV = New cFormularVorlagen(FV_ID) - Else - FV = New cFormularVorlagen - FV.tblform_art = Me.GetType.ToString - FV.tblform_begriff = txtVorlage.Text - End If - FV.tblform_KundenNr = If(KdNR > 0, KdNR, Nothing) - FV.tblform_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - FV.tblform_letzeAenderung = Now + If checkEustProzent() Then + If txtVorlage.Text = "" Then MsgBox("Bitte ein Vorlagenbezeichnung eingeben!") : Exit Sub + Dim FV As cFormularVorlagen + If FV_ID > -1 Then + If MsgBox("Möchten Sie die Vorlage überschreiben?", vbYesNoCancel) <> MsgBoxResult.Yes Then Exit Sub + FV = New cFormularVorlagen(FV_ID) + Else + FV = New cFormularVorlagen + FV.tblform_art = Me.GetType.ToString + FV.tblform_begriff = txtVorlage.Text + End If + FV.tblform_KundenNr = If(KdNR > 0, KdNR, Nothing) + FV.tblform_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + FV.tblform_letzeAenderung = Now - If FV.SAVE() Then - getValues(FV) - If FV.SAVE_VALUES() Then initControlsSave(FV) + If FV.SAVE() Then + getValues(FV) + If FV.SAVE_VALUES() Then initControlsSave(FV) + End If End If - End Sub + Public Function checkEustProzent() As Boolean + If txtEustProzent.Text = "" Then + txtEustProzent.Focus() + txtEustProzent.BackColor = Color.LightCoral + MsgBox("EUST-Wert erforderlich. Erstellen ist nicht möglich.", vbCritical, "Fehler") + Return False + Else + txtEustProzent.BackColor = SystemColors.Window + Return True + End If + End Function Sub getValues(ByVal FV As cFormularVorlagen) FV.VALUES.Clear() @@ -582,10 +597,13 @@ Public Class usrcntlVorauskasse End Sub Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click - If FormularManagerNEU.saveVorauskasse(Me) Then - lblCRsaved.Text = "(gespeichert)" - lblCRsaved.ForeColor = Color.Green + If checkEustProzent() Then + If FormularManagerNEU.saveVorauskasse(Me) Then + lblCRsaved.Text = "(gespeichert)" + lblCRsaved.ForeColor = Color.Green + End If End If + End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click diff --git a/SDL/Formulare/KDFormulare/frmFormulare.vb b/SDL/Formulare/KDFormulare/frmFormulare.vb index 74a23d59..1ea6f575 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 @@ -1573,6 +1577,8 @@ Public Class FormularManagerNEU listTowrite = addEinmaligeVM(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_RgNr.Text, usrCntl.txtEinmalig_RgDat.Text) ElseIf usrCntl.cbxEinmaligeVollmachtCarnetATA.Checked Then listTowrite = addEinmaligeVMCarnetATA(listTowrite, 0, top + 220, usrCntl.cboSprache._value, usrCntl.txtEinmalig_CarnetATA.Text, "") + ElseIf usrCntl.cbxVollmachtmitBefristung.Checked Then + listTowrite = addBebfristung(listTowrite, 0, 235, usrCntl.cboSprache._value, "", "") End If @@ -4369,17 +4375,21 @@ Public Class FormularManagerNEU + If usrCntl.checkEustProzent Then + saveVorauskasse(usrCntl) + Else + Exit Function + End If + If usrCntl.cbxLKWWartet.Checked Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 12, 60, 15, "boldRed", 20, , itextsharp.text.Element.ALIGN_LEFT)) End If If usrCntl.cbxBeimErstellenSpeichern.Checked Then ' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then - saveVorauskasse(usrCntl) - 'End If End If - Dim destPath = "" + Dim destPath = "" If usrCntl.cboFirma._value = "26" Then 'VERAG-UNISPED LTD destPath = fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "VERAG-UNISPED", "", "Importaviso_VK", listTowrite) Else @@ -6448,6 +6458,18 @@ Public Class FormularManagerNEU Return listTowrite End Function + Shared Function addBebfristung(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, DateAtr As String, XXXX As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + Select Case language + Case "EN" + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Power of attorney valid until: ____________", left + 15, top, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + Case Else + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("Vollmacht gültig bis: ____________", left + 15, top, 180, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT)) + + End Select + Return listTowrite + End Function + + Public Shared Function MergePdfFiles(ByVal fileNames As List(Of String), ByVal targetPdf As String) As Boolean Dim merged As Boolean = True diff --git a/SDL/buchhaltung/rptMahnung.Designer.vb b/SDL/buchhaltung/rptMahnung.Designer.vb index 23e0b6e9..9f0eaa7e 100644 --- a/SDL/buchhaltung/rptMahnung.Designer.vb +++ b/SDL/buchhaltung/rptMahnung.Designer.vb @@ -431,26 +431,26 @@ Partial Public Class rptMahnung ' 'lblKundenNrUeberschrift ' - Me.lblKundenNrUeberschrift.Height = 0.2086616! + Me.lblKundenNrUeberschrift.Height = 0.2500001! Me.lblKundenNrUeberschrift.HyperLink = Nothing - Me.lblKundenNrUeberschrift.Left = 5.023229! + Me.lblKundenNrUeberschrift.Left = 5.023! Me.lblKundenNrUeberschrift.Name = "lblKundenNrUeberschrift" Me.lblKundenNrUeberschrift.Style = "font-size: 12pt; font-weight: bold; text-align: left; vertical-align: middle; ddo" & "-char-set: 1" Me.lblKundenNrUeberschrift.Text = "Ihre Kunden-Nr.:" - Me.lblKundenNrUeberschrift.Top = 2.726378! + Me.lblKundenNrUeberschrift.Top = 2.715! Me.lblKundenNrUeberschrift.Width = 1.424669! ' 'lblKundenNr ' - Me.lblKundenNr.Height = 0.2088345! + Me.lblKundenNr.Height = 0.189! Me.lblKundenNr.HyperLink = Nothing - Me.lblKundenNr.Left = 5.52889! + Me.lblKundenNr.Left = 5.529! Me.lblKundenNr.Name = "lblKundenNr" Me.lblKundenNr.Style = "font-size: 12pt; font-weight: bold; text-align: right; vertical-align: middle; dd" & "o-char-set: 1" Me.lblKundenNr.Text = "1234567" - Me.lblKundenNr.Top = 2.726205! + Me.lblKundenNr.Top = 2.715! Me.lblKundenNr.Width = 1.958268! ' 'Line3 @@ -541,7 +541,7 @@ Partial Public Class rptMahnung ' 'lblRgDatumUeberschrift ' - Me.lblRgDatumUeberschrift.Height = 0.1574803! + Me.lblRgDatumUeberschrift.Height = 0.2201663! Me.lblRgDatumUeberschrift.HyperLink = Nothing Me.lblRgDatumUeberschrift.Left = 5.022473! Me.lblRgDatumUeberschrift.Name = "lblRgDatumUeberschrift" @@ -553,7 +553,7 @@ Partial Public Class rptMahnung ' 'lblRgDatum ' - Me.lblRgDatum.Height = 0.1574803! + Me.lblRgDatum.Height = 0.2195993! Me.lblRgDatum.HyperLink = Nothing Me.lblRgDatum.Left = 5.528134! Me.lblRgDatum.Name = "lblRgDatum" @@ -778,12 +778,12 @@ Partial Public Class rptMahnung Me.lblFax.DataField = "" Me.lblFax.Height = 0.1574803! Me.lblFax.HyperLink = Nothing - Me.lblFax.Left = 5.022762! + Me.lblFax.Left = 5.023! Me.lblFax.Name = "lblFax" Me.lblFax.Style = "color: Black; font-size: 8pt; font-weight: normal; text-align: left; vertical-ali" & "gn: middle; ddo-char-set: 1" Me.lblFax.Text = "Fax:" - Me.lblFax.Top = 2.507134! + Me.lblFax.Top = 2.507! Me.lblFax.Width = 0.9884806! ' 'lblFaxNr diff --git a/SDL/frmEssensbestellungen.vb b/SDL/frmEssensbestellungen.vb index a09fb607..caa7f3d9 100644 --- a/SDL/frmEssensbestellungen.vb +++ b/SDL/frmEssensbestellungen.vb @@ -41,7 +41,7 @@ Public Class frmEssensbestellungen cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Frontoffice", "Frontoffice")) 'cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Backoffice", "Backoffice")) - cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag Verrechnung")) + cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verag VERR", "Verag VERR")) cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Maut", "Maut")) cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Suben West", "Suben West")) cbxGebauede.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 4c4d6fae..170f95dc 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -938,4 +938,197 @@ Public Class usrCntlCBAM Clipboard.SetDataObject(d, True) End If End Sub + + Private Sub btnCBAM_DS_TELOTEC_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_TELOTEC.Click + btnCBAM_DS_DAKOSY_Deteil.Enabled = False + btnCBAM_DS_DAKOSY_Copy.Enabled = False + btnCBAM_DS_DAKOSY_Deteil.Tag = "" + + Try + Dim EORI = txtEori.Text + If cbxVERAG.Checked Then EORI = "VERAG" + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + SELECT + telanm_CRN Registriernummer + ,Pos_ID PositionsNummer + ,dec_CreateDate Anmeldedatum + ,telanm_BezugsNr BezugsNr + ,Declarant_DecRep VertretungsVerhaeltnis + ,Item_ComCd Tarifnummer + ,dec_TotNet Eigenmasse + ,Locs_Disp VersendungsLand + , Locs_Dest Bestimmungsland + ,ValData_InvVal Rechnungspreis + ,ValData_InvCurr Rechnungswaehrung + ,ConeeTra_TIN as Empfänger + ,ConeeTra_Na as Empfänger + ,ConorTra_TIN as Absender + ,ConorTra_Na as Absender + + FROM [VERAG].[dbo].[tblTelotec_Anmeldung] + inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id + + where 1=1 + + and + ( + left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(Item_ComCd,4) between 7301 and 7311 + OR left(Item_ComCd,4) between 7205 and 7229 + OR left(Item_ComCd,4) between 7603 and 7614 + OR Item_ComCd like '25070080%' + OR Item_ComCd like '283421%' + OR Item_ComCd like '260112%' + OR Item_ComCd like '720211%' + OR Item_ComCd like '720219%' + OR Item_ComCd like '720241%' + OR Item_ComCd like '720249%' + OR Item_ComCd like '720260%' + OR Item_ComCd like '280410%' + ) + and Item_ComCd not like '310560%' + + and telnam_aktuellsteNachricht=1 + + and telanm_ART ='EUA' + and dec_CreateDate between '" & txtVon._value & "' and '" & txtBis._value & "' + + + + + " + + + If cbxVERAG.Checked Then + SQLSTR &= " + and Declarant_DecRep IN(1,3,5,7) + " + Else + SQLSTR &= " + and ConeeTra_TIN='" & EORI & "' /*and Declarant_DecRep NOT IN(1,3,5,7)*/ + " + End If + + SQLSTR &= " order by Absender,telanm_CRN " + + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Detailbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_DAKOSY_Deteil.Tag = path + btnCBAM_DS_DAKOSY_Deteil.Enabled = True + btnCBAM_DS_DAKOSY_Copy.Enabled = True + Me.Cursor = Cursors.Default + + End If + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Cursor = Cursors.Default + + + '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- + + + btnCBAM_DS_DAKOSY_Summe.Enabled = False + btnCBAM_DS_DAKOSY_Summe.Tag = "" + + Try + Dim EORI = txtEori.Text + If cbxVERAG.Checked Then EORI = "VERAG" + If EORI = "" Then MsgBox("EORI eingeben!") : Exit Sub + If txtVon._value = "" Then MsgBox("Datum von eingeben!") : Exit Sub + If txtBis._value = "" Then MsgBox("Datum bis eingeben!") : Exit Sub + Me.Cursor = Cursors.WaitCursor + + Dim SQLSTR = " + SELECT + left(ezaWP_WarennummerEZT,8) Tarifnummer,sum(ezaWP_Eigenmasse)Eigenmasse,sum(ezaWP_Rohmasse)Rohmasse,sum(ezaWP_Artikelpreis)Rechnungspreis,eza_VersendungsLandCode VersendungsLand ,isnull(ezaWP_AnmeldeVErfahren,'') Verfahren,isnull([ezaWP_VerfahrensCodeVorangegangenesVerfahren],'') VorangegangenesVerfahren + + FROM [VERAG].[dbo].[tblDakosy_EZA] + inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id + where + eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(ezaWP_WarennummerEZT,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(ezaWP_WarennummerEZT,4) between 7301 and 7311 + OR left(ezaWP_WarennummerEZT,4) between 7205 and 7229 + OR left(ezaWP_WarennummerEZT,4) between 7603 and 7614 + OR ezaWP_WarennummerEZT like '25070080%' + OR ezaWP_WarennummerEZT like '283421%' + OR ezaWP_WarennummerEZT like '260112%' + OR ezaWP_WarennummerEZT like '720211%' + OR ezaWP_WarennummerEZT like '720219%' + OR ezaWP_WarennummerEZT like '720241%' + OR ezaWP_WarennummerEZT like '720249%' + OR ezaWP_WarennummerEZT like '720260%' + OR ezaWP_WarennummerEZT like '280410%' + + ) + and ezaWP_WarennummerEZT not like '310560%' + and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') + + " + + If cbxVERAG.Checked Then + SQLSTR &= " + and eza_VertretungsVerhaeltnisCode=2 + " + Else + SQLSTR &= " + and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + " + End If + + SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren" + + + Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + Dim path = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, EORI & "_Summenbericht_" & txtVon._value & "-" & txtBis._value) + btnCBAM_DS_DAKOSY_Summe.Tag = path + btnCBAM_DS_DAKOSY_Summe.Enabled = True + btnCBAM_DS_DAKOSY_Copy.Enabled = True + + Me.Cursor = Cursors.Default + + End If + + + + ''----- XML ---------------------------------------------------------------------------------------------------------------------------------------- + + 'btnCBAM_DS_DAKOSY_XML.Enabled = False + 'btnCBAM_DS_DAKOSY_XML.Tag = "" + + 'If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' '--------------------------------------------------------------------------------------------------------------------------------------------- + ' doCBAM_XML(dt, EORI) + ' '--------------------------------------------------------------------------------------------------------------------------------------------- + + 'End If + + + ''--------------------------------------------------------------------------------------------------------------------------------------------- + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + + + + + Me.Cursor = Cursors.Default + + End Sub End Class diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 27da204b..21dfd409 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -428,6 +428,7 @@ Public Class usrcntlKundeBearbeitenFull cboKundenkreis.changeItem("3000000-3099990") KUNDE.Zahlungsziel = 0 ADRESSE.Rechnungsdruck = 2 + KUNDE.Vorkasse = True Case "ATILLA" cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999")) cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999")) diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb index 1c59518f..06239127 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb @@ -58,7 +58,7 @@ Public Class cMSEAPI ' Set the timestamp defining an expiration time (end time) for the token ' to be now + 1 hour (3600 seconds) - success = claims.AddIntAt(-1, "exp", curDateTime + 3600) + success = claims.AddIntAt(-1, "exp", curDateTime + 1000) jwt.AutoCompact = True