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