APIs

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -617,6 +617,7 @@ Public Class cATEZ_NCTS_IN
     Public dataTable As New DataTable()
     Shared jsonData As New Chilkat.JsonObject
     Public Shared sessionID As Integer = -1
+    Shared rest As New Chilkat.Rest
     Dim SQl As New SQL
     Shared apiSettingsloaded As Boolean = False
 
@@ -627,6 +628,14 @@ Public Class cATEZ_NCTS_IN
         Else
             apiSettingsloaded = True
             API_STRING = API.Rows(0).Item("api_url")
+
+            If Not IsDBNull(API.Rows(0).Item("api_debugpath")) AndAlso API.Rows(0).Item("api_debugpath") <> "" Then
+                Rest.VerboseLogging = True
+                Rest.DebugLogFilePath = API.Rows(0).Item("api_debugpath") & program & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "_Test", "") & ".txt"
+            Else
+                Rest.VerboseLogging = False
+            End If
+
         End If
         API_STRING = API.Rows(0).Item("api_url")
     End Sub
@@ -647,7 +656,7 @@ Public Class cATEZ_NCTS_IN
 
             VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
-            Dim rest As New Chilkat.Rest
+
             Dim success As Boolean
 
 
@@ -745,7 +754,6 @@ Public Class cATEZ_NCTS_IN
 
             'rest.PercentDoneOnSend = True
             rest.IdleTimeoutMs = 5000 * 31
-            rest.VerboseLogging = True
 
             success = rest.SendReqSb("POST", "/api/integrations/verag", sbRequestBody)