APIs

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -19,6 +19,13 @@ Public Class cTimasAPI
         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
 
     End Sub
@@ -29,7 +36,6 @@ Public Class cTimasAPI
             Dim success As Boolean
             If apiSettingsloaded = False Then Return False
 
-            rest.VerboseLogging = True
             Dim bTls As Boolean = True
             Dim port As Integer = 443
             Dim bAutoReconnect As Boolean = True