faktMail, ustva, Auswertungen, etc.

SDL/mdm/usrCntlMDMAuswertungen.Designer.vb

@@ -122,6 +122,10 @@ Partial Class usrCntlMDMAuswertungen
         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()
+        Me.Button18 = New System.Windows.Forms.Button()
+        Me.Button14 = New System.Windows.Forms.Button()
         Me.Label60 = New System.Windows.Forms.Label()
         Me.GroupBox18 = New System.Windows.Forms.GroupBox()
         Me.Label57 = New System.Windows.Forms.Label()
@@ -178,10 +182,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.GroupBox13 = New System.Windows.Forms.GroupBox()
-        Me.Button14 = New System.Windows.Forms.Button()
-        Me.Label62 = New System.Windows.Forms.Label()
-        Me.Button18 = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -201,6 +201,7 @@ Partial Class usrCntlMDMAuswertungen
         CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TabPage3.SuspendLayout()
         Me.tbIDS.SuspendLayout()
+        Me.GroupBox13.SuspendLayout()
         Me.GroupBox18.SuspendLayout()
         Me.TabPage2.SuspendLayout()
         Me.GroupBox10.SuspendLayout()
@@ -214,7 +215,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox15.SuspendLayout()
         Me.GroupBox14.SuspendLayout()
         Me.pnl.SuspendLayout()
-        Me.GroupBox13.SuspendLayout()
         Me.SuspendLayout()
         '
         'GroupBox1
@@ -1353,6 +1353,49 @@ Partial Class usrCntlMDMAuswertungen
         Me.tbIDS.Text = "IDS"
         Me.tbIDS.UseVisualStyleBackColor = True
         '
+        'Label62
+        '
+        Me.Label62.AutoSize = True
+        Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label62.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label62.Location = New System.Drawing.Point(325, 162)
+        Me.Label62.Name = "Label62"
+        Me.Label62.Size = New System.Drawing.Size(146, 17)
+        Me.Label62.TabIndex = 26
+        Me.Label62.Text = "IDS Preise/Rabatte"
+        '
+        'GroupBox13
+        '
+        Me.GroupBox13.Controls.Add(Me.Button18)
+        Me.GroupBox13.Controls.Add(Me.Button14)
+        Me.GroupBox13.Location = New System.Drawing.Point(322, 182)
+        Me.GroupBox13.Name = "GroupBox13"
+        Me.GroupBox13.Size = New System.Drawing.Size(297, 134)
+        Me.GroupBox13.TabIndex = 25
+        Me.GroupBox13.TabStop = False
+        '
+        'Button18
+        '
+        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button18.Location = New System.Drawing.Point(153, 19)
+        Me.Button18.Name = "Button18"
+        Me.Button18.Size = New System.Drawing.Size(121, 49)
+        Me.Button18.TabIndex = 5
+        Me.Button18.Text = "Produktpreise"
+        Me.Button18.UseVisualStyleBackColor = True
+        '
+        'Button14
+        '
+        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button14.Location = New System.Drawing.Point(6, 19)
+        Me.Button14.Name = "Button14"
+        Me.Button14.Size = New System.Drawing.Size(121, 49)
+        Me.Button14.TabIndex = 4
+        Me.Button14.Text = "Kunden/Preise"
+        Me.Button14.UseVisualStyleBackColor = True
+        '
         'Label60
         '
         Me.Label60.AutoSize = True
@@ -1937,49 +1980,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.pnl.Size = New System.Drawing.Size(1057, 54)
         Me.pnl.TabIndex = 26
         '
-        'GroupBox13
-        '
-        Me.GroupBox13.Controls.Add(Me.Button18)
-        Me.GroupBox13.Controls.Add(Me.Button14)
-        Me.GroupBox13.Location = New System.Drawing.Point(322, 182)
-        Me.GroupBox13.Name = "GroupBox13"
-        Me.GroupBox13.Size = New System.Drawing.Size(297, 134)
-        Me.GroupBox13.TabIndex = 25
-        Me.GroupBox13.TabStop = False
-        '
-        'Button14
-        '
-        Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button14.Location = New System.Drawing.Point(6, 19)
-        Me.Button14.Name = "Button14"
-        Me.Button14.Size = New System.Drawing.Size(121, 49)
-        Me.Button14.TabIndex = 4
-        Me.Button14.Text = "Kunden"
-        Me.Button14.UseVisualStyleBackColor = True
-        '
-        'Label62
-        '
-        Me.Label62.AutoSize = True
-        Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label62.ForeColor = System.Drawing.SystemColors.ControlDarkDark
-        Me.Label62.Location = New System.Drawing.Point(325, 162)
-        Me.Label62.Name = "Label62"
-        Me.Label62.Size = New System.Drawing.Size(146, 17)
-        Me.Label62.TabIndex = 26
-        Me.Label62.Text = "IDS Preise/Rabatte"
-        '
-        'Button18
-        '
-        Me.Button18.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button18.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button18.Location = New System.Drawing.Point(153, 19)
-        Me.Button18.Name = "Button18"
-        Me.Button18.Size = New System.Drawing.Size(121, 49)
-        Me.Button18.TabIndex = 5
-        Me.Button18.Text = "Preise"
-        Me.Button18.UseVisualStyleBackColor = True
-        '
         'usrCntlMDMAuswertungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2020,6 +2020,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.TabPage3.PerformLayout()
         Me.tbIDS.ResumeLayout(False)
         Me.tbIDS.PerformLayout()
+        Me.GroupBox13.ResumeLayout(False)
         Me.GroupBox18.ResumeLayout(False)
         Me.GroupBox18.PerformLayout()
         Me.TabPage2.ResumeLayout(False)
@@ -2045,7 +2046,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox14.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
-        Me.GroupBox13.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1411,6 +1411,34 @@ Public Class usrCntlMDMAuswertungen
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
 
+
+
+        Dim sql = "SELECT CustomerCode, P.ProductDescription, C.OutletCountry, S.OutletName, RW.Rechenwert, Kz, RW.KategorieNr as KatNr FROM [VERAG].[dbo].[tbl_IDS_Rechenwerte] as RW
+                                            left join [VERAG].[dbo].[tbl_IDS_Produkte] as P on P.ProductTypeCode = RW.ProductTypeCode
+                                            left join [VERAG].[dbo].[tbl_IDS_Länder] as C on C.OutletCountryCode = RW.OutletCountryCode
+                                            left join [VERAG].[dbo].[tbl_IDS_Stationen] as S on S.[OutletCode] = RW.OutletCode 
+											where CustomerCode is not null
+											order by CustomerCode"
+
+        Dim dt As New DataTable
+        dt = (New SQL).loadDgvBySql(sql, "FMZOLL")
+        frmShowData.Show()
+        frmShowData.DataGridView1.DataSource = dt
+        frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
+
+
+
+    End Sub
+
+    Private Sub Button18_Click(sender As Object, e As EventArgs) Handles Button18.Click
+
+
+        Dim uscCntl As New usrCntlIDSPreise
+
+        uscCntl.init(True)
+
+        uscCntl.Show()
+
     End Sub
 End Class