Controller für Audit Flow

VERAG_REST_SERVER/Controllers/SDLControler/SDLController.vb

@@ -0,0 +1,78 @@
+Imports System.IO
+Imports System.Net
+Imports System.Net.Http
+Imports System.Threading
+Imports System.Threading.Tasks
+Imports System.Web.Http
+Imports System.Web.Http.Description
+Imports Microsoft.Web.Http
+Imports Org.BouncyCastle.Asn1
+Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
+
+Namespace ApiController.Controllers
+
+
+    Public Class SDLController
+        Inherits System.Web.Http.ApiController
+
+        ''' <summary>
+        ''' Upload Files in Base64-Format and attach it to an existring LKW (with avisoId) or an specific consignment (with sendungsId)
+        ''' </summary>
+        ''' 
+        ''' <returns>OK, if file is uploaded or ERROR-Code if something went wrong</returns>
+
+        ''' <response code="200">Returns 200  file is uploaded sucessfully</response>
+        ''' <response code="400">Returns 400 upload failed</response>
+
+        <ApiVersion("1")>
+        <System.Web.Http.Route("api/v{version:apiVersion}/AuditFlow")>
+        <BasicAuthentication>
+        Public Async Function SetzePruefungAufErledigtMitAnhaengen(pruefungsId As Integer, Bemerkung As String, anhaengeBase64 As List(Of String)) As Task(Of HttpResponseMessage)
+            ' Globale Fehlerbehandlung einstellen
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+            VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.LOG
+
+            Dim response As HttpResponseMessage
+
+            Try
+                ' Eingabevalidierung
+                If String.IsNullOrWhiteSpace(Bemerkung) Then
+                    Return Request.CreateErrorResponse(HttpStatusCode.BadRequest, "Der Parameter 'Bemerkung' darf nicht leer sein.")
+                End If
+
+                If anhaengeBase64 Is Nothing OrElse anhaengeBase64.Count = 0 Then
+                    Return Request.CreateErrorResponse(HttpStatusCode.BadRequest, "Das 'anhaengeBase64' darf nicht leer sein.")
+                End If
+
+                If pruefungsId <= 0 Then
+                    Return Request.CreateErrorResponse(HttpStatusCode.BadRequest, "PrüfungsID muss gesetzt werden")
+                End If
+
+
+
+                If VERAG_PROG_ALLGEMEIN.cAuditFlow.SetzePruefungAufErledigtMitAnhaengen(pruefungsId, Bemerkung, anhaengeBase64) Then
+
+                    Return Request.CreateResponse(HttpStatusCode.OK)
+                Else
+
+                    Return Request.CreateResponse(HttpStatusCode.BadRequest)
+
+                End If
+
+
+
+
+
+
+            Catch ex As Exception
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+                response = Request.CreateErrorResponse(HttpStatusCode.InternalServerError, "Ein unerwarteter Fehler ist aufgetreten.")
+            End Try
+
+            Return response
+        End Function
+
+    End Class
+
+End Namespace

VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj

@@ -383,6 +383,7 @@
     <Compile Include="Controllers\CustomsDeclaration\CustomsDeclarationController.vb" />
     <Compile Include="Controllers\NCTS\NCTSController.vb" />
     <Compile Include="Controllers\NEWTESTController\NEWTESTController.vb" />
+    <Compile Include="Controllers\SDLControler\SDLController.vb" />
     <Compile Include="Controllers\TestController\TESTController.vb" />
     <Compile Include="cREST_Options.vb" />
     <Compile Include="Global.asax.vb">