78 lines
2.8 KiB
VB.net
78 lines
2.8 KiB
VB.net
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 |