cFakt, Kundenblatt, etc.

2025-12-17 17:16:16 +01:00
parent e9ce8f66c8
commit da8cf8854a
8 changed files with 535 additions and 297 deletions
--- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
+++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb
@@ -111,6 +111,13 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label32 = New System.Windows.Forms.Label()
        Me.tbcntr = New System.Windows.Forms.TabControl()
        Me.TabPage1 = New System.Windows.Forms.TabPage()
+        Me.Label44 = New System.Windows.Forms.Label()
+        Me.GroupBox19 = New System.Windows.Forms.GroupBox()
+        Me.cbx_nuraktiveKunden = New System.Windows.Forms.CheckBox()
+        Me.Label61 = New System.Windows.Forms.Label()
+        Me.PictureBox6 = New System.Windows.Forms.PictureBox()
+        Me.Label63 = New System.Windows.Forms.Label()
+        Me.Button19 = New System.Windows.Forms.Button()
        Me.Label33 = New System.Windows.Forms.Label()
        Me.GroupBox9 = New System.Windows.Forms.GroupBox()
        Me.Button9 = New System.Windows.Forms.Button()
@@ -120,7 +127,6 @@ Partial Class usrCntlMDMAuswertungen
        Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label36 = New System.Windows.Forms.Label()
        Me.TabPage3 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg()
        Me.tbIDS = New System.Windows.Forms.TabPage()
        Me.Label62 = New System.Windows.Forms.Label()
        Me.GroupBox13 = New System.Windows.Forms.GroupBox()
@@ -157,7 +163,6 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label41 = New System.Windows.Forms.Label()
        Me.Button12 = New System.Windows.Forms.Button()
        Me.TabPage4 = New System.Windows.Forms.TabPage()
-        Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV()
        Me.TabPage5 = New System.Windows.Forms.TabPage()
        Me.Label56 = New System.Windows.Forms.Label()
        Me.GroupBox17 = New System.Windows.Forms.GroupBox()
@@ -182,6 +187,8 @@ Partial Class usrCntlMDMAuswertungen
        Me.btnContractdaten = New System.Windows.Forms.Button()
        Me.Button15 = New System.Windows.Forms.Button()
        Me.pnl = New System.Windows.Forms.Panel()
+        Me.UsrCntlWoelfl_IM_CSVRg1 = New SDL.usrCntlWoelfl_IM_CSVRg()
+        Me.UsrCntlMSE_KonvertCSV1 = New SDL.usrCntlMSE_KonvertCSV()
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -197,6 +204,8 @@ Partial Class usrCntlMDMAuswertungen
        Me.GroupBox8.SuspendLayout()
        Me.tbcntr.SuspendLayout()
        Me.TabPage1.SuspendLayout()
+        Me.GroupBox19.SuspendLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.GroupBox9.SuspendLayout()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage3.SuspendLayout()
@@ -422,7 +431,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label8.AutoSize = True
        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label8.Location = New System.Drawing.Point(7, 153)
+        Me.Label8.Location = New System.Drawing.Point(9, 119)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(186, 17)
        Me.Label8.TabIndex = 11
@@ -442,9 +451,9 @@ Partial Class usrCntlMDMAuswertungen
        Me.GroupBox3.Controls.Add(Me.datUeberfaelligeBestVon)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.Button2)
-        Me.GroupBox3.Location = New System.Drawing.Point(6, 164)
+        Me.GroupBox3.Location = New System.Drawing.Point(8, 130)
        Me.GroupBox3.Name = "GroupBox3"
-        Me.GroupBox3.Size = New System.Drawing.Size(697, 149)
+        Me.GroupBox3.Size = New System.Drawing.Size(697, 137)
        Me.GroupBox3.TabIndex = 10
        Me.GroupBox3.TabStop = False
        '
@@ -592,7 +601,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label13.AutoSize = True
        Me.Label13.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label13.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label13.Location = New System.Drawing.Point(7, 332)
+        Me.Label13.Location = New System.Drawing.Point(9, 379)
        Me.Label13.Name = "Label13"
        Me.Label13.Size = New System.Drawing.Size(78, 17)
        Me.Label13.TabIndex = 13
@@ -608,7 +617,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.GroupBox4.Controls.Add(Me.Label15)
        Me.GroupBox4.Controls.Add(Me.Label17)
        Me.GroupBox4.Controls.Add(Me.Button3)
-        Me.GroupBox4.Location = New System.Drawing.Point(6, 343)
+        Me.GroupBox4.Location = New System.Drawing.Point(8, 390)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(697, 110)
        Me.GroupBox4.TabIndex = 12
@@ -722,7 +731,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label16.AutoSize = True
        Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label16.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label16.Location = New System.Drawing.Point(7, 471)
+        Me.Label16.Location = New System.Drawing.Point(9, 518)
        Me.Label16.Name = "Label16"
        Me.Label16.Size = New System.Drawing.Size(287, 17)
        Me.Label16.TabIndex = 15
@@ -739,7 +748,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.GroupBox5.Controls.Add(Me.datBenachrichtigungVon)
        Me.GroupBox5.Controls.Add(Me.Label21)
        Me.GroupBox5.Controls.Add(Me.Button4)
-        Me.GroupBox5.Location = New System.Drawing.Point(6, 482)
+        Me.GroupBox5.Location = New System.Drawing.Point(8, 529)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(697, 98)
        Me.GroupBox5.TabIndex = 14
@@ -795,7 +804,7 @@ Partial Class usrCntlMDMAuswertungen
        'Label19
        '
        Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(322, 81)
+        Me.Label19.Location = New System.Drawing.Point(322, 72)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(23, 13)
        Me.Label19.TabIndex = 10
@@ -805,7 +814,7 @@ Partial Class usrCntlMDMAuswertungen
        'datBenachrichtigungBis
        '
        Me.datBenachrichtigungBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.datBenachrichtigungBis.Location = New System.Drawing.Point(351, 78)
+        Me.datBenachrichtigungBis.Location = New System.Drawing.Point(351, 69)
        Me.datBenachrichtigungBis.Name = "datBenachrichtigungBis"
        Me.datBenachrichtigungBis.Size = New System.Drawing.Size(93, 20)
        Me.datBenachrichtigungBis.TabIndex = 9
@@ -814,7 +823,7 @@ Partial Class usrCntlMDMAuswertungen
        'Label20
        '
        Me.Label20.AutoSize = True
-        Me.Label20.Location = New System.Drawing.Point(145, 81)
+        Me.Label20.Location = New System.Drawing.Point(145, 72)
        Me.Label20.Name = "Label20"
        Me.Label20.Size = New System.Drawing.Size(72, 13)
        Me.Label20.TabIndex = 8
@@ -824,7 +833,7 @@ Partial Class usrCntlMDMAuswertungen
        'datBenachrichtigungVon
        '
        Me.datBenachrichtigungVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.datBenachrichtigungVon.Location = New System.Drawing.Point(223, 78)
+        Me.datBenachrichtigungVon.Location = New System.Drawing.Point(223, 69)
        Me.datBenachrichtigungVon.Name = "datBenachrichtigungVon"
        Me.datBenachrichtigungVon.Size = New System.Drawing.Size(93, 20)
        Me.datBenachrichtigungVon.TabIndex = 7
@@ -856,7 +865,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.Label23.AutoSize = True
        Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label23.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label23.Location = New System.Drawing.Point(7, 597)
+        Me.Label23.Location = New System.Drawing.Point(9, 630)
        Me.Label23.Name = "Label23"
        Me.Label23.Size = New System.Drawing.Size(88, 17)
        Me.Label23.TabIndex = 17
@@ -872,9 +881,9 @@ Partial Class usrCntlMDMAuswertungen
        Me.GroupBox6.Controls.Add(Me.PictureBox4)
        Me.GroupBox6.Controls.Add(Me.Label28)
        Me.GroupBox6.Controls.Add(Me.Button5)
-        Me.GroupBox6.Location = New System.Drawing.Point(6, 608)
+        Me.GroupBox6.Location = New System.Drawing.Point(8, 641)
        Me.GroupBox6.Name = "GroupBox6"
-        Me.GroupBox6.Size = New System.Drawing.Size(697, 86)
+        Me.GroupBox6.Size = New System.Drawing.Size(697, 73)
        Me.GroupBox6.TabIndex = 16
        Me.GroupBox6.TabStop = False
        '
@@ -1196,6 +1205,8 @@ Partial Class usrCntlMDMAuswertungen
        '
        'TabPage1
        '
+        Me.TabPage1.Controls.Add(Me.Label44)
+        Me.TabPage1.Controls.Add(Me.GroupBox19)
        Me.TabPage1.Controls.Add(Me.Label33)
        Me.TabPage1.Controls.Add(Me.GroupBox9)
        Me.TabPage1.Controls.Add(Me.Label3)
@@ -1216,12 +1227,89 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage1.Text = "VERAG Auswertungen"
        Me.TabPage1.UseVisualStyleBackColor = True
        '
+        'Label44
+        '
+        Me.Label44.AutoSize = True
+        Me.Label44.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label44.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label44.Location = New System.Drawing.Point(11, 270)
+        Me.Label44.Name = "Label44"
+        Me.Label44.Size = New System.Drawing.Size(93, 17)
+        Me.Label44.TabIndex = 21
+        Me.Label44.Text = "Kundenliste"
+        '
+        'GroupBox19
+        '
+        Me.GroupBox19.Controls.Add(Me.cbx_nuraktiveKunden)
+        Me.GroupBox19.Controls.Add(Me.Label61)
+        Me.GroupBox19.Controls.Add(Me.PictureBox6)
+        Me.GroupBox19.Controls.Add(Me.Label63)
+        Me.GroupBox19.Controls.Add(Me.Button19)
+        Me.GroupBox19.Location = New System.Drawing.Point(9, 284)
+        Me.GroupBox19.Name = "GroupBox19"
+        Me.GroupBox19.Size = New System.Drawing.Size(697, 80)
+        Me.GroupBox19.TabIndex = 20
+        Me.GroupBox19.TabStop = False
+        '
+        'cbx_nuraktiveKunden
+        '
+        Me.cbx_nuraktiveKunden.AutoSize = True
+        Me.cbx_nuraktiveKunden.Checked = True
+        Me.cbx_nuraktiveKunden.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.cbx_nuraktiveKunden.Location = New System.Drawing.Point(148, 37)
+        Me.cbx_nuraktiveKunden.Name = "cbx_nuraktiveKunden"
+        Me.cbx_nuraktiveKunden.Size = New System.Drawing.Size(15, 14)
+        Me.cbx_nuraktiveKunden.TabIndex = 24
+        Me.cbx_nuraktiveKunden.UseVisualStyleBackColor = True
+        '
+        'Label61
+        '
+        Me.Label61.AutoSize = True
+        Me.Label61.Location = New System.Drawing.Point(169, 38)
+        Me.Label61.Name = "Label61"
+        Me.Label61.Size = New System.Drawing.Size(94, 13)
+        Me.Label61.TabIndex = 21
+        Me.Label61.Text = "nur aktive Kunden"
+        '
+        'PictureBox6
+        '
+        Me.PictureBox6.Image = CType(resources.GetObject("PictureBox6.Image"), System.Drawing.Image)
+        Me.PictureBox6.Location = New System.Drawing.Point(640, 8)
+        Me.PictureBox6.Name = "PictureBox6"
+        Me.PictureBox6.Size = New System.Drawing.Size(51, 24)
+        Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox6.TabIndex = 11
+        Me.PictureBox6.TabStop = False
+        '
+        'Label63
+        '
+        Me.Label63.AutoSize = True
+        Me.Label63.Location = New System.Drawing.Point(145, 19)
+        Me.Label63.Name = "Label63"
+        Me.Label63.Size = New System.Drawing.Size(255, 13)
+        Me.Label63.TabIndex = 5
+        Me.Label63.Text = "Kundenliste mit Kundennummern bei den Lieferanten"
+        '
+        'Button19
+        '
+        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button19.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.Button19.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button19.Location = New System.Drawing.Point(6, 19)
+        Me.Button19.Name = "Button19"
+        Me.Button19.Size = New System.Drawing.Size(121, 49)
+        Me.Button19.TabIndex = 4
+        Me.Button19.Text = "Kundenliste"
+        Me.Button19.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button19.UseVisualStyleBackColor = True
+        '
        'Label33
        '
        Me.Label33.AutoSize = True
        Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label33.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label33.Location = New System.Drawing.Point(7, 712)
+        Me.Label33.Location = New System.Drawing.Point(9, 717)
        Me.Label33.Name = "Label33"
        Me.Label33.Size = New System.Drawing.Size(145, 17)
        Me.Label33.TabIndex = 19
@@ -1235,7 +1323,7 @@ Partial Class usrCntlMDMAuswertungen
        Me.GroupBox9.Controls.Add(Me.PictureBox5)
        Me.GroupBox9.Controls.Add(Me.MyComboBox2)
        Me.GroupBox9.Controls.Add(Me.Label36)
-        Me.GroupBox9.Location = New System.Drawing.Point(6, 723)
+        Me.GroupBox9.Location = New System.Drawing.Point(8, 728)
        Me.GroupBox9.Name = "GroupBox9"
        Me.GroupBox9.Size = New System.Drawing.Size(697, 107)
        Me.GroupBox9.TabIndex = 18
@@ -1327,14 +1415,6 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage3.Text = "WÖLFL"
        Me.TabPage3.UseVisualStyleBackColor = True
        '
-        'UsrCntlWoelfl_IM_CSVRg1
-        '
-        Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167)
-        Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1"
-        Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97)
-        Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10
-        '
        'tbIDS
        '
        Me.tbIDS.Controls.Add(Me.Label62)
@@ -1713,14 +1793,6 @@ Partial Class usrCntlMDMAuswertungen
        Me.TabPage4.Text = "MSE"
        Me.TabPage4.UseVisualStyleBackColor = True
        '
-        'UsrCntlMSE_KonvertCSV1
-        '
-        Me.UsrCntlMSE_KonvertCSV1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlMSE_KonvertCSV1.Location = New System.Drawing.Point(7, 7)
-        Me.UsrCntlMSE_KonvertCSV1.Name = "UsrCntlMSE_KonvertCSV1"
-        Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97)
-        Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0
-        '
        'TabPage5
        '
        Me.TabPage5.Controls.Add(Me.Label56)
@@ -1980,6 +2052,22 @@ Partial Class usrCntlMDMAuswertungen
        Me.pnl.Size = New System.Drawing.Size(1057, 54)
        Me.pnl.TabIndex = 26
        '
+        'UsrCntlWoelfl_IM_CSVRg1
+        '
+        Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 167)
+        Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1"
+        Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97)
+        Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10
+        '
+        'UsrCntlMSE_KonvertCSV1
+        '
+        Me.UsrCntlMSE_KonvertCSV1.BackColor = System.Drawing.Color.White
+        Me.UsrCntlMSE_KonvertCSV1.Location = New System.Drawing.Point(7, 7)
+        Me.UsrCntlMSE_KonvertCSV1.Name = "UsrCntlMSE_KonvertCSV1"
+        Me.UsrCntlMSE_KonvertCSV1.Size = New System.Drawing.Size(728, 97)
+        Me.UsrCntlMSE_KonvertCSV1.TabIndex = 0
+        '
        'usrCntlMDMAuswertungen
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2013,6 +2101,9 @@ Partial Class usrCntlMDMAuswertungen
        Me.tbcntr.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        Me.TabPage1.PerformLayout()
+        Me.GroupBox19.ResumeLayout(False)
+        Me.GroupBox19.PerformLayout()
+        CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
        Me.GroupBox9.ResumeLayout(False)
        Me.GroupBox9.PerformLayout()
        CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2208,4 +2299,11 @@ Partial Class usrCntlMDMAuswertungen
    Friend WithEvents GroupBox13 As GroupBox
    Friend WithEvents Button18 As Button
    Friend WithEvents Button14 As Button
+    Friend WithEvents Label44 As Label
+    Friend WithEvents GroupBox19 As GroupBox
+    Friend WithEvents cbx_nuraktiveKunden As CheckBox
+    Friend WithEvents Label61 As Label
+    Friend WithEvents PictureBox6 As PictureBox
+    Friend WithEvents Label63 As Label
+    Friend WithEvents Button19 As Button
 End Class
--- a/SDL/mdm/usrCntlMDMAuswertungen.resx
+++ b/SDL/mdm/usrCntlMDMAuswertungen.resx
@@ -132,6 +132,14 @@
        0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml
        hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo
        BXidk8YAAAAAAElFTkSuQmCC
+</value>
+  </data>
+  <data name="PictureBox6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+    <value>
+        iVBORw0KGgoAAAANSUhEUgAAABQAAAAUCAYAAACNiR0NAAAABGdBTUEAALGPC/xhBQAAAH1JREFUOE/V
+        0MEJgDAMQNHflXQmxxDcQt1CvAr1rq7hHIriKa1QQxQs/EtbHm0AMufcZhGQ8xoIjECVkJfQHXhcTlml
+        hL4BLXoXfPDl2DrHIMEeKJR1AWiRfOEKLMrWGGg+Q38cKBsC0CL5wvba0FTHQPMZzkCjbApAi/4B7lqo
+        BXidk8YAAAAAAElFTkSuQmCC
 </value>
  </data>
  <data name="PictureBox5.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
--- a/SDL/mdm/usrCntlMDMAuswertungen.vb
+++ b/SDL/mdm/usrCntlMDMAuswertungen.vb
@@ -1536,6 +1536,46 @@ Public Class usrCntlMDMAuswertungen



+    End Sub
+
+    Private Sub Button19_Click_1(sender As Object, e As EventArgs) Handles Button19.Click
+
+        Me.Cursor = Cursors.WaitCursor
+
+        Dim SQLstr = " SELECT AD.Auswahl,AD.AdressenNr AS KundenNr,AD.[Name 1] AS Kundenname,AD.Ort,AD.LandKz,ISNULL(kde_betreuer,'-') AS Betreuer,kde_keineMWSt AS keineMWST,AD.AdressenNr AS ASFINAG_KundenNr,AD.PLOSEKundenNr AS Plose_KundenNr,tblMSECustomers.customer_id AS MSE_KundenNr,ids.CustomerCode AS IDS_KundenNr, AD.UTAKundenNr AS UTA_KundenNr,
+                        	ISNULL(CAST(WölflKundenNr AS nvarchar(50)), '') +
+                            CASE 
+                                WHEN WölflKundenNr IS NOT NULL 
+                                     AND weitereWölflKundenNr IS NOT NULL
+                                THEN ', ' ELSE '' 
+                            END +
+                            ISNULL(CAST(weitereWölflKundenNr AS nvarchar(50)), '') AS RMC_KundenNr
+                        
+                        FROM Adressen AD
+                        INNER JOIN Kunden KD ON KD.KundenNr = AD.AdressenNr
+                        INNER JOIN tblKundenErweitert ON KD.KundenNr = kde_KundenNr
+                        LEFT JOIN tblMSECustomers ON partner_customer_number = KD.KundenNr
+                        LEFT JOIN tbl_IDS_Kunden AS ids
+                            ON ids.KdNrVERAG = KD.KundenNr
+                            AND ISNULL(ids.KdNrAlt,0) <> 1
+                            AND ids.Zeitstempel =
+                                (
+                                    SELECT MAX(i2.Zeitstempel)
+                                    FROM tbl_IDS_Kunden AS i2
+                                    WHERE
+                                        i2.KdNrVERAG = ids.KdNrVERAG
+                                        AND ISNULL(i2.KdNrAlt,0) <> 1
+                                )
+                        WHERE
+                            KD.FilialenNr = 8001 " & IIf(cbx_nuraktiveKunden.Checked, "and AD.Auswahl = 'A' ", "")
+
+        Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
+
+        cProgramFunctions.genExcelFromDT_NEW(dt)
+
+        Me.Cursor = Cursors.Default
+
+
    End Sub
 End Class