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

Bugfix, Auswerung, APIO

Browse Source
This commit is contained in:
d.breimaier
2024-10-22 17:08:52 +02:00
parent e7d2164ace
commit ca19bbfa09
4 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/zoll/usrCntlAuswertungenEV_Veranlagungen.vb
View File

@@ -1,6 +1,4 @@
Imports System.IO
Public Class usrCntlAuswertungenEV_Veranlagungen
Public Class usrCntlAuswertungenEV_Veranlagungen
@@ -156,10 +154,13 @@ Public Class usrCntlAuswertungenEV_Veranlagungen
End If
'Handelsrechnungen
Dim dtRg = SQL.DLookupArray("distinct(DRef)", "[zsAnmGdsItemDocCerts] As DOC inner join zsAnmRefs As ANM On ANM.LizenzNr=DOC.LizenzNr And ANM.OperatorID=DOC.OperatorID And ANM.AnmID=DOC.AnmID", "(LRN = '" & BezugsNr & "') and DocCd IN ('N380','N325')", EZOLL_SQLSRV, "DRef")
For Each rg In dtRg
handelsrechnungen &= semi & rg : semi = ","
Next
For Each rg In dtRg
handelsrechnungen &= semi & rg : semi = ","
Next
End Select

5
VERAG_PROG_ALLGEMEIN/Classes/SQL.vb
View File

@@ -691,7 +691,10 @@ Public Class SQL
If dt IsNot Nothing Then
For Each r As DataRow In dt.Rows
list.Add(r(srchFieldClearName))
If Not IsDBNull(r(srchFieldClearName)) Then
list.Add(r(srchFieldClearName))
End If
Next
End If
Return list

1
VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb
View File

@@ -81,7 +81,6 @@ Public Class cMDMFunctionsAllgemein
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
Return False
End Try

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

@@ -105,7 +105,7 @@ Public Class cMSEAPI
rest.AddHeader("X-API-Key", jwt)
rest.IdleTimeoutMs = 1000000
rest.IdleTimeoutMs = 30000
Dim responseJson As String = rest.FullRequestNoBody("GET", "/v1/transactions/new")
If (rest.LastMethodSuccess <> True) Then