Gesamtsicherheiten: CSV-Export für Gesamtsicherh + Positionen

Aviso/frmGesamtsicherheitenNEU.vb

@@ -148,6 +148,19 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Public Sub LoadDGVSicherheitenForExport(Optional withFilterParam As Boolean = False)
+
+
+
+        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_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt'  from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & "order by gs_gsId"
+
+        dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
+        dgvGesamtsicherheit.LOAD()
+
+    End Sub
+
+
+
     Private Sub dgvGesamtsicherheit_SelectionChanged(sender As Object, e As EventArgs) Handles dgvGesamtsicherheit.SelectionChanged
         If dgvGesamtsicherheit.SelectedRows.Count > 0 Then
 
@@ -220,6 +233,20 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Public Sub LoadDGVSicherheitsPosForExport(gsNr As Integer, Optional withFilterParam As Boolean = False)
+
+        Dim sqlSearchSting As String = ""
+
+        Dim SQLStringCRN As String =
+            "select [gsp_gsId] as ID, [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" &' ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_MRNNr], [gsp_art]
+                " From [tblGesamtsicherheitsPositionen] where [gsp_gsnr] = '" & gsNr & "' order by [gsp_gsId]"
+
+        dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
+        dgvSicherheitsPos.LOAD()
+
+    End Sub
+
+
     'Private Sub dgvSicherheitsPos_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSicherheitsPos.SelectionChanged
     '    If dgvSicherheitsPos.SelectedRows.Count > 0 Then