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

Gesamtsicherheiten Excel-Export für Zollamut und Plausibiltätsprüfungen, Export für Essensbestellungen verbessert.

Browse Source
This commit is contained in:
d.breimaier
2023-06-23 14:38:49 +02:00
parent 7a6496f820
commit 7cb025586a
6 changed files with 153 additions and 250 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/frmGesamtsicherheitenMenuNEU.vb
View File

@@ -350,8 +350,6 @@ Public Class frmGesamtsicherheitenMenuNEU
Dim anzahlOffenerGSUeber85Tage As Integer
Dim dtNew As New DataTable
Dim sqlstring As String = "select count(*) as anzahlOffeneATBs from (Select gs_gsnr as gs_gsnr, MIN(gs_standort) as gs_standort,min (gs_datum) as gs_datum,
(Select SUM( Case
when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
@@ -368,7 +366,7 @@ Public Class frmGesamtsicherheitenMenuNEU
From [tblGesamtsicherheit] as meh group by gs_gsnr) as meh2
Where gs_standort = '" & Standort & "'AND Sicherheitssaldo <> 0 AND gs_datum < '" & Date.Now().AddDays(-85) & "'"
dtNew = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
Dim dtNew As DataTable = SQL.loadDgvBySql(sqlstring, "AVISO", 100, True)
If (dtNew.Rows(0).Item(0) IsNot DBNull.Value) Then