diff --git a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb b/app/ResultHandler_Konfig/clsDateiverarbeitung.vb
index db12b8c..5d3a67b 100644
--- a/app/ResultHandler_Konfig/clsDateiverarbeitung.vb
+++ b/app/ResultHandler_Konfig/clsDateiverarbeitung.vb
@@ -235,22 +235,27 @@ Public Class clsDateiverarbeitung
             doc.Ivalidfrom = now
             doc.Ivaliduntil = now.AddDays(30)
             doc.Pfad = link
-            doc.Kategorie.Add(DOKART)
+            doc.Kategorie = New List(Of BNSDocumentCategory) From {
+                New BNSDocumentCategory With {.Name = DOKART}
+            }
 
             Dim json As String = JsonConvert.SerializeObject(doc, Formatting.Indented)
             Dim bytes As Byte() = Encoding.Default.GetBytes(json)
 
             ' HTTP Request machen 
-            Dim mandatenId As Integer = 1 ' Mandanten ID ist Standartmäßig 1
+            ' Mandanten ID ist Standartmäßig 1
+            Dim mandatenId As Integer = 1
+            ' Für Tests auf Sendung gesetzt, später sollte dieser String konfigurierbar sein
             Dim geschaeftsObjekt = "Sendung"
+            ' Für Tests wird hier die Sendungsnummer verwendet, später hängt der verwendete Index von 'geschaeftsObjekt' ab
             Dim geschaeftsId = SENDUNGNR
-            Dim baseURL As String = "https://mylogitservices.syncreon.com/onwebui/api"
-            Dim url As String = $"{baseURL}/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument"
+            Dim host = "1.2.3.4"
+            Dim url As String = $"http://{host}/onwebui/api/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument"
 
             clsLogger.Add($"Generiertes JSON: {json}", False, "BNSjsonDownload")
             clsLogger.Add($"Creating WebRequest for {url}", False, "BNSjsonDownload")
 
-            Dim req As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
+            Dim req As HttpWebRequest = WebRequest.CreateHttp(url)
 
             req.Method = "POST"
             req.ContentType = "application/json"
@@ -274,13 +279,11 @@ Public Class clsDateiverarbeitung
                     clsLogger.Add($"Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}", False, "BNSjsonDownload")
                 End If
 
-                res.Close()
-
                 Throw New Exception($"Server Error (HTTP {code}: {text})")
             End Using
 
         Catch ex As Exception
-            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "BNSjsonDownload")
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message & " - " & ex.Source, "BNSjsonDownload")
         End Try
     End Sub
     Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
@@ -377,10 +380,11 @@ Public Class clsDateiverarbeitung
         Public Ivaliduntil As DateTime
         Public Bemerkung As String
         Public Primaer As Boolean = False
-        Public Kategorie As List(Of String)
+        Public Kategorie As List(Of BNSDocumentCategory)
+    End Class
 
-        Public Sub New()
-        End Sub
+    Public Class BNSDocumentCategory
+        Public Name As String
     End Class
 
 End Class