diff --git a/SDL/Fakturierung/cAutomailversand.vb b/SDL/Fakturierung/cAutomailversand.vb index c6cde13c..25b77251 100644 --- a/SDL/Fakturierung/cAutomailversand.vb +++ b/SDL/Fakturierung/cAutomailversand.vb @@ -173,7 +173,7 @@ Public Class cAutomailversand Dim TextHTML = "" TextHTML &= HTMLMail - TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True) + TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True, True) HTMLMail = "
" & TextHTML & "
" If setLog(SR_DT, row, FirmaID, SammelrechungArt, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,,, FISKAL) Then @@ -307,7 +307,7 @@ Public Class cAutomailversand Dim TextHTML = "" TextHTML &= HTMLMail - TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True) + TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, True, True) HTMLMail = "
" & TextHTML & "
" If setLog(dt, r, FirmaID, RECHNUNG.Sammelrechnung, Rechnungsdatum, ATTACHMENTS, Mailsubject, HTMLMail, MailTo, MailtoCC, MailtoBCC,, RECHNUNG, FISKAL, SPEDBUCH) Then @@ -554,7 +554,7 @@ Public Class cAutomailversand TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "

" - TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True) + TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID, True, True,,,,, , True) Mail.HTMLBody = "
" & TextHTML & "
" Mail.To = MailTo @@ -1613,7 +1613,7 @@ Public Class cAutomailversand If FirmaID = 24 Then Mail_StbFA.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR",, True) - TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID,,,, "") + TextHTML &= cFakturierung.getSignature(AD.LandKz, FirmaID,,,, "",,,, True) TextHTML &= "" Mail_StbFA.HTMLBody = TextHTML diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 46fa463c..a1f9e961 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -3,7 +3,6 @@ Imports System.Globalization Imports System.IO Imports System.Net Imports System.Web.UI.WebControls.Expressions -Imports com.sun.source.tree Imports iText.Kernel.Pdf Imports iTextSharp.text.pdf Imports Microsoft.Office.Interop @@ -3765,13 +3764,78 @@ Public Class cFakturierung Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID) End Function - Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "", Optional departmentmailadress = True, Optional fakturierung = False, Optional firmenSignature = False) As String + Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "", Optional departmentmailadress = True, Optional fakturierung = False, Optional firmenSignature = False, Optional useImagesFromWebserver = False) As String getSignature = "" firma = getFirmaNr(firma) Dim imgsrc = System.IO.Path.GetFullPath(Application.StartupPath & "\Resources\").Replace("\", "/") + Dim imgTag As String = "" + + If useImagesFromWebserver Then + + Dim firma_temp As New cFirmen(firma) + Dim logo As Byte() + If firma_temp.Firma_Logo_Erweitert IsNot Nothing Then + logo = firma_temp.Firma_Logo_Erweitert + ElseIf firma_temp.Firma_Logo IsNot Nothing Then + logo = firma_temp.Firma_Logo + End If + + + Dim imageBytes() As Byte = CType(logo, Byte()) + Dim base64 As String = Convert.ToBase64String(imageBytes) + imgTag = "" + + Else + + Select Case special + Case "BREXIT_VERAG" : imgTag = "" + Case Else + + Select Case firma + Case 1 'VERAG + imgTag = "" + + Case 4 'VERAG AG (DE) + imgTag = "" + + Case 7 'ATILLA + imgTag = "" + + Case 11 'VERAG CS + imgTag = "" + + Case 20 'Imex + imgTag = "" + + Case 24 'AMBAR + + imgTag = "" + + Case 21 'UNISPED + imgTag = "" + + Case 19 'VERAG360 + imgTag = "" + + Case 26 'VERAG-UNISPED + imgTag = "" + + Case 99 'GmbH + imgTag = "" + + Case 17 'Front-Office + imgTag = "" + + End Select + + End Select + + + End If + Dim emailindividuell As String = "" If Not firmenSignature Then emailindividuell = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email @@ -3780,65 +3844,65 @@ Public Class cFakturierung Select Case special Case "BREXIT_VERAG" - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-885 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "brexit@verag.ag") & " | www.verag.ag | FN 216714y
" Case Else Select Case firma Case 1 'VERAG - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 4 'VERAG AG (DE) - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-947 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "s.kriegner@verag.ag") & " | www.verag.ag | FN 216714y
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 7 'ATILLA - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
ATILLA Spedition GmbH
" getSignature &= "
A 4975 Suben, Nr. 15
T +43 7711 2845-0 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 11 'VERAG CS - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG Customs Service
" getSignature &= "
A 4975 Suben, Nr. 14
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "versand@verag.com") & " | www.verag.ag | FN 406316z
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 20 'Imex - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
Imex Customs Service GmbH
" getSignature &= "
A 4975 Suben, Autobahngrenze 15
T +43 7711 31630 | F +43 7711 31630-1 | @ " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 24 'AMBAR Dim defaultMail = getDefaultMail("AMBAR", departmentmailadress, fakturierung) - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
AMBAR | IMPORT ZOLL
" getSignature &= "
D 83435 Bad Reichenhall, Reichenhallerstrasse 62
T +49 8651 9962492 | F +49 8651 9962493 | @ " & If(individuell, emailindividuell, defaultMail) & " | www.ambarlog.com | DE309105428
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 21 'UNISPED - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
Unisped Speditions GmbH
" getSignature &= "
A 4975 Suben, Nr. 15
T +43 7711 2677-0 | F +43 7711 2677-27 | @ " & If(individuell, emailindividuell, "office@unisped.at") & " | www.unisped.at | FN 375838d
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 19 'VERAG360 - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG 360 GmbH
" getSignature &= "
A 4975 Suben, Nr. 100
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, If(firmenSignature, "mmdabrechnung@verag.ag", emailindividuell), "mmd@verag.ag") & " | www.verag.ag | FN 544732b
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 26 'VERAG-UNISPED - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG-UNISPED LTD
" getSignature &= "
Kent CT16 1BY Dover, 1 Cannon Street
T +44 1304 272475 | @ invoice@verag-unisped.uk | www.verag-unisped.uk | Company-No. 13107151 | VAT GB389356931
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 99 'GmbH - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
VERAG Spedition GmbH
" getSignature &= "
D 94152 Neuhaus/Inn, Hartham 6
T +43 7711 2777-0 | F +43 7711 31 073 | @ " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 17 'Front-Office - getSignature &= "" + getSignature &= imgTag If displayFirmenmane Then getSignature &= "
Front Office Suben eG
" getSignature &= "
A 4975 Suben, Nr. 14
T +43 7711 31636 -0 | @ " & If(individuell, emailindividuell, "suben@front-office.eu") & " | www.front-office.eu
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine @@ -4669,9 +4733,9 @@ Public Class cFakturierung Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr As Integer, DruckDatumZeit As Date, PrinterName As String, Optional ByRef pathPDF_Anlage As List(Of String) = Nothing, Optional RechnungsdruckArt As Integer = -1, Optional VorschauID As String = "") As Boolean Dim dt As DataTable If VorschauID = "" Then - SQL.loadDgvBySql("Select RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(" & IIf(RechnungsdruckArt = 7, "2", "2, 3, 4") & ") And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + dt = SQL.loadDgvBySql("Select RK_ID FROM Rechnungsausgang WHERE Rechnungsausgang.Status In(" & IIf(RechnungsdruckArt = 7, "2", "2, 3, 4") & ") And Convert(DateTime, DruckDatumZeit, 104) ='" & DruckDatumZeit.ToString("dd.MM.yyyy HH:mm:ss.fff") & "' and RechnungsNr='" & RechnungsNr & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") Else - SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") + dt = SQL.loadDgvBySql("SELECT RK_ID FROM Rechnungsausgang WHERE RechnungsNr is null AND VorschauID='" & VorschauID & "' ORDER BY FilialenNr, AbfertigungsNr", "FMZOLL") End If If dt IsNot Nothing Then diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.resx b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.resx index afc2ceec..35278b44 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.resx +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.resx @@ -129,6 +129,30 @@ True + + True + + + True + + + True + + + True + + + True + + + True + + + True + + + True + True diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index fa764bbd..ae9eef2d 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -91,47 +91,14 @@ Case "IMEX" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX")) cboFirma.changeItem("IMEX") - 'MyComboBox1.Items.Clear() - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - ''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - ''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - '' End If MyComboBox1.changeItem("VZ") Case "UNISPED" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED Speditions GmbH", "UNISPED")) cboFirma.changeItem("UNISPED") - 'MyComboBox1.Items.Clear() - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - ''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - ''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - '' End If MyComboBox1.changeItem("VZ") Case "IMEX" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX Customs Service GmbH", "IMEX")) cboFirma.changeItem("IMEX") - 'MyComboBox1.Items.Clear() - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - ''MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - ''If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - ' End If MyComboBox1.changeItem("VZ") Case "ATILLA" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA Spedition GmbH", "ATILLA")) @@ -139,41 +106,22 @@ Case "AMBAR" cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR Logistic Services GmbH", "AMBAR")) cboFirma.changeItem("AMBAR") - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "VZ")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) Case Else cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Spedition AG", "AG")) cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG Customs Service GmbH", "CS")) - cboFirma.changeItem("AG") - 'MyComboBox1.Items.Clear() - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung", "VZ")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung EV", "VZ_EV")) - '' MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Rückware", "VZ_RW")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("nur EUST", "EUST")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Gemüse,Arznei,Lebensmittel", "VZ_SPECIAL_1")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VZ Lebensmittel Backwaren", "VZ_SPECIAL_2")) - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FISKAL_Preise", Me.FindForm) Then - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal AT", "VZ_FISKAL")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verzollung Fiskal DE", "VZ_FISKAL_DE")) - End If - - If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("BREXIT", "AVISO") Then cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "LTD")) End If - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING")) - 'MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT")) - MyComboBox1.changeItem("VZ") + + If MyComboBox1._value <> "VZ_EV" AndAlso cboFirma._value <> "AG" Then + cboFirma.changeItem("AG") + MyComboBox1.changeItem("VZ") + End If + End Select - initPreisliste() + initPreisliste(cboFirma._value) If KdNR > 0 Then initKdNR(KdNR) @@ -187,7 +135,7 @@ Private Sub btnStandardPreiseLaden_Click(sender As Object, e As EventArgs) Handles btnStandardPreiseLaden.Click - initPreisliste() + initPreisliste(cboFirma._value) End Sub @@ -241,2136 +189,31 @@ End Sub 'ab 24 .02.2025 - Sub initPreisliste() + Sub initPreisliste(Optional firma As String = "AG") Dim formManager As New SDL.frmFormulare Dim cnt As Integer = 1 - cboFirma.changeItem("AG") + cboFirma.changeItem(firma) + Dim sqlstrHauptleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'HAUPT' AND AKTIV = 1 ORDER BY PositionsNr;" + Dim sqlstrZusatzleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'ZUSATZ' AND AKTIV = 1 ORDER BY Beschreibung_DE;" - If cbxAusDB.Checked Then + Dim dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL") + Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL") - - Dim sqlstrHauptleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'HAUPT' AND AKTIV = 1 ORDER BY PositionsNr;" - Dim sqlstrZusatzleistungen As String = "SELECT isnull([PositionsNr],'') as PositionsNr, isnull([LeistungsCode], '') as LeistungsCode, [Beschreibung_EN], [Beschreibung_DE], [Preis], [Preiseinheit],[Preiseinheit_DE] FROM tblVZPreisliste WHERE Firma = '" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' AND TarifCode = '" & MyComboBox1._value & "' AND Leistungsart = 'ZUSATZ' AND AKTIV = 1 ORDER BY Beschreibung_DE;" - - Dim dtHaupt As DataTable = (New SQL).loadDgvBySql(sqlstrHauptleistungen, "FMZOLL") - Dim dtZusatz As DataTable = (New SQL).loadDgvBySql(sqlstrZusatzleistungen, "FMZOLL") - - loadDGV(dtHaupt, dtZusatz, cboSprache._value) - - - Else - - DataGridView.Rows.Clear() - dgvZusatzleistung.Rows.Clear() - - Select Case cboSprache._value - Case "EN" - Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Case "IMEX" - Select Case MyComboBox1._value - Case "VZ" - ' Translated English code - DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request") - dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") - - dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - Case "VZ_EV_EN" - DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request") - dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") - - Case "VZ_FISKAL" - DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - - Case "VZ_FISKAL_DE" - DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - - Case "VZ_SPECIAL_1" - DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - - Case "VZ_SPECIAL_2" - DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - - Case "EUST" - DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - End Select - Case "UNISPED" - Select Case MyComboBox1._value - Case "VZ" - ' Translated English code - DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at 1st clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(20).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "348", "Additional costs foreign border", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Additional costs vegetables, pharmaceuticals, food", "upon request") - dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") - - dgvZusatzleistung.Rows.Add("", "", "Surcharge return goods clearance/active processing", CDbl(20).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Surcharge pharmaceuticals or food", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch document", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "T1 Transit Document", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - Case "VZ_EV_EN" - DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization / CMR Creation", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Additional costs for foreign border", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Goods location clearance", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "upon request") - dgvZusatzleistung.Rows.Add("", "348", "Notification costs (prepayment)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") - - Case "VZ_FISKAL" - DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "CMR Dispatch Document", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - - Case "VZ_FISKAL_DE" - DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - - Case "VZ_SPECIAL_1" - DataGridView.Rows.Add(cnt, "", "Customs clearance for vegetables, pharmaceuticals, food (incl. 1 tariff number)", CDbl(198).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - - Case "VZ_SPECIAL_2" - DataGridView.Rows.Add(cnt, "", "Customs clearance for food bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Each additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - - Case "EUST" - DataGridView.Rows.Add(cnt, "", "Import VAT", "as per tax assessment") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (from import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (from import duties)", "") : cnt += 1 - - 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(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - - dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") - dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") - 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - - Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Customs clearance (incl. 1 tariff number)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Additional costs for vegetables, pharmaceuticals, food", "on request") - dgvZusatzleistung.Rows.Add("", "", "Cancellation costs", "50%") - 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) - - cboFirma.changeItem("CS") - - Case "VZ_FISKAL" - DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(270).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - 'dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) - - cboFirma.changeItem("CS") - - Case "VZ_FISKAL_DE" - DataGridView.Rows.Add(cnt, "", "Fiscal customs clearance (incl. 1 tariff number)", CDbl(240).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - 'DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - 'DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - 'DataGridView.Rows.Add(cnt, "", "Goods location", CDbl(60).ToString("C2")) : cnt += 1 - - 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(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Request corrected invoice", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Invoice translation", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Surcharge for return goods clearance/active processing", CDbl(17).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralization", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Customs inspection costs per 30 min.", CDbl(40).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Surcharge for pharmaceuticals or food", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR dispatch note", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Transit T1", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG goods location", CDbl(60).ToString("C2")) - - Case "VZ_SPECIAL_2" ' "VZ Food Bakery Products" - DataGridView.Rows.Add(cnt, "", "Customs clearance for bakery products (incl. 1 tariff number)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Per additional tariff number", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixed fee", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - - 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(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "as per table") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) surcharge", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1% advance payment commission (on import duties)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2% credit expenses (on import duties)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance check (ONCE only at first clearance)", CDbl(80).ToString("C2")) - - 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(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - - Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - ' cboFirma.changeItem("CS") - Case "VZ_RW" 'NICHT MEHR! - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(245).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - - Case "VZ_FISKAL" - - DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(270).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "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(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - ' cboFirma.changeItem("AG") - - Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - - Case "VZ_SPECIAL_2" '"VZ Backwaren" - DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - - Case "EUST" - - DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - - - End Select - Case "UNISPED" - Select Case MyComboBox1._value - Case "VZ" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(20).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - - Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - ' cboFirma.changeItem("CS") - Case "VZ_RW" 'NICHT MEHR! - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "Rückwarenverzollung", CDbl(245).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - - Case "VZ_FISKAL" - - DataGridView.Rows.Add(cnt, "", "Fiskal-Verzollung (inkl. 1 Tarifnummer)", CDbl(270).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "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(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - ' cboFirma.changeItem("AG") - - Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse/Arznei/Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - - Case "VZ_SPECIAL_2" '"VZ Backwaren" - DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "348", "Avisokosten (Vorkasse)", CDbl(30).ToString("C2")) - - Case "EUST" - - DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - - - 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(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - - Case "VZ_EV" - DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(145).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(9).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage") - dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %") - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - cboFirma.changeItem("CS") - '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(270).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(15).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "EZOLL (AT) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - 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(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - ' DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - ' DataGridView.Rows.Add(cnt, "", "Warenort", CDbl(60).ToString("C2")) : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - ' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - - cboFirma.changeItem("AG") - - Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung Gemüse,Arznei,Lebensmittel (inkl. 1 Tarifnummer)", CDbl(198).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2")) - ' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2")) - Case "VZ_SPECIAL_2" '"VZ Gemüse,Arznei,Lebensmittel" - DataGridView.Rows.Add(cnt, "", "Verzollung Lebensmittel Backwaren (inkl. 1 Tarifnummer)", CDbl(298).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "", "je weitere Tarifnummer", CDbl(25).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min") - - dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(100).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2")) - dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2")) - 'dgvZusatzleistung.Rows.Add("", "", "Aufschlag 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(18).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "260", "SVS", "lt. Tabelle") : cnt += 1 - DataGridView.Rows.Add(cnt, "324", "ATLAS (DE) Zuschlag", CDbl(12).ToString("C2")) : cnt += 1 - DataGridView.Rows.Add(cnt, "700", "1 % Vorlageprovision (von Einfuhrabgaben)", "") : cnt += 1 - DataGridView.Rows.Add(cnt, "750", "2 % Kreditaufwendung (von Einfuhrabgaben)", "") : cnt += 1 - - dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2")) - - 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 - - End If + loadDGV(dtHaupt, dtZusatz, cboSprache._value) 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() End Sub - - Private Sub DataGridView_UserAddedRow(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.UserAddedRow - initRowNr() - End Sub - - Private Sub DataGridView_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.UserDeletedRow + Private Sub DataGridView_UserDeletedRow(sender As Object, e As DataGridViewRowEventArgs) Handles DataGridView.UserDeletedRow, DataGridView.UserAddedRow initRowNr() End Sub @@ -2383,11 +226,15 @@ Next End Sub - Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged - btnStandardPreiseLaden.PerformClick() + + Private Sub MyComboBox1_SelectedValueChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedValueChanged + Select Case MyComboBox1._value + Case "VZ_EV" : cboFirma.changeItem("CS") : btnStandardPreiseLaden.PerformClick() + Case Else : btnStandardPreiseLaden.PerformClick() + End Select End Sub - Private Sub MyComboBoxSprache_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboSprache.SelectedIndexChanged - initPreisliste() + Private Sub cboSprache_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSprache.SelectedValueChanged + initPreisliste(cboFirma._value) End Sub End Class diff --git a/SDL/SMS/frmSendSMS.Designer.vb b/SDL/SMS/frmSendSMS.Designer.vb index 0fef18fd..388c96d2 100644 --- a/SDL/SMS/frmSendSMS.Designer.vb +++ b/SDL/SMS/frmSendSMS.Designer.vb @@ -73,11 +73,18 @@ Partial Class frmSendSMS Me.Button30 = New System.Windows.Forms.Button() Me.Button31 = New System.Windows.Forms.Button() Me.pnl = New System.Windows.Forms.Panel() + Me.Button43 = New System.Windows.Forms.Button() Me.Button32 = New System.Windows.Forms.Button() Me.Button33 = New System.Windows.Forms.Button() Me.Button34 = New System.Windows.Forms.Button() Me.Button35 = New System.Windows.Forms.Button() Me.Button36 = New System.Windows.Forms.Button() + Me.Button37 = New System.Windows.Forms.Button() + Me.Button38 = New System.Windows.Forms.Button() + Me.Button39 = New System.Windows.Forms.Button() + Me.Button40 = New System.Windows.Forms.Button() + Me.Button41 = New System.Windows.Forms.Button() + Me.Button42 = New System.Windows.Forms.Button() Me.pnl.SuspendLayout() Me.SuspendLayout() ' @@ -112,7 +119,7 @@ Partial Class frmSendSMS Me.txtHandyNummer.MaxLines_Warning_Label = Nothing Me.txtHandyNummer.Multiline = True Me.txtHandyNummer.Name = "txtHandyNummer" - Me.txtHandyNummer.Size = New System.Drawing.Size(307, 28) + Me.txtHandyNummer.Size = New System.Drawing.Size(333, 28) Me.txtHandyNummer.TabIndex = 2 ' 'Label1 @@ -149,7 +156,7 @@ Partial Class frmSendSMS Me.txtNachricht.MaxLines_Warning = "" Me.txtNachricht.MaxLines_Warning_Label = Nothing Me.txtNachricht.Name = "txtNachricht" - Me.txtNachricht.Size = New System.Drawing.Size(442, 78) + Me.txtNachricht.Size = New System.Drawing.Size(467, 78) Me.txtNachricht.TabIndex = 6 Me.txtNachricht.Text = "" ' @@ -314,7 +321,7 @@ Partial Class frmSendSMS Me.cbxLKWOK.AutoSize = True Me.cbxLKWOK.Checked = True Me.cbxLKWOK.CheckState = System.Windows.Forms.CheckState.Checked - Me.cbxLKWOK.Location = New System.Drawing.Point(329, 122) + Me.cbxLKWOK.Location = New System.Drawing.Point(354, 122) Me.cbxLKWOK.Name = "cbxLKWOK" Me.cbxLKWOK.Size = New System.Drawing.Size(120, 17) Me.cbxLKWOK.TabIndex = 18 @@ -329,7 +336,7 @@ Partial Class frmSendSMS Me.cboFirma.DropDownWidth = 250 Me.cboFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) Me.cboFirma.FormattingEnabled = True - Me.cboFirma.Location = New System.Drawing.Point(329, 57) + Me.cboFirma.Location = New System.Drawing.Point(354, 57) Me.cboFirma.Name = "cboFirma" Me.cboFirma.Size = New System.Drawing.Size(128, 28) Me.cboFirma.TabIndex = 5 @@ -437,7 +444,7 @@ Partial Class frmSendSMS Me.btnSndWhatsApp.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnSndWhatsApp.Font = New System.Drawing.Font("Microsoft Sans Serif", 7.0!) Me.btnSndWhatsApp.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSndWhatsApp.Location = New System.Drawing.Point(302, 2) + Me.btnSndWhatsApp.Location = New System.Drawing.Point(327, 2) Me.btnSndWhatsApp.Name = "btnSndWhatsApp" Me.btnSndWhatsApp.Size = New System.Drawing.Size(155, 32) Me.btnSndWhatsApp.TabIndex = 31 @@ -505,7 +512,7 @@ Partial Class frmSendSMS Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button26.Image = Global.SDL.My.Resources.Resources.sms_s Me.Button26.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button26.Location = New System.Drawing.Point(329, 141) + Me.Button26.Location = New System.Drawing.Point(354, 141) Me.Button26.Name = "Button26" Me.Button26.Size = New System.Drawing.Size(128, 43) Me.Button26.TabIndex = 37 @@ -650,6 +657,7 @@ Partial Class frmSendSMS ' 'pnl ' + Me.pnl.Controls.Add(Me.Button43) Me.pnl.Controls.Add(Me.Label6) Me.pnl.Controls.Add(Me.Button31) Me.pnl.Controls.Add(Me.MyRichTextBox1) @@ -660,9 +668,20 @@ Partial Class frmSendSMS Me.pnl.Dock = System.Windows.Forms.DockStyle.Bottom Me.pnl.Location = New System.Drawing.Point(0, 492) Me.pnl.Name = "pnl" - Me.pnl.Size = New System.Drawing.Size(469, 108) + Me.pnl.Size = New System.Drawing.Size(494, 108) Me.pnl.TabIndex = 54 ' + 'Button43 + ' + Me.Button43.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button43.Location = New System.Drawing.Point(455, 28) + Me.Button43.Name = "Button43" + Me.Button43.Size = New System.Drawing.Size(35, 44) + Me.Button43.TabIndex = 54 + Me.Button43.Text = "MK" + Me.Button43.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button43.UseVisualStyleBackColor = True + ' 'Button32 ' Me.Button32.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -718,12 +737,84 @@ Partial Class frmSendSMS Me.Button36.TextAlign = System.Drawing.ContentAlignment.MiddleLeft Me.Button36.UseVisualStyleBackColor = True ' + 'Button37 + ' + Me.Button37.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button37.Location = New System.Drawing.Point(455, 331) + Me.Button37.Name = "Button37" + Me.Button37.Size = New System.Drawing.Size(35, 25) + Me.Button37.TabIndex = 60 + Me.Button37.Text = "MK" + Me.Button37.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button37.UseVisualStyleBackColor = True + ' + 'Button38 + ' + Me.Button38.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button38.Location = New System.Drawing.Point(455, 355) + Me.Button38.Name = "Button38" + Me.Button38.Size = New System.Drawing.Size(35, 25) + Me.Button38.TabIndex = 61 + Me.Button38.Text = "MK" + Me.Button38.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button38.UseVisualStyleBackColor = True + ' + 'Button39 + ' + Me.Button39.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button39.Location = New System.Drawing.Point(455, 379) + Me.Button39.Name = "Button39" + Me.Button39.Size = New System.Drawing.Size(35, 25) + Me.Button39.TabIndex = 62 + Me.Button39.Text = "MK" + Me.Button39.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button39.UseVisualStyleBackColor = True + ' + 'Button40 + ' + Me.Button40.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button40.Location = New System.Drawing.Point(455, 403) + Me.Button40.Name = "Button40" + Me.Button40.Size = New System.Drawing.Size(35, 25) + Me.Button40.TabIndex = 63 + Me.Button40.Text = "MK" + Me.Button40.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button40.UseVisualStyleBackColor = True + ' + 'Button41 + ' + Me.Button41.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button41.Location = New System.Drawing.Point(455, 427) + Me.Button41.Name = "Button41" + Me.Button41.Size = New System.Drawing.Size(35, 25) + Me.Button41.TabIndex = 64 + Me.Button41.Text = "MK" + Me.Button41.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button41.UseVisualStyleBackColor = True + ' + 'Button42 + ' + Me.Button42.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button42.Location = New System.Drawing.Point(455, 451) + Me.Button42.Name = "Button42" + Me.Button42.Size = New System.Drawing.Size(35, 25) + Me.Button42.TabIndex = 65 + Me.Button42.Text = "MK" + Me.Button42.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button42.UseVisualStyleBackColor = True + ' 'frmSendSMS ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White - Me.ClientSize = New System.Drawing.Size(469, 600) + Me.ClientSize = New System.Drawing.Size(494, 600) + Me.Controls.Add(Me.Button42) + Me.Controls.Add(Me.Button41) + Me.Controls.Add(Me.Button40) + Me.Controls.Add(Me.Button39) + Me.Controls.Add(Me.Button38) + Me.Controls.Add(Me.Button37) Me.Controls.Add(Me.Button32) Me.Controls.Add(Me.Button33) Me.Controls.Add(Me.Button34) @@ -837,4 +928,11 @@ Partial Class frmSendSMS Friend WithEvents Button34 As Button Friend WithEvents Button35 As Button Friend WithEvents Button36 As Button + Friend WithEvents Button43 As Button + Friend WithEvents Button37 As Button + Friend WithEvents Button38 As Button + Friend WithEvents Button39 As Button + Friend WithEvents Button40 As Button + Friend WithEvents Button41 As Button + Friend WithEvents Button42 As Button End Class diff --git a/SDL/SMS/frmSendSMS.vb b/SDL/SMS/frmSendSMS.vb index 1256e2cd..1ec2f4ba 100644 --- a/SDL/SMS/frmSendSMS.vb +++ b/SDL/SMS/frmSendSMS.vb @@ -256,6 +256,7 @@ Public Class frmSendSMS Dim template_BG = "47c7128f-69a0-488d-8035-2f10d3255c6d" Dim template_EN = "20b1379c-6d2d-4577-a524-ddccf2e8ab59" Dim template_YU = "08ef1aec-5b02-47c1-98bb-1d50ed3bfc1a" + Dim template_MK = "01e9cca5-f8a5-461e-93e8-ab321d41f99d" Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click fillTXT("Bitte zu VERAG kommen!", "LKW: ", "e5c1ce77-31a0-4663-9576-be340f73ac1c") @@ -450,6 +451,34 @@ Public Class frmSendSMS Private Sub Button32_Click(sender As Object, e As EventArgs) Handles Button32.Click fillTXT("Моля, махнете печата и го занесете в VERAG!", "TIR: ", template_BG, "Моля, махнете печата и го занесете в VERAG!") End Sub + + Private Sub Button37_Click(sender As Object, e As EventArgs) Handles Button37.Click + fillTXT("Ве молиме дојдете во VERAG!", "LKW: ", template_MK) + End Sub + + Private Sub Button38_Click(sender As Object, e As EventArgs) Handles Button38.Click + fillTXT("Ве молиме дојдете во VERAG и понесете го вашиот пасош!", "LKW: ", template_MK) + End Sub + + Private Sub Button39_Click(sender As Object, e As EventArgs) Handles Button39.Click + fillTXT("Ве молиме дојдете во VERAG и подигнете го печатот!", "LKW: ", template_MK, " и земи го печатот со себе!") + End Sub + + Private Sub Button40_Click(sender As Object, e As EventArgs) Handles Button40.Click + fillTXT("ВВе молиме дојдете во VERAG и понесете готовина со себе: € ", "LKW: ", template_MK, " и понесете готовина со себе: € ") + End Sub + + Private Sub Button41_Click(sender As Object, e As EventArgs) Handles Button41.Click + fillTXT("Ве молиме подигнете го пликот од царината и дојдете во VERAG!", "LKW: ", template_MK, "Ве молиме подигнете го пликот од царината!") + End Sub + + Private Sub Button42_Click(sender As Object, e As EventArgs) Handles Button42.Click + fillTXT("Ве молиме отстранете ги пломбите и однесете ги во канцеларијата на VERAG!", "LKW: ", template_MK, "Ве молиме отстранете ги пломбите и однесете ги во канцеларијата на VERAG.") + End Sub + + Private Sub Button43_Click(sender As Object, e As EventArgs) Handles Button43.Click + If MyRichTextBox1.Text <> "" Then fillTXT("Ве молиме дојдете во VERAG " & MyRichTextBox1.Text, "", template_DE, MyRichTextBox1.Text) + End Sub End Class Public Class cSMSOptions diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb new file mode 100644 index 00000000..cc58f6db --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.Designer.vb @@ -0,0 +1,343 @@ + +Partial Class frmFirmenuebersicht + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFirmenuebersicht)) + Me.AbgeholtToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.cntxtOptionen = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.StornoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.dgvFirmen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.pnloptions = New System.Windows.Forms.Panel() + Me.Label9 = New System.Windows.Forms.Label() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button2 = New System.Windows.Forms.Button() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.pbLogoMail = New System.Windows.Forms.PictureBox() + Me.pbLogo = New System.Windows.Forms.PictureBox() + Me.Label2 = New System.Windows.Forms.Label() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label5 = New System.Windows.Forms.Label() + Me.pnlTop = New System.Windows.Forms.Panel() + Me.Label4 = New System.Windows.Forms.Label() + Me.lblFirma = New System.Windows.Forms.Label() + Me.cntxtOptionen.SuspendLayout() + Me.Panel1.SuspendLayout() + CType(Me.dgvFirmen, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnloptions.SuspendLayout() + Me.Panel2.SuspendLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pbLogoMail, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.pbLogo, System.ComponentModel.ISupportInitialize).BeginInit() + Me.pnlTop.SuspendLayout() + Me.SuspendLayout() + ' + 'AbgeholtToolStripMenuItem + ' + Me.AbgeholtToolStripMenuItem.Name = "AbgeholtToolStripMenuItem" + Me.AbgeholtToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.AbgeholtToolStripMenuItem.Text = "Abgeholt" + ' + 'cntxtOptionen + ' + Me.cntxtOptionen.ImageScalingSize = New System.Drawing.Size(24, 24) + Me.cntxtOptionen.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AbgeholtToolStripMenuItem, Me.StornoToolStripMenuItem}) + Me.cntxtOptionen.Name = "cntxtOptionen" + Me.cntxtOptionen.Size = New System.Drawing.Size(124, 48) + Me.cntxtOptionen.Text = "Optionen" + ' + 'StornoToolStripMenuItem + ' + Me.StornoToolStripMenuItem.Name = "StornoToolStripMenuItem" + Me.StornoToolStripMenuItem.Size = New System.Drawing.Size(123, 22) + Me.StornoToolStripMenuItem.Text = "Storno" + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.dgvFirmen) + Me.Panel1.Controls.Add(Me.pnloptions) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1429, 779) + Me.Panel1.TabIndex = 4 + ' + 'dgvFirmen + ' + Me.dgvFirmen.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvFirmen.AllowUserToAddRows = False + Me.dgvFirmen.AllowUserToDeleteRows = False + Me.dgvFirmen.AllowUserToOrderColumns = True + Me.dgvFirmen.AllowUserToResizeRows = False + Me.dgvFirmen.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.GradientInactiveCaption + DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.ControlText + DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.dgvFirmen.DefaultCellStyle = DataGridViewCellStyle1 + Me.dgvFirmen.Dock = System.Windows.Forms.DockStyle.Fill + Me.dgvFirmen.Location = New System.Drawing.Point(0, 109) + Me.dgvFirmen.Name = "dgvFirmen" + Me.dgvFirmen.RowHeadersVisible = False + Me.dgvFirmen.Size = New System.Drawing.Size(1429, 610) + Me.dgvFirmen.TabIndex = 10 + ' + 'pnloptions + ' + Me.pnloptions.BackColor = System.Drawing.Color.WhiteSmoke + Me.pnloptions.Controls.Add(Me.Label9) + Me.pnloptions.Controls.Add(Me.MyTextBox2) + Me.pnloptions.Controls.Add(Me.Button2) + Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom + Me.pnloptions.Location = New System.Drawing.Point(0, 719) + Me.pnloptions.Name = "pnloptions" + Me.pnloptions.Size = New System.Drawing.Size(1429, 60) + Me.pnloptions.TabIndex = 12 + ' + 'Label9 + ' + Me.Label9.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(1337, 16) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(30, 13) + Me.Label9.TabIndex = 7 + Me.Label9.Text = "Max:" + ' + 'MyTextBox2 + ' + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._numbersOnlyTrennzeichen = True + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._TimeOnly_Seconds = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.MyTextBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MyTextBox2.ForeColor = System.Drawing.Color.Black + Me.MyTextBox2.Location = New System.Drawing.Point(1369, 13) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(48, 20) + Me.MyTextBox2.TabIndex = 8 + Me.MyTextBox2.Text = "1000" + Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Button2 + ' + Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.Image = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.plus + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(9, 6) + Me.Button2.Margin = New System.Windows.Forms.Padding(0) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 10, 0) + Me.Button2.Size = New System.Drawing.Size(84, 45) + Me.Button2.TabIndex = 1 + Me.Button2.Text = "Neu" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'Panel2 + ' + Me.Panel2.BackColor = System.Drawing.Color.WhiteSmoke + Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel2.Controls.Add(Me.lblFirma) + Me.Panel2.Controls.Add(Me.PictureBox2) + Me.Panel2.Controls.Add(Me.PictureBox1) + Me.Panel2.Controls.Add(Me.pbLogoMail) + Me.Panel2.Controls.Add(Me.pbLogo) + Me.Panel2.Controls.Add(Me.Label2) + Me.Panel2.Controls.Add(Me.Label1) + Me.Panel2.Controls.Add(Me.Label5) + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel2.Location = New System.Drawing.Point(0, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(1429, 109) + Me.Panel2.TabIndex = 11 + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.stift + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Location = New System.Drawing.Point(1209, 49) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(23, 17) + Me.PictureBox2.TabIndex = 29 + Me.PictureBox2.TabStop = False + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = Global.VERAG_PROG_ALLGEMEIN.My.Resources.Resources.stift + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(908, 49) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(23, 17) + Me.PictureBox1.TabIndex = 28 + Me.PictureBox1.TabStop = False + ' + 'pbLogoMail + ' + Me.pbLogoMail.Location = New System.Drawing.Point(1248, 46) + Me.pbLogoMail.Name = "pbLogoMail" + Me.pbLogoMail.Size = New System.Drawing.Size(135, 56) + Me.pbLogoMail.TabIndex = 27 + Me.pbLogoMail.TabStop = False + ' + 'pbLogo + ' + Me.pbLogo.Location = New System.Drawing.Point(937, 46) + Me.pbLogo.Name = "pbLogo" + Me.pbLogo.Size = New System.Drawing.Size(135, 56) + Me.pbLogo.TabIndex = 26 + Me.pbLogo.TabStop = False + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(1125, 53) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(78, 13) + Me.Label2.TabIndex = 25 + Me.Label2.Text = "LOGO MAIL:" + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(867, 53) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(45, 13) + Me.Label1.TabIndex = 24 + Me.Label1.Text = "LOGO:" + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(11, 53) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(49, 13) + Me.Label5.TabIndex = 23 + Me.Label5.Text = "FIRMA:" + ' + 'pnlTop + ' + Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.pnlTop.Controls.Add(Me.Label4) + Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top + Me.pnlTop.Location = New System.Drawing.Point(0, 0) + Me.pnlTop.Name = "pnlTop" + Me.pnlTop.Size = New System.Drawing.Size(1429, 41) + Me.pnlTop.TabIndex = 6 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.ForeColor = System.Drawing.Color.White + Me.Label4.Location = New System.Drawing.Point(12, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(183, 26) + Me.Label4.TabIndex = 0 + Me.Label4.Text = "Firmenübersicht" + ' + 'lblFirma + ' + Me.lblFirma.AutoSize = True + Me.lblFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFirma.Location = New System.Drawing.Point(11, 77) + Me.lblFirma.Name = "lblFirma" + Me.lblFirma.Size = New System.Drawing.Size(11, 13) + Me.lblFirma.TabIndex = 30 + Me.lblFirma.Text = "-" + ' + 'frmFirmenuebersicht + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.Color.White + Me.ClientSize = New System.Drawing.Size(1429, 779) + Me.Controls.Add(Me.pnlTop) + Me.Controls.Add(Me.Panel1) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmFirmenuebersicht" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "interne E-Mail Benachrichtigungen" + Me.cntxtOptionen.ResumeLayout(False) + Me.Panel1.ResumeLayout(False) + CType(Me.dgvFirmen, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnloptions.ResumeLayout(False) + Me.pnloptions.PerformLayout() + Me.Panel2.ResumeLayout(False) + Me.Panel2.PerformLayout() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pbLogoMail, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.pbLogo, System.ComponentModel.ISupportInitialize).EndInit() + Me.pnlTop.ResumeLayout(False) + Me.pnlTop.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents AbgeholtToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents cntxtOptionen As Windows.Forms.ContextMenuStrip + Friend WithEvents StornoToolStripMenuItem As Windows.Forms.ToolStripMenuItem + Friend WithEvents pnlTop As Windows.Forms.Panel + Friend WithEvents Label4 As Windows.Forms.Label + Friend WithEvents Panel1 As Windows.Forms.Panel + Friend WithEvents dgvFirmen As MyDatagridview + Friend WithEvents pnloptions As Windows.Forms.Panel + Friend WithEvents Label9 As Windows.Forms.Label + Friend WithEvents MyTextBox2 As MyTextBox + Friend WithEvents Button2 As Windows.Forms.Button + Friend WithEvents Panel2 As Windows.Forms.Panel + Friend WithEvents pbLogoMail As Windows.Forms.PictureBox + Friend WithEvents pbLogo As Windows.Forms.PictureBox + Friend WithEvents Label2 As Windows.Forms.Label + Friend WithEvents Label1 As Windows.Forms.Label + Friend WithEvents Label5 As Windows.Forms.Label + Friend WithEvents PictureBox1 As Windows.Forms.PictureBox + Friend WithEvents PictureBox2 As Windows.Forms.PictureBox + Friend WithEvents lblFirma As Windows.Forms.Label +End Class diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.resx b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.resx new file mode 100644 index 00000000..9d74101a --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.resx @@ -0,0 +1,983 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA + AACRbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEd4Sx5mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB4Sx5/VClmMwBuPg5r + OglrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOgluPg5mMwB/VCl0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0RhhzRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh18UCRmMwBqOQdnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFqOQdmMwB8UCR9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwDm4N3///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////// + //////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBmMwB0SSb39fT/ + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+YfWtmMwBmMwBm + MwBmMwB0SSbu6+n////////////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + ///////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5zUy8X////////////////L + v7itmo1mMwBmMwCYfWv///////90SSZmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwB0SSb////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////////////+j + jH1mMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwC3p5z/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwCYfWv////////////////Bs6pmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwB0SSb///////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCt + mo3////////////////////////////////////m4N2Mbli3p5z///////+jjH1mMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwCMblj///////////////////////////+M + blhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////// + ///////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwDm4N3///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDU + y8X///////////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////90SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////////////////////////////////39fTm + 4N3///////+3p5xmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwC3 + p5z////////////////////////////d1tFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwCjjH3////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXUL///////////////////90 + SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL39fT////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z////////////////////U + y8WAXUJmMwBmMwC3p5z39fT////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDBs6r////////////////u6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj////////////////m4N1mMwBmMwBmMwBm + MwBmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + ///////////////////////////////////////////////////////Uy8VmMwBmMwBmMwBmMwBmMwBm + MwBmMwD39fT////////////////Lv7hmMwBmMwBmMwBmMwBmMwCAXULu6+n////////////////39fRm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwDm4N3///////////// + //+jjH3////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////// + //////+jjH1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD3 + 9fT///////////////90SSZmMwBmMwBmMwBmMwDm4N3///////////////+jjH1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////////////////////////////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwCMblj///////////////////90SSZmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwD39fT///////////////9mMwDLv7j///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwDm4N3////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwCAXUL///////// + ///////39fR0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////// + //////////////////////////////////////+jjH1mMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+jjH1mMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCMblj////////////////m4N1mMwCAXUL39fT/ + ///////39fSAXUJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////Uy8VmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////// + ///////////////////////////////////////u6+lmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwDUy8X////////////u6+lmMwBmMwBmMwBmMwCMblj///////////////////90SSZmMwBm + MwBmMwBmMwBmMwBmMwC3p5z///////////////////9mMwBmMwBmMwB0SSb///////////////////// + //////////////+3p5xmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwCjjH3/ + ///////////////Uy8VmMwBmMwC3p5z////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwC3p5z////////////////////////////////////////////////////m4N1mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwCjjH3////////////////////////////////////////////////////////////d + 1tGMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo1mMwBmMwBmMwCt + mo3////////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////////////////90SSZm + MwBmMwBmMwDm4N3////////////////////////////////Uy8VmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwC3p5z///////////////+3p5xmMwBmMwB0SSb39fT///////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCMblj///////////////////////////////////////// + //////////////9mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb///////////////////////////// + //////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3 + p5z////////////39fR0SSZmMwBmMwDBs6r////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBm + MwCjjH3///////////////////+jjH1mMwBmMwBmMwDBs6r////////////////////////////////3 + 9fRmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwDUy8X///////////////+t + mo1mMwBmMwBmMwCtmo3////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT///// + //////////////////////////////////////////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwDu6+n///////////////90SSZmMwBmMwBmMwBmMwBmMwCjjH3m4N3////////////////39fR0SSZm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////+3p5xmMwBmMwDUy8X///////////// + //+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwDu6+n///////////////+MblhmMwBmMwBmMwBmMwDu6+n///////////+tmo1mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDd1tH////////////////Bs6pmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////+YfWtmMwBmMwBmMwBmMwBmMwBm + MwB0SSbu6+n///////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH3///////// + ///39fSAXUJmMwD39fT///////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///// + ///////////39fRmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////Uy8W3p5y3p5yYfWtmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwB0SSb///////////////////90SSZmMwBmMwBmMwBm + MwCtmo3////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r////////////////m4N1m + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwC3p5z///////// + //////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDLv7j////////////////Bs6pmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwDUy8X////////////Lv7h0SSb///////////////////90SSZmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwCYfWv///////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwDu + 6+n///////////////+jjH1mMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwCYfWv///// + ///////////u6+lmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////+3p5xmMwBmMwBmMwBmMwBmMwBm + MwBmMwCjjH3///////////////////90SSZmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwCYfWv////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwDm4N3///// + //////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+tmo3/ + ///////////////m4N1mMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDBs6r///////////////// + //+YfWtmMwBmMwBmMwBmMwBmMwCtmo3////////////////u6+lmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwC3p5z////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwCYfWv///// + //////////+AXUJmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////////+MblhmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwB0SSb////////////////u6+lmMwBm + MwBmMwBmMwBmMwCAXULLv7j///////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwC3p5z////////////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDd1tH///////////////////+3p5x0SSZmMwBmMwC3p5z///////////////////+t + mo1mMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwDLv7j////////////////Bs6pm + MwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwD39fT/ + //////////////////////////////////////////////////////////90SSZmMwBmMwBmMwBmMwBm + MwBmMwDm4N3////////////////////////////////////////////////////////////Bs6pmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDu6+n///////////////////////////+3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////// + ///////////////////////////Lv7hmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwDm4N3///////////////+tmo1mMwBmMwBmMwBmMwBmMwBmMwBmMwCAXUL///////////////+Y + fWtmMwBmMwBmMwBmMwBmMwBmMwDUy8X///////////////////////////////////////////////// + //////////+YfWtmMwBmMwBmMwBmMwBmMwBmMwDLv7j///////////////////////////////////// + ///////////////////Uy8VmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCj + jH3///////////////////////////+MblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwCtmo339fT///////////////////////////////////////+tmo1mMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAF0SSb///////////////////+MblhmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwDLv7j////////////u6+l0SSZmMwBmMwBmMwBmMwBmMwC3p5z///////////////// + //////////////////////////////////////////+3p5xmMwBmMwBmMwBmMwBmMwBmMwC3p5z///// + ///////////////////////////////////////m4N23p5yMblhmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwDd1tH///////////////////////9mMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwCjjH23p5z39fT////////////////Uy8W3 + p5xmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9 + USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ9USZmMwBrOQhnNAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNAFrOQhmMwB9USZ8UCRmMwBqOQdn + NAFmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBnNAFqOQdmMwB8UCR3Sh1mMwBnNQJmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBnNQJmMwB3Sh1zRBVmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBz + RBV0RhhmMwBmMwBnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFnNAFn + NAFnNAFnNAFnNAFnNAFnNAFmMwBmMwB0Rhh/VClmMwBuPg5rOglrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhr + OQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOQhrOgluPg5mMwB/VCl4Sx5mMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBmMwBm + MwBmMwBmMwBmMwB4Sx6RbEd5TB+CWC59USZ8USV9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ9 + USZ9USZ9USZ9USZ9USZ9USZ9USZ9USZ8USV9USaCWC55TB+RbEf///////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + ///////////////////////////////////////d3fOrq+Krq+Krq+Krq+Krq+Krq+Lp6ff///////// + ///////////////////////////p6ferq+Krq+Krq+Krq+Krq+Krq+Krq+L///////////+rq+Krq+Kr + q+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Krq+Ld3fP///////////////////////////// + //////////+rq+Krq+Krq+Krq+Krq+K4uOb////////////////////d3fOrq+Krq+Krq+Krq+Lp6ff/ + ///////////////p6ferq+Krq+Krq+Krq+Krq+Krq+K4uOb///////////////////+rq+Krq+Krq+Kr + q+Krq+Krq+Krq+L///////////////////+rq+Krq+Krq+Krq+Krq+K4uOb///////////////////// + ///////////p6ferq+Krq+Krq+Krq+Krq+LFxer////////////////////////////////d3fMpKcID + A70DA70DA70DA70DA72Ojtn////////////////////////////////////FxeoDA70DA70DA70DA70D + A70DA71ERMf///////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA71+ftTR0e////////////////////////////8pKcIDA70DA70DA70DA70pKcL///////////// + //////+rq+IDA70DA70DA70DA72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf/ + //////////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70D + A70DA71ERMf///////////////////////////////+rq+IDA70DA70DA70DA70DA71ZWcv///////// + //////////////////////////+rq+IDA70DA70DA70DA70DA70DA73p6ff///////////////////// + //////////+rq+IDA70DA70DA70DA70DA70DA71+ftT///////////9ZWcsDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////////////////////9sbNAD + A70DA70DA70DA70DA73p6ff///////////////+OjtkDA70DA70DA70DA70DA73p6ff///////////// + //8pKcIDA70DA70DA70DA70DA70DA7309Pv///////////////9sbNADA70DA70DA70DA70DA70DA73p + 6ff///////////////9ZWcsDA70DA70DA70DA70DA7309Pv///////////////////////////8pKcID + A70DA70DA70DA70DA70DA73////////////////////////////////////09PspKcIDA70DA70DA70D + A70DA72rq+L///////////////////////////////+OjtkDA70DA70DA70DA70DA70DA72rq+L///// + //////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A71ZWcv09Pv///////////////+dnd0DA70DA70DA70DA70DA73Fxer///////////////9ZWcsDA70D + A70DA70DA70DA72Ojtn///////////////9ZWcsDA70DA70DA70DA70DA70DA73d3fP///////////// + //+dnd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA73R0e// + //////////////////////+4uOYDA70DA70DA70DA70DA70DA70DA73d3fP///////////////////// + //////////////+rq+IDA70DA70DA70DA70DA70pKcL09Pv///////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA73Fxer///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////+rq+IDA70DA70DA70DA70D + A72rq+L///////////////8pKcIDA70DA70DA70DA70DA70DA73p6ff///////////+OjtkDA70DA70D + A70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////// + //+rq+IDA70DA70DA70DA70DA72rq+L///////////////////////9ZWcsDA70DA70DA70DA70DA70D + A70DA73Fxer////////////////////////////////////09PspKcIDA70DA70DA70DA70DA71+ftSr + q+Krq+Krq+Krq+Krq+Krq+Krq+IpKcIDA70DA70DA70DA70DA70DA73d3fP////////////R0e8DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/ + ///////////d3fMDA70DA70DA70DA70DA71+ftT////////////p6fcDA70DA70DA70DA70DA70DA70D + A72Ojtn///////////+rq+IDA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70D + A70DA70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA72dnd3///////////////// + ///R0e8DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////////// + //+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73////////////////09PsDA70DA70DA70DA70DA70DA72dnd3////////////09Purq+JZWcsD + A70DA70DA70DA70DA70DA70DA70DA73p6ff////////09PsDA70DA70DA70DA70DA71ZWcv///////// + ///FxeoDA70DA70DA70DA70DA70DA70DA70DA73p6ff////////R0e8DA70DA70DA70DA70DA70DA71s + bND////////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70D + A70DA70DA71ZWcv///////////////////+OjtkDA70DA70DA70DA70DA70DA70DA70DA71+ftT///// + ///////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA71ZWcv///////////////////8pKcIDA70DA70DA70DA70D + A71sbND///////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA72Ojtn///////////9E + RMcDA70DA70DA70DA70DA73///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA72Ojtn///// + ///09PsDA70DA70DA70DA70DA70DA70pKcL///////////////////9ERMcDA70DA70DA70DA70DA70D + A73///////////////////8pKcIDA70DA70DA70DA70pKcL////////////////09PsDA70DA70DA70D + A70DA70DA70DA70DA70DA71ERMf///////////////////////////////////////////+rq+IDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////// + //////////9+ftQDA70DA70DA70DA70DA70pKcL///////////////////////////+OjtkDA70DA70D + A70DA70DA70DA70DA7309Pv///////9+ftQDA70DA70DA70DA70DA73d3fP///////+OjtkDA70DA70D + A70DA70DA70DA70DA70DA70DA73p6ff///////8pKcIDA70DA70DA70DA70DA70DA7309Pv///////// + //////9+ftQDA70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA73d + 3fP///////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////// + ///////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72rq+L///////////////////+dnd0DA70DA70DA70DA70DA70DA73p6ff///// + ///////////////////p6fcDA70DA70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70D + A70DA724uOb///////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////9+ftQDA70D + A70DA70DA70DA70DA73Fxer///////////////+dnd0DA70DA70DA70DA70DA70DA724uOb///////// + //////+dnd0DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA73R0e////////////////////////////////////////////+rq+IDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73Fxer///////////////////+4uOYD + A70DA70DA70DA70DA70DA73Fxer///////////////////////////9+ftQDA70DA70DA70DA70DA70D + A72dnd3////////FxeoDA70DA70DA70DA70DA72dnd3///////8pKcIDA70DA70DA70DA70DA70DA70D + A70DA70DA70DA73R0e////+dnd0DA70DA70DA70DA70DA70DA72rq+L///////////////+4uOYDA70D + A70DA70DA70DA70DA72dnd3///////////////+4uOYDA70DA70DA70DA70DA72rq+L///////+4uOYD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72rq+L///////////////////////////////// + ///////////09PspKcIDA70DA70DA70DA70DA73R0e////////////9ZWcsDA70DA70DA70DA70DA70D + A73p6ff////////////////////d3fMDA70DA70DA70DA70DA70DA72rq+L///////////////////// + //////+rq+IDA70DA70DA70DA70DA70DA71sbND////////d3fMDA70DA70DA70DA70DA71+ftT////d + 3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND///+4uOYDA70DA70DA70DA70DA70D + A72Ojtn////////////////d3fMDA70DA70DA70DA70DA70DA71+ftT////////////////d3fMDA70D + A70DA70DA70DA71+ftT///////9sbNADA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3/ + //////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA71sbND///// + //////8DA70DA70DA70DA70DA70DA70pKcL///////////////////////////8DA70DA70DA70DA70D + A70DA72Ojtn////////////////////////////d3fMDA70DA70DA70DA70DA70DA71ERMf///////// + //8pKcIDA70DA70DA70DA70pKcL////FxeoDA70DA70DA70DA70DA70pKcKOjtkDA70DA70DA70DA70D + A73R0e/d3fMDA70DA70DA70DA70DA70DA71ZWcv///////////////////8DA70DA70DA70DA70DA70D + A70pKcL////////////////09PsDA70DA70DA70DA70DA71ZWcv////d3fMDA70DA70DA70DA70DA70D + A71ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////////////////////////0 + 9PspKcIDA70DA70DA70DA70DA73p6ff////p6fcDA70DA70DA70DA70DA70DA71sbND///////////// + //////////////9ZWcsDA70DA70DA70DA70DA71ZWcv////////////////////////////p6fcDA70D + A70DA70DA70DA70DA71ERMf///////////9ZWcsDA70DA70DA70DA70DA7309Purq+IDA70DA70DA70D + A70DA71ZWcvp6fcDA70DA70DA70DA70DA71sbND///8DA70DA70DA70DA70DA70DA70DA73///////// + //////////9ZWcsDA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70D + A73///+OjtkDA70DA70DA70DA70DA70DA724uOZZWcsDA70DA70DA70DA70pKcL///////////////// + //////////////////////////////////+rq+IDA70DA70DA70DA70DA72Ojtn////FxeoDA70DA70D + A70DA70DA70DA72dnd3///////////////////////////9+ftQDA70DA70DA70DA70DA70DA73///// + ///////////////////////p6fcDA70DA70DA70DA70DA70DA71ERMf///////////+OjtkDA70DA70D + A70DA70DA73R0e9+ftQDA70DA70DA70DA70DA72Ojtn///+dnd0DA70DA70DA70DA70DA73R0e9ZWcsD + A70DA70DA70DA70DA70DA73d3fP///////////////9+ftQDA70DA70DA70DA70DA70DA73R0e////// + //////////9+ftQDA70DA70DA70DA70DA73R0e8DA70DA70DA70DA70DA70DA70pKcL09Pt+ftQDA70D + A70DA70DA70DA73p6ff////////////////////////////////////////////////09PspKcIDA70D + A70DA70DA70DA73p6ferq+IDA70DA70DA70DA70DA70DA72rq+L///////////////////////////+r + q+IDA70DA70DA70DA70DA70DA73d3fP////////////////////////d3fMDA70DA70DA70DA70DA70D + A71ZWcv///////////+rq+IDA70DA70DA70DA70DA72rq+JZWcsDA70DA70DA70DA70DA72rq+L////0 + 9PspKcIDA70DA70DA70DA71sbNB+ftQDA70DA70DA70DA70DA70DA73Fxer///////////////+rq+ID + A70DA70DA70DA70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA71ZWcsDA70DA70D + A70DA70DA70DA72dnd3///+rq+IDA70DA70DA70DA70DA73Fxer///////////////////////////// + //////////////////////+rq+IDA70DA70DA70DA70DA72rq+Kdnd0DA70DA70DA70DA70DA70DA73R + 0e/////////////////////////////FxeoDA70DA70DA70DA70DA70DA73Fxer///////////////// + //////+rq+IDA70DA70DA70DA70DA70DA71+ftT////////////R0e8DA70DA70DA70DA70DA72OjtkD + A70DA70DA70DA70DA70DA73Fxer///////+rq+IDA70DA70DA70DA70DA71sbNADA70DA70DA70DA70D + A70DA72dnd3////////////////FxeoDA70DA70DA70DA70DA70DA72dnd3////////////////FxeoD + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p6ff////FxeoDA70DA70DA70DA70DA72r + q+L////////////////////////////////////////////////////09PspKcIDA70DA70DA70DA70p + KcJZWcsDA70DA70DA70DA70DA70DA7309Pv////////////////////////////p6fcDA70DA70DA70D + A70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA72rq+L///////// + ///09PsDA70DA70DA70DA70DA70pKcIDA70DA70DA70DA70DA70DA73d3fP////////09PspKcIDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT////////////////p6fcDA70DA70DA70DA70D + A70DA71ZWcv////////////////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/ + ///////d3fMDA70DA70DA70DA70DA71+ftT///////////////////////////////////////////// + //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70pKcL///////////////// + //////////////////8pKcIDA70DA70DA70DA70DA71+ftT////////////////p6fdZWcsDA70DA70D + A70DA70DA70DA70DA73p6ff///////////////8pKcIDA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA73///////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///// + //////////////8pKcIDA70DA70DA70DA70DA70pKcL///////////////////8pKcIDA70DA70DA70D + A70DA70DA70DA70DA70DA70DA73Fxer///////////8pKcIDA70DA70DA70DA71ZWcv///////////// + ///////////////////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA71+ftT///////////////////////////////////9ZWcsDA70DA70DA70DA70DA70pKcKr + q+Krq+Krq+JsbNADA70DA70DA70DA70DA70DA70DA70DA71sbND///////////////////9+ftQDA70D + A70DA70DA70DA70DA70DA70DA70DA70DA71ERMf////////////////09PspKcIDA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA7309Pv///////////////9ZWcsDA70DA70DA70DA70DA70DA73p6ff/ + //////////////9ZWcsDA70DA70DA70DA70DA70DA70DA70DA70DA71ERMf///////////////9ZWcsD + A70DA70DA70DA70DA73///////////////////////////////////////////////////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////////////////// + //+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73p + 6ff///////////////////+dnd0DA70DA70DA70DA70DA70DA70DA70DA70DA70DA71+ftT///////// + //////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA73d3fP///////////////+d + nd0DA70DA70DA70DA70DA70DA73Fxer///////////////+OjtkDA70DA70DA70DA70DA70DA70DA70D + A70DA72rq+L///////////////+OjtkDA70DA70DA70DA70DA73d3fP///////////////////////// + ///////////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA724uOb/ + //////////////////////////////////+rq+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70DA70DA72rq+L///////////////////////+4uOYDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA72dnd3////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70D + A70DA70DA72rq+L///////////////+rq+IDA70DA70DA70DA70DA70DA72rq+L///////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////+rq+IDA70DA70DA70DA70D + A724uOb///////////////////////////////////////////////////////////+rq+IDA70DA70D + A70DA70DA70DA70DA70DA70DA73d3fP////////////////////////////////////R0e8DA70DA70D + A70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3///////////////////// + ///////d3fMDA70DA70DA70DA70DA70DA70DA70DA70DA70DA724uOb///////////////////////+r + q+IDA70DA70DA70DA70DA70DA70DA70DA70DA70DA72dnd3////////////////R0e8DA70DA70DA70D + A70DA70DA71+ftT////////////////R0e8DA70DA70DA70DA70DA70DA70DA70DA72Ojtn///////// + ///////////FxeoDA70DA70DA70DA70DA72dnd3///////////////////////////////////////// + ///////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////// + ///////////////////09PsDA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70DA70p + KcLFxer///////////////////////////////////8DA70DA70DA70DA70DA70DA70DA70DA70DA70D + A73R0e/////////////////////////09PspKcIDA70DA70DA70DA70DA70DA70DA70DA70DA71sbND/ + ///////////////09PsDA70DA70DA70DA70DA70DA71ZWcv////////////////09PsDA70DA70DA70D + A70DA70DA70DA70DA73R0e/////////////////////09PsDA70DA70DA70DA70DA71+ftT///////// + //////////////////////////////////////////////////////+rq+IDA70DA70DA70DA70DA70D + A70DA71ZWcv///////////////////////////////////////////8pKcIDA70DA70DA70DA70DA70D + A70DA70DA70DA70DA70pKcKrq+Krq+L///////////////////////////////////////////9ZWcsD + A70DA70DA70DA70DA70DA70DA70DA70DA7309Pv///////////////////////////+rq+IDA70DA70D + A70DA70DA70DA70DA70DA70DA70DA73///////////////////8pKcIDA70DA70DA70DA70DA70DA73/ + //////////////////8pKcIDA70DA70DA70DA70DA70DA71ZWcv///////////////////////////8p + KcIDA70DA70DA70DA71ERMf///////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////////////////////////////////////////////////////////////////// + //////////////////8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA== + + + \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb new file mode 100644 index 00000000..a17e16c0 --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/AuditFlow/frmFirmenuebersicht.vb @@ -0,0 +1,212 @@ +Imports System.Data.SqlClient +Imports System.Drawing +Imports System.IO +Imports System.Windows.Forms + +Public Class frmFirmenuebersicht + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + + Private Sub frminterneEmailBenachrichtigungen_Load(sender As Object, e As EventArgs) Handles Me.Load + + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True + + loadDGVMailbenachrichtigungen() + + End Sub + + + Sub loadDGVMailbenachrichtigungen() + Try + + Me.Cursor = Cursors.WaitCursor + + Dim TopMax = If(IsNumeric(MyTextBox2.Text), " TOP " & MyTextBox2.Text, "") + Dim sqlstr As String = "" + + + sqlstr &= " Select [Firma_ID] ,[Firma_Bez],Replace([Firma_Firmenbuch],'Firmenbuch: ', '') as Firma_Firmenbuch,Replace([Firma_UID],'UID: ', '') as Firma_UID ,Replace([Firma_EORI],'EORI: ', '') as Firma_EORI,[Firma_Bankverbindung1],[Firma_BLZ1],[Firma_KTO1],Replace([Firma_IBAN1],'IBAN: ', '') as Firma_IBAN1, Replace([Firma_BIC1],'BIC: ', '') as Firma_BIC1,[Firma_Bankverbindung2],[Firma_BLZ2],[Firma_KTO2],[Firma_IBAN2],[Firma_BIC2],[Firma_Ort],[Firma_Straße],[Firma_Telefon],[Firma_Telefax],[Firma_E-Mail],[Firma_Webadresse] + ,[Firma_LandKz],[Firmengruppe],[Firma_Warenort],[Firma_E_Mail_Mahnungen],[Firma_Steuernummer] ,[Firma_PLZ],[Firma_Logo],[Firma_Logo_Erweitert] from tblFirma " + + With dgvFirmen + + .SET_SQL(sqlstr, "FMZOLL") + .LOAD() + showDGVPruefungsobjekte() + End With + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "") + End Try + Me.Cursor = Cursors.Default + End Sub + Sub showDGVPruefungsobjekte() + + With dgvFirmen + + If .ColumnCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .MultiSelect = False + + .Columns("Firma_Logo").Visible = False + .Columns("Firma_Logo_Erweitert").Visible = False + '.Columns("inaktivMA").Visible = False + + .Columns("Firma_ID").Width = 40 + '.Columns("mb_object").HeaderText = "Benachrichtigung" + + + '.Columns("Mitarbeiter").MinimumWidth = 100 + '.Columns("Mitarbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("mb_beschreibung").MinimumWidth = 100 + '.Columns("mb_beschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + '.Columns("mb_beschreibung").HeaderText = "Info" + + '.Columns("Emails").MinimumWidth = 100 + '.Columns("Emails").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + '.Columns("Emails").HeaderText = "EMail an" + + '.Columns("Anzahl").Width = 50 + '.Columns("Anzahl").HeaderText = "# Empf." + + '.Columns("Firma_Bez").Width = 150 + '.Columns("Firma_Bez").HeaderText = "Firma" + + '.Columns("mb_aktiv").Width = 40 + '.Columns("mb_aktiv").HeaderText = "Aktiv" + + + For Each col As DataGridViewColumn In dgvFirmen.Columns + + col.HeaderText = col.HeaderText.Replace("Firma_", "") + + Next + + + End With + End Sub + + Private Sub dgvFirmen_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFirmen.SelectionChanged + + If dgvFirmen.SelectedRows.Count = 1 Then + pbLogo.SizeMode = PictureBoxSizeMode.Zoom + pbLogoMail.SizeMode = PictureBoxSizeMode.Zoom + + pbLogo.Image = BytesToImage(dgvFirmen.SelectedRows(0).Cells("Firma_Logo").Value) + pbLogoMail.Image = BytesToImage(dgvFirmen.SelectedRows(0).Cells("Firma_Logo_Erweitert").Value) + + lblFirma.Text = dgvFirmen.SelectedRows(0).Cells("Firma_Bez").Value + + End If + + End Sub + + Private Function BytesToImage(value As Object) As Image + + If value Is Nothing OrElse IsDBNull(value) Then + Return Nothing + End If + + Dim bytes As Byte() = TryCast(value, Byte()) + + If bytes Is Nothing OrElse bytes.Length = 0 Then + Return Nothing + End If + + Try + Using ms As New MemoryStream(bytes) + Using img As Image = Image.FromStream(ms, True, True) + Return New Bitmap(img) + End Using + End Using + + Catch ex As ArgumentException + 'MessageBox.Show("Die gespeicherten Daten sind kein gültiges Bild." & + ' vbCrLf & + ' "Bytes: " & bytes.Length) + Return Nothing + End Try + + End Function + + Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click + + + + If dgvFirmen.SelectedRows.Count <> 1 Then Exit Sub + + Dim Firma As New cFirmen(CInt(dgvFirmen.SelectedRows(0).Cells("Firma_ID").Value)) + + Dim bild As Byte() = BildDateiLaden() + If bild Is Nothing Then Exit Sub + + Dim spalte As String = "" + Dim vorhandenesBild As Byte() = Nothing + + Select Case DirectCast(sender, PictureBox).Name + + Case "PictureBox1" + spalte = "Firma_Logo" + vorhandenesBild = Firma.Firma_Logo + + Case "PictureBox2" + spalte = "Firma_Logo_Erweitert" + vorhandenesBild = Firma.Firma_Logo_Erweitert + + End Select + + If vorhandenesBild IsNot Nothing AndAlso vorhandenesBild.Length > 0 Then + + Dim antwort = MessageBox.Show( + "Es ist bereits ein Logo vorhanden." & vbCrLf & "Möchten Sie dieses überschreiben?", "Logo überschreiben", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + + If antwort = DialogResult.No Then + Exit Sub + End If + + End If + + + Using con As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + + Using cmd As New SqlCommand( + $"UPDATE tblFirma SET {spalte}=@Bild WHERE Firma_ID=@Firma_ID", con) + + cmd.Parameters.Add("@Bild", SqlDbType.VarBinary, -1).Value = bild + cmd.Parameters.Add("@Firma_ID", SqlDbType.Int).Value = Firma.Firma_ID + + cmd.ExecuteNonQuery() + + End Using + + End Using + + + MessageBox.Show("Logo wurde gespeichert.", "Erfolgreich", MessageBoxButtons.OK, MessageBoxIcon.Information) + + End Sub + + + + Public Function BildDateiLaden() As Byte() + + Using ofd As New OpenFileDialog() + ofd.Title = "Bild auswählen" + ofd.Filter = "Bilddateien|*.jpg;*.jpeg;*.png;*.bmp;*.gif;*.webp|Alle Dateien|*.*" + ofd.Multiselect = False + + If ofd.ShowDialog() = DialogResult.OK Then + Return File.ReadAllBytes(ofd.FileName) + End If + End Using + + Return Nothing + End Function + + + +End Class \ No newline at end of file diff --git a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb index 1ba3d906..7bfb56c0 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/SQL.vb @@ -1,7 +1,5 @@ Imports System.Data.SqlClient Imports System.Reflection -Imports com.sun.org.apache.xml.internal.security.transforms -Imports DocumentFormat.OpenXml.Bibliography Public Class SQL Public Const LeerDatum As Date = #12/30/1899# diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb index a0d39e53..156f7cc5 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cFirmen.vb @@ -31,6 +31,7 @@ Public Class cFirmen Property Firma_Steuernummer As Object = Nothing Property Firmengruppe As Object = Nothing Property Firma_PLZ As Object = Nothing + Property Firma_Logo_Erweitert As Object = Nothing Dim SQL As New SQL @@ -74,6 +75,7 @@ Public Class cFirmen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firmengruppe", Firmengruppe)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Steuernummer", Firma_Steuernummer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_PLZ", Firma_PLZ)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_Logo_Erweitert", Firma_Logo_Erweitert)) Return list diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 7e091878..a970ea64 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -184,6 +184,12 @@ + + frmFirmenuebersicht.vb + + + Form + frminterneEmailbenachrichtigungen.vb @@ -808,6 +814,9 @@ + + frmFirmenuebersicht.vb + frminterneEmailbenachrichtigungen.vb