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

jj 30.11 add BNSjsonDownload

Browse Source
This commit is contained in:
Jonathan Jenne
2017-11-30 17:08:37 +01:00
parent f656df112a
commit ecf7788c00
4 changed files with 82 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
app/ResultHandler_Konfig/clsDateiverarbeitung.vb
View File

@@ -1,5 +1,9 @@
Imports WINDREAMLib
Imports System.IO
Imports System.Net
Imports Newtonsoft.Json
Imports System.Text
Public Class clsDateiverarbeitung
#Region "***** Variablen und Konstanten*****"
@@ -200,13 +204,40 @@ Public Class clsDateiverarbeitung
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor")
End Try
End Function
Public Shared Function BNSjsonDownload(WMFile As WMObject)
Public Shared Function BNSjsonDownload(WMFile As WMObject, userId As String)
Try
'den Wert des Indexes für das aktuelle Dokument auslesen
Dim SENDUNGNR = WMFile.GetVariableValue("SendungNr")
Dim DOKID = WMFile.GetVariableValue("DokumentID")
Dim SENDUNGNR = WMFile.GetVariableValue("Sendungnr")
Dim DOKID = WMFile.GetVariableValue("Dokument-ID")
Dim DOKART = WMFile.GetVariableValue("Dokumentart")
'Add Info to JsonArray
'......
Dim hostname = "91.229.192.183:8100"
Dim link As String = $"http://{hostname}/WMWebApi/windream.web.api/DigitalData/BNSDownload?docId={DOKID}&userId={userId}"
Dim now As DateTime = DateTime.Now
Dim doc As New BNSDocument()
doc.Bemerkung = DOKART
doc.Ivalidfrom = now
doc.Ivaliduntil = now.AddDays(30)
doc.Pfad = link
Dim json = JsonConvert.SerializeObject(doc, Formatting.None)
Dim bytes = Encoding.Default.GetBytes(json)
' HTTP Request machen
' URL Anpassen!
Dim url As String = "http://{Domain}:{Port}/Customer/{Kunden ID}/{Geschäftsobjekt}/{GeschäftsobjektID}/dokument"
Using wc As WebClient = New WebClient()
wc.Headers.Add(HttpRequestHeader.ContentType, "application/json")
Dim response As Byte() = wc.UploadData(url, bytes)
Dim responseString = Encoding.Default.GetString(response)
clsLogger.Add($"Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}", "BNSjsonDownload")
End Using
Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "BNSjsonDownload")
@@ -300,5 +331,17 @@ Public Class clsDateiverarbeitung
End Try
End Function
Public Class BNSDocument
Public Doksourcetype As Integer = 3
Public Pfad As String
Public Ivalidfrom As DateTime
Public Ivaliduntil As DateTime
Public Bemerkung As String
Public Primaer As Boolean = False
Public Sub New()
End Sub
End Class
End Class