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

Timas, Kundensicherheiten fix, cbam fix, fakt (IBAN Zugferd), etc.

Browse Source
This commit is contained in:
d.breimaier
2026-10-19 15:31:17 +02:00
parent 14a3b46c0c
commit 0a6a756497
6 changed files with 55 additions and 51 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/Classes/cDY_Zollanmeldungen_Import.vb
View File

@@ -309,7 +309,7 @@ Public Class cDY_Zollanmeldungen_Import
Public Function SAVE() As Boolean
Public Function SAVE(Optional ShowErrer As Boolean = True) As Boolean
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tbl_DY_Zollmeldungen_Import WHERE Id=@Id) " &
@@ -318,7 +318,7 @@ Public Class cDY_Zollanmeldungen_Import
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
Return SQL.doSQLVarList(sqlstr, "AVISO", ShowErrer, list)
End Function
Public Sub LOAD()

2
VERAG_PROG_ALLGEMEIN/Classes/cKundenSicherheiten.vb
View File

@@ -181,7 +181,7 @@ Public Class cKundenSicherheiten
"UPDATE tblKundenSicherheiten SET " &
" sc_storno = 1, " &
" sc_stornoDatum = GETDATE(), " &
" sc_stornoUser = @stornoUser " &
" sc_stornoMaId = @stornoUser " &
"WHERE sc_id = @sc_id " &
" AND ISNULL(sc_storno,0) = 0"

4
VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
View File

@@ -121,8 +121,8 @@ Public Class cTimasAPI
rest.AddQueryParam("format", datetimeformat)
If timeStamp_deadline <> "" AndAlso IsDate(timeStamp_deadline) Then
rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("dd.MM.yyyy"))
rest.IdleTimeoutMs = 60000
rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("yyyy-MM-dd"))
rest.IdleTimeoutMs = 300000
Else
rest.IdleTimeoutMs = 30000 'defualt