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

Bugfic Veranlagungen

Browse Source
This commit is contained in:
d.breimaier
2024-10-23 16:08:22 +02:00
parent ca19bbfa09
commit f41c40a72d
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
View File

@@ -131,8 +131,9 @@
Select Case r("FilialenNr") Select Case r("FilialenNr")
Case "5501" Case "5501"
'EUST 'EUST
Dim where = " and telnam_aktuellsteNachricht = 1" 'only latest status
Dim dtEUST = SQL.loadDgvBySql(" select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id Dim dtEUST = SQL.loadDgvBySql(" select sum(base) Base,sum(Amnt)Amnt FROM tblTelotec_Anmeldung as TC inner join tblTelotec_PositionsdatenAbgaben as AGB on AGB.telposAbg_telanmId=TC.telanm_id
where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60", "FMZOLL") where Ty IN ('5EV') and tc.telanm_BezugsNr LIKE '" & BezugsNr & "' AND telanm_Status between 50 and 60 " & where, "FMZOLL")
If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then If dtEUST IsNot Nothing AndAlso dtEUST.Rows.Count >= 0 Then
If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base") If dtEUST(0)("Base") IsNot DBNull.Value Then EUST_Basis = dtEUST(0)("Base")
If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt") If dtEUST(0)("Amnt") IsNot DBNull.Value Then EUST_5EV = dtEUST(0)("Amnt")

6
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -58,8 +58,8 @@ Public Class cMSEAPI
Dim curDateTime As Integer = jwt.GenNumericDate(0) Dim curDateTime As Integer = jwt.GenNumericDate(0)
' Set the timestamp defining an expiration time (end time) for the token ' Set the timestamp defining an expiration time (end time) for the token
' to be now + 1 hour (3600 seconds) ' to be now + 10 MIN (600 seconds)
success = claims.AddIntAt(-1, "exp", curDateTime + 1000) success = claims.AddIntAt(-1, "exp", curDateTime + 600)
jwt.AutoCompact = True jwt.AutoCompact = True
@@ -105,7 +105,7 @@ Public Class cMSEAPI
rest.AddHeader("X-API-Key", jwt) rest.AddHeader("X-API-Key", jwt)
rest.IdleTimeoutMs = 30000 rest.IdleTimeoutMs = 1000000
Dim responseJson As String = rest.FullRequestNoBody("GET", "/v1/transactions/new") Dim responseJson As String = rest.FullRequestNoBody("GET", "/v1/transactions/new")
If (rest.LastMethodSuccess <> True) Then If (rest.LastMethodSuccess <> True) Then