gesamtischerheiten, etc.

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -500,7 +500,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
     End Sub
 
-    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzlisteZollamtToolStripMenuItem.Click, DetaillisteToolStripMenuItem.Click
+    Private Sub ExportCSV2ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ReferenzlisteZollamtToolStripMenuItem.Click, DetaillisteToolStripMenuItem.Click, RLZollamtBereinigtToolStripMenuItem.Click
 
         If dgvListe.Rows.Count = 0 Then
             MsgBox("keine Daten vorhanden!")
@@ -519,6 +519,9 @@ Public Class frmGesamtsicherheitenMenuNEU
 
         Dim detailINfo As Boolean = True
 
+        Dim zollliste_bereinigt As Boolean = False
+
+
         'Dim nurErstellungsdatumNotAenderungsdatum As Boolean = False
         'If vbYes = MsgBox("Sollen nur Datensaetze angegeben werden, deren Erstellungsdatum/Änderungsdatum vom Gestellungsdatum abweicht?", vbYesNoCancel) Then
         '    nurErstellungsdatumNotAenderungsdatum = True
@@ -526,19 +529,20 @@ Public Class frmGesamtsicherheitenMenuNEU
 
         If sender.ToString = "Detailliste" Then
             frm.LoadDataTableSicherheitenForExport(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
-        ElseIf sender.ToString = "Referenzliste-Zollamt" Then
+        ElseIf sender.ToString = "RL-Zollamt" OrElse sender.ToString = "RL-Zollamt bereinigt" Then
 
+            zollliste_bereinigt = IIf(sender.ToString = "RL-Zollamt bereinigt", True, False)
             If Not vbYes = MsgBox("Sollen interne Detailinfos mitangegeben werden?", vbYesNoCancel) Then
                 detailINfo = False
             End If
 
-            frm.LoadDataTableSicherheitenForZollamt(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
+            frm.LoadDataTableSicherheitenForZollamt(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, zollliste_bereinigt)
         Else
             MsgBox("Funktion nicht definiert!")
             Exit Sub
         End If
 
-        SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
+        If Not zollliste_bereinigt Then SDL.cProgramFunctions.genExcelFromDT_NEW(frm.dtSicherheiten)
 
     End Sub
 
@@ -664,4 +668,34 @@ JOIN
         End If
 
     End Sub
+
+    Private Sub MehrfacheATBNrToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MehrfacheATBNrToolStripMenuItem.Click
+
+
+        Dim SQLPlausPruefung = " select Temp.gs_ATBNr, Temp.gs_standort, Temp.Datum from (select gs_ATBNr, gs_standort, cast(MIN(gs_datum) as Date) as Datum from tblGesamtsicherheit 
+		where  gs_standort = '" & Standort & "' AND cast(gs_datum as Date) <=   '" & Date.Parse(txtDatBis.Text) & "'
+		group by gs_ATBNr, gs_posNr, gs_standort
+		Having count(*) > 1
+		) as Temp
+		group by Temp.gs_ATBNr, Temp.gs_standort, Temp.Datum
+		order by temp.Datum"
+
+
+
+        Dim dt As New DataTable
+        dt = SQL.loadDgvBySql(SQLPlausPruefung, "AVISO", 100, True)
+
+
+        If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
+
+            MsgBox(dt.Rows.Count & " Datensätze müssen korrigiert werden (mehrfache ATB-Einträge pro ATB-Nr)! " & vbNewLine & "Ansonsten können keine korrekten Werte über die Saldenliste ermittelt werden.")
+            SDL.cProgramFunctions.genExcelFromDT_NEW(dt)
+
+        Else
+
+            MsgBox("keine fehlerhaften Eingaben vorhanden!")
+
+        End If
+
+    End Sub
 End Class