Rundungsdifferenzenanzeige, Excelexport

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -389,7 +389,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     End Sub
 
-    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzlisteZollamtToolStripMenuItem.Click
+    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzlisteZollamtToolStripMenuItem.Click, DetaillisteToolStripMenuItem.Click
 
         If dgvListe.Rows.Count = 0 Then
             MsgBox("keine Daten vorhanden!")
@@ -400,14 +400,23 @@ Public Class frmGesamtsicherheitenMenuNEU
 
         For Each row As DataGridViewRow In dgvListe.Rows
             list.Add(CInt(row.Cells("gs_gsnr").Value))
-
-
         Next
+
         Dim frm As New frmGesamtsicherheitenNEU
 
-        Dim datumVon As String = DateTimePicker1.Value.AddDays(-1)
+        Dim datumVon As Date = CDate(txtDatVon.Text)
 
-        frm.LoadDataTableSicherheitenForExport(list, datumVon, txtDatBis.Text)
+        datumVon = datumVon.AddDays(-1)
+
+        If sender.ToString = "Detailliste" Then
+
+            frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text)
+        ElseIf sender.ToString = "Referenzliste-Zollamt" Then
+            frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort)
+        Else
+            MsgBox("Funktion nicht definiert!")
+            Exit Sub
+        End If
 
         SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)