edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

Browse Source
This commit is contained in:
d.breimaier
2023-04-18 13:15:21 +02:00
parent dae030a193 2615a9f506
commit 489ec4e243
11 changed files with 267 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/Fakturierung/cFakturierung.vb
View File

@@ -1359,7 +1359,8 @@ Public Class cFakturierung
If KUNDE_ERW.kde_API_Tradeshift Then
Select Case RECHNUNG.Firma_ID
Case 21, 22, 23
System.IO.File.Copy(tmpPath, "\\srv01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True)
'System.IO.File.Copy(tmpPath, "\\srv01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True)
System.IO.File.Copy(tmpPath, "\\unidc01.unisu.at\Unisped\___AR_PDF\" & RG_Bezeichnung, True)
End Select
End If
Catch ex As Exception
@@ -1536,7 +1537,7 @@ 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 = False, Optional special = "", Optional additionalLine = "") As String
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "") As String
getSignature = ""
firma = getFirmaNr(firma)
@@ -1550,54 +1551,54 @@ Public Class cFakturierung
Select Case special
Case "BREXIT_VERAG"
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition AG</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-885 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "brexit@verag.ag") & " | www.verag.ag | FN 216714y</div>"
Case Else
Select Case firma
Case 1 'VERAG
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG_AEO_MailSig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition AG<br>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition AG</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 100 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 216714y</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 7 'ATILLA
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Atilla.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>ATILLA Spedition GmbH<br>"
If displayFirmenmane Then getSignature &= "<br><b>ATILLA Spedition GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 11 'VERAG CS
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag_Customs_Service_AEO.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG Customs Service</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "versand@verag.com") & " | www.verag.ag | FN 406316z</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 20 'Imex
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Imex Customs Service GmbH<br>"
If displayFirmenmane Then getSignature &= "<br><b>Imex Customs Service GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 24 'AMBAR
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "ambar_simple.png""/>"
If displayFirmenmane Then getSignature &= "<br>AMBAR Logistic Services GmbH<br>"
getSignature &= "<img width=""250"" height=""70"" src=""" & imgsrc & "ambar_simple.png""/>"
If displayFirmenmane Then getSignature &= "<br><b>AMBAR Logistic Services GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">D 83435 Bad Reichenhall, Reichenhallerstrasse 62<br><b>T</b> +49 8651 99624911 | <b>F</b> +49 8651 9962493 | <b>@</b> " & If(individuell, emailindividuell, "info@ambarlog.de") & " | www.ambarlog.com | DE309105428</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 21 'UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
If displayFirmenmane Then getSignature &= "<br><b>Unisped Speditions GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, emailindividuell, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 26 'VERAG-UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG-UNISPED-Logo.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG-UNISPED LTD<br>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG-UNISPED LTD</b><br>"
getSignature &= "<div style=""font-size:12px"">Kent CT16 1BY Dover, 1 Cannon Street<br><b>T</b> +44 1304 272475 | <b>@</b> invoice@verag-unisped.uk | www.verag-unisped.uk | Company-No. 13107151 | VAT GB389356931</div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
If displayFirmenmane Then getSignature &= "<br><b>VERAG Spedition GmbH</b><br>"
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
Case 17 'Front-Office
getSignature &= "<img width=""170"" height=""50"" src=""" & imgsrc & "Logo_blue_globe_Horizontal.jpg""/>"
If displayFirmenmane Then getSignature &= "<br>Front Office Suben eG<br>"
If displayFirmenmane Then getSignature &= "<br><b>Front Office Suben eG</b><br>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14<br><b>T</b> +43 7711 31636 -0 | <b>@</b> " & If(individuell, emailindividuell, "suben@front-office.eu") & " | www.front-office.eu </div>"
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
End Select
@@ -2169,7 +2170,8 @@ Public Class cFakturierung
If KUNDE_ERW.kde_API_Tradeshift Then
Select Case dt.Rows(0)("Firma_ID")
Case 21, 22, 23
System.IO.File.Copy(pathPDF, "\\srv01.unisu.at\Unisped\___AR_PDF\Sammelrechnung_" & RechnungsNr & ".pdf", True)
' System.IO.File.Copy(pathPDF, "\\srv01.unisu.at\Unisped\___AR_PDF\Sammelrechnung_" & RechnungsNr & ".pdf", True)
System.IO.File.Copy(pathPDF, "\\unidc01.unisu.at\Unisped\___AR_PDF\Sammelrechnung_" & RechnungsNr & ".pdf", True)
End Select
End If
Catch ex As Exception

23
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -892,6 +892,7 @@ Public Class usrCntlFaktAbrechnung
End Select
initKdAtrNr()
initPkSt()
End Sub
Sub setBGbColotTxt(p_cntl As Control)
@@ -918,6 +919,28 @@ Public Class usrCntlFaktAbrechnung
End Select
initKdAtrNrBG()
End Sub
Sub initPkSt()
Select Case cboRechnungAn._value
Case "1"
If kdFirmaAbsender.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaAbsender.KdData_KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB Then
If SPEDBUCH IsNot Nothing Then txtSendungsdaten.Text = If(SPEDBUCH.Packstücke_Zoll, "")
End If
Case "2"
If kdFirmaEmpfaenger.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaEmpfaenger.KdData_KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB Then
If SPEDBUCH IsNot Nothing Then txtSendungsdaten.Text = If(SPEDBUCH.Packstücke_Zoll, "")
End If
Case "3"
If kdFirmaAuftraggeber.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaAuftraggeber.KdData_KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB Then
If SPEDBUCH IsNot Nothing Then txtSendungsdaten.Text = If(SPEDBUCH.Packstücke_Zoll, "")
End If
Case "4"
If kdFirmaAvisierer.KdData_KUNDE_ERW IsNot Nothing AndAlso kdFirmaAvisierer.KdData_KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB Then
If SPEDBUCH IsNot Nothing Then txtSendungsdaten.Text = If(SPEDBUCH.Packstücke_Zoll, "")
End If
Case Else
End Select
initKdAtrNrBG()
End Sub
Sub initKdAtrNrBG()
picKdAuftrInfo.Visible = False

148
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

@@ -155,85 +155,92 @@
Case "IMEX"
Select Case MyComboBox1._value
Case "VZ"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).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, "", "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(8).ToString("C2")) : 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(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "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("", "", "Stornokosten", "50 %")
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(17).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Aufschlag Rückwarenverzollung/Aktive Veredelung", CDbl(20).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
Case "VZ_EV"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).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, "", "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(8).ToString("C2")) : 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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", 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("", "", "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("", "", "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, "", "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(8).ToString("C2")) : 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(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Warenort-Abfertigung", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).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(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(8).ToString("C2")) : 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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "348", "Zusatzkosten fremde Grenze", CDbl(20).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.")
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung / CMR Erstellung", CDbl(15).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
@@ -243,15 +250,15 @@
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", "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, "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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
@@ -259,6 +266,7 @@
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("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
' cboFirma.changeItem("AG")
@@ -399,84 +407,88 @@
Case Else 'VERAG
Select Case MyComboBox1._value
Case "VZ"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(93).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, "", "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(8).ToString("C2")) : 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(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "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(17).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(93).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, "", "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(8).ToString("C2")) : 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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zusatzkosten Gemüse,Arznei,Lebensmittel", "nach Anfrage")
dgvZusatzleistung.Rows.Add("", "", "Stornokosten", "50 %")
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
cboFirma.changeItem("CS")
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
'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"))
' 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(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(8).ToString("C2")) : 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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Stapler-/Beschaukosten", CDbl(60).ToString("C2") & "/Std.")
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"))
@@ -486,41 +498,43 @@
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", "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, "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", "Clearingkosten (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "498", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
' dgvZusatzleistung.Rows.Add("", "", "CMR-Versendungsbeleg", CDbl(25).ToString("C2"))
' dgvZusatzleistung.Rows.Add("", "", "Ü-T1", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "VERAG Warenort", CDbl(60).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Neutralisierung", CDbl(15).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Zollbeschaukosten je 30 min.", CDbl(40).ToString("C2"))
'dgvZusatzleistung.Rows.Add("", "", "Aufschlag Arzneiwaren oder Lebensmittel", CDbl(25).ToString("C2"))
cboFirma.changeItem("AG")
Case "VZ_SPECIAL_1" '"VZ Gemüse,Arznei,Lebensmittel"
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(139).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "", "Verzollung (inkl. 1 Tarifnummer)", CDbl(168).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, "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(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "", "Korr. Rechnung anfordern", CDbl(25).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "380", "Übersetzung Rechnung", CDbl(1.5).ToString("C2") & "/min")
dgvZusatzleistung.Rows.Add("", "", "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"))
@@ -529,13 +543,13 @@
Case "EUST"
DataGridView.Rows.Add(cnt, "", "EUST", "lt. Steuerbescheid") : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(12).ToString("C2")) : cnt += 1
DataGridView.Rows.Add(cnt, "440", "Fixe Taxe", CDbl(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, "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(80).ToString("C2"))
dgvZusatzleistung.Rows.Add("", "347", "Compliance Check (EINMALIG nur bei 1. Abfertigung)", CDbl(80).ToString("C2"))
cboFirma.changeItem("AG")
Case "HANDLING"

4
SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb
View File

@@ -62,6 +62,10 @@ Public Class rptKontrolleLKW_NCTSTR
firmaStr = " AND [ncts_Partnersystem] IN('OREGON') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_OREGON")
Label10.Text = " Auswertung OREGON"
ElseIf FIRMA = "VERIMEX_ATEZ" Then
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
LIST_NCTSABR = New VERAG_PROG_ALLGEMEIN.cAbrechnung_NCTSBrg_LIST("VERIMEX_ATEZ")
Label10.Text = " Auswertung ATEZ"
ElseIf FIRMA = "ATEZ" Then
firmaStr = " AND [ncts_Partnersystem] IN('ATEZ') "
Label10.Text = " Auswertung ATEZ"

18
SDL/SDL.vbproj
View File

@@ -87,7 +87,7 @@
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<PropertyGroup>
<AssemblyOriginatorKeyFile>Test.pfx</AssemblyOriginatorKeyFile>
<AssemblyOriginatorKeyFile>SDL_TemporaryKey.pfx</AssemblyOriginatorKeyFile>
</PropertyGroup>
<ItemGroup>
<Reference Include="Accessibility" />
@@ -4441,7 +4441,9 @@
<None Include="Resources\pay_card_s.png" />
<None Include="Resources\pay_card_s1.png" />
<None Include="Resources\pay_cash_s.png" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</Content>
<None Include="Resources\mic-logo.jpg" />
<None Include="Resources\mic-logo - short.jpg" />
<None Include="Resources\VERAG-UNISPED-Logo.jpg">
@@ -4583,7 +4585,9 @@
<None Include="Resources\aeo_AT_imex.jpg" />
<None Include="Resources\aeo_DE.jpg" />
<None Include="Resources\aeo.jpg" />
<None Include="Resources\ambar_simple.png" />
<None Include="Resources\ambar_simple.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Atilla _sig.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
@@ -4652,8 +4656,12 @@
<None Include="Resources\android-note11.png" />
<None Include="Resources\Aviso2.png" />
<None Include="Resources\Aviso1.png" />
<None Include="Resources\Verag-AG-Logo2.png" />
<None Include="Resources\Verag-AG-Logo1.png" />
<None Include="Resources\Verag-AG-Logo2.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\Verag-AG-Logo1.png">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</None>
<None Include="Resources\verag_only1.png" />
<None Include="Resources\arrow_right.png" />
<None Include="Resources\statistik2.png" />

26
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -326,6 +326,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.txtUSt_Steuernummer = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxLandKz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label98 = New System.Windows.Forms.Label()
Me.cbxSndDatenAusSTB = New System.Windows.Forms.CheckBox()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -859,6 +861,7 @@ Partial Class usrcntlKundeBearbeitenFull
'
'tbVerrechnung
'
Me.tbVerrechnung.Controls.Add(Me.cbxSndDatenAusSTB)
Me.tbVerrechnung.Controls.Add(Me.Label95)
Me.tbVerrechnung.Controls.Add(Me.cbxSammelrechnungBerichtLeistungsdetails)
Me.tbVerrechnung.Controls.Add(Me.cbxAPITradeshift)
@@ -4402,6 +4405,28 @@ Partial Class usrcntlKundeBearbeitenFull
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'Label98
'
Me.Label98.AutoSize = True
Me.Label98.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label98.Location = New System.Drawing.Point(675, 493)
Me.Label98.Name = "Label98"
Me.Label98.Size = New System.Drawing.Size(101, 13)
Me.Label98.TabIndex = 24
Me.Label98.Text = "Übertrag in DATEV:"
Me.Label98.Visible = False
'
'cbxSndDatenAusSTB
'
Me.cbxSndDatenAusSTB.AutoSize = True
Me.cbxSndDatenAusSTB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxSndDatenAusSTB.Location = New System.Drawing.Point(417, 221)
Me.cbxSndDatenAusSTB.Name = "cbxSndDatenAusSTB"
Me.cbxSndDatenAusSTB.Size = New System.Drawing.Size(145, 17)
Me.cbxSndDatenAusSTB.TabIndex = 40
Me.cbxSndDatenAusSTB.Text = "Sendungsdaten aus STB"
Me.cbxSndDatenAusSTB.UseVisualStyleBackColor = True
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4784,4 +4809,5 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents btnCreditsafe As Button
Friend WithEvents Label99 As Label
Friend WithEvents txtCreditsafe As TextBox
Friend WithEvents cbxSndDatenAusSTB As CheckBox
End Class

3
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -298,6 +298,7 @@ Public Class usrcntlKundeBearbeitenFull
cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
cbxVeranlagungskunde.Checked = KUNDE_ERW.Veranlagungskunde
cbxSndDatenAusSTB.Checked = KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB
cbxAPITradeshift.Checked = loadValue(KUNDE_ERW.kde_API_Tradeshift, False)
@@ -580,6 +581,8 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KUNDE_ERW.Veranlagungskunde = cbxVeranlagungskunde.Checked
KUNDE_ERW.kde_Abrechnung_SendungsdatenAusSTB = cbxSndDatenAusSTB.Checked
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
KUNDE_ERW.kde_BesonderheitenNeu = cbxBesonderheitenNEU.Checked

166
SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb generated
View File

@@ -221,8 +221,15 @@ Partial Class usrCntlZOLLAuswertungen
Me.pic = New System.Windows.Forms.PictureBox()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.TabPage5 = New System.Windows.Forms.TabPage()
Me.Label60 = New System.Windows.Forms.Label()
Me.GroupBox9 = New System.Windows.Forms.GroupBox()
@@ -244,13 +251,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Button14 = New System.Windows.Forms.Button()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.UsrCntlAuswertungenUIDPruefung1 = New SDL.usrCntlAuswertungenUIDPruefung()
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1 = New SDL.usrCntlAuswertungenKunden_Auftragsrueckgang()
Me.UsrCntlAuswertungenEV_Veranlagungen1 = New SDL.usrCntlAuswertungenEV_Veranlagungen()
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1 = New SDL.usrCntlAuswertungenFiskal_IntrastatMeldung()
Me.UsrCntlAuswertungenFiskalvertretung_42001 = New SDL.usrCntlAuswertungenFiskalvertretung_4200()
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1 = New SDL.usrCntlAuswertungenAufschub_AbgabenKontrolleTRIER()
Me.UsrCntlAuswertungenAufschub_Abgabenliste1 = New SDL.usrCntlAuswertungenAufschub_Abgabenliste()
Me.Button22 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1237,7 +1238,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.tbcntr.Location = New System.Drawing.Point(0, 57)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(728, 1829)
Me.tbcntr.Size = New System.Drawing.Size(711, 1829)
Me.tbcntr.TabIndex = 22
'
'TabPage1
@@ -1280,7 +1281,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(720, 1803)
Me.TabPage1.Size = New System.Drawing.Size(703, 1803)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Bürgschaften"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -1290,7 +1291,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label88.AutoSize = True
Me.Label88.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label88.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label88.Location = New System.Drawing.Point(12, 1610)
Me.Label88.Location = New System.Drawing.Point(12, 1666)
Me.Label88.Name = "Label88"
Me.Label88.Size = New System.Drawing.Size(193, 17)
Me.Label88.TabIndex = 35
@@ -1301,7 +1302,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Label82.AutoSize = True
Me.Label82.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label82.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label82.Location = New System.Drawing.Point(12, 1477)
Me.Label82.Location = New System.Drawing.Point(12, 1533)
Me.Label82.Name = "Label82"
Me.Label82.Size = New System.Drawing.Size(213, 17)
Me.Label82.TabIndex = 36
@@ -1320,7 +1321,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox13.Controls.Add(Me.Label92)
Me.GroupBox13.Controls.Add(Me.datAuswertVon_NCTSTR_AWOR)
Me.GroupBox13.Controls.Add(Me.Label93)
Me.GroupBox13.Location = New System.Drawing.Point(9, 1625)
Me.GroupBox13.Location = New System.Drawing.Point(9, 1681)
Me.GroupBox13.Name = "GroupBox13"
Me.GroupBox13.Size = New System.Drawing.Size(705, 102)
Me.GroupBox13.TabIndex = 34
@@ -1452,7 +1453,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox12.Controls.Add(Me.Label86)
Me.GroupBox12.Controls.Add(Me.datAuswertVon_NCTSTR_UNISPED)
Me.GroupBox12.Controls.Add(Me.Label87)
Me.GroupBox12.Location = New System.Drawing.Point(9, 1492)
Me.GroupBox12.Location = New System.Drawing.Point(9, 1548)
Me.GroupBox12.Name = "GroupBox12"
Me.GroupBox12.Size = New System.Drawing.Size(705, 102)
Me.GroupBox12.TabIndex = 35
@@ -1574,6 +1575,7 @@ Partial Class usrCntlZOLLAuswertungen
'
'GroupBox11
'
Me.GroupBox11.Controls.Add(Me.Button22)
Me.GroupBox11.Controls.Add(Me.Button19)
Me.GroupBox11.Controls.Add(Me.Button18)
Me.GroupBox11.Controls.Add(Me.PictureBox10)
@@ -1588,7 +1590,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.GroupBox11.Controls.Add(Me.Label81)
Me.GroupBox11.Location = New System.Drawing.Point(9, 1355)
Me.GroupBox11.Name = "GroupBox11"
Me.GroupBox11.Size = New System.Drawing.Size(705, 102)
Me.GroupBox11.Size = New System.Drawing.Size(705, 164)
Me.GroupBox11.TabIndex = 32
Me.GroupBox11.TabStop = False
'
@@ -2408,11 +2410,29 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(737, 1803)
Me.TabPage2.Size = New System.Drawing.Size(720, 1803)
Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Kunden"
Me.TabPage2.UseVisualStyleBackColor = True
'
'UsrCntlAuswertungenUIDPruefung1
'
Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
'
'UsrCntlAuswertungenKunden_Auftragsrueckgang1
'
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenEV_Veranlagungen1)
@@ -2421,22 +2441,62 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(737, 1803)
Me.TabPage3.Size = New System.Drawing.Size(720, 1803)
Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Fiskalvertretung / EV-Veranlagung"
Me.TabPage3.UseVisualStyleBackColor = True
'
'UsrCntlAuswertungenEV_Veranlagungen1
'
Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
'
'UsrCntlAuswertungenFiskal_IntrastatMeldung1
'
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
'
'UsrCntlAuswertungenFiskalvertretung_42001
'
Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1)
Me.TabPage4.Controls.Add(Me.UsrCntlAuswertungenAufschub_Abgabenliste1)
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Size = New System.Drawing.Size(737, 1803)
Me.TabPage4.Size = New System.Drawing.Size(720, 1803)
Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Aufschubdaten"
Me.TabPage4.UseVisualStyleBackColor = True
'
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
'
'UsrCntlAuswertungenAufschub_Abgabenliste1
'
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
'
'TabPage5
'
Me.TabPage5.Controls.Add(Me.Label60)
@@ -2445,7 +2505,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.TabPage5.Location = New System.Drawing.Point(4, 22)
Me.TabPage5.Name = "TabPage5"
Me.TabPage5.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage5.Size = New System.Drawing.Size(737, 1803)
Me.TabPage5.Size = New System.Drawing.Size(720, 1803)
Me.TabPage5.TabIndex = 4
Me.TabPage5.Text = "UNISPED"
Me.TabPage5.UseVisualStyleBackColor = True
@@ -2653,66 +2713,19 @@ Partial Class usrCntlZOLLAuswertungen
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(728, 57)
Me.pnl.Size = New System.Drawing.Size(711, 57)
Me.pnl.TabIndex = 23
'
'UsrCntlAuswertungenUIDPruefung1
'Button22
'
Me.UsrCntlAuswertungenUIDPruefung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenUIDPruefung1.Location = New System.Drawing.Point(6, 259)
Me.UsrCntlAuswertungenUIDPruefung1.Name = "UsrCntlAuswertungenUIDPruefung1"
Me.UsrCntlAuswertungenUIDPruefung1.Size = New System.Drawing.Size(708, 176)
Me.UsrCntlAuswertungenUIDPruefung1.TabIndex = 1
'
'UsrCntlAuswertungenKunden_Auftragsrueckgang1
'
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Location = New System.Drawing.Point(6, 18)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Name = "UsrCntlAuswertungenKunden_Auftragsrueckgang1"
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.Size = New System.Drawing.Size(0, 235)
Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0
'
'UsrCntlAuswertungenEV_Veranlagungen1
'
Me.UsrCntlAuswertungenEV_Veranlagungen1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenEV_Veranlagungen1.Location = New System.Drawing.Point(3, 568)
Me.UsrCntlAuswertungenEV_Veranlagungen1.Name = "UsrCntlAuswertungenEV_Veranlagungen1"
Me.UsrCntlAuswertungenEV_Veranlagungen1.Size = New System.Drawing.Size(708, 105)
Me.UsrCntlAuswertungenEV_Veranlagungen1.TabIndex = 2
'
'UsrCntlAuswertungenFiskal_IntrastatMeldung1
'
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Location = New System.Drawing.Point(3, 327)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Name = "UsrCntlAuswertungenFiskal_IntrastatMeldung1"
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.Size = New System.Drawing.Size(708, 235)
Me.UsrCntlAuswertungenFiskal_IntrastatMeldung1.TabIndex = 1
'
'UsrCntlAuswertungenFiskalvertretung_42001
'
Me.UsrCntlAuswertungenFiskalvertretung_42001.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenFiskalvertretung_42001.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenFiskalvertretung_42001.Name = "UsrCntlAuswertungenFiskalvertretung_42001"
Me.UsrCntlAuswertungenFiskalvertretung_42001.Size = New System.Drawing.Size(708, 234)
Me.UsrCntlAuswertungenFiskalvertretung_42001.TabIndex = 0
'
'UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1
'
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Location = New System.Drawing.Point(3, 149)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Name = "UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1"
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.Size = New System.Drawing.Size(708, 120)
Me.UsrCntlAuswertungenAufschub_AbgabenKontrolleTRIER1.TabIndex = 1
'
'UsrCntlAuswertungenAufschub_Abgabenliste1
'
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.BackColor = System.Drawing.Color.White
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Location = New System.Drawing.Point(3, 22)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Name = "UsrCntlAuswertungenAufschub_Abgabenliste1"
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.Size = New System.Drawing.Size(708, 180)
Me.UsrCntlAuswertungenAufschub_Abgabenliste1.TabIndex = 0
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button22.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button22.Location = New System.Drawing.Point(6, 95)
Me.Button22.Name = "Button22"
Me.Button22.Size = New System.Drawing.Size(121, 37)
Me.Button22.TabIndex = 16
Me.Button22.Text = "Auswertung starten" & Global.Microsoft.VisualBasic.ChrW(10) & "(ATEZ)"
Me.Button22.UseVisualStyleBackColor = True
'
'usrCntlZOLLAuswertungen
'
@@ -2723,7 +2736,7 @@ Partial Class usrCntlZOLLAuswertungen
Me.Controls.Add(Me.tbcntr)
Me.Controls.Add(Me.pnl)
Me.Name = "usrCntlZOLLAuswertungen"
Me.Size = New System.Drawing.Size(728, 1445)
Me.Size = New System.Drawing.Size(711, 1445)
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
@@ -3014,4 +3027,5 @@ Partial Class usrCntlZOLLAuswertungen
Friend WithEvents Label86 As Label
Friend WithEvents datAuswertVon_NCTSTR_UNISPED As DateTimePicker
Friend WithEvents Label87 As Label
Friend WithEvents Button22 As Button
End Class

6
SDL/zoll/usrCntlZOLLAuswertungen.vb
View File

@@ -764,4 +764,10 @@ Public Class usrCntlZOLLAuswertungen
frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR_UNISPED.Text, datAuswertBis_NCTSTR_UNISPED.Text, "MIC_UNISPED")
frmPrintLayout.Show()
End Sub
Private Sub Button22_Click(sender As Object, e As EventArgs) Handles Button22.Click
Dim frmPrintLayout As New frmPrintLayout()
frmPrintLayout.AuswertungKontrolleLKW_NCTSTR(datAuswertVon_NCTSTR.Text, datAuswertBis_NCTSTR.Text, "VERIMEX_ATEZ")
frmPrintLayout.Show()
End Sub
End Class