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.Ivalidfrom = now
doc.Ivaliduntil = now.AddDays(30) doc.Ivaliduntil = now.AddDays(30)
doc.Pfad = link 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 json As String = JsonConvert.SerializeObject(doc, Formatting.Indented)
Dim bytes As Byte() = Encoding.Default.GetBytes(json) Dim bytes As Byte() = Encoding.Default.GetBytes(json)
' HTTP Request machen ' 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" 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 geschaeftsId = SENDUNGNR
Dim baseURL As String = "https://mylogitservices.syncreon.com/onwebui/api" Dim host = "1.2.3.4"
Dim url As String = $"{baseURL}/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument" Dim url As String = $"http://{host}/onwebui/api/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument"
clsLogger.Add($"Generiertes JSON: {json}", False, "BNSjsonDownload") clsLogger.Add($"Generiertes JSON: {json}", False, "BNSjsonDownload")
clsLogger.Add($"Creating WebRequest for {url}", 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.Method = "POST"
req.ContentType = "application/json" req.ContentType = "application/json"
@ -274,13 +279,11 @@ Public Class clsDateiverarbeitung
clsLogger.Add($"Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}", False, "BNSjsonDownload") clsLogger.Add($"Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}", False, "BNSjsonDownload")
End If End If
res.Close()
Throw New Exception($"Server Error (HTTP {code}: {text})") Throw New Exception($"Server Error (HTTP {code}: {text})")
End Using End Using
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "BNSjsonDownload") clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message & " - " & ex.Source, "BNSjsonDownload")
End Try End Try
End Sub End Sub
Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String) 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 Ivaliduntil As DateTime
Public Bemerkung As String Public Bemerkung As String
Public Primaer As Boolean = False Public Primaer As Boolean = False
Public Kategorie As List(Of String) Public Kategorie As List(Of BNSDocumentCategory)
End Class
Public Sub New() Public Class BNSDocumentCategory
End Sub Public Name As String
End Class End Class
End Class End Class