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

Aviso/frmGesamtsicherheitenNEU.vb

@@ -226,7 +226,7 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
-    Public Sub LoadDataTableSicherheitenForExport(list As List(Of Integer), datumVon As String, datumBis As String, standort As String)
+    Public Sub LoadDataTableSicherheitenForExport(list As List(Of Integer), datumVon As String, datumBis As String, standort As String, Optional detailinfo As Boolean = False, Optional nurErstellungisNichtAenderungsdatum As Boolean = False)
 
         Me.Cursor = Cursors.WaitCursor
 
@@ -245,18 +245,16 @@ Public Class frmGesamtsicherheitenNEU
         Next
 
 
-        Dim SQLStringSicherheit = "select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "','Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'
+        Dim SQLStringSicherheit = " select * from (select gs_gsnr as 'Nr',[gs_ATBNr] as 'Reg-Nr. Verwahrlager " & standort & "','Eingang Verwahrlager' as 'Typ', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_sicherheitsbetrag] *-1 as Sicherheitbetrag_Calc, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt' " & IIf(detailinfo, ", [gs_erstellungsdatum] as Erstellungsdatum, [gs_zuletztgeandert] as GeänderAm, [gs_systemuser] as Benutzer ", "") & "
                                             From [tblGesamtsicherheit]
                                             Where [gs_gsnr] In (" & gsnr & ")
                                             and isnull(gs_warenwert,0) <> 0
 											UNION
-                                                Select gsp_gsnr, [gsp_ATCNr],'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],[gsp_art],[gsp_ust]
-                                            From [tblGesamtsicherheitsPositionen] 
+                                                Select gsp_gsnr, [gsp_ATCNr],'Ausgang Verwahrlager', CAST(gsp_datum as Date), CONVERT(VARCHAR(5),gsp_datum, 108), [gsp_warenwert] , [gsp_sicherheitsbetrag],[gsp_sicherheitsbetrag], [gsp_freitext],[gsp_art],[gsp_ust] " & IIf(detailinfo, ", [gsp_erstellungsdatum] as Erstellungsdatum, [gsp_zuletztgeandert] as GeänderAm, [gsp_systemuser] as Benutzer ", "") &
+                                            " From [tblGesamtsicherheitsPositionen] 
                                             where [gsp_gsnr] In (" & gsnr & ")
-                                            and isnull(gsp_warenwert,0) <> 0 
-											order by Datum, Uhrzeit"
-
-
+                                             and isnull(gsp_warenwert,0) <> 0 ) as Temp " & IIf(nurErstellungisNichtAenderungsdatum, " WHERE (Temp.Erstellungsdatum is not null AND cast(Temp.Erstellungsdatum as Date) <> cast(Temp.Datum as Date)) OR (Temp.GeänderAm is not null AND cast(Temp.GeänderAm as Date) <> cast(Temp.Datum as Date))", "") &
+                                            "order by Temp.Datum, Temp.Uhrzeit  "
 
         dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True)
 
@@ -307,7 +305,7 @@ Public Class frmGesamtsicherheitenNEU
 
 
 
-    Public Sub LoadDataTableSicherheitenForExport2(list As List(Of Integer), datumVon As String, datumBis As String)
+    Public Sub LoadDataTableSicherheitenForExport2(list As List(Of Integer), datumVon As String, datumBis As String, Optional detailinfo As Boolean = False, Optional nurErstellungisNichtAenderungsdatum As Boolean = False)
 
         Me.Cursor = Cursors.WaitCursor
 
@@ -323,11 +321,13 @@ Public Class frmGesamtsicherheitenNEU
         Next
 
         Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',  
-                                            [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext
-                                            from [tblGesamtsicherheit]
+                                            [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext" &
+                                            IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
+                                            "from [tblGesamtsicherheit]
                                             inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
-                                             where [gs_gsnr] IN (" & gsnr & ")
-                                            order by gs_gsId"
+                                             where [gs_gsnr] IN (" & gsnr & ")" & IIf(nurErstellungisNichtAenderungsdatum, "  AND (
+											 (cast(gs_datum as Date) <> cast(gs_erstellungsdatum as Date) OR gs_zuletztgeandert is not null and  cast(gs_datum as Date) <> cast(gs_zuletztgeandert as Date))
+											 OR  gsp_zuletztgeandert is not null and  cast(gsp_datum as Date) <> cast(gsp_zuletztgeandert as Date)) ", " ") & "order by gs_gsId"
 
 
         dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True)
@@ -639,6 +639,9 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub btnAddSicherheit_Click(sender As Object, e As EventArgs) Handles btnAddSicherheit.Click
         Try
 
+            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+            lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
+
             If (txtSicherheitATBNr.Text = "") Then
                 txtSicherheitATBNr.Focus()
                 Exit Sub
@@ -767,6 +770,9 @@ Public Class frmGesamtsicherheitenNEU
 
     Private Sub btnAddPos_Click(sender As Object, e As EventArgs) Handles btnAddPos.Click
 
+        SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+        lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
+
         If dgvGesamtsicherheit.SelectedRows.Count = 0 Then
             MsgBox("Bitte eine Gestellung markieren, zu diese eine Pos hinzugefügt/entfernt/aktualisiert werden soll")
             Exit Sub
@@ -1988,6 +1994,9 @@ Public Class frmGesamtsicherheitenNEU
     Private Sub btnRundungsdifAusgl_Click(sender As Object, e As EventArgs) Handles btnRundungsdifAusgl.Click
 
         Try
+            SaldoNew = Decimal.Parse(currentGesSichRef.CalcSaldo())
+            lblSaldo.Text = "Saldo: €" & SaldoNew.ToString("N")
+
             If (rundungsdiff <> 0) AndAlso checkIfRundungsPosExists() = False Then
 
                 Dim OPEN As New cSicherheiten()