gesamtsicherheit, calcSaldo nun auch vor einem Eintrag in die Gesamtsicherheitsliste, Auswerung, etc.

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -516,10 +516,22 @@ Public Class frmGesamtsicherheitenMenuNEU
         Dim datumVon As Date = CDate(txtDatVon.Text)
         datumVon = datumVon.AddDays(-1)
 
+        Dim detailINfo As Boolean = True
+
+        Dim nurErstellungsdatumNotAenderungsdatum As Boolean = False
+        If vbYes = MsgBox("Sollen nur Datensaetze angegeben werden, deren Erstellungsdatum/Änderungsdatum vom Gestellungsdatum abweicht?", vbYesNoCancel) Then
+            detailINfo = True
+        End If
+
         If sender.ToString = "Detailliste" Then
-            frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text)
+            frm.LoadDataTableSicherheitenForExport2(list, datumVon.ToShortDateString, txtDatBis.Text, detailINfo, nurErstellungsdatumNotAenderungsdatum)
         ElseIf sender.ToString = "Referenzliste-Zollamt" Then
-            frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort)
+
+            If Not vbYes = MsgBox("Sollen interne Detailinfos angegeben werden?", vbYesNoCancel) Then
+                detailINfo = False
+            End If
+
+            frm.LoadDataTableSicherheitenForExport(list, datumVon.ToShortDateString, txtDatBis.Text, Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
         Else
             MsgBox("Funktion nicht definiert!")
             Exit Sub