Ueberstuden, Einfuhrverbot, Formulare, Timas, Datev

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -1250,7 +1250,7 @@ Public Class cTimasAPI
 
     End Function
 
-    Public Function deleteTimeAccounts(ByRef from As Date, ByRef toDate As Date, ByRef employeeNr As Integer, ByRef accountsdt As DataTable) As Boolean
+    Public Function deleteTimeAccounts(ByRef from As Date, ByRef toDate As Date, ByRef employeeNr As Integer, ByRef accountsdt As DataTable, ByRef info As String) As Boolean
         Dim timeEntryDeleted As Boolean = False
         Try
 
@@ -1281,7 +1281,11 @@ Public Class cTimasAPI
             End If
 
             If (rest.ResponseStatusCode <> 200) Then
-                Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText & sbResponseBody.ToString)
+                Debug.WriteLine(rest.ResponseHeader)
+                info = rest.ResponseStatusCode & " " & rest.ResponseStatusText
+                If sbResponseBody <> "" Then
+                    info &= vbNewLine & sbResponseBody
+                End If
                 Return timeEntryDeleted
             Else
                 timeEntryDeleted = True