From ee629c091e0ab2e50953277c557f99ec5d6f56fc Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 15 Apr 2025 09:47:41 +0200 Subject: [PATCH] vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb | 11 ++++++++--- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index b0ce2692..15183041 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb index a46dc5ae..8f06889f 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb @@ -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