From ac33d5e1d1b5b1965e2854c342759174e20bb9bb Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Mon, 24 Feb 2025 15:10:30 +0100 Subject: [PATCH] CBAM Auswertung; Verzollungspreise; T2 aus EXG manuell --- SDL/Fakturierung/frmAbrechnungsMaske.vb | 3 + SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- .../usrcntlVerzollungspreise.vb | 1072 +++++++++++++++-- .../EXGestellung/usrCntlATLAS_EXGestellung.vb | 163 +-- .../ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb | 144 +++ SDL/kunden/usrCntlCBAM.vb | 501 ++++++-- .../Schnittstellen/HMRC/CHMRC.vb | 24 +- .../Schnittstellen/HMRC/cHMRCToken.vb | 9 +- .../Schnittstellen/HMRC/cHMRC_ENS.vb | 72 +- 9 files changed, 1699 insertions(+), 291 deletions(-) diff --git a/SDL/Fakturierung/frmAbrechnungsMaske.vb b/SDL/Fakturierung/frmAbrechnungsMaske.vb index 43ac30af..6db950d6 100644 --- a/SDL/Fakturierung/frmAbrechnungsMaske.vb +++ b/SDL/Fakturierung/frmAbrechnungsMaske.vb @@ -16,6 +16,7 @@ Public Class frmAbrechnungsMaske Me.Height = Screen.FromRectangle(Me.Bounds).WorkingArea.Size.Height Me.Top = 0 initFilterPanel() + cProgramFunctions.initDrucker(cboPrinter) txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).ToShortDateString @@ -63,6 +64,7 @@ Public Class frmAbrechnungsMaske MyComboBox2.Items.Clear() + Select Case FirmaTmp Case "VERAG" @@ -121,6 +123,7 @@ Public Class frmAbrechnungsMaske MyComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("*BAUBÖCK", "BAUBOECK")) End Select + ' MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Benutzerwechsel 'If MyComboBox2.Items.Count > 0 Then MyComboBox2.SelectedIndex = 0 MyComboBox2.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 4d8dc728..1af764f6 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -3349,7 +3349,7 @@ Nächste_Textzeile_lesen: Private Sub btnNeueUnterNR_Click(sender As Object, e As EventArgs) Handles btnNeueUnterNR.Click - If saveMe() Then + If (RECHNUNG IsNot Nothing AndAlso (RECHNUNG.DruckDatumZeit IsNot Nothing Or RECHNUNG.Status <> 0)) OrElse saveMe() Then newRECHNUNG() End If diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 5f598e57..f2e6a9d0 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -148,7 +148,7 @@ initPreisliste() End Sub - + 'ab 24 .02.2025 Sub initPreisliste() Dim formManager As New SDL.frmFormulare @@ -166,11 +166,11 @@ 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, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 @@ -190,11 +190,11 @@ '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, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) @@ -211,9 +211,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) @@ -227,9 +227,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) @@ -241,9 +241,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 @@ -257,9 +257,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 @@ -272,9 +272,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 @@ -397,11 +397,11 @@ 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, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 @@ -420,11 +420,11 @@ '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, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 @@ -445,9 +445,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 'dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 @@ -468,9 +468,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 @@ -490,9 +490,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 @@ -511,9 +511,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 @@ -531,9 +531,9 @@ 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, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 @@ -565,11 +565,11 @@ 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, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -584,18 +584,18 @@ 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(100).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(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, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 @@ -616,12 +616,12 @@ ' 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, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(245).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -639,9 +639,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 @@ -664,9 +664,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 @@ -689,9 +689,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -700,16 +700,16 @@ 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("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -718,16 +718,16 @@ 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("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) Case "EUST" DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -862,11 +862,11 @@ 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, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -876,7 +876,7 @@ 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("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") @@ -886,11 +886,11 @@ '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, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 @@ -928,9 +928,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -953,9 +953,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 @@ -976,9 +976,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -987,7 +987,7 @@ 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("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) @@ -997,9 +997,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -1008,7 +1008,7 @@ 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("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) @@ -1019,9 +1019,9 @@ 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, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 @@ -1053,6 +1053,910 @@ DataGridView.ClearSelection() End Sub + 'Sub initPreisliste() bis 23.02.2025 + + ' Dim formManager As New SDL.frmFormulare + + ' Dim cnt = 1 + ' cboFirma.changeItem("AG") + + ' DataGridView.Rows.Clear() + ' dgvZusatzleistung.Rows.Clear() + + ' Select Case MyComboBoxSprache._value + ' Case "EN" + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' Select Case MyComboBox1._value + ' Case "VZ" + ' ' Translated English code + ' DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request") + ' dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(24).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + ' Case "VZ_EV_EN" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request") + ' dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(24).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + + ' Case "VZ_FISKAL" + ' DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + ' Case "VZ_FISKAL_DE" + ' DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + + ' Case "VZ_SPECIAL_1" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + + ' Case "VZ_SPECIAL_2" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + + ' Case "EUST" + ' DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' End Select + ' Case "AMBAR" + ' Select Case MyComboBox1._value + ' Case "VZ" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr") + ' dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(37).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG Goods Location", CDbl(60).ToString("C2")) + + ' Case "VZ_RW" + ' DataGridView.Rows.Add(cnt, "", "Customs Clearance (incl. 1 tariff number)", CDbl(169).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr") + ' dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + + ' Case "VZ_FISKAL_DE" + ' DataGridView.Rows.Add(cnt, "", "Fiscal Customs Clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(8).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "498", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs Inspection**", CDbl(60).ToString("C2") & "/hr") + ' dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge Pharmaceuticals or Food", CDbl(25).ToString("C2")) + + ' Case "T1_EN" + ' DataGridView.Rows.Add(cnt, "", "T1/T2 Clearance", CDbl(60).ToString("C2")) : cnt += 1 + + ' Case "VZ_SPECIAL_1" ' "Customs Clearance Vegetables, Pharmaceuticals, Food" + ' DataGridView.Rows.Add(cnt, "", "Customs Clearance Vegetables, Pharmaceuticals, Food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(18).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + ' Case "VZ_SPECIAL_2" ' "Customs Clearance Bakery Products" + ' DataGridView.Rows.Add(cnt, "", "Customs Clearance Bakery Products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Each Additional Tariff Number", CDbl(25).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Notification", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Paper Postage", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Other Costs*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request Corrected Invoice", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Invoice Translation", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge Return Goods Clearance/Active Processing", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Foreign Border", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + ' Case "EUST" + ' DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed Fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% Advance Payment Commission (from import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% Credit Expenses (from import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearing Costs (ONCE only at first clearance)", CDbl(40).ToString("C2")) + ' End Select + + ' Case "ATILLA" + ' Case Else 'VERAG + ' Select Case MyComboBox1._value + ' Case "VZ" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") + ' dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + + ' Case "VZ_EV" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") + ' dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + + ' cboFirma.changeItem("CS") + + ' Case "VZ_FISKAL" + ' DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' 'dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + + ' cboFirma.changeItem("CS") + + ' Case "VZ_FISKAL_DE" + ' DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + ' 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + + ' cboFirma.changeItem("AG") + + ' Case "VZ_SPECIAL_1" ' "VZ Vegetables, Pharmaceuticals, Food" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(18).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + + ' Case "VZ_SPECIAL_2" ' "VZ Food Bakery Products" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance for bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) + + ' Case "EUST" + ' DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) + + ' cboFirma.changeItem("AG") + + ' Case "HANDLING" + ' 'DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "345", "Handling/own declaration", CDbl(30).ToString("C2")) : cnt += 1 + ' dgvZusatzleistung.Rows.Add("", "345", "Notification fee (only if truck is not pre-notified)", CDbl(15).ToString("C2")) + + ' cboFirma.changeItem("AG") + + ' Case "PRIVAT" + ' DataGridView.Rows.Add(cnt, "", "Customs clearance all-in") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Items 1-10", CDbl(200).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Items 11-20", CDbl(250).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Items 21-30", CDbl(300).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "And so on") : cnt += 1 + + ' cboFirma.changeItem("AG") + ' End Select + + ' End Select + + ' Case Else + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Case "IMEX" + ' Select Case MyComboBox1._value + ' Case "VZ" + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + + ' Case "VZ_EV" + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' ' cboFirma.changeItem("CS") + ' Case "VZ_RW" 'NICHT MEHR! + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(132).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + + ' Case "VZ_FISKAL" + + ' DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' ' cboFirma.changeItem("CS") + + ' Case "VZ_FISKAL_DE" + + ' DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' ' cboFirma.changeItem("AG") + + ' Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" + ' DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + + ' Case "VZ_SPECIAL_2" '"VZ Backwaren" + ' DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(24).ToString("C2")) + + ' Case "EUST" + + ' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + + + ' End Select + ' Case "AMBAR" + ' Select Case MyComboBox1._value + ' Case "VZ" + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.") + ' dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(37).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + + ' Case "VZ_RW" ' + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(169).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.") + ' dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + + ' Case "VZ_FISKAL_DE" + + ' DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschau**", CDbl(60).ToString("C2") & "/Std.") + ' dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' ' cboFirma.changeItem("AG") + + ' Case "T1" + ' DataGridView.Rows.Add(cnt, "", "T1/T2 Abfertigung", CDbl(60).ToString("C2")) : cnt += 1 + + ' Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" + ' DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + + ' Case "VZ_SPECIAL_2" '"VZ Backwaren" + ' DataGridView.Rows.Add(cnt, "", "Verzollung Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Aviso", CDbl(20).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Papiere Porti", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Sonstige Kosten*", CDbl(40).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "348", "Fremdgrenze", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + + ' Case "EUST" + + ' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(40).ToString("C2")) + + + ' End Select + + ' Case "ATILLA" + + ' Case Else 'VERAG + ' Select Case MyComboBox1._value + ' Case "VZ" + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + ' dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + + ' Case "VZ_EV" + ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(112).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(7.5).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") + ' dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' cboFirma.changeItem("CS") + ' 'Case "VZ_RW" 'NICHT MEHR! + ' ' DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(106).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(6).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(8).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + ' ' dgvZusatzleistung.Rows.Add("", "347", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + + ' Case "VZ_FISKAL" + + ' DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' cboFirma.changeItem("CS") + + ' Case "VZ_FISKAL_DE" + + ' DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(240).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(12).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + ' ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + ' ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + + ' cboFirma.changeItem("AG") + + ' Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" + ' DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + ' Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel" + ' DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") + + ' dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) + ' dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) + ' ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) + ' 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) + + ' Case "EUST" + + ' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(15).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(10).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 + + ' dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) + + ' cboFirma.changeItem("AG") + ' Case "HANDLING" + + ' ' DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "345", "Handing/eigene Anmeldung", CDbl(30).ToString("C2")) : cnt += 1 + ' dgvZusatzleistung.Rows.Add("", "345", "Avisogebühr (nur wenn LKW nicht voravisiert)", CDbl(15).ToString("C2")) + + ' cboFirma.changeItem("AG") + + ' Case "PRIVAT" + + ' DataGridView.Rows.Add(cnt, "", "Verzollung All in ") : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Pos 1-10", CDbl(200).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Pos 11-20", CDbl(250).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Pos 21-30", CDbl(300).ToString("C2")) : cnt += 1 + ' DataGridView.Rows.Add(cnt, "", "Usw.") : cnt += 1 + + ' cboFirma.changeItem("AG") + + ' End Select + ' End Select + ' End Select + + ' DataGridView.ClearSelection() + 'End Sub + Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Dim zoll As New SDL.frmKundenUebersichtZOLL zoll.Show() diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb index 68aab8a7..ba6b36d3 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb @@ -120,85 +120,100 @@ Public Class usrCntlATLAS_EXGestellung Next If Not err Then If cbxNCTS.Checked Then - Dim BezugsNr = "" + Dim NCTS_OUT = usrCntlATLAS_NCTS004.genNCTSfromStammref(Me, FIRMA_DY, AVISO, SENDUNG, "") + NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear() + NCTS_OUT.DELETE_HouseConsignment() + If NCTS_OUT IsNot Nothing AndAlso NCTS_OUT.ncts_Id > 0 Then + MsgBox("Eine neue Versandanmeldung mit der BezugsNummer '" & NCTS_OUT.ncts_ObjectName & "' wurde erstellt. Befüllung wird bei Gestellvorgang automatisch vorgenommen.") + lblBezugsnummer.Text = NCTS_OUT.ncts_ObjectName - Dim NCTS_OUT As New DAKOSY_Worker.cDakosyNCTSOut004 - - Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY) - Dim Stammreferenz = Nothing - f.selectForEXG = True - If f.ShowDialog(Me.FindForm) Then - Stammreferenz = f.STAMMREF - sentToDakosy = f.sentToDakosy - End If - Try - - BezugsNr = usrCntlATLAS_NCTS004.getBezugsnr(FIRMA_DY, SENDUNG, BezugsNr, "") - lblBezugsnummer.Text = BezugsNr - - MsgBox(BezugsNr) - Catch ex As Exception - MsgBox(ex.Message & ex.StackTrace) - End Try - ncts_OUT = cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True) - If True Then 'NCTS_OUT Is Nothing Then - - Dim cDy_ART = "T2" - Select Case (SENDUNG.tblSnd_Abfertigungsart_ID) - Case 5 : cDy_ART = "T1" - Case Else : cDy_ART = "T2" - End Select - - - Dim DY_ANM As New cDakosy_Zollanmeldungen - If DY_ANM Is Nothing Then - DY_ANM = New cDakosy_Zollanmeldungen(NCTS_OUT.ncts_dyaAnmID) - End If - DY_ANM.dy_ART = cDy_ART 'cDy_ART - DY_ANM.dy_BezugsNr = BezugsNr - DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID) - DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID) - 'Status? - If DY_ANM.SAVE() Then 'Speichern, ID wird erzeugt - - - 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist - NCTS_OUT = cDakosyNCTSOut004.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! - If NCTS_OUT Is Nothing Then - NCTS_OUT = New cDakosyNCTSOut004 - End If - - NCTS_OUT.ncts_Id = -1 - NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id - - 'If NCTS_OUT IsNot Nothing Then - ' 'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben - ' NCTS_OUT.ncts_dyaAnmID = -1 - ' NCTS_OUT.ncts_Id = -1 - 'Else - ' NCTS_OUT = New cDakosyNCTSOut004 - 'End If - - - usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT) - 'cboStammreferenz.changeItem(Stammreferenz) - - If NCTS_OUT.SAVE() Then - MsgBox("Eine neue Versandanmeldung mit der BezugsNummer '" & BezugsNr & "' wurde erstellt. Befüllung wird bei Gestellvorgang automatisch vorgenommen.") - - For Each exgId In exg_list - MsgBox(NCTS_OUT.ncts_dyaAnmID) - cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID) - Next - End If - - - End If + For Each exgId In exg_list + MsgBox(NCTS_OUT.ncts_dyaAnmID) + cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID) + Next End If - 'ncts_OUT + 'Dim BezugsNr = "" + + + 'Dim NCTS_OUT As New DAKOSY_Worker.cDakosyNCTSOut004 + + 'Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY) + 'Dim Stammreferenz = Nothing + 'f.selectForEXG = True + 'If f.ShowDialog(Me.FindForm) Then + ' Stammreferenz = f.STAMMREF + ' sentToDakosy = f.sentToDakosy + 'End If + 'Try + + ' BezugsNr = usrCntlATLAS_NCTS004.getBezugsnr(FIRMA_DY, SENDUNG, BezugsNr, "") + ' lblBezugsnummer.Text = BezugsNr + + ' MsgBox(BezugsNr) + 'Catch ex As Exception + ' MsgBox(ex.Message & ex.StackTrace) + 'End Try + 'ncts_OUT = cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True) + 'If True Then 'NCTS_OUT Is Nothing Then + + ' Dim cDy_ART = "T2" + ' Select Case (SENDUNG.tblSnd_Abfertigungsart_ID) + ' Case 5 : cDy_ART = "T1" + ' Case Else : cDy_ART = "T2" + ' End Select + + + ' Dim DY_ANM As New cDakosy_Zollanmeldungen + ' If DY_ANM Is Nothing Then + ' DY_ANM = New cDakosy_Zollanmeldungen(NCTS_OUT.ncts_dyaAnmID) + ' End If + ' DY_ANM.dy_ART = cDy_ART 'cDy_ART + ' DY_ANM.dy_BezugsNr = BezugsNr + ' DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID) + ' DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID) + ' 'Status? + ' If DY_ANM.SAVE() Then 'Speichern, ID wird erzeugt + + + ' 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist + ' NCTS_OUT = cDakosyNCTSOut004.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! + ' If NCTS_OUT Is Nothing Then + ' NCTS_OUT = New cDakosyNCTSOut004 + ' End If + + ' NCTS_OUT.ncts_Id = -1 + ' NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + + ' 'If NCTS_OUT IsNot Nothing Then + ' ' 'Stmmreferenz - Werte zurücksetzen, damit nicht falsch übergeben + ' ' NCTS_OUT.ncts_dyaAnmID = -1 + ' ' NCTS_OUT.ncts_Id = -1 + ' 'Else + ' ' NCTS_OUT = New cDakosyNCTSOut004 + ' 'End If + + + ' usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT) + ' 'cboStammreferenz.changeItem(Stammreferenz) + + ' If NCTS_OUT.SAVE() Then + ' MsgBox("Eine neue Versandanmeldung mit der BezugsNummer '" & BezugsNr & "' wurde erstellt. Befüllung wird bei Gestellvorgang automatisch vorgenommen.") + + ' For Each exgId In exg_list + ' MsgBox(NCTS_OUT.ncts_dyaAnmID) + ' cDakosyEXG.UPDATE_FillNCTS_ID(exgId, NCTS_OUT.ncts_dyaAnmID) + ' Next + ' End If + + + ' End If + + + 'End If + ''ncts_OUT diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb index 44209428..7981bc96 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS004/usrCntlATLAS_NCTS004.vb @@ -1,5 +1,6 @@ Imports System.IO.Pipes Imports DAKOSY_Worker +Imports javax.management Imports Tamir Imports Tamir.SharpSsh Imports VERAG_PROG_ALLGEMEIN @@ -159,6 +160,8 @@ Public Class usrCntlATLAS_NCTS004 cboDakosyAction.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Datensatz an ZOLL senden", DY_ObjektAktion.OBJ_SEND)) cboDakosyAction.changeItem(DY_ObjektAktion.OBJ_CREATE) + AusGestllungToolStripMenuItem.Visible = True + Select Case FIRMA_DY Case "VERAG" : txtDyMandant.Text = "VERG" txtDyNiederlassung.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG @@ -636,6 +639,81 @@ Public Class usrCntlATLAS_NCTS004 End Sub Private Sub AusGestllungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusGestllungToolStripMenuItem.Click + Dim EXG_LRN = InputBox("Geben Sie die Gestellungs-LRN ein (ohne aufsteigende Zahlen):") + If EXG_LRN.Length < 13 Then MsgBox("LRN zu kurz!") : Exit Sub + + + Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("SELECT TOP (500) [exg_Id] FROM [tblDakosy_EXG] where exg_ObjectName LIKE '" & EXG_LRN & "%' order by exg_ObjectName desc", "FMZOLL") + If dt IsNot Nothing Then + Dim BezugsNr = "" + Dim NCTS_OUT = usrCntlATLAS_NCTS004.genNCTSfromStammref(Me, FIRMA_DY, AVISO, SENDUNG, BezugsNr) + NCTS_OUT.ncts_HOUSE_CONSIGNMENT.Clear() + NCTS_OUT.DELETE_HouseConsignment() + + For Each row In dt.Rows + Dim EXG As New cDakosyEXG(row("exg_Id")) + If EXG IsNot Nothing Then + DAKOSY_Worker.cDakosyNCTSOut004.fillNCTS_WithEXG(NCTS_OUT, EXG) + End If + Next + If NCTS_OUT.SAVE_ALL() Then + + '-------------------------------------------------------------------------------- + '----SENDEN---------------------------------------------------------------------- + '-------------------------------------------------------------------------------- + + Dim EXG_TMP As New cDakosyEXG(dt(0)("exg_Id")) + + Dim DY_ANM = New cDakosy_Zollanmeldungen(NCTS_OUT.ncts_dyaAnmID) + If NCTS_OUT IsNot Nothing Then + 'Dim cDY As New cDakosyNCTSOut(cDyAnm.dy_Id, cDyAnm.dy_Erstellung_SB) + NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + NCTS_OUT.ncts_Erstellung_SB = DY_ANM.dy_Erstellung_SB + NCTS_OUT.ncts_LetzteBearbeitung = Now + NCTS_OUT.ncts_LetzteBearbeitung_SB = DY_ANM.dy_LetzteBearbeitung_SB + NCTS_OUT.ncts_firma = EXG_TMP.exg_firma + NCTS_OUT.ncts_niederlassung = EXG_TMP.exg_niederlassung + ' DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(NCTS_OUT, Me, DY_ANM, Me.FIRMA_DY) + DAKOSY_Interface_SEND.loadInClass_VersandanmeldungNCTSDE_004(NCTS_OUT, Me, DY_ANM, Me.FIRMA_DY) + + + 'VON HIER löschnen ohne test + If NCTS_OUT.SAVE_ALL() Then + + If vbYes = MsgBox("Erfolgreich erstellt! Soll(en) die Ausfuhr-Gestellung(en) abgeschickt werden?", vbYesNoCancel) Then + + Dim saveFile = "" + If cDakosyNCTSOut004.generateVersandanmeldungNCTSDE_004(NCTS_OUT, saveFile, cboDakosyAction._value, Application.StartupPath) Then + If saveFile <> "" Then + If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNr, DY_ANM.dy_Id, Me.FIRMA_DY) Then + DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03) + If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. + Else + DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) + MsgBox("Sendefehler!") + End If + End If + End If + + + + DY_ANM.UPDATE_DATA() + + 'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist. + DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId) + End If + + End If + + + End If + '-------------------------------------------------------------------------------- + '-------------------------------------------------------------------------------- + + End If + End If + + 'ncts_OUT.DELETE_HouseConsignment() @@ -649,6 +727,72 @@ Public Class usrCntlATLAS_NCTS004 End Sub + Shared Function genNCTSfromStammref(CONTROL As Control, FIRMA_DY As String, AVISO As cAviso, SENDUNG As cSendungen, ByRef BezugsNr As String) As DAKOSY_Worker.cDakosyNCTSOut004 + + + Dim NCTS_OUT As New DAKOSY_Worker.cDakosyNCTSOut004 + + Dim f As New frmDakosyStammreferenz("DE", "NCTS", False,,, FIRMA_DY) + Dim Stammreferenz = Nothing + f.selectForEXG = True + If f.ShowDialog(CONTROL.FindForm) Then + Stammreferenz = f.STAMMREF + ' sentToDakosy = f.sentToDakosy + End If + Try + + If BezugsNr = "" Then BezugsNr = usrCntlATLAS_NCTS004.getBezugsnr(FIRMA_DY, SENDUNG, BezugsNr, "") + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + End Try + NCTS_OUT = cDakosyNCTSOut004.LOADByBezugsNr(BezugsNr, True) + If True Then 'NCTS_OUT Is Nothing Then + + Dim cDy_ART = "T2" + Select Case (SENDUNG.tblSnd_Abfertigungsart_ID) + Case 5 : cDy_ART = "T1" + Case Else : cDy_ART = "T2" + End Select + + + Dim DY_ANM As New cDakosy_Zollanmeldungen + 'If DY_ANM Is Nothing Then + ' DY_ANM = New cDakosy_Zollanmeldungen(NCTS_OUT.ncts_dyaAnmID) + 'End If + DY_ANM.dy_ART = cDy_ART 'cDy_ART + DY_ANM.dy_BezugsNr = BezugsNr + DY_ANM.dy_AvisoId = If(AVISO Is Nothing, Nothing, AVISO.AvisoID) + DY_ANM.dy_SendungsId = If(SENDUNG Is Nothing, Nothing, SENDUNG.tblSnd_SendungID) + 'Status? + If DY_ANM.SAVE() Then 'Speichern, ID wird erzeugt + + + 'Falls zur BezugsNr schon ein Eintrag in der DB vorhanden ist + NCTS_OUT = cDakosyNCTSOut004.LOADByAnmIDFull(f.STAMMREF_DYID, True) ' DyID --> Falls bei der Stammreferenz eine Vorlage hinterlegt ist! + If NCTS_OUT Is Nothing Then + NCTS_OUT = New cDakosyNCTSOut004 + End If + + NCTS_OUT.ncts_Id = -1 + NCTS_OUT.ncts_dyaAnmID = DY_ANM.dy_Id + + usrCntlATLAS_NCTS004.loaddataFromAVISO(AVISO, SENDUNG, cDy_ART, BezugsNr, NCTS_OUT) + 'cboStammreferenz.changeItem(Stammreferenz) + + If NCTS_OUT.SAVE() Then + + + Return NCTS_OUT + End If + + + End If + + + End If + Return Nothing + End Function End Class diff --git a/SDL/kunden/usrCntlCBAM.vb b/SDL/kunden/usrCntlCBAM.vb index 9523e036..ea922f71 100644 --- a/SDL/kunden/usrCntlCBAM.vb +++ b/SDL/kunden/usrCntlCBAM.vb @@ -29,35 +29,39 @@ Public Class usrCntlCBAM 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_WHERE_FIRMEN = "" + If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'SUB','WAI','SBG','NKD','NEU','AMBWO','AMB','IRU','EXP','SUW','DUR'" + If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IME'" + If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '??? 'isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Dim SQLSTR = " - SELECT COUNT(*) FROM [tblDakosy_EZA] inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id - where eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "' + SELECT COUNT(distinct(Registriernummer_MRN)) FROM [tbl_DY_Zollmeldungen_Import] + where Überlassungsdatum 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%' + left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(Warentarifnummer,4) between 7301 and 7311 + OR left(Warentarifnummer,4) between 7205 and 7229 + OR left(Warentarifnummer,4) between 7603 and 7614 + OR Warentarifnummer like '25070080%' + OR Warentarifnummer like '283421%' + OR Warentarifnummer like '260112%' + OR Warentarifnummer like '720211%' + OR Warentarifnummer like '720219%' + OR Warentarifnummer like '720241%' + OR Warentarifnummer like '720249%' + OR Warentarifnummer like '720260%' + OR Warentarifnummer like '280410%' ) - and ezaWP_WarennummerEZT not like '310560%' - and (eza_status between 50 and 60 or [eza_ANR] LIKE 'ATC%') + and Warentarifnummer not like '310560%' + " - If cbxVERAG.Checked Then + If SQLSTR_WHERE_FIRMEN <> "" Then + SQLSTR &= " and Teilnehmer in ( " & SQLSTR_WHERE_FIRMEN & ")" SQLSTR &= " - and eza_VertretungsVerhaeltnisCode=2 - " + and left(Art_der_Vertretung,1) IN (2) + " Else 'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird. 'SQLSTR &= " @@ -65,14 +69,11 @@ Public Class usrCntlCBAM ' " 'korrigierte Query: SQLSTR &= " - and EXISTS (SELECT 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId = eza_Id AND [ezaAd_AdressTyp] = 'CN' AND isnull([ezaAd_NameFirma1], [ezaAd_TeilnehmerEORI]) ='" & EORI & "') + and Empfänger_CN_EORI ='" & EORI & "' " - - - End If - Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 600) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge" Me.Cursor = Cursors.Default @@ -88,6 +89,74 @@ Public Class usrCntlCBAM Me.Cursor = Cursors.Default End Sub + 'Private Sub btnCBAMPruef_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_DAKOSY.Click + ' txtCBAMPruef_DAKOSY.Text = "-" + ' 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 + + ' 'isnull( eza_anmeldedatum, eza_Trans_DatumZeit) + ' Dim SQLSTR = " + ' SELECT COUNT(*) FROM [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 + ' 'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird. + ' 'SQLSTR &= " + ' ' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + ' ' " + ' 'korrigierte Query: + ' SQLSTR &= " + ' and EXISTS (SELECT 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId = eza_Id AND [ezaAd_AdressTyp] = 'CN' AND isnull([ezaAd_NameFirma1], [ezaAd_TeilnehmerEORI]) ='" & EORI & "') + ' " + + + + ' End If + + ' Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' txtCBAMPruef_DAKOSY.Text = dt.Rows(0)(0) & " Einträge" + ' Me.Cursor = Cursors.Default + ' Exit Sub + ' End If + + ' txtCBAMPruef_DAKOSY.Text = "0" + + + ' 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 + Private Sub btnCBAMPruef_ALLE_Click(sender As Object, e As EventArgs) Handles btnCBAMPruef_ALLE.Click btnCBAMPruef_DAKOSY.PerformClick() btnCBAMPruef_DHF_VERAG.PerformClick() @@ -337,9 +406,9 @@ Public Class usrCntlCBAM btnCBAM_DS_DAKOSY_Deteil.Tag = "" Dim SQLSTR_WHERE_FIRMEN = "" - If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'VERAG'" - If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IMEX'" - If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'UNISPED'" + If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'SUB','WAI','SBG','NKD','NEU','AMBWO','AMB','IRU','EXP','SUW','DUR'" + If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IME'" + If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'ATSPED'" '??? Try Dim EORI = txtEori.Text @@ -352,50 +421,53 @@ Public Class usrCntlCBAM Dim SQLSTR = " SELECT - [eza_ANR] RegistriernummerATLAS - ,ezaWP_PositionsNummer PositionsNummer - ,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum - ,[eza_ObjectName] BezugsNr - ,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis - ,ezaWP_WarennummerEZT Tarifnummer - ,ezaWP_Eigenmasse Eigenmasse - ,[eza_VersendungsLandCode] VersendungsLand - ,[eza_Bestimmungsland] Bestimmungsland - ,[ezaWP_Artikelpreis]Rechnungspreis - ,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung - ,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger - ,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender + [Registriernummer_MRN] RegistriernummerATLAS + ,PositionNo PositionsNummer + ,max(Überlassungsdatum) Anmeldedatum + ,max([Bezugsnummer_LRN]) BezugsNr + ,max([Art_der_Vertretung]) VertretungsVerhaeltnis + ,max(Warentarifnummer) Tarifnummer + ,max(Eigenmasse) Eigenmasse + ,max([VersendungsLand]) VersendungsLand + ,'DE' Bestimmungsland + ,max([Rechnungsbetrag])Rechnungspreis + ,max([Rechnungswährung]) Rechnungswaehrung + ,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI + ,isnull(max(CZ_Name), '') as Empfänger + ,isnull(max(Versender_CZ_EORI),'') as AbsenderEORI + ,isnull(max(CN_Name), '') as Absender - FROM [VERAG].[dbo].[tblDakosy_EZA] - inner join tblDakosy_EZA_Warenposition on ezaWP_EzaId=eza_Id + FROM [tbl_DY_Zollmeldungen_Import] where - eza_anmeldedatum between '" & txtVon._value & "' and '" & txtBis._value & "' + Überlassungsdatum 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%') + ( + left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(Warentarifnummer,4) between 7301 and 7311 + OR left(Warentarifnummer,4) between 7205 and 7229 + OR left(Warentarifnummer,4) between 7603 and 7614 + OR Warentarifnummer like '25070080%' + OR Warentarifnummer like '283421%' + OR Warentarifnummer like '260112%' + OR Warentarifnummer like '720211%' + OR Warentarifnummer like '720219%' + OR Warentarifnummer like '720241%' + OR Warentarifnummer like '720249%' + OR Warentarifnummer like '720260%' + OR Warentarifnummer like '280410%' + ) + and Warentarifnummer not like '310560%' " - If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then + + If SQLSTR_WHERE_FIRMEN <> "" Then + SQLSTR &= " and Teilnehmer in ( " & SQLSTR_WHERE_FIRMEN & ")" SQLSTR &= " - and eza_VertretungsVerhaeltnisCode=2 + and left(Art_der_Vertretung,1) IN (2) " + Else 'Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird. @@ -404,17 +476,17 @@ Public Class usrCntlCBAM ' " SQLSTR &= " - and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' AND isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "') + and Empfänger_CN_EORI='" & EORI & "' " End If - If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")" + SQLSTR &= " group by Registriernummer_MRN,PositionNo" - SQLSTR &= " order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer" + SQLSTR &= " order by Absender,Registriernummer_MRN, PositionNo" - Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) - MsgBox(SQLSTR) + Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 600) + ' MsgBox(SQLSTR) 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 @@ -447,39 +519,58 @@ Public Class usrCntlCBAM 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%') + SELECT + left(Tarifnummer,8) Tarifnummer,sum(Eigenmasse)Eigenmasse,sum(Rohmasse)Rohmasse,sum(Rechnungspreis)Rechnungspreis,VersendungsLand VersendungsLand ,isnull(LEFT(Verfahren2,2),'') Verfahren,isnull(right(left(Verfahren2,4),2),'') VorangegangenesVerfahren + FROM ( + SELECT + [Registriernummer_MRN] RegistriernummerATLAS + ,PositionNo PositionsNummer + ,max(Überlassungsdatum) Anmeldedatum + ,max([Bezugsnummer_LRN]) BezugsNr + ,max([Art_der_Vertretung]) VertretungsVerhaeltnis + ,max(Warentarifnummer) Tarifnummer + ,max(Eigenmasse) Eigenmasse + ,max([VersendungsLand]) VersendungsLand + ,'DE' Bestimmungsland + ,max([Rechnungsbetrag])Rechnungspreis + ,max([Rechnungswährung]) Rechnungswaehrung + ,isnull(max(Empfänger_CN_EORI),'') as EmpfängerEORI + ,isnull(max(CZ_Name), '') as Empfänger + ,isnull(max(Versender_CZ_EORI),'') as AbsenderEORI + ,isnull(max(CN_Name), '') as Absender + ,max(Rohmasse)Rohmasse + ,max(Verfahren2)Verfahren2 + + FROM [tbl_DY_Zollmeldungen_Import] + where + Überlassungsdatum between '" & txtVon._value & "' and '" & txtBis._value & "' + and + ( + left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + OR left(Warentarifnummer,4) between 7301 and 7311 + OR left(Warentarifnummer,4) between 7205 and 7229 + OR left(Warentarifnummer,4) between 7603 and 7614 + OR Warentarifnummer like '25070080%' + OR Warentarifnummer like '283421%' + OR Warentarifnummer like '260112%' + OR Warentarifnummer like '720211%' + OR Warentarifnummer like '720219%' + OR Warentarifnummer like '720241%' + OR Warentarifnummer like '720249%' + OR Warentarifnummer like '720260%' + OR Warentarifnummer like '280410%' + ) + and Warentarifnummer not like '310560%' " - If cbxVERAG.Checked Or cbxIMEX.Checked Or cbxUNISPED.Checked Then + + If SQLSTR_WHERE_FIRMEN <> "" Then + SQLSTR &= " and Teilnehmer in ( " & SQLSTR_WHERE_FIRMEN & ")" SQLSTR &= " - and eza_VertretungsVerhaeltnisCode=2 + and left(Art_der_Vertretung,1) IN (2) " + Else 'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird. 'SQLSTR &= " @@ -487,17 +578,17 @@ Public Class usrCntlCBAM ' " SQLSTR &= " - and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' and isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "') + and Empfänger_CN_EORI='" & EORI & "' " End If - If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")" - - SQLSTR &= " group by eza_VersendungsLandCode,left(ezaWP_WarennummerEZT,8),ezaWP_AnmeldeVErfahren,ezaWP_VerfahrensCodeVorangegangenesVerfahren" + SQLSTR &= " group by Registriernummer_MRN,PositionNo + ) as T1 group by VersendungsLand,left(Tarifnummer,8),Verfahren2 " - Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + + Dim dt = SQL.loadDgvBySql(SQLSTR, "AVISO", 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 @@ -537,6 +628,212 @@ Public Class usrCntlCBAM End Sub + 'Private Sub btnCBAM_DS_DAKOSY_Click(sender As Object, e As EventArgs) Handles btnCBAM_DS_DAKOSY.Click + ' btnCBAM_DS_DAKOSY_Deteil.Enabled = False + ' btnCBAM_DS_DAKOSY_Copy.Enabled = False + ' btnCBAM_DS_DAKOSY_Deteil.Tag = "" + + ' Dim SQLSTR_WHERE_FIRMEN = "" + ' If cbxVERAG.Checked Then SQLSTR_WHERE_FIRMEN &= "'VERAG'" + ' If cbxIMEX.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'IMEX'" + ' If cbxUNISPED.Checked Then SQLSTR_WHERE_FIRMEN &= IIf(SQLSTR_WHERE_FIRMEN <> "", ", ", "") & "'UNISPED'" + + ' 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 + ' [eza_ANR] RegistriernummerATLAS + ' ,ezaWP_PositionsNummer PositionsNummer + ' ,isnull( eza_anmeldedatum, eza_Trans_DatumZeit) Anmeldedatum + ' ,[eza_ObjectName] BezugsNr + ' ,[eza_VertretungsVerhaeltnisCode] VertretungsVerhaeltnis + ' ,ezaWP_WarennummerEZT Tarifnummer + ' ,ezaWP_Eigenmasse Eigenmasse + ' ,[eza_VersendungsLandCode] VersendungsLand + ' ,[eza_Bestimmungsland] Bestimmungsland + ' ,[ezaWP_Artikelpreis]Rechnungspreis + ' ,[ezaWP_ArtikelpreisWaehrung] Rechnungswaehrung + ' ,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN') as Empfänger + ' ,(select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CZ') as Absender + + ' 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 Or cbxIMEX.Checked Or cbxUNISPED.Checked Then + ' SQLSTR &= " + ' and eza_VertretungsVerhaeltnisCode=2 + ' " + ' Else + ' 'Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird. + + ' 'SQLSTR &= " + ' ' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + ' ' " + + ' SQLSTR &= " + ' and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' AND isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "') + ' " + ' End If + + ' If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")" + + ' SQLSTR &= " order by Absender,eza_ANR, tblDakosy_EZA_Warenposition.ezaWP_PositionsNummer" + + + ' Dim dt = SQL.loadDgvBySql(SQLSTR, "FMZOLL", 600) + ' MsgBox(SQLSTR) + ' 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 Or cbxIMEX.Checked Or cbxUNISPED.Checked Then + ' SQLSTR &= " + ' and eza_VertretungsVerhaeltnisCode=2 + ' " + ' Else + ' 'Die Unterabfrage hat mehr als einen Wert zurückgegeben. Das ist nicht zulässig, wenn die Unterabfrage auf =, !=, <, <=, > oder >= folgt oder als Ausdruck verwendet wird. + ' 'SQLSTR &= " + ' ' and (select isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI]) FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN')='" & EORI & "' + ' ' " + + ' SQLSTR &= " + ' and EXISTS (select 1 FROM tblDakosy_EZA_Adressen WHERE ezaAd_EZAId=eza_Id and [ezaAd_AdressTyp]='CN' and isnull([ezaAd_NameFirma1],[ezaAd_TeilnehmerEORI])='" & EORI & "') + ' " + + ' End If + + ' If SQLSTR_WHERE_FIRMEN <> "" Then SQLSTR &= " and EZA_firma in ( " & SQLSTR_WHERE_FIRMEN & ")" + + ' 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 + Private Sub ButtonXML_Click(sender As Object, e As EventArgs) Handles Button1.Click Button2.Enabled = False btnCBAM_DS_DAKOSY_XML.Enabled = False diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/CHMRC.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/CHMRC.vb index 6df07154..1ba20cca 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/CHMRC.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/CHMRC.vb @@ -333,7 +333,7 @@ Public Class cHMRC ' genGVMS_GMR(AccessToken) 'End If End Sub - Shared Sub grantAccess(ByRef AccessToken, scope, HMRC_APPLICATION) + Shared Sub grantAccess(ByRef AccessToken, ByRef RefreshToken, scope, HMRC_APPLICATION) Try VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() @@ -458,6 +458,7 @@ Public Class cHMRC ' MsgBox("OAuth2 authorization granted!") Debug.WriteLine("OAuth2 authorization granted!") Debug.WriteLine("Access Token = " & oauth2.AccessToken) + Debug.WriteLine("Refresh Token = " & oauth2.RefreshToken) Dim json As Chilkat.JsonObject = New Chilkat.JsonObject() json.Load(oauth2.AccessTokenResponse) json.EmitCompact = False @@ -495,6 +496,10 @@ Public Class cHMRC 'fac.WriteEntireTextFile("qa_data/tokens/hmrc.json", json.Emit(), "utf-8", False) ' fac.WriteEntireTextFile("C:\Users\DEVELOPER1\Desktop\hmrc.json", json.Emit(), "utf-8", False) AccessToken = oauth2.AccessToken + RefreshToken = oauth2.RefreshToken + + + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try @@ -503,7 +508,7 @@ Public Class cHMRC Shared Sub HMRC_RefreshToken(ByRef TOKEN As cHMRCToken, HMRC_APPLICATION As String) - If DateDiff(DateInterval.Minute, TOKEN.token_refresh_datetime, Now) < 230 Then 'bis 240 MIN / 4hr + If DateDiff(DateInterval.Minute, TOKEN.token_accestoken_datetime, Now) < 230 Then 'bis 240 MIN / 4hr 'Token ist noch frisch Exit Sub End If @@ -527,11 +532,10 @@ Public Class cHMRC Dim CREDENTIALS = getCredentials(HMRC_APPLICATION) - Dim TOKEN_NEW = "" req.AddParam("client_secret", CREDENTIALS.CLIENT_SECRET) req.AddParam("client_id", CREDENTIALS.CLIENT_ID) req.AddParam("grant_type", "client_credentials") - req.AddParam("refresh_token", TOKEN_NEW) + req.AddParam("refresh_token", TOKEN.token_REFRESH_TOKEN) @@ -565,8 +569,9 @@ Public Class cHMRC 'json.EmitCompact = False 'json.WriteFile(tokenFile) - TOKEN.token_BEARER_TOKEN = If(accessToken <> "", accessToken, newRefreshToken) - TOKEN.token_refresh_datetime = Now + TOKEN.token_REFRESH_TOKEN = newRefreshToken + TOKEN.token_BEARER_TOKEN = accessToken + TOKEN.token_accestoken_datetime = Now TOKEN.SAVE() Console.WriteLine("Tokens wurden in TokenDB gespeichert.") @@ -1538,13 +1543,18 @@ Public Class cHMRC If forceNewToken OrElse TOKEN.hasEntry = False OrElse TOKEN.token_BEARER_TOKEN Is Nothing OrElse TOKEN.token_BEARER_TOKEN = "" Then + 'Neuer Token Dim AccessToken = "" - grantAccess(AccessToken, appl, HMRC_APPLICATION) + Dim RefreshToken = "" + grantAccess(AccessToken, RefreshToken, appl, HMRC_APPLICATION) TOKEN.token_Application = APPLICATION TOKEN.token_BEARER_TOKEN = AccessToken + TOKEN.token_REFRESH_TOKEN = RefreshToken TOKEN.token_refresh_datetime = Now + TOKEN.token_accestoken_datetime = Now TOKEN.SAVE() Else + 'Refresh HMRC_RefreshToken(TOKEN, HMRC_APPLICATION) End If diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRCToken.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRCToken.vb index 24292d21..727ce5bf 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRCToken.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRCToken.vb @@ -3,12 +3,13 @@ Imports System.Reflection Public Class cHMRCToken Property token_id As Integer - Property token_BEARER_TOKEN As String = "" + Property token_BEARER_TOKEN As String = "" 'Accesstoken Property token_datetime As Date = Now Property token_Firma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Property token_Application As String = "" - Property token_refresh_datetime As Object = Nothing - + Property token_refresh_datetime As Object = Nothing ' tmstmp für generelles refresh -> 18 Monate + Property token_accestoken_datetime As Object = Nothing ' Accesstoken 4 Std gültig + Property token_REFRESH_TOKEN As Object = Nothing ' wird wirds refresh benötigt Public hasEntry = False @@ -32,6 +33,8 @@ Public Class cHMRCToken list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_Firma", token_Firma)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_Application", token_Application)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_refresh_datetime", token_refresh_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_accestoken_datetime", token_accestoken_datetime)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("token_REFRESH_TOKEN", token_REFRESH_TOKEN)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRC_ENS.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRC_ENS.vb index c3d642d9..4778dd2e 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRC_ENS.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/cHMRC_ENS.vb @@ -78,7 +78,7 @@ Public Class cHMRC_ENS Return False End Function - Shared Function insertENS(ENS_CC315A As CC315AType, ByVal responseStr As String) As Boolean + Shared Function insertENS(ENS_CC315A As CC315AType, ByVal responseStr As String, Optional forceRefrehtoken As Boolean = False) As Boolean Try ' Chilkat-Objekt initialisieren ' Dim http As New Chilkat.Http() @@ -128,7 +128,7 @@ Public Class cHMRC_ENS - Dim TOKEN = cHMRC.getTOKEN("ENS") + Dim TOKEN = cHMRC.getTOKEN("ENS", forceRefrehtoken) If TOKEN.hasEntry Then @@ -143,13 +143,22 @@ Public Class cHMRC_ENS http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml") ' Setzen des Content-Type-Headers für die Anfrage + + If cHMRC_ENS.TEST Then + Dim mode = "Accept" + http.SetRequestHeader("simulateRiskingResponse", mode) + http.SetRequestHeader("simulateInterventionResponse", True) + + + + End If http.SetRequestHeader("Content-Type", "application/xml; charset=UTF-8") ' Definieren Sie die URL für die POST-Anfrage Dim urlHTTP As String = url & "/customs/imports/declarations" Dim xmlContent As String = ENS_CC315A.Serialize - ' xmlContent = File.ReadAllText("D:\Andreas\TMP\CC315A_Example1.xml") + xmlContent = File.ReadAllText("D:\Andreas\TMP\CC315A_Example1.xml") MsgBox(xmlContent) ' Senden Sie die POST-Anfrage mit dem XML-Inhalt @@ -275,31 +284,46 @@ Public Class cHMRC_ENS ' Erstellen Sie eine Instanz des Http-Objekts - Dim http As New Chilkat.Http() + Dim http As New Chilkat.Http - ' Authentifizierung: Setzen des Bearer-Tokens - http.AuthToken = TOKEN.token_BEARER_TOKEN + + ' Token hinzufügen (z. B. Bearer Token für Authentifizierung) + http.SetRequestHeader("Authorization", "Bearer " & TOKEN.token_BEARER_TOKEN) ' Setzen des Accept-Headers für die erwartete Antwort im XML-Format http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml") ' Setzen des Content-Type-Headers (kann erforderlich sein) - http.SetRequestHeader("Content-Type", "application/xml") + http.SetRequestHeader("Content-Type", "application/xml; charset=UTF-8") + + If cHMRC_ENS.TEST Then + Dim mode = "Accept" + http.SetRequestHeader("simulateRiskingResponse", mode) + End If ' Definieren Sie die URL für die PUT-Anfrage - Dim urlHttp As String = url & "/customs/imports/declarations/{" & MRN & "}" + Dim urlHttp As String = url & "/customs/imports/declarations/" & MRN & "" ' Senden Sie die PUT-Anfrage ohne Body - Dim response As Chilkat.HttpResponse = http.QuickRequest("PUT", urlHttp) + Dim xmlContent = File.ReadAllText("D:\Andreas\TMP\example_Amend.xml") + + MsgBox(xmlContent) + ' Senden Sie die POST-Anfrage mit dem XML-Inhalt + + + ' Sende die PUT-Anfrage mit XML-Daten + + Dim response As Chilkat.HttpResponse = http.PText("PUT", urlHttp, xmlContent, "utf-8", "application/xml", False, False) + ' Dim response As Chilkat.HttpResponse = http.QuickRequest("PUT", urlHttp) If (http.LastMethodSuccess = False) Then - Console.WriteLine("❌ Fehler bei der Anfrage: " & http.LastErrorText) + Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText) Return False End If ' Überprüfen Sie den HTTP-Statuscode der Antwort If (response.StatusCode = 200) Then - Console.WriteLine("✅ Entry Summary Declaration erfolgreich geändert.") + Console.WriteLine("Entry Summary Declaration erfolgreich geändert.") Console.WriteLine("Antwort:") Console.WriteLine(response.BodyStr) ' XML-Ausgabe der Antwort @@ -432,8 +456,15 @@ Public Class cHMRC_ENS http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml") ' Definieren Sie die URL für die GET-Anfrage - Dim urlHttp As String = url & "/customs/imports/outcomes/{" & correlationId & "}" + 'If cHMRC_ENS.TEST Then + ' Dim mode = "Accept" + ' http.SetRequestHeader("simulateRiskingResponse", mode) + 'End If + + + Dim urlHttp As String = url & "/customs/imports/outcomes/" & correlationId & "" + MsgBox(urlHttp) ' Senden Sie die GET-Anfrage Dim response As Chilkat.HttpResponse = http.QuickRequest("GET", urlHttp) @@ -572,10 +603,10 @@ Public Class cHMRC_ENS ' Setzen des Content-Type-Headers für die Anfrage http.SetRequestHeader("Content-Type", "application/xml") - ' Definieren Sie die URL für die POST-Anfrage - Dim urlHttp As String = url & "/customs/imports/outcomes/{" & correlationId & "}" + ' Definieren Sie die URL für die POST-Anfrage + Dim urlHttp As String = url & "/customs/imports/outcomes/" & correlationId & "" ' Senden Sie die POST-Anfrage ohne Body - Dim response As Chilkat.HttpResponse = http.QuickRequest("POST", urlHttp) + Dim response As Chilkat.HttpResponse = http.QuickRequest("DELETE", urlHttp) If (http.LastMethodSuccess = False) Then Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText) @@ -583,7 +614,7 @@ Public Class cHMRC_ENS End If ' Überprüfen Sie den HTTP-Statuscode der Antwort - If (response.StatusCode = 204) Then + If (response.StatusCode = 200) Then Console.WriteLine("✅ Benachrichtigung erfolgreich bestätigt.") Return True Else @@ -746,10 +777,10 @@ Public Class cHMRC_ENS ' Setzen des Content-Type-Headers für die Anfrage http.SetRequestHeader("Content-Type", "application/xml") - ' Definieren Sie die URL für die POST-Anfrage - Dim urlHttp As String = url & "/customs/imports/notifications/{" & notificationID & "}/acknowledge" + ' Definieren Sie die URL für die POST-Anfrage + Dim urlHttp As String = url & "/customs/imports/notifications/" & notificationID & "" ' Senden Sie die POST-Anfrage ohne Body - Dim response As Chilkat.HttpResponse = http.QuickRequest("POST", urlHttp) + Dim response As Chilkat.HttpResponse = http.QuickRequest("DELETE", urlHttp) If (http.LastMethodSuccess = False) Then Console.WriteLine("Fehler bei der Anfrage: " & http.LastErrorText) @@ -803,7 +834,8 @@ Public Class cHMRC_ENS http.SetRequestHeader("Accept", "application/vnd.hmrc.1.0+xml") ' Definieren Sie die URL für die GET-Anfrage - Dim urlHttp As String = url & "/customs/imports/notifications/{" & notificationID & "}" + + Dim urlHttp As String = url & "/customs/imports/notifications/" & notificationID & "" ' Senden Sie die GET-Anfrage Dim response As Chilkat.HttpResponse = http.QuickRequest("GET", urlHttp)