edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Gesamtsicherheiten: CSV Export

Browse Source
This commit is contained in:
d.breimaier
2022-11-09 16:30:21 +01:00
parent e5d6b27caf
commit 06cb3c4599
3 changed files with 66 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -1,6 +1,7 @@

Imports System.Linq.Expressions
Imports GrapeCity.Viewer.Common.Model
Imports Org.BouncyCastle.Cms
Imports VERAG_PROG_ALLGEMEIN
Public Class frmGesamtsicherheitenNEU
@@ -148,11 +149,25 @@ Public Class frmGesamtsicherheitenNEU
End Sub
Public Sub LoadDGVSicherheitenForExport(Optional withFilterParam As Boolean = False)
Public Sub LoadDGVSicherheitenForExport(list As List(Of Integer))
Dim gsnr As String
Dim counter = 0
For Each n In list
gsnr &= n.ToString()
counter = counter + 1
If (list.Count <> 0 And counter <> list.Count) Then
gsnr &= ","
End If
Next
Dim SQLStringSicherheit As String = "select [gs_gsId] as ID, [gs_ATBNr] as 'ATB Verwahrlager', CONVERT(VARCHAR(10),gs_datum, 120) 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"
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
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()
@@ -233,19 +248,6 @@ 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 IDPos, [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CONVERT(VARCHAR(10),gsp_erstellungsdatum, 120) 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