GVMS Feature implementiert

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -389,18 +389,21 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportCSV2ToolStripMenuItem.Click
 
-        If dgvListe.SelectedRows.Count > 0 Then
+        If dgvListe.Rows.Count > 0 Then
             Dim list As New List(Of Integer)
 
-            For Each row As DataGridViewRow In dgvListe.SelectedRows
+            For Each row As DataGridViewRow In dgvListe.Rows
                 list.Add(CInt(row.Cells("gs_gsnr").Value))
 
 
             Next
             Dim frm As New frmGesamtsicherheitenNEU
-            frm.LoadDGVSicherheitenForExport(list)
 
-            SDL.cProgramFunctions.genExcelFromDGV_NEW(frm.dgvGesamtsicherheit)
+            Dim datumVon As String = DateTimePicker1.Value.AddDays(-1)
+
+            frm.LoadDataTableSicherheitenForExport(list, datumVon, txtDatBis.Text)
+
+            SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
 
         End If
     End Sub