div

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -873,7 +873,7 @@ Public Class cATEZ_NCTS_IN
 
                         While j < num
 
-                            Dim invoice As Chilkat.JsonObject = data.ObjectAt(0)
+                            Dim invoice As Chilkat.JsonObject = data.ObjectAt(j)
 
                             Dim R As DataRow = dt.NewRow
                             R("currency") = checkNullStr(invoice.StringOf("currency"))

VERAG_PROG_ALLGEMEIN/Schnittstellen/cHMRC.vb

@@ -60,6 +60,15 @@ Public Class cHMRC
                     cHMRCCredentials.CLIENT_ID = cHMRC_ENS.Client_ID
                     cHMRCCredentials.CLIENT_SECRET = cHMRC_ENS.Client_Secret
                 End If
+            Case "ATEZ_ENS"
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+                Else
+                    cHMRCCredentials.API_STRING = "https://api.service.hmrc.gov.uk"
+                    cHMRCCredentials.CLIENT_ID = "b28AgFVSAXkLPtnnlU1xTRXbMXoD"
+                    cHMRCCredentials.CLIENT_SECRET = "17dfde2d-2aa9-47a0-9a3a-160363b909c5"
+                End If
+
         End Select
         Return cHMRCCredentials
     End Function
@@ -1513,7 +1522,7 @@ Public Class cHMRC
 
 
 
-    Public Shared Function getTOKEN(APPLICATION, Optional forceNewToken = False, Optional saveAPPLICATION_NAME = "") As cHMRCToken
+    Public Shared Function getTOKEN(APPLICATION, Optional forceNewToken = False, Optional saveAPPLICATION_NAME = "", Optional otherHMRCAPPLICATION_NAME = "") As cHMRCToken
         If saveAPPLICATION_NAME = "" Then saveAPPLICATION_NAME = APPLICATION
 
         Dim TOKEN = New cHMRCToken(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, saveAPPLICATION_NAME)
@@ -1545,13 +1554,19 @@ Public Class cHMRC
             End Select
 
 
+            If otherHMRCAPPLICATION_NAME <> "" Then
+                HMRC_APPLICATION = otherHMRCAPPLICATION_NAME
+            End If
 
             If forceNewToken OrElse TOKEN.hasEntry = False OrElse TOKEN.token_BEARER_TOKEN Is Nothing OrElse TOKEN.token_BEARER_TOKEN = "" Then
                 'Neuer Token  
                 Dim AccessToken = ""
                 Dim RefreshToken = ""
+
+
                 grantAccess(AccessToken, RefreshToken, appl, HMRC_APPLICATION)
 
+
                 TOKEN.token_Application = saveAPPLICATION_NAME
                 TOKEN.token_BEARER_TOKEN = AccessToken
                 TOKEN.token_REFRESH_TOKEN = RefreshToken