From b655d204088acd7af34a553b07689885e371cf21 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 4 Apr 2023 16:48:18 +0200 Subject: [PATCH] Verzollungspreise,getSig,VERIMEX_ATEZ(NCTSAbr.) --- SDL/Fakturierung/cFakturierung.vb | 24 +-- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 23 +++ .../usrcntlVerzollungspreise.vb | 140 ++++++++------- SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb | 4 + SDL/SDL.vbproj | 16 +- .../usrcntlKundeBearbeitenFull.Designer.vb | 14 ++ SDL/kunden/usrcntlKundeBearbeitenFull.vb | 3 + SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb | 166 ++++++++++-------- SDL/zoll/usrCntlZOLLAuswertungen.vb | 6 + .../Classes/cKundenErweitert.vb | 2 + .../Classes/cSpeditionsbuch.vb | 3 + 11 files changed, 242 insertions(+), 159 deletions(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 36346116..65b18fb3 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -1536,7 +1536,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 +1550,54 @@ Public Class cFakturierung Select Case special Case "BREXIT_VERAG" getSignature &= "" - If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" + 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 &= "" - If displayFirmenmane Then getSignature &= "
VERAG Spedition AG
" + 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 7 'ATILLA getSignature &= "" - If displayFirmenmane Then getSignature &= "
ATILLA Spedition GmbH
" + 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 &= "" - If displayFirmenmane Then getSignature &= "
VERAG Customs Service
" + 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 &= "" - If displayFirmenmane Then getSignature &= "
Imex Customs Service GmbH
" + 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 - getSignature &= "" - If displayFirmenmane Then getSignature &= "
AMBAR Logistic Services GmbH
" + getSignature &= "" + If displayFirmenmane Then getSignature &= "
AMBAR Logistic Services GmbH
" getSignature &= "
D 83435 Bad Reichenhall, Reichenhallerstrasse 62
T +49 8651 99624911 | F +49 8651 9962493 | @ " & If(individuell, emailindividuell, "info@ambarlog.de") & " | www.ambarlog.com | DE309105428
" If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine Case 21 'UNISPED getSignature &= "" - If displayFirmenmane Then getSignature &= "
Unisped Speditions GmbH
" + 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 26 'VERAG-UNISPED getSignature &= "" - If displayFirmenmane Then getSignature &= "
VERAG-UNISPED LTD
" + 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 &= "" - If displayFirmenmane Then getSignature &= "
VERAG Spedition GmbH
" + 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 &= "" - If displayFirmenmane Then getSignature &= "
Front Office Suben eG
" + 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 End Select diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index da376bae..207340ce 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -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 diff --git a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb index 08eb3eee..49b958aa 100644 --- a/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb +++ b/SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb @@ -155,85 +155,88 @@ 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("", "", "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("", "", "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 +246,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 +262,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,38 +403,38 @@ 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("", "", "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")) @@ -440,43 +444,43 @@ '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 +490,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 +535,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" diff --git a/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb b/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb index 24eb36dc..e62250e8 100644 --- a/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb +++ b/SDL/Reports/Zoll/rptKontrolleLKW_NCTSTR.vb @@ -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" diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index ead951f1..f5894ece 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -4423,7 +4423,9 @@ - + + Always + @@ -4565,7 +4567,9 @@ - + + Always + Always @@ -4634,8 +4638,12 @@ - - + + Always + + + Always + diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb index 70bcd6ca..b6712ab8 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb @@ -326,6 +326,7 @@ Partial Class usrcntlKundeBearbeitenFull Me.cboAuswahl = 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() @@ -1044,6 +1045,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 +4404,17 @@ Partial Class usrcntlKundeBearbeitenFull 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 +4797,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 diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 2f4f9e14..39e74f1a 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -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 diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index e1354d10..bdd104e5 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -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 diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index ae290db6..8a26c7a5 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb index 4926a6a3..d221c21e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb @@ -71,6 +71,7 @@ Public Class cKundenErweitert Property kde_FakturierungSR_Details As Boolean = False Property kde_Fakturierung_Sprache As Object = Nothing Property kde_TOBB_KundenNr As Object = Nothing + Property kde_Abrechnung_SendungsdatenAusSTB As Boolean = False Dim SQL As New SQL @@ -143,6 +144,7 @@ Public Class cKundenErweitert list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsIndex", kde_CreditSaveBonitaetsIndex)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveBonitaetsScore", kde_CreditSaveBonitaetsScore)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_CreditSaveId", kde_CreditSaveId)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Abrechnung_SendungsdatenAusSTB", kde_Abrechnung_SendungsdatenAusSTB)) Return list End Function diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb index 3dedb15c..8d7e9896 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb @@ -124,6 +124,7 @@ Public Class cSpeditionsbuch Property Rechnungsbetrag As Object = Nothing 'dbl=0 Property Umrechnungskurs As Object = CDbl(1) 'dbl=1 Property Packstücke As String = "" + Property Packstücke_Zoll As String = "" Property Rohmasse As Object = Nothing 'int=0 Property Zahlungsaufschub As String = "" Property Löschen As Object = Nothing @@ -301,6 +302,7 @@ Public Class cSpeditionsbuch Me.Rechnungsbetrag = SQL.checkNullReturnValue(dr.Item("Rechnungsbetrag"), Nothing) Me.Umrechnungskurs = SQL.checkNullReturnValue(dr.Item("Umrechnungskurs"), 1) Me.Packstücke = SQL.checkNullStr(dr.Item("Packstücke")) + Me.Packstücke_Zoll = SQL.checkNullStr(dr.Item("Packstücke_Zoll")) Me.Rohmasse = SQL.checkNullReturnValue(dr.Item("Rohmasse"), Nothing) Me.Zahlungsaufschub = SQL.checkNullStr(dr.Item("Zahlungsaufschub")) Me.Löschen = SQL.checkNullDateNothing(dr.Item("Löschen")) @@ -456,6 +458,7 @@ Public Class cSpeditionsbuch list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rechnungsbetrag", Rechnungsbetrag)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Umrechnungskurs", Umrechnungskurs)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke", Packstücke)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Packstücke_Zoll", Packstücke_Zoll)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Rohmasse", Rohmasse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Zahlungsaufschub", Zahlungsaufschub)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Löschen", Löschen))