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

KundeBearbeiten, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-12-18 10:28:49 +01:00
parent da8cf8854a
commit 4bf0bee25e
4 changed files with 290 additions and 297 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -127,6 +127,7 @@ 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()
@@ -163,6 +164,7 @@ 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()
@@ -187,8 +189,6 @@ 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()
@@ -1267,9 +1267,9 @@ Partial Class usrCntlMDMAuswertungen
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.Size = New System.Drawing.Size(169, 13)
Me.Label61.TabIndex = 21
Me.Label61.Text = "nur aktive Kunden"
Me.Label61.Text = "nur aktive/nicht gesperrte Kunden"
'
'PictureBox6
'
@@ -1415,6 +1415,14 @@ 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)
@@ -1793,6 +1801,14 @@ 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)
@@ -2052,22 +2068,6 @@ 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!)

13
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1542,7 +1542,7 @@ Public Class usrCntlMDMAuswertungen
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,
Dim SQLstr = " SELECT AD.Auswahl,KD.Abfertigungsverbot as gesperrter_Kunde,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
@@ -1558,16 +1558,9 @@ Public Class usrCntlMDMAuswertungen
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
)
-- NICHT NOTWENDIG AND ids.Zeitstempel =(SELECT MAX(i2.Zeitstempel) FROM tbl_IDS_Kunden AS i2 WHEREi2.KdNrVERAG = ids.KdNrVERAG AND ISNULL(i2.KdNrAlt,0) <> 1)
WHERE
KD.FilialenNr = 8001 " & IIf(cbx_nuraktiveKunden.Checked, "and AD.Auswahl = 'A' ", "")
KD.FilialenNr = 8001 " & IIf(cbx_nuraktiveKunden.Checked, "and AD.Auswahl = 'A' and isnull(KD.Abfertigungsverbot,0) <> 1 ", "")
Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")