IDS-Dieselpreise, etc.

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1494,9 +1494,7 @@ Public Class usrCntlMDMAuswertungen
 
         Dim dt As New DataTable
         dt = (New SQL).loadDgvBySql(sql, "FMZOLL")
-        frmShowData.Show()
-        frmShowData.DataGridView1.DataSource = dt
-        frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
+        cProgramFunctions.genExcelFromDT_NEW(dt,,,,,, True)
 
 
 
@@ -1509,7 +1507,22 @@ Public Class usrCntlMDMAuswertungen
 
         uscCntl.init(True)
 
-        uscCntl.Show()
+        'uscCntl.Show()
+
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim frm As New Form
+
+        frm.Size = New Size(1600, 1000)
+        uscCntl.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
+        uscCntl.Dock = DockStyle.Fill
+        uscCntl.Anchor = AnchorStyles.Left
+        uscCntl.Anchor = AnchorStyles.Top
+        frm.Controls.Add(uscCntl)
+        frm.StartPosition = FormStartPosition.CenterScreen
+        frm.Show()
+
+
 
     End Sub
 End Class