gesamtsicherheiten

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -317,6 +317,7 @@ Public Class frmGesamtsicherheitenMenuNEU
                 DateTimePicker1.Value = JAHR
                 DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1)
                 'End If
+            Case "Tag"
             Case "Tag"
 
                 DateTimePicker1.Value = TAG
@@ -524,14 +525,14 @@ Public Class frmGesamtsicherheitenMenuNEU
         'End If
 
         If sender.ToString = "Detailliste" Then
-            frm.LoadDataTableSicherheitenForExport2(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
+            frm.LoadDataTableSicherheitenForExport(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
         ElseIf sender.ToString = "Referenzliste-Zollamt" Then
 
             If Not vbYes = MsgBox("Sollen interne Detailinfos mitangegeben werden?", vbYesNoCancel) Then
                 detailINfo = False
             End If
 
-            frm.LoadDataTableSicherheitenForExport(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
+            frm.LoadDataTableSicherheitenForZollamt(list, datumVon, CDate(txtDatBis.Text), Standort, detailINfo, nurErstellungsdatumNotAenderungsdatum)
         Else
             MsgBox("Funktion nicht definiert!")
             Exit Sub
@@ -590,4 +591,77 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
     End Sub
+
+    Private Sub AusgangEingangToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AusgangEingangToolStripMenuItem.Click
+
+
+
+        Dim SQLPlausPruefung = "select gs_gsnr as Nr,gs_ATBNr as ATBNr, gs_Sicherheitsbetrag as Sicherheitsbetrag ,gsp_ATCNr as ATCNr , cast(gs_datum as Date) as Ausgangsdatum, cast(gsp_datum as Date) as Eingangsdatum,  [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer from tblGesamtsicherheit
+											inner join tblGesamtsicherheitsPositionen on gs_gsId = gsp_gsId
+											where cast(gsp_datum as Date) < cast(gs_datum as Date) and not ( [gs_sicherheitsbetrag] = 0.00 and [gsp_sicherheitsbetrag] = 0.00) and gs_standort = '" & Standort & "'"
+
+
+        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 (Datum/Uhrzeit des Gestellungsausganges muss zeitlich NACH dem Gestellungseingang liegen)! " & 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
+
+
+    Private Sub SicherheitsbetragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SicherheitsbetragToolStripMenuItem.Click
+
+
+        Dim SQLPlausPruefung = "SELECT 
+    gs.gs_gsnr,
+    gs.Sicherheitbetrag_Ausgang,
+    gsp.Sicherheitbetrag_Eingang,
+	gs.gs_standort
+FROM
+(
+    SELECT 
+        gs_gsnr,
+		gs_standort,
+        SUM(gs_sicherheitsbetrag) AS Sicherheitbetrag_Ausgang
+    FROM tblGesamtsicherheit
+    GROUP BY gs_standort, gs_gsnr
+) gs
+JOIN
+(
+    SELECT 
+        gsp_gsnr,
+        SUM(gsp_sicherheitsbetrag) AS Sicherheitbetrag_Eingang
+    FROM tblGesamtsicherheitsPositionen
+    GROUP BY gsp_gsnr
+) gsp
+    ON gs.gs_gsnr = gsp.gsp_gsnr WHERE gs.Sicherheitbetrag_Ausgang < gsp.Sicherheitbetrag_Eingang and gs_standort = '" & Standort & "' and gs_gsnr <> 2030  order by gs.gs_gsnr"
+
+
+        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 (S-Betrag des Gestellungseinganges darf nicht größer als der des dem Gestellungsausganges)! " & 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