MS-Json

app/ResultHandler_Konfig/clsDateiverarbeitung.vb

@@ -200,6 +200,19 @@ Public Class clsDateiverarbeitung
             clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor")
         End Try
     End Function
+    Public Shared Function BNSjsonDownload(WMFile As WMObject)
+        Try
+            'den Wert des Indexes für das aktuelle Dokument auslesen
+            Dim SENDUNGNR = WMFile.GetVariableValue("SendungNr")
+            Dim DOKID = WMFile.GetVariableValue("DokumentID")
+            'Add Info to JsonArray
+            '......
+
+        Catch ex As Exception
+            clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "BNSjsonDownload")
+            Return False
+        End Try
+    End Function
     Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
         Try
             Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)