APIs

VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb

@@ -13,6 +13,7 @@ Public Class cCreditSafeAPI
     Public dataTablecs As New DataTable()
     Shared SQL As New SQL
     Shared apiSettingsloaded As Boolean = False
+    Shared rest As New Chilkat.Rest
 
     Sub New(program As String)
 
@@ -23,6 +24,14 @@ Public Class cCreditSafeAPI
         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
@@ -33,7 +42,7 @@ Public Class cCreditSafeAPI
 
             If apiSettingsloaded = False Then Return "400"
 
-            Dim rest As New Chilkat.Rest
+
             Dim success As Boolean
 
 
@@ -91,7 +100,6 @@ Public Class cCreditSafeAPI
 
             VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
 
-            Dim rest As New Chilkat.Rest
             Dim success As Boolean