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

Div. Dakosy Nachrichten

Browse Source
This commit is contained in:
Andreas Luxbauer
2024-01-02 11:30:18 +01:00
parent 7b639ea564
commit 52feeaa603
11 changed files with 3237 additions and 1214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
DAKOSY_Worker/cDakosy_Statusmeldungen.vb
View File

@@ -56,7 +56,8 @@ Public Class cDakosy_Statusmeldungen
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'Primär wird nach erg_datum geprüft!
'Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull(isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum),[dySt_ts])> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(isnull(isnull(dySt_DakosyTransaktionsDatum,[dySt_ergZeitpunkt]),[dySt_ts]) as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
'Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(isnull(isnull(dySt_DakosyTransaktionsDatum,[dySt_ergZeitpunkt]),[dySt_ts]) as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
Dim cntNewerTrans As Integer = SQL.getValueTxtBySql("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and cast(dySt_ergZeitpunkt as datetime)> '" & ergDate & "' AND [dySt_status] > 5 ", "FMZOLL")
' AND [dySt_status] > 5 --> Weil bei den 5er Status keine korrekte Zeitangabe vorliegt und die hoheren Staten sind immer danach.
' MsgBox("SELECT COUNT(*) FROM [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & BezugsNr & "' and isnull([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'" & " - " & cntNewerTrans & " - " & BezugsNr)