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

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:31:25 +02:00
parent 2c80644224
commit 289037b7f3
28 changed files with 1882 additions and 702 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
DAKOSY_Worker/cDakosy_Statusmeldungen.vb
View File

@@ -55,9 +55,12 @@ Public Class cDakosy_Statusmeldungen
Dim STATUS As New 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([dySt_ergZeitpunkt],dySt_DakosyTransaktionsDatum)> '" & ergDate & "'", "FMZOLL")
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")
' 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)
Return cntNewerTrans = 0
Catch ex As Exception