diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb index b6cd762b..5cd31a26 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb @@ -73,12 +73,23 @@ Public Class usrCntlATLAS_AnkunftsAnzeige cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='AA' and dySr_dy_Mandant='" & txtDyMandant.Text & "' and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "') and dySr_visible=1", False, "FMZOLL", True) cboStammreferenz.changeItem("") + If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "WAI" Then + For i As Integer = 0 To cboStammreferenz.Items.Count - 1 + If cboStammreferenz.Items(i).ToString().Contains("VERAG_WDH") Then + cboStammreferenz.SelectedIndex = i + Exit For + End If + Next - If cboStammreferenz.Items.Count = 2 Then + ElseIf cboStammreferenz.Items.Count = 2 Then cboStammreferenz.SelectedIndex = 1 End If + + + + End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click diff --git a/SDL/kunden/usrcntlKundeBearbeitenFull.vb b/SDL/kunden/usrcntlKundeBearbeitenFull.vb index 45bb9998..e73bf1c1 100644 --- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb +++ b/SDL/kunden/usrcntlKundeBearbeitenFull.vb @@ -1002,11 +1002,8 @@ Public Class usrcntlKundeBearbeitenFull cboRechnungSprache.changeItem(0) cboProvisionStaffelArt.fillWithSQL("SELECT [PreislistenNr],[PreislistenBez] FROM [VERAG].[dbo].[tblPreislisten] WHERE Art='E' ORDER BY Preislistenbez", False, "FMZOLL", True) - cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma ORDER BY tblFirma.Firma_ID", , "FMZOLL", True) - - cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL") - + Dim FirmaWhere As String = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Case "IMEX" cboFiliale.changeItem("5501") @@ -1016,10 +1013,16 @@ Public Class usrcntlKundeBearbeitenFull cboFiliale.changeItem("5701") Case "ATILLA" cboFiliale.changeItem("4801") + FirmaWhere = " AND Firma_ID = 7" Case Else cboFiliale.changeItem("4803") End Select + + cboFirma.fillWithSQL("SELECT tblFirma.Firma_ID, tblFirma.Firma_Bez FROM tblFirma WHERE 1 = 1 " & FirmaWhere & " ORDER BY tblFirma.Firma_ID", , "FMZOLL", True) + + cboFiliale.fillWithSQL("SELECT [FilialenNr],[Grenzstelle] FROM [Filialen] ORDER BY FilialenNr", True, "FMZOLL") + cboAuswahl.Items.Clear() cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AKTIV", "A")) cboAuswahl.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("INAKTIV", "I")) @@ -1340,11 +1343,13 @@ Public Class usrcntlKundeBearbeitenFull '--------------------- VERAG360---------------------------- - Case "400000-499999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") + Case "200000-299999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") Case "160000-169999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") Case "303000-303999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") Case "130000-139999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") + + Case "400000-499999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") Case "150000-159999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") Case "140000-149999" : cbxFiBu.Checked = True : cboFirma.changeItem("19") : cboFiliale.changeItem("8001") diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb index 076cf153..d297a090 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.Designer.vb @@ -231,15 +231,8 @@ Partial Class usrCntlZOLLAuswertungen Me.PictureBox3 = 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() @@ -261,20 +254,39 @@ Partial Class usrCntlZOLLAuswertungen Me.Button14 = New System.Windows.Forms.Button() Me.PictureBox8 = New System.Windows.Forms.PictureBox() Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.cbxCBAM_Detaildaten = New System.Windows.Forms.CheckBox() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.Label105 = New System.Windows.Forms.Label() + Me.Button26 = New System.Windows.Forms.Button() + Me.von_stahlverordnung = New System.Windows.Forms.DateTimePicker() + Me.Label106 = New System.Windows.Forms.Label() + Me.Label108 = New System.Windows.Forms.Label() + Me.cbxQuelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.bis_stahlverordnung = New System.Windows.Forms.DateTimePicker() + Me.Label107 = New System.Windows.Forms.Label() + Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Label100 = New System.Windows.Forms.Label() - Me.cbxcbamQuelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label99 = New System.Windows.Forms.Label() - Me.bis_CBAM = New System.Windows.Forms.DateTimePicker() - Me.Label97 = New System.Windows.Forms.Label() - Me.excelCbam = New System.Windows.Forms.Button() - Me.Label96 = New System.Windows.Forms.Label() Me.von_CBAM = New System.Windows.Forms.DateTimePicker() - Me.pnl = New System.Windows.Forms.Panel() + Me.Label96 = New System.Windows.Forms.Label() + Me.excelCbam = New System.Windows.Forms.Button() + Me.bis_CBAM = New System.Windows.Forms.DateTimePicker() + Me.Label99 = New System.Windows.Forms.Label() + Me.cbxcbamQuelle = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.cbxCBAM_Detaildaten = New System.Windows.Forms.CheckBox() Me.Label101 = New System.Windows.Forms.Label() Me.Button2 = New System.Windows.Forms.Button() - Me.Label102 = New System.Windows.Forms.Label() Me.Label103 = New System.Windows.Forms.Label() + Me.Label102 = New System.Windows.Forms.Label() + Me.Label104 = New System.Windows.Forms.Label() + Me.Label97 = New System.Windows.Forms.Label() + 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.cbxStahlverordnung_SNDdet = New System.Windows.Forms.CheckBox() Me.GroupBox1.SuspendLayout() Me.grpDurmaz.SuspendLayout() CType(Me.picDurmaz, System.ComponentModel.ISupportInitialize).BeginInit() @@ -318,6 +330,8 @@ Partial Class usrCntlZOLLAuswertungen Me.GroupBox9.SuspendLayout() CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() + Me.GroupBox6.SuspendLayout() + Me.GroupBox2.SuspendLayout() Me.pnl.SuspendLayout() Me.SuspendLayout() ' @@ -1318,7 +1332,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(1092, 1829) + Me.tbcntr.Size = New System.Drawing.Size(1041, 1829) Me.tbcntr.TabIndex = 22 ' 'TabPage1 @@ -1361,7 +1375,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(1084, 1803) + Me.TabPage1.Size = New System.Drawing.Size(1033, 1803) Me.TabPage1.TabIndex = 0 Me.TabPage1.Text = "Bürgschaften" Me.TabPage1.UseVisualStyleBackColor = True @@ -2558,28 +2572,11 @@ 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(1101, 1803) + Me.TabPage2.Size = New System.Drawing.Size(1050, 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 - Me.UsrCntlAuswertungenUIDPruefung1.Visible = False - ' - 'UsrCntlAuswertungenKunden_Auftragsrueckgang1 - ' - 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(708, 235) - Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0 - ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.UsrCntlAuswertungenEV_Veranlagungen1) @@ -2588,62 +2585,22 @@ 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(1101, 1803) + Me.TabPage3.Size = New System.Drawing.Size(1050, 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(1101, 1803) + Me.TabPage4.Size = New System.Drawing.Size(1050, 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) @@ -2652,7 +2609,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(1084, 1803) + Me.TabPage5.Size = New System.Drawing.Size(1050, 1803) Me.TabPage5.TabIndex = 4 Me.TabPage5.Text = "UNISPED" Me.TabPage5.UseVisualStyleBackColor = True @@ -2856,45 +2813,194 @@ Partial Class usrCntlZOLLAuswertungen ' 'TabPage6 ' - Me.TabPage6.Controls.Add(Me.Label103) - Me.TabPage6.Controls.Add(Me.Label102) - Me.TabPage6.Controls.Add(Me.Button2) - Me.TabPage6.Controls.Add(Me.Label101) - Me.TabPage6.Controls.Add(Me.cbxCBAM_Detaildaten) - Me.TabPage6.Controls.Add(Me.Label100) - Me.TabPage6.Controls.Add(Me.cbxcbamQuelle) - Me.TabPage6.Controls.Add(Me.Label99) - Me.TabPage6.Controls.Add(Me.bis_CBAM) + Me.TabPage6.Controls.Add(Me.GroupBox6) + Me.TabPage6.Controls.Add(Me.GroupBox2) + Me.TabPage6.Controls.Add(Me.Label104) Me.TabPage6.Controls.Add(Me.Label97) - Me.TabPage6.Controls.Add(Me.excelCbam) - Me.TabPage6.Controls.Add(Me.Label96) - Me.TabPage6.Controls.Add(Me.von_CBAM) Me.TabPage6.Location = New System.Drawing.Point(4, 22) Me.TabPage6.Name = "TabPage6" - Me.TabPage6.Size = New System.Drawing.Size(1084, 1803) + Me.TabPage6.Size = New System.Drawing.Size(1033, 1803) Me.TabPage6.TabIndex = 5 - Me.TabPage6.Text = "CBAM" + Me.TabPage6.Text = "CBAM/Stahlverordnung" Me.TabPage6.UseVisualStyleBackColor = True ' - 'cbxCBAM_Detaildaten + 'GroupBox6 ' - Me.cbxCBAM_Detaildaten.AutoSize = True - Me.cbxCBAM_Detaildaten.Location = New System.Drawing.Point(13, 102) - Me.cbxCBAM_Detaildaten.Name = "cbxCBAM_Detaildaten" - Me.cbxCBAM_Detaildaten.Size = New System.Drawing.Size(126, 17) - Me.cbxCBAM_Detaildaten.TabIndex = 29 - Me.cbxCBAM_Detaildaten.Text = "mit Sendunggsdetails" - Me.cbxCBAM_Detaildaten.UseVisualStyleBackColor = True + Me.GroupBox6.Controls.Add(Me.cbxStahlverordnung_SNDdet) + Me.GroupBox6.Controls.Add(Me.Label105) + Me.GroupBox6.Controls.Add(Me.Button26) + Me.GroupBox6.Controls.Add(Me.von_stahlverordnung) + Me.GroupBox6.Controls.Add(Me.Label106) + Me.GroupBox6.Controls.Add(Me.Label108) + Me.GroupBox6.Controls.Add(Me.cbxQuelle) + Me.GroupBox6.Controls.Add(Me.bis_stahlverordnung) + Me.GroupBox6.Controls.Add(Me.Label107) + Me.GroupBox6.Location = New System.Drawing.Point(14, 341) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(631, 148) + Me.GroupBox6.TabIndex = 44 + Me.GroupBox6.TabStop = False + ' + 'Label105 + ' + Me.Label105.AutoSize = True + Me.Label105.Location = New System.Drawing.Point(6, 14) + Me.Label105.Name = "Label105" + Me.Label105.Size = New System.Drawing.Size(394, 13) + Me.Label105.TabIndex = 42 + Me.Label105.Text = "Liste der Kunden mit Stahlwaren Nachweise zum Land des Schmelzens / Gießens" + ' + 'Button26 + ' + Me.Button26.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button26.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button26.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button26.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button26.Location = New System.Drawing.Point(6, 103) + Me.Button26.Name = "Button26" + Me.Button26.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) + Me.Button26.Size = New System.Drawing.Size(121, 38) + Me.Button26.TabIndex = 35 + Me.Button26.Text = "Excel" + Me.Button26.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button26.UseVisualStyleBackColor = True + ' + 'von_stahlverordnung + ' + Me.von_stahlverordnung.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.von_stahlverordnung.Location = New System.Drawing.Point(113, 54) + Me.von_stahlverordnung.Name = "von_stahlverordnung" + Me.von_stahlverordnung.Size = New System.Drawing.Size(93, 20) + Me.von_stahlverordnung.TabIndex = 36 + ' + 'Label106 + ' + Me.Label106.AutoSize = True + Me.Label106.Location = New System.Drawing.Point(6, 38) + Me.Label106.Name = "Label106" + Me.Label106.Size = New System.Drawing.Size(37, 13) + Me.Label106.TabIndex = 41 + Me.Label106.Text = "Quelle" + ' + 'Label108 + ' + Me.Label108.AutoSize = True + Me.Label108.Location = New System.Drawing.Point(110, 38) + Me.Label108.Name = "Label108" + Me.Label108.Size = New System.Drawing.Size(38, 13) + Me.Label108.TabIndex = 37 + Me.Label108.Text = "Datum" + ' + 'cbxQuelle + ' + Me.cbxQuelle._allowedValuesFreiText = Nothing + Me.cbxQuelle._allowFreiText = False + Me.cbxQuelle._value = "" + Me.cbxQuelle.DropDownHeight = 100 + Me.cbxQuelle.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cbxQuelle.DropDownWidth = 100 + Me.cbxQuelle.FormattingEnabled = True + Me.cbxQuelle.IntegralHeight = False + Me.cbxQuelle.Location = New System.Drawing.Point(9, 54) + Me.cbxQuelle.Name = "cbxQuelle" + Me.cbxQuelle.Size = New System.Drawing.Size(85, 21) + Me.cbxQuelle.TabIndex = 40 + ' + 'bis_stahlverordnung + ' + Me.bis_stahlverordnung.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.bis_stahlverordnung.Location = New System.Drawing.Point(249, 54) + Me.bis_stahlverordnung.Name = "bis_stahlverordnung" + Me.bis_stahlverordnung.Size = New System.Drawing.Size(93, 20) + Me.bis_stahlverordnung.TabIndex = 38 + ' + 'Label107 + ' + Me.Label107.AutoSize = True + Me.Label107.Location = New System.Drawing.Point(220, 57) + Me.Label107.Name = "Label107" + Me.Label107.Size = New System.Drawing.Size(23, 13) + Me.Label107.TabIndex = 39 + Me.Label107.Text = "bis:" + ' + 'GroupBox2 + ' + Me.GroupBox2.Controls.Add(Me.Label100) + Me.GroupBox2.Controls.Add(Me.von_CBAM) + Me.GroupBox2.Controls.Add(Me.Label96) + Me.GroupBox2.Controls.Add(Me.excelCbam) + Me.GroupBox2.Controls.Add(Me.bis_CBAM) + Me.GroupBox2.Controls.Add(Me.Label99) + Me.GroupBox2.Controls.Add(Me.cbxcbamQuelle) + Me.GroupBox2.Controls.Add(Me.cbxCBAM_Detaildaten) + Me.GroupBox2.Controls.Add(Me.Label101) + Me.GroupBox2.Controls.Add(Me.Button2) + Me.GroupBox2.Controls.Add(Me.Label103) + Me.GroupBox2.Controls.Add(Me.Label102) + Me.GroupBox2.Location = New System.Drawing.Point(14, 29) + Me.GroupBox2.Name = "GroupBox2" + Me.GroupBox2.Size = New System.Drawing.Size(652, 263) + Me.GroupBox2.TabIndex = 43 + Me.GroupBox2.TabStop = False ' 'Label100 ' Me.Label100.AutoSize = True - Me.Label100.Location = New System.Drawing.Point(10, 59) + Me.Label100.Location = New System.Drawing.Point(6, 41) Me.Label100.Name = "Label100" Me.Label100.Size = New System.Drawing.Size(37, 13) Me.Label100.TabIndex = 28 Me.Label100.Text = "Quelle" ' + 'von_CBAM + ' + Me.von_CBAM.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.von_CBAM.Location = New System.Drawing.Point(113, 57) + Me.von_CBAM.Name = "von_CBAM" + Me.von_CBAM.Size = New System.Drawing.Size(93, 20) + Me.von_CBAM.TabIndex = 20 + ' + 'Label96 + ' + Me.Label96.AutoSize = True + Me.Label96.Location = New System.Drawing.Point(110, 41) + Me.Label96.Name = "Label96" + Me.Label96.Size = New System.Drawing.Size(38, 13) + Me.Label96.TabIndex = 21 + Me.Label96.Text = "Datum" + ' + 'excelCbam + ' + Me.excelCbam.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.excelCbam.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.excelCbam.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.excelCbam.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.excelCbam.Location = New System.Drawing.Point(9, 107) + Me.excelCbam.Name = "excelCbam" + Me.excelCbam.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) + Me.excelCbam.Size = New System.Drawing.Size(121, 38) + Me.excelCbam.TabIndex = 22 + Me.excelCbam.Text = "Excel" + Me.excelCbam.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.excelCbam.UseVisualStyleBackColor = True + ' + 'bis_CBAM + ' + Me.bis_CBAM.Format = System.Windows.Forms.DateTimePickerFormat.[Short] + Me.bis_CBAM.Location = New System.Drawing.Point(249, 57) + Me.bis_CBAM.Name = "bis_CBAM" + Me.bis_CBAM.Size = New System.Drawing.Size(93, 20) + Me.bis_CBAM.TabIndex = 25 + ' + 'Label99 + ' + Me.Label99.AutoSize = True + Me.Label99.Location = New System.Drawing.Point(220, 60) + Me.Label99.Name = "Label99" + Me.Label99.Size = New System.Drawing.Size(23, 13) + Me.Label99.TabIndex = 26 + Me.Label99.Text = "bis:" + ' 'cbxcbamQuelle ' Me.cbxcbamQuelle._allowedValuesFreiText = Nothing @@ -2905,27 +3011,75 @@ Partial Class usrCntlZOLLAuswertungen Me.cbxcbamQuelle.DropDownWidth = 100 Me.cbxcbamQuelle.FormattingEnabled = True Me.cbxcbamQuelle.IntegralHeight = False - Me.cbxcbamQuelle.Location = New System.Drawing.Point(13, 75) + Me.cbxcbamQuelle.Location = New System.Drawing.Point(9, 57) Me.cbxcbamQuelle.Name = "cbxcbamQuelle" Me.cbxcbamQuelle.Size = New System.Drawing.Size(85, 21) Me.cbxcbamQuelle.TabIndex = 27 ' - 'Label99 + 'cbxCBAM_Detaildaten ' - Me.Label99.AutoSize = True - Me.Label99.Location = New System.Drawing.Point(224, 78) - Me.Label99.Name = "Label99" - Me.Label99.Size = New System.Drawing.Size(23, 13) - Me.Label99.TabIndex = 26 - Me.Label99.Text = "bis:" + Me.cbxCBAM_Detaildaten.AutoSize = True + Me.cbxCBAM_Detaildaten.Location = New System.Drawing.Point(9, 84) + Me.cbxCBAM_Detaildaten.Name = "cbxCBAM_Detaildaten" + Me.cbxCBAM_Detaildaten.Size = New System.Drawing.Size(126, 17) + Me.cbxCBAM_Detaildaten.TabIndex = 29 + Me.cbxCBAM_Detaildaten.Text = "mit Sendunggsdetails" + Me.cbxCBAM_Detaildaten.UseVisualStyleBackColor = True ' - 'bis_CBAM + 'Label101 ' - Me.bis_CBAM.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.bis_CBAM.Location = New System.Drawing.Point(253, 75) - Me.bis_CBAM.Name = "bis_CBAM" - Me.bis_CBAM.Size = New System.Drawing.Size(93, 20) - Me.bis_CBAM.TabIndex = 25 + Me.Label101.AutoSize = True + Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label101.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label101.Location = New System.Drawing.Point(6, 158) + Me.Label101.Name = "Label101" + Me.Label101.Size = New System.Drawing.Size(154, 17) + Me.Label101.TabIndex = 30 + Me.Label101.Text = "CBAM Kundenstatus" + ' + 'Button2 + ' + Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button2.Image = Global.SDL.My.Resources.Resources.Excel_logo + Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button2.Location = New System.Drawing.Point(9, 211) + Me.Button2.Name = "Button2" + Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) + Me.Button2.Size = New System.Drawing.Size(121, 38) + Me.Button2.TabIndex = 31 + Me.Button2.Text = "Excel" + Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight + Me.Button2.UseVisualStyleBackColor = True + ' + 'Label103 + ' + Me.Label103.AutoSize = True + Me.Label103.Location = New System.Drawing.Point(6, 16) + Me.Label103.Name = "Label103" + Me.Label103.Size = New System.Drawing.Size(225, 13) + Me.Label103.TabIndex = 33 + Me.Label103.Text = "Liste der Kunden mit CBAM-pflichtigen Waren " + ' + 'Label102 + ' + Me.Label102.AutoSize = True + Me.Label102.Location = New System.Drawing.Point(6, 182) + Me.Label102.Name = "Label102" + Me.Label102.Size = New System.Drawing.Size(192, 13) + Me.Label102.TabIndex = 32 + Me.Label102.Text = "Kundenliste mit aktuellem CBAM-Status" + ' + 'Label104 + ' + Me.Label104.AutoSize = True + Me.Label104.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label104.ForeColor = System.Drawing.SystemColors.ControlDarkDark + Me.Label104.Location = New System.Drawing.Point(11, 321) + Me.Label104.Name = "Label104" + Me.Label104.Size = New System.Drawing.Size(210, 17) + Me.Label104.TabIndex = 34 + Me.Label104.Text = "Stahlverordnung 2026/1384" ' 'Label97 ' @@ -2938,90 +3092,81 @@ Partial Class usrCntlZOLLAuswertungen Me.Label97.TabIndex = 24 Me.Label97.Text = "CBAM Kundenliste" ' - 'excelCbam - ' - Me.excelCbam.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.excelCbam.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.excelCbam.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.excelCbam.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.excelCbam.Location = New System.Drawing.Point(13, 125) - Me.excelCbam.Name = "excelCbam" - Me.excelCbam.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) - Me.excelCbam.Size = New System.Drawing.Size(121, 38) - Me.excelCbam.TabIndex = 22 - Me.excelCbam.Text = "Excel" - Me.excelCbam.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.excelCbam.UseVisualStyleBackColor = True - ' - 'Label96 - ' - Me.Label96.AutoSize = True - Me.Label96.Location = New System.Drawing.Point(114, 59) - Me.Label96.Name = "Label96" - Me.Label96.Size = New System.Drawing.Size(38, 13) - Me.Label96.TabIndex = 21 - Me.Label96.Text = "Datum" - ' - 'von_CBAM - ' - Me.von_CBAM.Format = System.Windows.Forms.DateTimePickerFormat.[Short] - Me.von_CBAM.Location = New System.Drawing.Point(117, 75) - Me.von_CBAM.Name = "von_CBAM" - Me.von_CBAM.Size = New System.Drawing.Size(93, 20) - Me.von_CBAM.TabIndex = 20 - ' 'pnl ' Me.pnl.Controls.Add(Me.Label2) 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(1092, 57) + Me.pnl.Size = New System.Drawing.Size(1041, 57) Me.pnl.TabIndex = 23 ' - 'Label101 + 'UsrCntlAuswertungenUIDPruefung1 ' - Me.Label101.AutoSize = True - Me.Label101.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label101.ForeColor = System.Drawing.SystemColors.ControlDarkDark - Me.Label101.Location = New System.Drawing.Point(10, 176) - Me.Label101.Name = "Label101" - Me.Label101.Size = New System.Drawing.Size(154, 17) - Me.Label101.TabIndex = 30 - Me.Label101.Text = "CBAM Kundenstatus" + 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 + Me.UsrCntlAuswertungenUIDPruefung1.Visible = False ' - 'Button2 + 'UsrCntlAuswertungenKunden_Auftragsrueckgang1 ' - Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button2.Image = Global.SDL.My.Resources.Resources.Excel_logo - Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button2.Location = New System.Drawing.Point(13, 229) - Me.Button2.Name = "Button2" - Me.Button2.Padding = New System.Windows.Forms.Padding(0, 0, 25, 0) - Me.Button2.Size = New System.Drawing.Size(121, 38) - Me.Button2.TabIndex = 31 - Me.Button2.Text = "Excel" - Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight - Me.Button2.UseVisualStyleBackColor = True + 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(708, 235) + Me.UsrCntlAuswertungenKunden_Auftragsrueckgang1.TabIndex = 0 ' - 'Label102 + 'UsrCntlAuswertungenEV_Veranlagungen1 ' - Me.Label102.AutoSize = True - Me.Label102.Location = New System.Drawing.Point(10, 200) - Me.Label102.Name = "Label102" - Me.Label102.Size = New System.Drawing.Size(192, 13) - Me.Label102.TabIndex = 32 - Me.Label102.Text = "Kundenliste mit aktuellem CBAM-Status" + 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 ' - 'Label103 + 'UsrCntlAuswertungenFiskal_IntrastatMeldung1 ' - Me.Label103.AutoSize = True - Me.Label103.Location = New System.Drawing.Point(10, 35) - Me.Label103.Name = "Label103" - Me.Label103.Size = New System.Drawing.Size(225, 13) - Me.Label103.TabIndex = 33 - Me.Label103.Text = "Liste der Kunden mit CBAM-pflichtigen Waren " + 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 + ' + 'cbxStahlverordnung_SNDdet + ' + Me.cbxStahlverordnung_SNDdet.AutoSize = True + Me.cbxStahlverordnung_SNDdet.Location = New System.Drawing.Point(9, 81) + Me.cbxStahlverordnung_SNDdet.Name = "cbxStahlverordnung_SNDdet" + Me.cbxStahlverordnung_SNDdet.Size = New System.Drawing.Size(126, 17) + Me.cbxStahlverordnung_SNDdet.TabIndex = 34 + Me.cbxStahlverordnung_SNDdet.Text = "mit Sendunggsdetails" + Me.cbxStahlverordnung_SNDdet.UseVisualStyleBackColor = True ' 'usrCntlZOLLAuswertungen ' @@ -3032,7 +3177,7 @@ Partial Class usrCntlZOLLAuswertungen Me.Controls.Add(Me.tbcntr) Me.Controls.Add(Me.pnl) Me.Name = "usrCntlZOLLAuswertungen" - Me.Size = New System.Drawing.Size(1092, 1174) + Me.Size = New System.Drawing.Size(1041, 1174) Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.grpDurmaz.ResumeLayout(False) @@ -3093,6 +3238,10 @@ Partial Class usrCntlZOLLAuswertungen CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() + Me.GroupBox6.ResumeLayout(False) + Me.GroupBox6.PerformLayout() + Me.GroupBox2.ResumeLayout(False) + Me.GroupBox2.PerformLayout() Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() Me.ResumeLayout(False) @@ -3351,4 +3500,16 @@ Partial Class usrCntlZOLLAuswertungen Friend WithEvents Label101 As Label Friend WithEvents Label102 As Label Friend WithEvents Label103 As Label + Friend WithEvents Label105 As Label + Friend WithEvents Label106 As Label + Friend WithEvents cbxQuelle As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label107 As Label + Friend WithEvents bis_stahlverordnung As DateTimePicker + Friend WithEvents Label108 As Label + Friend WithEvents von_stahlverordnung As DateTimePicker + Friend WithEvents Button26 As Button + Friend WithEvents Label104 As Label + Friend WithEvents GroupBox6 As GroupBox + Friend WithEvents GroupBox2 As GroupBox + Friend WithEvents cbxStahlverordnung_SNDdet As CheckBox End Class diff --git a/SDL/zoll/usrCntlZOLLAuswertungen.vb b/SDL/zoll/usrCntlZOLLAuswertungen.vb index 52b0fbda..c77d31f9 100644 --- a/SDL/zoll/usrCntlZOLLAuswertungen.vb +++ b/SDL/zoll/usrCntlZOLLAuswertungen.vb @@ -1,6 +1,7 @@ Imports System.Data.SqlTypes Imports System.IO Imports GrapeCity.DataVisualization.Chart +Imports org.BouncyCastle.Asn1.Misc Public Class usrCntlZOLLAuswertungen @@ -142,6 +143,13 @@ Public Class usrCntlZOLLAuswertungen cbxcbamQuelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "TELOTEC")) cbxcbamQuelle.SelectedIndex = 0 + cbxQuelle.Items.Clear() + cbxQuelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DAKOSY", "DAKOSY")) + cbxQuelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF", "DHF")) + cbxQuelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("DHF-UNISPED", "DHF-UNI")) + cbxQuelle.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TELOTEC", "TELOTEC")) + cbxQuelle.SelectedIndex = 0 + Dim yearStart As Date = CDate("01.01." & Now.Year) von_CBAM.Value = yearStart bis_CBAM.Value = Now @@ -1044,47 +1052,28 @@ Public Class usrCntlZOLLAuswertungen Dim Quelle As String = "FMZOLL" Select Case cbxcbamQuelle._value - Case "DAKOSY" : SQLString = getDAkosySQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked) : Quelle = "FMZOLL" - Case "DHF" : SQLString = getDHFSQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked) : Quelle = "EZOLL" - Case "DHF-UNI" : SQLString = getDHFSQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked) : Quelle = "EZOLL_UNISPED" - Case "TELOTEC" : SQLString = getTELOTECSQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked) : Quelle = "FMZOLL" + Case "DAKOSY" : SQLString = getDAkosySQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked, "CBAM") : Quelle = "FMZOLL" + Case "DHF" : SQLString = getDHFSQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked, "CBAM") : Quelle = "EZOLL" + Case "DHF-UNI" : SQLString = getDHFSQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked, "CBAM") : Quelle = "EZOLL_UNISPED" + Case "TELOTEC" : SQLString = getTELOTECSQL(von_CBAM.Value, bis_CBAM.Value, cbxCBAM_Detaildaten.Checked, "CBAM") : Quelle = "FMZOLL" End Select Dim dt As DataTable = SQL.loadDgvBySql(SQLString, Quelle, 700) If dt IsNot Nothing Then - cProgramFunctions.genExcelFromDT_NEW(dt) + cProgramFunctions.genExcelFromDT_NEW(dt,,, "CBAM-Bericht aus " & cbxcbamQuelle._value & " " & von_CBAM.Value.ToShortDateString & " - " & bis_CBAM.Value.ToShortDateString) End If End Sub - Private Function getDAkosySQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean) + Private Function getDAkosySQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String) - Return "SELECT - Empfaenger.ezaAd_TeilnehmerEORI AS EmpfängerEORI, - Adressen.AdressenNr as KundenNr, - Adressen.[Name 1] as Kunde," & IIf(mitDetaildatensaetze, " COUNT(DISTINCT eza_ANR) As Anzahl_Anmeldungen,COUNT(*) As Anzahl_Positionen,SUM(ezaWP_Eigenmasse) As Summe_Eigenmasse,SUM(ezaWP_Artikelpreis) As Summe_Rechnungspreis, MAX(eza_Anmeldedatum) As Letzte_Anmeldung,MIN(eza_Anmeldedatum) As Erste_Anmeldung, ", "") & "kkd_Email as Email, - Adressen.[E-Mail] as EMailKunde1, - Adressen.[E-Mail2] as EMailKunde2, - isnull(Offerten.OffertenNr, '-') as Offert, - Kunden.FilialenNr as FilialenNr + Dim sqlWhere = "" - - From [VERAG].[dbo].[tblDakosy_EZA] -INNER Join tblDakosy_EZA_Warenposition ON ezaWP_EzaId = eza_Id -Left Join tblDakosy_EZA_Adressen AS Empfaenger ON Empfaenger.ezaAd_EZAId = eza_Id And Empfaenger.ezaAd_AdressTyp = 'CN' - Left Join Kunden on Kunden.EORITIN = Empfaenger.ezaAd_TeilnehmerEORI -Left Join Adressen on Adressen.AdressenNr = Kunden.KundenNr -Left Join Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 -Left Join tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = 'Allgemein' - - WHERE - ISNULL(eza_anmeldedatum, eza_Trans_DatumZeit) - BETWEEN '" & von & "' AND '" & bis & "' - And eza_status BETWEEN 41 And 60 - And ( - /* Eisen & Stahl */ + Select Case type + Case "CBAM" + sqlWhere = " /* Eisen & Stahl */ ezaWP_WarennummerEZT Like '72%' Or ezaWP_WarennummerEZT Like '7301%' -- Schienen, Profile etc. Or ezaWP_WarennummerEZT Like '7302%' @@ -1109,7 +1098,77 @@ Left Join tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = ' Or ezaWP_WarennummerEZT Like '2716%' /* Wasserstoff */ - Or ezaWP_WarennummerEZT Like '280410%' + Or ezaWP_WarennummerEZT Like '280410%'" + + Case Else + sqlWhere = "ezaWP_WarennummerEZT LIKE '72081000%' OR ezaWP_WarennummerEZT LIKE '72082500%' OR + ezaWP_WarennummerEZT LIKE '72082600%' OR ezaWP_WarennummerEZT LIKE '72082700%' OR + ezaWP_WarennummerEZT LIKE '72083600%' OR ezaWP_WarennummerEZT LIKE '72083700%' OR + ezaWP_WarennummerEZT LIKE '72083800%' OR ezaWP_WarennummerEZT LIKE '72083900%' OR + ezaWP_WarennummerEZT LIKE '72084000%' OR ezaWP_WarennummerEZT LIKE '72085120%' OR + ezaWP_WarennummerEZT LIKE '72085191%' OR ezaWP_WarennummerEZT LIKE '72085198%' OR + ezaWP_WarennummerEZT LIKE '72085210%' OR ezaWP_WarennummerEZT LIKE '72085291%' OR + ezaWP_WarennummerEZT LIKE '72085299%' OR ezaWP_WarennummerEZT LIKE '72085310%' OR + ezaWP_WarennummerEZT LIKE '72085390%' OR ezaWP_WarennummerEZT LIKE '72085400%' OR + ezaWP_WarennummerEZT LIKE '72089020%' OR ezaWP_WarennummerEZT LIKE '72089080%' OR + ezaWP_WarennummerEZT LIKE '72091500%' OR ezaWP_WarennummerEZT LIKE '72091610%' OR + ezaWP_WarennummerEZT LIKE '72091690%' OR ezaWP_WarennummerEZT LIKE '72091710%' OR + ezaWP_WarennummerEZT LIKE '72091790%' OR ezaWP_WarennummerEZT LIKE '72091810%' OR + ezaWP_WarennummerEZT LIKE '72091891%' OR ezaWP_WarennummerEZT LIKE '72091899%' OR + ezaWP_WarennummerEZT LIKE '72092500%' OR ezaWP_WarennummerEZT LIKE '72092610%' OR + ezaWP_WarennummerEZT LIKE '72092690%' OR ezaWP_WarennummerEZT LIKE '72092710%' OR + ezaWP_WarennummerEZT LIKE '72092790%' OR ezaWP_WarennummerEZT LIKE '72092810%' OR + ezaWP_WarennummerEZT LIKE '72092890%' OR ezaWP_WarennummerEZT LIKE '72099020%' OR + ezaWP_WarennummerEZT LIKE '72099080%' OR ezaWP_WarennummerEZT LIKE '72101100%' OR + ezaWP_WarennummerEZT LIKE '72101220%' OR ezaWP_WarennummerEZT LIKE '72101280%' OR + ezaWP_WarennummerEZT LIKE '72102000%' OR ezaWP_WarennummerEZT LIKE '72103000%' OR + ezaWP_WarennummerEZT LIKE '72105000%' OR ezaWP_WarennummerEZT LIKE '72107010%' OR ezaWP_WarennummerEZT LIKE '72107080%' OR ezaWP_WarennummerEZT LIKE '72109030%' OR + ezaWP_WarennummerEZT LIKE '72109040%' OR ezaWP_WarennummerEZT LIKE '72109080%' OR ezaWP_WarennummerEZT LIKE '72111300%' OR ezaWP_WarennummerEZT LIKE '72111400%' OR + ezaWP_WarennummerEZT LIKE '72111900%' OR ezaWP_WarennummerEZT LIKE '72112320%' OR ezaWP_WarennummerEZT LIKE '72112330%' OR ezaWP_WarennummerEZT LIKE '72112380%' OR + ezaWP_WarennummerEZT LIKE '72112900%' OR ezaWP_WarennummerEZT LIKE '72119020%' OR ezaWP_WarennummerEZT LIKE '72119080%' OR ezaWP_WarennummerEZT LIKE '72121010%' OR + ezaWP_WarennummerEZT LIKE '72121090%' OR ezaWP_WarennummerEZT LIKE '72122000%' OR ezaWP_WarennummerEZT LIKE '72124020%' OR ezaWP_WarennummerEZT LIKE '72124080%' OR + ezaWP_WarennummerEZT LIKE '72125020%' OR ezaWP_WarennummerEZT LIKE '72125030%' OR ezaWP_WarennummerEZT LIKE '72125040%' OR ezaWP_WarennummerEZT LIKE '72125090%' OR + ezaWP_WarennummerEZT LIKE '72126000%' OR ezaWP_WarennummerEZT LIKE '72131000%' OR ezaWP_WarennummerEZT LIKE '72132000%' OR ezaWP_WarennummerEZT LIKE '72139110%' OR + ezaWP_WarennummerEZT LIKE '72139120%' OR ezaWP_WarennummerEZT LIKE '72139141%' OR ezaWP_WarennummerEZT LIKE '72139149%' OR ezaWP_WarennummerEZT LIKE '72139170%' OR ezaWP_WarennummerEZT LIKE '72139190%' OR ezaWP_WarennummerEZT LIKE '72139910%' OR ezaWP_WarennummerEZT LIKE '72139990%' OR ezaWP_WarennummerEZT LIKE '72142000%' OR ezaWP_WarennummerEZT LIKE '72143000%' OR ezaWP_WarennummerEZT LIKE '72149110%' OR ezaWP_WarennummerEZT LIKE '72149190%' OR ezaWP_WarennummerEZT LIKE '72149910%' OR ezaWP_WarennummerEZT LIKE '72149931%' OR ezaWP_WarennummerEZT LIKE '72149939%' OR ezaWP_WarennummerEZT LIKE '72149950%' OR ezaWP_WarennummerEZT LIKE '72149971%' OR ezaWP_WarennummerEZT LIKE '72149979%' OR ezaWP_WarennummerEZT LIKE '72149995%' OR ezaWP_WarennummerEZT LIKE '72151000%' + OR ezaWP_WarennummerEZT LIKE '72155011%' OR ezaWP_WarennummerEZT LIKE '72155019%' OR ezaWP_WarennummerEZT LIKE '72155080%' OR ezaWP_WarennummerEZT LIKE '72159000%' OR ezaWP_WarennummerEZT LIKE '72161000%' OR ezaWP_WarennummerEZT LIKE '72162100%' OR ezaWP_WarennummerEZT LIKE '72162200%' OR ezaWP_WarennummerEZT LIKE '72163110%' OR ezaWP_WarennummerEZT LIKE '72163190%' OR ezaWP_WarennummerEZT LIKE '72163211%' OR ezaWP_WarennummerEZT LIKE '72163219%' OR ezaWP_WarennummerEZT LIKE '72163291%' OR ezaWP_WarennummerEZT LIKE '72163299%' OR ezaWP_WarennummerEZT LIKE '72163310%' OR ezaWP_WarennummerEZT LIKE '72163390%' OR ezaWP_WarennummerEZT LIKE '72164010%' OR ezaWP_WarennummerEZT LIKE '72164090%' OR ezaWP_WarennummerEZT LIKE '72165010%' OR ezaWP_WarennummerEZT LIKE '72165091%' OR ezaWP_WarennummerEZT LIKE '72165099%' OR ezaWP_WarennummerEZT LIKE '72169900%' OR ezaWP_WarennummerEZT LIKE '72171010%' OR ezaWP_WarennummerEZT LIKE '72171031%' OR ezaWP_WarennummerEZT LIKE '72171039%' OR ezaWP_WarennummerEZT LIKE '72171050%' OR ezaWP_WarennummerEZT LIKE '72171090%' + OR ezaWP_WarennummerEZT LIKE '72172010%' OR ezaWP_WarennummerEZT LIKE '72172030%' OR ezaWP_WarennummerEZT LIKE '72172050%' OR ezaWP_WarennummerEZT LIKE '72172090%' OR ezaWP_WarennummerEZT LIKE '72173041%' OR ezaWP_WarennummerEZT LIKE '72173049%' OR ezaWP_WarennummerEZT LIKE '72173050%' OR ezaWP_WarennummerEZT LIKE '72173090%' OR ezaWP_WarennummerEZT LIKE '72179020%' OR ezaWP_WarennummerEZT LIKE '72179050%' OR ezaWP_WarennummerEZT LIKE '72179090%' OR + ezaWP_WarennummerEZT LIKE '72191100%' OR ezaWP_WarennummerEZT LIKE '72191210%' OR ezaWP_WarennummerEZT LIKE '72191290%' OR ezaWP_WarennummerEZT LIKE '72191310%' OR ezaWP_WarennummerEZT LIKE '72191390%' OR ezaWP_WarennummerEZT LIKE '72191410%' OR ezaWP_WarennummerEZT LIKE '72191490%' OR ezaWP_WarennummerEZT LIKE '72192110%' OR ezaWP_WarennummerEZT LIKE '72192190%' OR ezaWP_WarennummerEZT LIKE '72192210%' OR ezaWP_WarennummerEZT LIKE '72192290%' OR ezaWP_WarennummerEZT LIKE '72192300%' OR ezaWP_WarennummerEZT LIKE '72192400%' OR ezaWP_WarennummerEZT LIKE '72193100%' OR ezaWP_WarennummerEZT LIKE '72193210%' OR ezaWP_WarennummerEZT LIKE '72193290%' OR ezaWP_WarennummerEZT LIKE '72193310%' OR ezaWP_WarennummerEZT LIKE '72193390%' OR ezaWP_WarennummerEZT LIKE '72193410%' OR ezaWP_WarennummerEZT LIKE '72193490%' OR ezaWP_WarennummerEZT LIKE '72193510%' OR ezaWP_WarennummerEZT LIKE '72193590%' OR ezaWP_WarennummerEZT LIKE '72199020%' OR ezaWP_WarennummerEZT LIKE '72199080%' OR ezaWP_WarennummerEZT LIKE '72201100%' OR ezaWP_WarennummerEZT LIKE '72201200%' OR ezaWP_WarennummerEZT LIKE '72202021%' OR ezaWP_WarennummerEZT LIKE '72202029%' OR ezaWP_WarennummerEZT LIKE '72202041%' OR ezaWP_WarennummerEZT LIKE '72202049%' OR ezaWP_WarennummerEZT LIKE '72202081%' OR ezaWP_WarennummerEZT LIKE '72202089%' OR ezaWP_WarennummerEZT LIKE '72209020%' + OR ezaWP_WarennummerEZT LIKE '72209080%' OR ezaWP_WarennummerEZT LIKE '72210010%' OR ezaWP_WarennummerEZT LIKE '72210090%' OR ezaWP_WarennummerEZT LIKE '72221111%' + OR ezaWP_WarennummerEZT LIKE '72221119%' OR ezaWP_WarennummerEZT LIKE '72221181%' OR ezaWP_WarennummerEZT LIKE '72221189%' OR ezaWP_WarennummerEZT LIKE '72221910%' + OR ezaWP_WarennummerEZT LIKE '72221990%' OR ezaWP_WarennummerEZT LIKE '72222011%' OR ezaWP_WarennummerEZT LIKE '72222019%' OR ezaWP_WarennummerEZT LIKE '72222021%' + OR ezaWP_WarennummerEZT LIKE '72222029%' OR ezaWP_WarennummerEZT LIKE '72222031%' OR ezaWP_WarennummerEZT LIKE '72222039%' OR ezaWP_WarennummerEZT LIKE '72222081%' OR ezaWP_WarennummerEZT LIKE '72222089%' OR ezaWP_WarennummerEZT LIKE '72223051%' OR ezaWP_WarennummerEZT LIKE '72223091%' OR ezaWP_WarennummerEZT LIKE '72223097%' OR ezaWP_WarennummerEZT LIKE '72224010%' OR ezaWP_WarennummerEZT LIKE '72224050%' OR ezaWP_WarennummerEZT LIKE '72224090%' OR ezaWP_WarennummerEZT LIKE '72251910%' OR ezaWP_WarennummerEZT LIKE '72251990%' OR ezaWP_WarennummerEZT LIKE '72253010%' OR ezaWP_WarennummerEZT LIKE '72253030%' OR ezaWP_WarennummerEZT LIKE '72253090%' OR ezaWP_WarennummerEZT LIKE '72254012%' OR ezaWP_WarennummerEZT LIKE '72254015%' OR ezaWP_WarennummerEZT LIKE '72254040%' OR ezaWP_WarennummerEZT LIKE '72254060%' OR ezaWP_WarennummerEZT LIKE '72254090%' OR ezaWP_WarennummerEZT LIKE '72255020%' OR ezaWP_WarennummerEZT LIKE '72255080%' OR ezaWP_WarennummerEZT LIKE '72259100%' OR ezaWP_WarennummerEZT LIKE '72261910%' OR ezaWP_WarennummerEZT LIKE '72261980%' OR ezaWP_WarennummerEZT LIKE '72262000%' OR ezaWP_WarennummerEZT LIKE '72269120%' OR ezaWP_WarennummerEZT LIKE '72269191%' OR ezaWP_WarennummerEZT LIKE '72269199%' OR ezaWP_WarennummerEZT LIKE '72269200%' OR ezaWP_WarennummerEZT LIKE '72269910%' OR ezaWP_WarennummerEZT LIKE '72271000%' OR ezaWP_WarennummerEZT LIKE '72272000%' OR ezaWP_WarennummerEZT LIKE '72279010%' OR ezaWP_WarennummerEZT LIKE '72279050%' OR ezaWP_WarennummerEZT LIKE '72279095%' + OR ezaWP_WarennummerEZT LIKE '72281020%' OR ezaWP_WarennummerEZT LIKE '72281090%' OR ezaWP_WarennummerEZT LIKE '72282010%' OR ezaWP_WarennummerEZT LIKE '72282091%' OR ezaWP_WarennummerEZT LIKE '72282099%' OR ezaWP_WarennummerEZT LIKE '72283020%' OR ezaWP_WarennummerEZT LIKE '72283041%' OR ezaWP_WarennummerEZT LIKE '72283049%' OR ezaWP_WarennummerEZT LIKE '72283061%' OR ezaWP_WarennummerEZT LIKE '72283070%' OR ezaWP_WarennummerEZT LIKE '72283089%' OR ezaWP_WarennummerEZT LIKE '72285020%' OR ezaWP_WarennummerEZT LIKE '72285040%' OR ezaWP_WarennummerEZT LIKE '72285061%' OR ezaWP_WarennummerEZT LIKE '72285069%' OR ezaWP_WarennummerEZT LIKE '72285080%' OR ezaWP_WarennummerEZT LIKE '72286020%' OR ezaWP_WarennummerEZT LIKE '72286080%' OR ezaWP_WarennummerEZT LIKE '72287010%' OR ezaWP_WarennummerEZT LIKE '72287090%' OR ezaWP_WarennummerEZT LIKE '72288000%' OR ezaWP_WarennummerEZT LIKE '73011000%' OR ezaWP_WarennummerEZT LIKE '73021022%' OR ezaWP_WarennummerEZT LIKE '73021028%' OR ezaWP_WarennummerEZT LIKE '73021040%' OR ezaWP_WarennummerEZT LIKE '73021050%' OR ezaWP_WarennummerEZT LIKE '73024000%' OR ezaWP_WarennummerEZT LIKE '73041100%' OR ezaWP_WarennummerEZT LIKE '73041910%' OR ezaWP_WarennummerEZT LIKE '73041930%' OR ezaWP_WarennummerEZT LIKE '73041990%' OR ezaWP_WarennummerEZT LIKE '73042200%' OR ezaWP_WarennummerEZT LIKE '73042300%' + OR ezaWP_WarennummerEZT LIKE '73042400%' OR ezaWP_WarennummerEZT LIKE '73042910%' OR ezaWP_WarennummerEZT LIKE '73042930%' OR ezaWP_WarennummerEZT LIKE '73042990%' OR ezaWP_WarennummerEZT LIKE '73043120%' OR ezaWP_WarennummerEZT LIKE '73043180%' OR ezaWP_WarennummerEZT LIKE '73043950%' OR ezaWP_WarennummerEZT LIKE '73043982%' OR ezaWP_WarennummerEZT LIKE '73043983%' OR ezaWP_WarennummerEZT LIKE '73043988%' OR ezaWP_WarennummerEZT LIKE '73044100%' OR ezaWP_WarennummerEZT LIKE '73044983%' OR ezaWP_WarennummerEZT LIKE '73044985%' OR ezaWP_WarennummerEZT LIKE '73045181%' OR ezaWP_WarennummerEZT LIKE '73045189%' OR ezaWP_WarennummerEZT LIKE '73045930%' OR ezaWP_WarennummerEZT LIKE '73045982%' OR ezaWP_WarennummerEZT LIKE '73045983%' OR ezaWP_WarennummerEZT LIKE '73045989%' OR ezaWP_WarennummerEZT LIKE '73049000%' OR ezaWP_WarennummerEZT LIKE '73051100%' OR ezaWP_WarennummerEZT LIKE '73051200%' OR ezaWP_WarennummerEZT LIKE '73051900%' OR ezaWP_WarennummerEZT LIKE '73052000%' OR ezaWP_WarennummerEZT LIKE '73053100%' OR ezaWP_WarennummerEZT LIKE '73053900%' OR ezaWP_WarennummerEZT LIKE '73059000%' + OR ezaWP_WarennummerEZT LIKE '73061100%' OR ezaWP_WarennummerEZT LIKE '73061900%' OR ezaWP_WarennummerEZT LIKE '73062100%' OR ezaWP_WarennummerEZT LIKE '73062900%' OR ezaWP_WarennummerEZT LIKE '73063012%' OR ezaWP_WarennummerEZT LIKE '73063018%' OR ezaWP_WarennummerEZT LIKE '73063041%' OR ezaWP_WarennummerEZT LIKE '73063049%' OR ezaWP_WarennummerEZT LIKE '73063072%' OR ezaWP_WarennummerEZT LIKE '73063077%' OR ezaWP_WarennummerEZT LIKE '73063080%' OR ezaWP_WarennummerEZT LIKE '73064020%' OR ezaWP_WarennummerEZT LIKE '73064080%' OR ezaWP_WarennummerEZT LIKE '73065021%' OR ezaWP_WarennummerEZT LIKE '73065029%' OR ezaWP_WarennummerEZT LIKE '73065080%' OR ezaWP_WarennummerEZT LIKE '73066110%' OR ezaWP_WarennummerEZT LIKE '73066192%' OR ezaWP_WarennummerEZT LIKE '73066199%' OR ezaWP_WarennummerEZT LIKE '73066910%' OR ezaWP_WarennummerEZT LIKE '73066990%' OR ezaWP_WarennummerEZT LIKE '73069000%' " + + End Select + + + + Return "SELECT + Empfaenger.ezaAd_TeilnehmerEORI AS EmpfängerEORI, + Adressen.AdressenNr as KundenNr, + Adressen.[Name 1] as Kunde," & IIf(mitDetaildatensaetze, " COUNT(DISTINCT eza_ANR) As Anzahl_Anmeldungen,COUNT(*) As Anzahl_Positionen,SUM(ezaWP_Eigenmasse) As Summe_Eigenmasse,SUM(ezaWP_Artikelpreis) As Summe_Rechnungspreis, MAX(eza_Anmeldedatum) As Letzte_Anmeldung,MIN(eza_Anmeldedatum) As Erste_Anmeldung, ", "") & "kkd_Email as Email, + Adressen.[E-Mail] as EMailKunde1, + Adressen.[E-Mail2] as EMailKunde2, + isnull(Offerten.OffertenNr, '-') as Offert, + Kunden.FilialenNr as FilialenNr + + + From [VERAG].[dbo].[tblDakosy_EZA] + INNER Join tblDakosy_EZA_Warenposition ON ezaWP_EzaId = eza_Id + Left Join tblDakosy_EZA_Adressen AS Empfaenger ON Empfaenger.ezaAd_EZAId = eza_Id And Empfaenger.ezaAd_AdressTyp = 'CN' + Left Join Kunden on Kunden.EORITIN = Empfaenger.ezaAd_TeilnehmerEORI + Left Join Adressen on Adressen.AdressenNr = Kunden.KundenNr + Left Join Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 + Left Join tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = 'Allgemein' + + WHERE + ISNULL(eza_anmeldedatum, eza_Trans_DatumZeit) + BETWEEN '" & von & "' AND '" & bis & "' + And eza_status BETWEEN 41 And 60 + And ( + " & sqlWhere & " ) GROUP BY @@ -1118,35 +1177,15 @@ Left Join tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = ' End Function - Private Function getDHFSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean) - - Return " select - (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))EORI_Empfänger, - Adressen.AdressenNr as KundenNr, - Adressen.[Name 1] as Kunde, " & IIf(mitDetaildatensaetze, "COUNT(DISTINCT CRN) As Anzahl_Anmeldungen, COUNT(*) As Anzahl_Positionen,MAX(DecDT) As Letzte_Anmeldung,MIN(DecDT) As Erste_Anmeldung,SUM(Net) As Summe_Eigenmasse,SUM(ItVal) As Summe_Rechnungspreis, ", "") & - "kkd_Email as Email, -Adressen.[E-Mail] as EMailKunde1, - Adressen.[E-Mail2] as EMailKunde2, - isnull(Offerten.OffertenNr, '-') as Offert, - Kunden.FilialenNr as FilialenNr + Private Function getDHFSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String) - --, (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))EORI_Empfänger - --, (SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))Empfänger - from zsAnmRefs - inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID - inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID - inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID - inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID - Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[Kunden] on Kunden.EORITIN = (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) - Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Adressen on Adressen.AdressenNr = Kunden.KundenNr - Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 - Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = 'Allgemein' - where DecDT between '" & von & "' AND '" & bis & "' - - and - ( - left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + + Dim sqlWhere = "" + + Select Case type + Case "CBAM" + sqlWhere = " left(ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(ComCd,4) between 7301 and 7311 OR left(ComCd,4) between 7205 and 7229 OR left(ComCd,4) between 7603 and 7614 @@ -1158,42 +1197,83 @@ Adressen.[E-Mail] as EMailKunde1, OR ComCd like '720241%' OR ComCd like '720249%' OR ComCd like '720260%' - OR ComCd like '280410%' - ) + OR ComCd like '280410%'" + + Case Else + sqlWhere = "ComCd LIKE '72081000%' OR ComCd LIKE '72082500%' OR + ComCd LIKE '72082600%' OR ComCd LIKE '72082700%' OR + ComCd LIKE '72083600%' OR ComCd LIKE '72083700%' OR + ComCd LIKE '72083800%' OR ComCd LIKE '72083900%' OR + ComCd LIKE '72084000%' OR ComCd LIKE '72085120%' OR + ComCd LIKE '72085191%' OR ComCd LIKE '72085198%' OR + ComCd LIKE '72085210%' OR ComCd LIKE '72085291%' OR + ComCd LIKE '72085299%' OR ComCd LIKE '72085310%' OR + ComCd LIKE '72085390%' OR ComCd LIKE '72085400%' OR + ComCd LIKE '72089020%' OR ComCd LIKE '72089080%' OR + ComCd LIKE '72091500%' OR ComCd LIKE '72091610%' OR + ComCd LIKE '72091690%' OR ComCd LIKE '72091710%' OR + ComCd LIKE '72091790%' OR ComCd LIKE '72091810%' OR + ComCd LIKE '72091891%' OR ComCd LIKE '72091899%' OR + ComCd LIKE '72092500%' OR ComCd LIKE '72092610%' OR + ComCd LIKE '72092690%' OR ComCd LIKE '72092710%' OR + ComCd LIKE '72092790%' OR ComCd LIKE '72092810%' OR + ComCd LIKE '72092890%' OR ComCd LIKE '72099020%' OR + ComCd LIKE '72099080%' OR ComCd LIKE '72101100%' OR + ComCd LIKE '72101220%' OR ComCd LIKE '72101280%' OR + ComCd LIKE '72102000%' OR ComCd LIKE '72103000%' OR + ComCd LIKE '72105000%' OR ComCd LIKE '72107010%' OR ComCd LIKE '72107080%' OR ComCd LIKE '72109030%' OR + ComCd LIKE '72109040%' OR ComCd LIKE '72109080%' OR ComCd LIKE '72111300%' OR ComCd LIKE '72111400%' OR + ComCd LIKE '72111900%' OR ComCd LIKE '72112320%' OR ComCd LIKE '72112330%' OR ComCd LIKE '72112380%' OR + ComCd LIKE '72112900%' OR ComCd LIKE '72119020%' OR ComCd LIKE '72119080%' OR ComCd LIKE '72121010%' OR + ComCd LIKE '72121090%' OR ComCd LIKE '72122000%' OR ComCd LIKE '72124020%' OR ComCd LIKE '72124080%' OR + ComCd LIKE '72125020%' OR ComCd LIKE '72125030%' OR ComCd LIKE '72125040%' OR ComCd LIKE '72125090%' OR + ComCd LIKE '72126000%' OR ComCd LIKE '72131000%' OR ComCd LIKE '72132000%' OR ComCd LIKE '72139110%' OR + ComCd LIKE '72139120%' OR ComCd LIKE '72139141%' OR ComCd LIKE '72139149%' OR ComCd LIKE '72139170%' OR ComCd LIKE '72139190%' OR ComCd LIKE '72139910%' OR ComCd LIKE '72139990%' OR ComCd LIKE '72142000%' OR ComCd LIKE '72143000%' OR ComCd LIKE '72149110%' OR ComCd LIKE '72149190%' OR ComCd LIKE '72149910%' OR ComCd LIKE '72149931%' OR ComCd LIKE '72149939%' OR ComCd LIKE '72149950%' OR ComCd LIKE '72149971%' OR ComCd LIKE '72149979%' OR ComCd LIKE '72149995%' OR ComCd LIKE '72151000%' OR ComCd LIKE '72155011%' OR ComCd LIKE '72155019%' OR ComCd LIKE '72155080%' OR ComCd LIKE '72159000%' OR ComCd LIKE '72161000%' OR ComCd LIKE '72162100%' OR ComCd LIKE '72162200%' OR ComCd LIKE '72163110%' OR ComCd LIKE '72163190%' OR ComCd LIKE '72163211%' OR ComCd LIKE '72163219%' OR ComCd LIKE '72163291%' OR ComCd LIKE '72163299%' OR ComCd LIKE '72163310%' OR ComCd LIKE '72163390%' OR ComCd LIKE '72164010%' OR ComCd LIKE '72164090%' OR ComCd LIKE '72165010%' OR ComCd LIKE '72165091%' OR ComCd LIKE '72165099%' OR ComCd LIKE '72169900%' OR ComCd LIKE '72171010%' OR ComCd LIKE '72171031%' OR ComCd LIKE '72171039%' OR ComCd LIKE '72171050%' OR ComCd LIKE '72171090%' + OR ComCd LIKE '72172010%' OR ComCd LIKE '72172030%' OR ComCd LIKE '72172050%' OR ComCd LIKE '72172090%' OR ComCd LIKE '72173041%' OR ComCd LIKE '72173049%' OR ComCd LIKE '72173050%' OR ComCd LIKE '72173090%' OR ComCd LIKE '72179020%' OR ComCd LIKE '72179050%' OR ComCd LIKE '72179090%' OR + ComCd LIKE '72191100%' OR ComCd LIKE '72191210%' OR ComCd LIKE '72191290%' OR ComCd LIKE '72191310%' OR ComCd LIKE '72191390%' OR ComCd LIKE '72191410%' OR ComCd LIKE '72191490%' OR ComCd LIKE '72192110%' OR ComCd LIKE '72192190%' OR ComCd LIKE '72192210%' OR ComCd LIKE '72192290%' OR ComCd LIKE '72192300%' OR ComCd LIKE '72192400%' OR ComCd LIKE '72193100%' OR ComCd LIKE '72193210%' OR ComCd LIKE '72193290%' OR ComCd LIKE '72193310%' OR ComCd LIKE '72193390%' OR ComCd LIKE '72193410%' OR ComCd LIKE '72193490%' OR ComCd LIKE '72193510%' OR ComCd LIKE '72193590%' OR ComCd LIKE '72199020%' OR ComCd LIKE '72199080%' OR ComCd LIKE '72201100%' OR ComCd LIKE '72201200%' OR ComCd LIKE '72202021%' OR ComCd LIKE '72202029%' OR ComCd LIKE '72202041%' OR ComCd LIKE '72202049%' OR ComCd LIKE '72202081%' OR ComCd LIKE '72202089%' OR ComCd LIKE '72209020%' + OR ComCd LIKE '72209080%' OR ComCd LIKE '72210010%' OR ComCd LIKE '72210090%' OR ComCd LIKE '72221111%' OR ComCd LIKE '72221119%' OR ComCd LIKE '72221181%' OR ComCd LIKE '72221189%' OR ComCd LIKE '72221910%' OR ComCd LIKE '72221990%' OR ComCd LIKE '72222011%' OR ComCd LIKE '72222019%' OR ComCd LIKE '72222021%' OR ComCd LIKE '72222029%' OR ComCd LIKE '72222031%' OR ComCd LIKE '72222039%' OR ComCd LIKE '72222081%' OR ComCd LIKE '72222089%' OR ComCd LIKE '72223051%' OR ComCd LIKE '72223091%' OR ComCd LIKE '72223097%' OR ComCd LIKE '72224010%' OR ComCd LIKE '72224050%' OR ComCd LIKE '72224090%' OR ComCd LIKE '72251910%' OR ComCd LIKE '72251990%' OR ComCd LIKE '72253010%' OR ComCd LIKE '72253030%' OR ComCd LIKE '72253090%' OR ComCd LIKE '72254012%' OR ComCd LIKE '72254015%' OR ComCd LIKE '72254040%' OR ComCd LIKE '72254060%' OR ComCd LIKE '72254090%' OR ComCd LIKE '72255020%' OR ComCd LIKE '72255080%' OR ComCd LIKE '72259100%' OR ComCd LIKE '72261910%' OR ComCd LIKE '72261980%' OR ComCd LIKE '72262000%' OR ComCd LIKE '72269120%' OR ComCd LIKE '72269191%' OR ComCd LIKE '72269199%' OR ComCd LIKE '72269200%' OR ComCd LIKE '72269910%' OR ComCd LIKE '72271000%' OR ComCd LIKE '72272000%' OR ComCd LIKE '72279010%' OR ComCd LIKE '72279050%' OR ComCd LIKE '72279095%' + OR ComCd LIKE '72281020%' OR ComCd LIKE '72281090%' OR ComCd LIKE '72282010%' OR ComCd LIKE '72282091%' OR ComCd LIKE '72282099%' OR ComCd LIKE '72283020%' OR ComCd LIKE '72283041%' OR ComCd LIKE '72283049%' OR ComCd LIKE '72283061%' OR ComCd LIKE '72283070%' OR ComCd LIKE '72283089%' OR ComCd LIKE '72285020%' OR ComCd LIKE '72285040%' OR ComCd LIKE '72285061%' OR ComCd LIKE '72285069%' OR ComCd LIKE '72285080%' OR ComCd LIKE '72286020%' OR ComCd LIKE '72286080%' OR ComCd LIKE '72287010%' OR ComCd LIKE '72287090%' OR ComCd LIKE '72288000%' OR ComCd LIKE '73011000%' OR ComCd LIKE '73021022%' OR ComCd LIKE '73021028%' OR ComCd LIKE '73021040%' OR ComCd LIKE '73021050%' OR ComCd LIKE '73024000%' OR ComCd LIKE '73041100%' OR ComCd LIKE '73041910%' OR ComCd LIKE '73041930%' OR ComCd LIKE '73041990%' OR ComCd LIKE '73042200%' OR ComCd LIKE '73042300%' OR ComCd LIKE '73042400%' OR ComCd LIKE '73042910%' OR ComCd LIKE '73042930%' OR ComCd LIKE '73042990%' OR ComCd LIKE '73043120%' OR ComCd LIKE '73043180%' OR ComCd LIKE '73043950%' OR ComCd LIKE '73043982%' OR ComCd LIKE '73043983%' OR ComCd LIKE '73043988%' OR ComCd LIKE '73044100%' OR ComCd LIKE '73044983%' OR ComCd LIKE '73044985%' OR ComCd LIKE '73045181%' OR ComCd LIKE '73045189%' OR ComCd LIKE '73045930%' OR ComCd LIKE '73045982%' OR ComCd LIKE '73045983%' OR ComCd LIKE '73045989%' OR ComCd LIKE '73049000%' OR ComCd LIKE '73051100%' OR ComCd LIKE '73051200%' OR ComCd LIKE '73051900%' OR ComCd LIKE '73052000%' OR ComCd LIKE '73053100%' OR ComCd LIKE '73053900%' OR ComCd LIKE '73059000%' OR ComCd LIKE '73061100%' OR ComCd LIKE '73061900%' OR ComCd LIKE '73062100%' OR ComCd LIKE '73062900%' OR ComCd LIKE '73063012%' OR ComCd LIKE '73063018%' OR ComCd LIKE '73063041%' OR ComCd LIKE '73063049%' OR ComCd LIKE '73063072%' OR ComCd LIKE '73063077%' OR ComCd LIKE '73063080%' OR ComCd LIKE '73064020%' OR ComCd LIKE '73064080%' OR ComCd LIKE '73065021%' OR ComCd LIKE '73065029%' OR ComCd LIKE '73065080%' OR ComCd LIKE '73066110%' OR ComCd LIKE '73066192%' OR ComCd LIKE '73066199%' OR ComCd LIKE '73066910%' OR ComCd LIKE '73066990%' OR ComCd LIKE '73069000%' " + + End Select + + + Return "select + (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))EORI_Empfänger, + Adressen.AdressenNr as KundenNr, + Adressen.[Name 1] as Kunde, " & IIf(mitDetaildatensaetze, "COUNT(DISTINCT CRN) As Anzahl_Anmeldungen, COUNT(*) As Anzahl_Positionen,MAX(DecDT) As Letzte_Anmeldung,MIN(DecDT) As Erste_Anmeldung,SUM(Net) As Summe_Eigenmasse,SUM(ItVal) As Summe_Rechnungspreis, ", "") & + "kkd_Email as Email, + Adressen.[E-Mail] as EMailKunde1, + Adressen.[E-Mail2] as EMailKunde2, + isnull(Offerten.OffertenNr, '-') as Offert, + Kunden.FilialenNr as FilialenNr + --, (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))EORI_Empfänger + --, (SELECT Na FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))Empfänger + from zsAnmRefs + inner join zsAnmGdsitem on zsAnmRefs.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmRefs.AnmID=zsAnmGdsitem.AnmID and zsAnmRefs.VorgangID=zsAnmGdsitem.VorgangID and zsAnmRefs.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID + inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID + inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID + Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[Kunden] on Kunden.EORITIN = (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr = zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID )) + Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Adressen on Adressen.AdressenNr = Kunden.KundenNr + Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 + Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = 'Allgemein' + where DecDT between '" & von & "' AND '" & bis & "' + and ( " & sqlWhere & ") and ComCd not like '310560%' and crn is not null - - group by TIN, Adressen.AdressenNr ,Adressen.[Name 1],Adressen.[E-Mail],Adressen.[E-Mail2], kkd_Email, Offerten.OffertenNr, Kunden.FilialenNr, zsAnmHea.LizenzNr, zsAnmHea.OperatorID, zsAnmHea.VorgangID, zsAnmHea.AnmID" End Function - Private Function getTELOTECSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean) + Private Function getTELOTECSQL(von As Date, bis As Date, mitDetaildatensaetze As Boolean, type As String) - Return " SELECT - ConeeTra_TIN as EmpfängerEORI, - Adressen.AdressenNr as KundenNr, - Adressen.[Name 1] as Kunde," & IIf(mitDetaildatensaetze, " COUNT(DISTINCT telanm_CRN) As Anzahl_Anmeldungen,COUNT(*) As Anzahl_Positionen,MAX(dec_CreateDate) As Letzte_Anmeldung,MIN(dec_CreateDate) As Erste_Anmeldung,SUM(dec_TotNet) As Summe_Eigenmasse,SUM(ValData_InvVal) As Summe_Rechnungspreis, ", "") & - "kkd_Email as Email, -Adressen.[E-Mail] as EMailKunde1, - Adressen.[E-Mail2] as EMailKunde2, - isnull(Offerten.OffertenNr, '-') as Offert, - Kunden.FilialenNr as FilialenNr - - FROM [VERAG].[dbo].[tblTelotec_Anmeldung] - inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id -Left Join Kunden on Kunden.EORITIN = ConeeTra_TIN -Left Join Adressen on Adressen.AdressenNr = Kunden.KundenNr -Left Join Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 -Left Join tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = 'Allgemein' + Dim sqlWhere = "" - where 1=1 - -and - ( - left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) + Select Case type + Case "CBAM" + sqlWhere = " left(Item_ComCd,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616) OR left(Item_ComCd,4) between 7301 and 7311 OR left(Item_ComCd,4) between 7205 and 7229 OR left(Item_ComCd,4) between 7603 and 7614 @@ -1205,16 +1285,70 @@ and OR Item_ComCd like '720241%' OR Item_ComCd like '720249%' OR Item_ComCd like '720260%' - OR Item_ComCd like '280410%' - ) - and Item_ComCd not like '310560%' + OR Item_ComCd like '280410%' " - and telnam_aktuellsteNachricht=1 + Case Else + sqlWhere = "Item_ComCd LIKE '72081000%' OR Item_ComCd LIKE '72082500%' OR + Item_ComCd LIKE '72082600%' OR Item_ComCd LIKE '72082700%' OR + Item_ComCd LIKE '72083600%' OR Item_ComCd LIKE '72083700%' OR + Item_ComCd LIKE '72083800%' OR Item_ComCd LIKE '72083900%' OR + Item_ComCd LIKE '72084000%' OR Item_ComCd LIKE '72085120%' OR + Item_ComCd LIKE '72085191%' OR Item_ComCd LIKE '72085198%' OR + Item_ComCd LIKE '72085210%' OR Item_ComCd LIKE '72085291%' OR + Item_ComCd LIKE '72085299%' OR Item_ComCd LIKE '72085310%' OR + Item_ComCd LIKE '72085390%' OR Item_ComCd LIKE '72085400%' OR + Item_ComCd LIKE '72089020%' OR Item_ComCd LIKE '72089080%' OR + Item_ComCd LIKE '72091500%' OR Item_ComCd LIKE '72091610%' OR + Item_ComCd LIKE '72091690%' OR Item_ComCd LIKE '72091710%' OR + Item_ComCd LIKE '72091790%' OR Item_ComCd LIKE '72091810%' OR + Item_ComCd LIKE '72091891%' OR Item_ComCd LIKE '72091899%' OR + Item_ComCd LIKE '72092500%' OR Item_ComCd LIKE '72092610%' OR + Item_ComCd LIKE '72092690%' OR Item_ComCd LIKE '72092710%' OR + Item_ComCd LIKE '72092790%' OR Item_ComCd LIKE '72092810%' OR + Item_ComCd LIKE '72092890%' OR Item_ComCd LIKE '72099020%' OR + Item_ComCd LIKE '72099080%' OR Item_ComCd LIKE '72101100%' OR + Item_ComCd LIKE '72101220%' OR Item_ComCd LIKE '72101280%' OR + Item_ComCd LIKE '72102000%' OR Item_ComCd LIKE '72103000%' OR + Item_ComCd LIKE '72105000%' OR Item_ComCd LIKE '72107010%' OR Item_ComCd LIKE '72107080%' OR Item_ComCd LIKE '72109030%' OR + Item_ComCd LIKE '72109040%' OR Item_ComCd LIKE '72109080%' OR Item_ComCd LIKE '72111300%' OR Item_ComCd LIKE '72111400%' OR + Item_ComCd LIKE '72111900%' OR Item_ComCd LIKE '72112320%' OR Item_ComCd LIKE '72112330%' OR Item_ComCd LIKE '72112380%' OR + Item_ComCd LIKE '72112900%' OR Item_ComCd LIKE '72119020%' OR Item_ComCd LIKE '72119080%' OR Item_ComCd LIKE '72121010%' OR + Item_ComCd LIKE '72121090%' OR Item_ComCd LIKE '72122000%' OR Item_ComCd LIKE '72124020%' OR Item_ComCd LIKE '72124080%' OR + Item_ComCd LIKE '72125020%' OR Item_ComCd LIKE '72125030%' OR Item_ComCd LIKE '72125040%' OR Item_ComCd LIKE '72125090%' OR + Item_ComCd LIKE '72126000%' OR Item_ComCd LIKE '72131000%' OR Item_ComCd LIKE '72132000%' OR Item_ComCd LIKE '72139110%' OR + Item_ComCd LIKE '72139120%' OR Item_ComCd LIKE '72139141%' OR Item_ComCd LIKE '72139149%' OR Item_ComCd LIKE '72139170%' OR Item_ComCd LIKE '72139190%' OR Item_ComCd LIKE '72139910%' OR Item_ComCd LIKE '72139990%' OR Item_ComCd LIKE '72142000%' OR Item_ComCd LIKE '72143000%' OR Item_ComCd LIKE '72149110%' OR Item_ComCd LIKE '72149190%' OR Item_ComCd LIKE '72149910%' OR Item_ComCd LIKE '72149931%' OR Item_ComCd LIKE '72149939%' OR Item_ComCd LIKE '72149950%' OR Item_ComCd LIKE '72149971%' OR Item_ComCd LIKE '72149979%' OR Item_ComCd LIKE '72149995%' OR Item_ComCd LIKE '72151000%' OR Item_ComCd LIKE '72155011%' OR Item_ComCd LIKE '72155019%' OR Item_ComCd LIKE '72155080%' OR Item_ComCd LIKE '72159000%' OR Item_ComCd LIKE '72161000%' OR Item_ComCd LIKE '72162100%' OR Item_ComCd LIKE '72162200%' OR Item_ComCd LIKE '72163110%' OR Item_ComCd LIKE '72163190%' OR Item_ComCd LIKE '72163211%' OR Item_ComCd LIKE '72163219%' OR Item_ComCd LIKE '72163291%' OR Item_ComCd LIKE '72163299%' OR Item_ComCd LIKE '72163310%' OR Item_ComCd LIKE '72163390%' OR Item_ComCd LIKE '72164010%' OR Item_ComCd LIKE '72164090%' OR Item_ComCd LIKE '72165010%' OR Item_ComCd LIKE '72165091%' OR Item_ComCd LIKE '72165099%' OR Item_ComCd LIKE '72169900%' OR Item_ComCd LIKE '72171010%' OR Item_ComCd LIKE '72171031%' OR Item_ComCd LIKE '72171039%' OR Item_ComCd LIKE '72171050%' OR Item_ComCd LIKE '72171090%' + OR Item_ComCd LIKE '72172010%' OR Item_ComCd LIKE '72172030%' OR Item_ComCd LIKE '72172050%' OR Item_ComCd LIKE '72172090%' OR Item_ComCd LIKE '72173041%' OR Item_ComCd LIKE '72173049%' OR Item_ComCd LIKE '72173050%' OR Item_ComCd LIKE '72173090%' OR Item_ComCd LIKE '72179020%' OR Item_ComCd LIKE '72179050%' OR Item_ComCd LIKE '72179090%' OR + Item_ComCd LIKE '72191100%' OR Item_ComCd LIKE '72191210%' OR Item_ComCd LIKE '72191290%' OR Item_ComCd LIKE '72191310%' OR Item_ComCd LIKE '72191390%' OR Item_ComCd LIKE '72191410%' OR Item_ComCd LIKE '72191490%' OR Item_ComCd LIKE '72192110%' OR Item_ComCd LIKE '72192190%' OR Item_ComCd LIKE '72192210%' OR Item_ComCd LIKE '72192290%' OR Item_ComCd LIKE '72192300%' OR Item_ComCd LIKE '72192400%' OR Item_ComCd LIKE '72193100%' OR Item_ComCd LIKE '72193210%' OR Item_ComCd LIKE '72193290%' OR Item_ComCd LIKE '72193310%' OR Item_ComCd LIKE '72193390%' OR Item_ComCd LIKE '72193410%' OR Item_ComCd LIKE '72193490%' OR Item_ComCd LIKE '72193510%' OR Item_ComCd LIKE '72193590%' OR Item_ComCd LIKE '72199020%' OR Item_ComCd LIKE '72199080%' OR Item_ComCd LIKE '72201100%' OR Item_ComCd LIKE '72201200%' OR Item_ComCd LIKE '72202021%' OR Item_ComCd LIKE '72202029%' OR Item_ComCd LIKE '72202041%' OR Item_ComCd LIKE '72202049%' OR Item_ComCd LIKE '72202081%' OR Item_ComCd LIKE '72202089%' OR Item_ComCd LIKE '72209020%' + OR Item_ComCd LIKE '72209080%' OR Item_ComCd LIKE '72210010%' OR Item_ComCd LIKE '72210090%' OR Item_ComCd LIKE '72221111%' OR Item_ComCd LIKE '72221119%' OR Item_ComCd LIKE '72221181%' OR Item_ComCd LIKE '72221189%' OR Item_ComCd LIKE '72221910%' OR Item_ComCd LIKE '72221990%' OR Item_ComCd LIKE '72222011%' OR Item_ComCd LIKE '72222019%' OR Item_ComCd LIKE '72222021%' OR Item_ComCd LIKE '72222029%' OR Item_ComCd LIKE '72222031%' OR Item_ComCd LIKE '72222039%' OR Item_ComCd LIKE '72222081%' OR Item_ComCd LIKE '72222089%' OR Item_ComCd LIKE '72223051%' OR Item_ComCd LIKE '72223091%' OR Item_ComCd LIKE '72223097%' OR Item_ComCd LIKE '72224010%' OR Item_ComCd LIKE '72224050%' OR Item_ComCd LIKE '72224090%' OR Item_ComCd LIKE '72251910%' OR Item_ComCd LIKE '72251990%' OR Item_ComCd LIKE '72253010%' OR Item_ComCd LIKE '72253030%' OR Item_ComCd LIKE '72253090%' OR Item_ComCd LIKE '72254012%' OR Item_ComCd LIKE '72254015%' OR Item_ComCd LIKE '72254040%' OR Item_ComCd LIKE '72254060%' OR Item_ComCd LIKE '72254090%' OR Item_ComCd LIKE '72255020%' OR Item_ComCd LIKE '72255080%' OR Item_ComCd LIKE '72259100%' OR Item_ComCd LIKE '72261910%' OR Item_ComCd LIKE '72261980%' OR Item_ComCd LIKE '72262000%' OR Item_ComCd LIKE '72269120%' OR Item_ComCd LIKE '72269191%' OR Item_ComCd LIKE '72269199%' OR Item_ComCd LIKE '72269200%' OR Item_ComCd LIKE '72269910%' OR Item_ComCd LIKE '72271000%' OR Item_ComCd LIKE '72272000%' OR Item_ComCd LIKE '72279010%' OR Item_ComCd LIKE '72279050%' OR Item_ComCd LIKE '72279095%' + OR Item_ComCd LIKE '72281020%' OR Item_ComCd LIKE '72281090%' OR Item_ComCd LIKE '72282010%' OR Item_ComCd LIKE '72282091%' OR Item_ComCd LIKE '72282099%' OR Item_ComCd LIKE '72283020%' OR Item_ComCd LIKE '72283041%' OR Item_ComCd LIKE '72283049%' OR Item_ComCd LIKE '72283061%' OR Item_ComCd LIKE '72283070%' OR Item_ComCd LIKE '72283089%' OR Item_ComCd LIKE '72285020%' OR Item_ComCd LIKE '72285040%' OR Item_ComCd LIKE '72285061%' OR Item_ComCd LIKE '72285069%' OR Item_ComCd LIKE '72285080%' OR Item_ComCd LIKE '72286020%' OR Item_ComCd LIKE '72286080%' OR Item_ComCd LIKE '72287010%' OR Item_ComCd LIKE '72287090%' OR Item_ComCd LIKE '72288000%' OR Item_ComCd LIKE '73011000%' OR Item_ComCd LIKE '73021022%' OR Item_ComCd LIKE '73021028%' OR Item_ComCd LIKE '73021040%' OR Item_ComCd LIKE '73021050%' OR Item_ComCd LIKE '73024000%' OR Item_ComCd LIKE '73041100%' OR Item_ComCd LIKE '73041910%' OR Item_ComCd LIKE '73041930%' OR Item_ComCd LIKE '73041990%' OR Item_ComCd LIKE '73042200%' OR Item_ComCd LIKE '73042300%' OR Item_ComCd LIKE '73042400%' OR Item_ComCd LIKE '73042910%' OR Item_ComCd LIKE '73042930%' OR Item_ComCd LIKE '73042990%' OR Item_ComCd LIKE '73043120%' OR Item_ComCd LIKE '73043180%' OR Item_ComCd LIKE '73043950%' OR Item_ComCd LIKE '73043982%' OR Item_ComCd LIKE '73043983%' OR Item_ComCd LIKE '73043988%' OR Item_ComCd LIKE '73044100%' OR Item_ComCd LIKE '73044983%' OR Item_ComCd LIKE '73044985%' OR Item_ComCd LIKE '73045181%' OR Item_ComCd LIKE '73045189%' OR Item_ComCd LIKE '73045930%' OR Item_ComCd LIKE '73045982%' OR Item_ComCd LIKE '73045983%' OR Item_ComCd LIKE '73045989%' OR Item_ComCd LIKE '73049000%' OR Item_ComCd LIKE '73051100%' OR Item_ComCd LIKE '73051200%' OR Item_ComCd LIKE '73051900%' OR Item_ComCd LIKE '73052000%' OR Item_ComCd LIKE '73053100%' OR Item_ComCd LIKE '73053900%' OR Item_ComCd LIKE '73059000%' OR Item_ComCd LIKE '73061100%' OR Item_ComCd LIKE '73061900%' OR Item_ComCd LIKE '73062100%' OR Item_ComCd LIKE '73062900%' OR Item_ComCd LIKE '73063012%' OR Item_ComCd LIKE '73063018%' OR Item_ComCd LIKE '73063041%' OR Item_ComCd LIKE '73063049%' OR Item_ComCd LIKE '73063072%' OR Item_ComCd LIKE '73063077%' OR Item_ComCd LIKE '73063080%' OR Item_ComCd LIKE '73064020%' OR Item_ComCd LIKE '73064080%' OR Item_ComCd LIKE '73065021%' OR Item_ComCd LIKE '73065029%' OR Item_ComCd LIKE '73065080%' OR Item_ComCd LIKE '73066110%' OR Item_ComCd LIKE '73066192%' OR Item_ComCd LIKE '73066199%' OR Item_ComCd LIKE '73066910%' OR Item_ComCd LIKE '73066990%' OR Item_ComCd LIKE '73069000%' " - and telanm_ART ='EUA' - and dec_CreateDate between '" & von & "' AND '" & bis & "' + End Select - group by ConeeTra_TIN, Adressen.AdressenNr,Adressen.[Name 1],Adressen.[E-Mail],Adressen.[E-Mail2], kkd_Email, Offerten.OffertenNr, Kunden.FilialenNr" + + Return " SELECT + ConeeTra_TIN as EmpfängerEORI, + Adressen.AdressenNr as KundenNr, + Adressen.[Name 1] as Kunde," & IIf(mitDetaildatensaetze, " COUNT(DISTINCT telanm_CRN) As Anzahl_Anmeldungen,COUNT(*) As Anzahl_Positionen,MAX(dec_CreateDate) As Letzte_Anmeldung,MIN(dec_CreateDate) As Erste_Anmeldung,SUM(dec_TotNet) As Summe_Eigenmasse,SUM(ValData_InvVal) As Summe_Rechnungspreis, ", "") & + "kkd_Email as Email, + Adressen.[E-Mail] as EMailKunde1, + Adressen.[E-Mail2] as EMailKunde2, + isnull(Offerten.OffertenNr, '-') as Offert, + Kunden.FilialenNr as FilialenNr + + + FROM [VERAG].[dbo].[tblTelotec_Anmeldung] + inner join tblTelotec_Positionsdaten on telpos_telanmId=telanm_id + Left Join Kunden on Kunden.EORITIN = ConeeTra_TIN + Left Join Adressen on Adressen.AdressenNr = Kunden.KundenNr + Left Join Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 + Left Join tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez = 'Allgemein' + + where 1=1 and ( " & sqlWhere & " ) and Item_ComCd not like '310560%' and telnam_aktuellsteNachricht=1 + + and telanm_ART ='EUA' + and dec_CreateDate between '" & von & "' AND '" & bis & "' + + group by ConeeTra_TIN, Adressen.AdressenNr,Adressen.[Name 1],Adressen.[E-Mail],Adressen.[E-Mail2], kkd_Email, Offerten.OffertenNr, Kunden.FilialenNr" End Function @@ -1235,6 +1369,29 @@ and End Sub + Private Sub Button26_Click(sender As Object, e As EventArgs) Handles Button26.Click + If cbxQuelle.SelectedIndex = 0 Then + cbxQuelle.Focus() + End If + + Dim SQLString As String = "" + Dim Quelle As String = "FMZOLL" + + Select Case cbxQuelle._value + Case "DAKOSY" : SQLString = getDAkosySQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "FMZOLL" + Case "DHF" : SQLString = getDHFSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "EZOLL" + Case "DHF-UNI" : SQLString = getDHFSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "EZOLL_UNISPED" + Case "TELOTEC" : SQLString = getTELOTECSQL(von_stahlverordnung.Value, bis_stahlverordnung.Value, cbxStahlverordnung_SNDdet.Checked, "STAHLVO") : Quelle = "FMZOLL" + + End Select + + + Dim dt As DataTable = SQL.loadDgvBySql(SQLString, Quelle, 700) + If dt IsNot Nothing Then + cProgramFunctions.genExcelFromDT_NEW(dt,,, "Stahlverordnungsbericht aus " & cbxQuelle._value & " " & von_stahlverordnung.Value.ToShortDateString & " - " & bis_stahlverordnung.Value.ToShortDateString) + End If + End Sub +