GVMS Feature implementiert

Aviso/frmGesamtsicherheitenNEU.vb

@@ -1,4 +1,5 @@
 
+Imports System.Data.SqlTypes
 Imports System.Linq.Expressions
 Imports GrapeCity.Viewer.Common.Model
 Imports Org.BouncyCastle.Cms
@@ -43,6 +44,8 @@ Public Class frmGesamtsicherheitenNEU
 
     Public dataTable As New DataTable()
 
+    Public dtSicherheiten As New DataTable()
+
 
     Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
@@ -149,7 +152,7 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
-    Public Sub LoadDGVSicherheitenForExport(list As List(Of Integer))
+    Public Sub LoadDataTableSicherheitenForExport(list As List(Of Integer), datumVon As String, datumBis As String)
 
         Dim gsnr As String
         Dim counter = 0
@@ -162,15 +165,52 @@ Public Class frmGesamtsicherheitenNEU
 
         Next
 
-        Dim SQLStringSicherheit As String = "select [gs_gsId] as Id, [gs_ATBNr] as 'ATB Verwahrlager', CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',  
-                                            [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_erstellungsdatum as Date) as Datum, CONVERT(VARCHAR(5),gsp_erstellungsdatum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag, [gsp_freitext] as Freitext, [gs_saldo] as Saldo
+        Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'ATB 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_erstellungsdatum as Date) as Datum, CONVERT(VARCHAR(5),gsp_erstellungsdatum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext
                                             from [tblGesamtsicherheit]
                                             inner join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
                                              where [gs_gsnr] IN (" & gsnr & ")
                                             order by gs_gsId"
 
-        dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
-        dgvGesamtsicherheit.LOAD()
+
+        dtSicherheiten = SQL.loadDgvBySql(SQLStringSicherheit, "AVISO", 100, True)
+
+
+        dtSicherheiten.Columns.Add("SSaldo")
+
+        Dim drFirst = dtSicherheiten.NewRow
+        drFirst.Item("ATB Verwahrlager") = "Uebertrag vom " & datumVon
+        drFirst.Item("SSaldo") = CDbl(dtSicherheiten.Rows(0).Item("Saldo"))
+
+        dtSicherheiten.Rows.InsertAt(drFirst, 0)
+
+
+        Dim sicherheitsbetragATBs As Double
+        Dim sicherheitsbetragATCs As Double
+        Dim saldo As Double
+        Dim c1 As Double
+        Dim saldoStart As Double
+
+        For i As Integer = 1 To dtSicherheiten.Rows.Count - 1
+
+            saldoStart = CDbl(dtSicherheiten.Rows(0).Item("SSaldo"))
+            saldo = CDbl(dtSicherheiten.Rows(i - 1).Item("SSaldo"))
+            sicherheitsbetragATCs = CDbl(dtSicherheiten.Rows(i).Item("Sicherheitbetrag"))
+            sicherheitsbetragATBs = CDbl(dtSicherheiten.Rows(i).Item("Sicherheitsbetrag2"))
+
+            c1 = saldo - sicherheitsbetragATCs + sicherheitsbetragATBs
+
+            dtSicherheiten.Rows(i)("SSaldo") = c1
+        Next
+
+        Dim drLast = dtSicherheiten.NewRow
+        drLast.Item("ATB Verwahrlager") = "Saldo zum " & datumBis
+        drLast.Item("SSaldo") = CDbl(dtSicherheiten.Rows(dtSicherheiten.Rows.Count - 1).Item("SSaldo"))
+
+        dtSicherheiten.Rows.InsertAt(drLast, dtSicherheiten.Rows.Count)
+
+        dtSicherheiten.Columns.Remove("Saldo")
+
 
     End Sub
 
@@ -202,7 +242,7 @@ Public Class frmGesamtsicherheitenNEU
         Dim sqlSearchSting As String = ""
 
         If withFilterParam = True Then
-            sqlSearchSting &= "AND gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'"
+            sqlSearchSting &= "And gsp_gsid In (Select gs_gsId from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'"
             If txt_Suche.Text <> "" Then sqlSearchSting &= "AND ([gs_abfertigungsNr] Like '%" & txt_Suche.Text & "%' OR [gs_ATBNr] Like '%" & txt_Suche.Text & "%' OR [gs_LKWKZ] like '%" & txt_Suche.Text & "%' OR [gs_avisoId] like '%" & txt_Suche.Text & "%' OR [gs_freitext] like '%" & txt_Suche.Text & "%')"
             If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= " AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
             sqlSearchSting &= ")"