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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-04-15 09:47:41 +02:00
parent cf5e51f169
commit ee629c091e
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.8.3")>
<Assembly: AssemblyFileVersion("1.3.8.3")>
<Assembly: AssemblyVersion("1.3.8.4")>
<Assembly: AssemblyFileVersion("1.3.8.4")>

11
VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb
View File

@@ -1513,9 +1513,10 @@ Public Class cHMRC
Public Shared Function getTOKEN(APPLICATION, Optional forceNewToken = False) As cHMRCToken
Public Shared Function getTOKEN(APPLICATION, Optional forceNewToken = False, Optional saveAPPLICATION_NAME = "") As cHMRCToken
If saveAPPLICATION_NAME = "" Then saveAPPLICATION_NAME = APPLICATION
Dim TOKEN = New cHMRCToken(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, APPLICATION)
Dim TOKEN = New cHMRCToken(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, saveAPPLICATION_NAME)
Try
Dim appl = ""
Dim HMRC_APPLICATION = "AVISO"
@@ -1538,6 +1539,9 @@ Public Class cHMRC
'appl = "write:import-control-system+read:import-control-system"
appl = "hello"
HMRC_APPLICATION = "AVISO_ENS"
Case Else
appl = "hello"
HMRC_APPLICATION = "AVISO_ENS"
End Select
@@ -1547,7 +1551,8 @@ Public Class cHMRC
Dim AccessToken = ""
Dim RefreshToken = ""
grantAccess(AccessToken, RefreshToken, appl, HMRC_APPLICATION)
TOKEN.token_Application = APPLICATION
TOKEN.token_Application = saveAPPLICATION_NAME
TOKEN.token_BEARER_TOKEN = AccessToken
TOKEN.token_REFRESH_TOKEN = RefreshToken
TOKEN.token_refresh_datetime = Now