AppStd/ResulHandlerMSSQL
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

jj 06.12

Browse Source
This commit is contained in:
Jonathan Jenne 2017-12-06 16:32:37 +01:00
parent feac055ae7
commit 3c6ef71b55
1 changed files with 15 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
app/ResultHandler_Konfig/clsDateiverarbeitung.vb
View File

@ -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