REST
This commit is contained in:
@@ -3,12 +3,8 @@ Imports System.Net.Http
|
||||
Imports System.Security.Principal
|
||||
Imports System.Threading
|
||||
Imports System.Web.Http.Controllers
|
||||
Imports System.Web.Http.Description
|
||||
Imports System.Web.Http.Filters
|
||||
Imports Microsoft.AspNetCore.Authorization
|
||||
Imports Swashbuckle.Swagger
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
|
||||
|
||||
|
||||
@@ -25,6 +21,7 @@ Public Class BasicAuthenticationAttribute
|
||||
Dim usernamePasswordArray = decodedAuthenticationToken.Split(":"c)
|
||||
Dim userName = usernamePasswordArray(0)
|
||||
Dim password = usernamePasswordArray(1)
|
||||
'Dim hashedPW = BCrypt.Net.BCrypt.HashPassword(password)
|
||||
|
||||
|
||||
|
||||
@@ -51,9 +48,9 @@ Public Class BasicAuthenticationAttribute
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim authenticated As Boolean = False
|
||||
|
||||
Dim Response = SQL.DLookup("username", "tblAuthentication", "username='" & user & "' and password='" & password & "'", "FMZOLL", "")
|
||||
If Response <> "" Then
|
||||
authenticated = True
|
||||
Dim hashedPassword = SQL.DLookup("hashedPassword", "tblRESTAuthentication", "username='" & user & "' AND type = 'REST'", "ADMIN", "")
|
||||
If hashedPassword <> "" Then
|
||||
authenticated = BCrypt.Net.BCrypt.Verify(password, hashedPassword)
|
||||
End If
|
||||
|
||||
Return authenticated
|
||||
|
||||
@@ -26,24 +26,25 @@ Public Class SwaggerConfig
|
||||
Dim commentsFileName = Assembly.GetExecutingAssembly().GetName().Name + ".XML"
|
||||
Dim commentsFile = Path.Combine(baseDirectory, commentsFileName)
|
||||
|
||||
GlobalConfiguration.Configuration.EnableSwagger(Function(c)
|
||||
GlobalConfiguration.Configuration.EnableSwagger(Function(c) As SwaggerDocsConfig
|
||||
|
||||
|
||||
c.PrettyPrint()
|
||||
c.MultipleApiVersions(Function(apiDesc, targetApiVersion) ResolveVersionSupportByRouteConstraint(apiDesc, targetApiVersion), Function(vc)
|
||||
c.MultipleApiVersions(Function(apiDesc, targetApiVersion) ResolveVersionSupportByRouteConstraint(apiDesc, targetApiVersion), Function(vc) As VersionInfoBuilder
|
||||
|
||||
vc.Version("v1", descr & " V1").Description("A sample API for testing ").TermsOfService("Some Terms").Contact(Function(cont)
|
||||
cont.Name("VERAG AG")
|
||||
cont.Url("http://test.at")
|
||||
cont.Email("Mail.test")
|
||||
End Function).License(Function(lic)
|
||||
lic.Name("Lizenz")
|
||||
lic.Url("http://test.at")
|
||||
End Function)
|
||||
vc.Version("1", descr & " V1").Description("A sample API for testing ").TermsOfService("Some Terms").Contact(Function(cont) As ContactBuilder
|
||||
cont.Name("VERAG AG")
|
||||
cont.Url("http://test.at")
|
||||
cont.Email("Mail.test")
|
||||
End Function).License(Function(lic)
|
||||
lic.Name("Lizenz")
|
||||
lic.Url("http://test.at")
|
||||
End Function)
|
||||
|
||||
|
||||
vc.Version("v2", descr & " V2")
|
||||
vc.Version("v3", descr & " V3")
|
||||
vc.Version("2", descr & " V2")
|
||||
vc.Version("3", descr & " V3")
|
||||
Return vc
|
||||
End Function)
|
||||
|
||||
|
||||
@@ -59,8 +60,8 @@ Public Class SwaggerConfig
|
||||
'c.OperationFilter(Of BasicAuthenticationAttribute)()
|
||||
|
||||
|
||||
|
||||
End Function).EnableSwaggerUi(Function(c)
|
||||
Return c
|
||||
End Function).EnableSwaggerUi(Function(c) As SwaggerUiConfig
|
||||
c.DocumentTitle(descr)
|
||||
|
||||
c.EnableDiscoveryUrlSelector()
|
||||
@@ -68,13 +69,13 @@ Public Class SwaggerConfig
|
||||
|
||||
c.CustomAsset("index", thisAssembly, "VERAG_REST_SERVER.my_index.html")
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Return c
|
||||
End Function)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -85,15 +86,27 @@ Public Class SwaggerConfig
|
||||
End Function
|
||||
|
||||
Public Shared Sub Register(ByVal config As HttpConfiguration)
|
||||
|
||||
RouteTable.Routes.MapOwinPath("swagger", Function(app) As Owin.IAppBuilder
|
||||
Return app.UseSwaggerUi3(GetType(WebApiApplication).Assembly, Function(settings) As SwaggerUi3Settings(Of NSwag.Generation.WebApi.WebApiOpenApiDocumentGeneratorSettings)
|
||||
settings.MiddlewareBasePath = "/swagger"
|
||||
settings.GeneratorSettings.DefaultUrlTemplate = "api/{controller}/{id}"
|
||||
|
||||
|
||||
|
||||
Return settings
|
||||
End Function)
|
||||
app.UseSwaggerUi(GetType(WebApiApplication).Assembly, Function(settings) As SwaggerUiSettings(Of NSwag.Generation.WebApi.WebApiOpenApiDocumentGeneratorSettings)
|
||||
settings.MiddlewareBasePath = "/swagger"
|
||||
settings.GeneratorSettings.DefaultUrlTemplate = "api/{controller}/{id}"
|
||||
settings.DocumentTitle = descr
|
||||
settings.DocExpansion = "list"
|
||||
settings.DefaultModelsExpandDepth = -1
|
||||
Return settings
|
||||
End Function)
|
||||
|
||||
|
||||
|
||||
Return app
|
||||
End Function)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -73,14 +73,14 @@ Public Module WebApiConfig
|
||||
|
||||
|
||||
|
||||
config.AddApiVersioning(Function(options)
|
||||
options.ReportApiVersions = True
|
||||
options.AssumeDefaultVersionWhenUnspecified = True
|
||||
options.ApiVersionReader = ApiVersionReader.Combine(New UrlSegmentApiVersionReader(),
|
||||
New HeaderApiVersionReader("x-api-version"),
|
||||
New MediaTypeApiVersionReader("x-api-version"))
|
||||
'options.DefaultApiVersion = New ApiVersion("1")
|
||||
End Function)
|
||||
'config.AddApiVersioning(Function(options)
|
||||
' options.ReportApiVersions = True
|
||||
' options.AssumeDefaultVersionWhenUnspecified = True
|
||||
' options.ApiVersionReader = ApiVersionReader.Combine(New UrlSegmentApiVersionReader(),
|
||||
' New HeaderApiVersionReader("x-api-version"),
|
||||
' New MediaTypeApiVersionReader("x-api-version"))
|
||||
' 'options.DefaultApiVersion = New ApiVersion("1")
|
||||
' End Function)
|
||||
|
||||
|
||||
config.AddVersionedApiExplorer(Function(c)
|
||||
@@ -98,15 +98,50 @@ Public Module WebApiConfig
|
||||
|
||||
Public Sub Register(ByVal config As HttpConfiguration)
|
||||
|
||||
SwaggerConfig.Register(config)
|
||||
|
||||
|
||||
Dim constraintsResolver = New DefaultInlineConstraintResolver()
|
||||
constraintsResolver.ConstraintMap.Add("apiVersion", GetType(ApiVersionRouteConstraint))
|
||||
|
||||
|
||||
config.MapHttpAttributeRoutes(constraintsResolver)
|
||||
'config.Filters.Add(New AuthorizeAttribute) 'wenn alle API Aufrufe autorisiert werden müssen/ansonsten können einzelene Controlleraufrufe auth. werden!
|
||||
config.Filters.Add(New BasicAuthenticationAttribute())
|
||||
|
||||
'config.AddApiVersioning(Sub(options As Action(Of ApiVersioningOptions)
|
||||
' '// reporting api versions will return the headers "api-supported-versions" and "api-deprecated-versions"
|
||||
|
||||
' options.ReportApiVersions = True
|
||||
' options.AssumeDefaultVersionWhenUnspecified = True
|
||||
' options.ApiVersionReader = ApiVersionReader.Combine(New UrlSegmentApiVersionReader(),
|
||||
' New HeaderApiVersionReader("x-api-version"),
|
||||
' New MediaTypeApiVersionReader("x-api-version"))
|
||||
|
||||
|
||||
' End Sub)
|
||||
|
||||
|
||||
config.AddApiVersioning(Sub(options As Microsoft.Web.Http.Versioning.ApiVersioningOptions)
|
||||
options.AssumeDefaultVersionWhenUnspecified = True
|
||||
options.ReportApiVersions = True
|
||||
|
||||
options.DefaultApiVersion = New Microsoft.Web.Http.ApiVersion(1, 0)
|
||||
options.DefaultApiVersion = New Microsoft.Web.Http.ApiVersion(2, 0)
|
||||
|
||||
options.ApiVersionSelector = New Microsoft.Web.Http.Versioning.LowestImplementedApiVersionSelector(options)
|
||||
End Sub)
|
||||
|
||||
config.AddVersionedApiExplorer(Function(c)
|
||||
c.GroupNameFormat = "'v'VVV"
|
||||
c.SubstituteApiVersionInUrl = True
|
||||
End Function)
|
||||
|
||||
|
||||
If False Then 'wenn alle API Aufrufe autorisiert werden müssen/ansonsten können einzelene Controlleraufrufe auth. werden!
|
||||
config.Filters.Add(New AuthorizeAttribute)
|
||||
Else
|
||||
config.Filters.Add(New BasicAuthenticationAttribute())
|
||||
End If
|
||||
|
||||
|
||||
SwaggerConfig.Register(config)
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
66
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController CBAM.vb
Normal file
66
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController CBAM.vb
Normal file
@@ -0,0 +1,66 @@
|
||||
Imports Microsoft.Web.Http
|
||||
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
|
||||
Public Class ATEZControllerCBAM
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
''' <summary>
|
||||
''' Delivers the CBAM-Data
|
||||
''' Currently only data for DE and Q3 2024 available.
|
||||
''' </summary>
|
||||
'''
|
||||
''' <returns>Base64 String with CBAM-Data</returns>
|
||||
'''
|
||||
''' <response code="200">Request OK and returns CBAM Data as Base64 String</response>
|
||||
''' <response code="400">Returns Parameter are not valid</response>
|
||||
'''
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/cbam")>
|
||||
<BasicAuthentication>
|
||||
Public Function getCBAM(ByVal Firma As String, country As String, Year As Integer, Quarter As Integer, DirectRepresenation As Boolean) As String
|
||||
Dim Teilnehmner = ""
|
||||
Dim von As Date
|
||||
Dim bis As Date
|
||||
Select Case Firma
|
||||
Case "VERAG" : Teilnehmner = "SUB"
|
||||
Case "IMEX" : Teilnehmner = "IME"
|
||||
Case "UNISPED" : Teilnehmner = "UNAT"
|
||||
End Select
|
||||
|
||||
Select Case Quarter
|
||||
Case 1 : von = New Date("01.01." & Year) : bis = New Date("30.03" & Year)
|
||||
Case 2 : von = New Date("01.04." & Year) : bis = New Date("30.06" & Year)
|
||||
Case 3 : von = New Date("01.07." & Year) : bis = New Date("30.09" & Year)
|
||||
Case 4 : von = New Date("01.10." & Year) : bis = New Date("31.12" & Year)
|
||||
End Select
|
||||
|
||||
'country aktuell nur DE -> Weil aktuell nur DAKOSY-Datensätzr
|
||||
'Year aktuell nur 2024 Datensätze
|
||||
'Quartal aktuell nur q3 Datensätze
|
||||
|
||||
Dim where = "where 1 = 1 "
|
||||
If Teilnehmner <> "" Then where &= "and Teilnehmer =" & Teilnehmner
|
||||
where &= "and [Vertreter_des_Anmelders] = " & IIf(DirectRepresenation, "1", "2")
|
||||
where &= "and [Überlassungsdatum] is between" & von & " and " & bis
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim sqlString = "select * from tbl_DY_Zollmeldungen_Import " & where
|
||||
|
||||
|
||||
|
||||
Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt))
|
||||
Return Convert.ToBase64String(Bytes)
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
421
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController.vb
Normal file
421
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController.vb
Normal file
@@ -0,0 +1,421 @@
|
||||
Imports Microsoft.Web.Http
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
|
||||
Imports VERAGMonitoring
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
|
||||
Public Class ATEZController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
''' <summary>
|
||||
''' Delivers the sum of the guarantee for the requested GRN
|
||||
''' </summary>
|
||||
'''
|
||||
''' <returns>sum of the guarantee</returns>
|
||||
'''
|
||||
''' <response code="200">Request OK and returns the sum sum of the guarantee</response>
|
||||
''' <response code="400">Returns Failure if GRN is not valid</response>
|
||||
'''
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/sumOfGRN")>
|
||||
<BasicAuthentication>
|
||||
Public Function getSumOfGRN(ByVal GRN As String) As String
|
||||
|
||||
Dim BRG As New cBrgDb 'Monitoring
|
||||
Dim DE_DIFFERENZ As Double = 1000000 ' PUFFER FÜR UK!!!
|
||||
|
||||
If GRN = "" Then Return -1
|
||||
|
||||
'ZOLARIS AT TAG
|
||||
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", GRN, " AND DatumBestimmungErreicht IS NULL ")
|
||||
|
||||
'TELOTEC AT TAG
|
||||
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", GRN)
|
||||
|
||||
'DE TAG
|
||||
Dim tag_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", GRN)
|
||||
'NCTS_TR AT TAG
|
||||
Dim DetTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", GRN)
|
||||
|
||||
Dim saldo = AtTag_zolaris + AtTag_telotec + tag_de2 + DetTag_nctsTR
|
||||
|
||||
If saldo = 0 Then Return saldo
|
||||
|
||||
|
||||
Return saldo + DE_DIFFERENZ
|
||||
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Delivers the CBAM-Data
|
||||
''' Currently only data for DE and Q3 2024 available.
|
||||
''' </summary>
|
||||
''' <param name="company">VERAG or IMEX or UNISPED as parameter</param>
|
||||
''' <param name="country">AT or DE as parameter </param>
|
||||
''' <param name="year">Year (2024) as parameter</param>
|
||||
''' <param name="quarter">Quarter (1, 2, ,3, 4 ) as parameter</param>
|
||||
''' <param name="directRepresenation">Direct or indirect representation</param>
|
||||
''' <returns>Base64 String with CBAM-Data</returns>
|
||||
'''
|
||||
''' <response code="200">Request OK and returns CBAM Data as Base64 String</response>
|
||||
''' <response code="400">Returns Parameter are not valid</response>
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/cbam")>
|
||||
<BasicAuthentication>
|
||||
Public Function getCBAM(ByVal company As String, country As String, year As Integer, quarter As Integer, directRepresenation As Boolean) As String
|
||||
Dim Teilnehmner = ""
|
||||
Dim von As DateTime
|
||||
Dim bis As DateTime
|
||||
Select Case company
|
||||
Case "VERAG" : Teilnehmner = "SUB"
|
||||
Case "IMEX" : Teilnehmner = "IME"
|
||||
Case "UNISPED" : Teilnehmner = "UNAT"
|
||||
Case Else
|
||||
Return ""
|
||||
End Select
|
||||
|
||||
Select Case quarter
|
||||
Case 1 : von = New DateTime(year, 1, 1) : bis = New DateTime(year, 3, 30)
|
||||
Case 2 : von = New DateTime(year, 4, 1) : bis = New DateTime(year, 6, 30)
|
||||
Case 3 : von = New DateTime(year, 7, 1) : bis = New DateTime(year, 9, 30)
|
||||
Case 4 : von = New DateTime(year, 10, 1) : bis = New DateTime(year, 12, 30)
|
||||
End Select
|
||||
|
||||
'New DateTime(year, month + 1, 1)
|
||||
|
||||
'country aktuell nur DE -> Weil aktuell nur DAKOSY-Datensätze
|
||||
'Year aktuell nur 2024 Datensätze
|
||||
'Quartal aktuell nur q3 Datensätze
|
||||
|
||||
Dim where = "where 1 = 1 "
|
||||
If Teilnehmner <> "" Then where &= "and Teilnehmer ='" & Teilnehmner & "'"
|
||||
where &= " and [Vertreter_des_Anmelders] = " & IIf(directRepresenation, "1", "2")
|
||||
where &= " and [Überlassungsdatum] between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'"
|
||||
|
||||
'Filter auf CBAM-Pflichtige Warennummern!
|
||||
where &= " WHERE (
|
||||
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Warentarifnummer,4) between 7301 and 7311
|
||||
OR left(Warentarifnummer,4) between 7205 and 7229
|
||||
OR left(Warentarifnummer,4) between 7603 and 7614
|
||||
OR Warentarifnummer like '25070080%'
|
||||
OR Warentarifnummer like '283421%'
|
||||
OR Warentarifnummer like '260112%'
|
||||
OR Warentarifnummer like '720211%'
|
||||
OR Warentarifnummer like '720219%'
|
||||
OR Warentarifnummer like '720241%'
|
||||
OR Warentarifnummer like '720249%'
|
||||
OR Warentarifnummer like '720260%'
|
||||
OR Warentarifnummer like '280410%'
|
||||
) and Warentarifnummer not like '310560%' "
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim sqlString = "select * from tbl_DY_Zollmeldungen_Import " & where
|
||||
|
||||
Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt))
|
||||
Return Convert.ToBase64String(Bytes)
|
||||
Else
|
||||
Return ""
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Delivers the Adresse Data for a given EORI-Nr
|
||||
''' If the EORI cannot be found, an empty String will be returned.
|
||||
''' </summary>
|
||||
''' <param name="eoriNr">EORI-No. as parameter</param>
|
||||
''' <param name="eoriNr_NL">EORI-No. for netherland</param>
|
||||
''' <param name="company">VERAG or IMEX or UNISPED as parameter</param>
|
||||
''' <returns>Comma seperated string with adress-data of the given EORI-NR or EORI-NL </returns>
|
||||
'''
|
||||
''' <response code="200">Request OK and returns the Adress</response>
|
||||
''' <response code="400">Returns Parameter are not valid</response>
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/eorino")>
|
||||
<BasicAuthentication>
|
||||
Public Function getCBAMEORI(company As String, Optional eoriNr As String = "", Optional eoriNr_NL As String = "") As String
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim firma As String
|
||||
Dim regexAufbauEORI As Boolean = False
|
||||
Dim regexAufbauEORINL As Boolean = False
|
||||
|
||||
|
||||
If eoriNr <> "" Then regexAufbauEORI = Regex.IsMatch(eoriNr, "^[A-Z]{2}[0-9A-Z]{7,15}$")
|
||||
If eoriNr_NL <> "" Then regexAufbauEORINL = Regex.IsMatch(eoriNr_NL, "^[NL]{2}[0-9A-Z]{9}$")
|
||||
|
||||
If eoriNr = "" And eoriNr_NL = "" Then
|
||||
Return "NO EORI NR SUBMITTED"
|
||||
End If
|
||||
|
||||
If eoriNr <> "" And Not regexAufbauEORI Then
|
||||
Return "WRONG EORI-NR"
|
||||
End If
|
||||
|
||||
If eoriNr_NL <> "" And Not regexAufbauEORINL Then
|
||||
Return "WRONG EORI-NL"
|
||||
End If
|
||||
|
||||
|
||||
Select Case company
|
||||
Case "VERAG" : firma = "VERAG"
|
||||
Case "IMEX" : firma = "IMEX"
|
||||
Case "UNISPED" : firma = "UNISPED"
|
||||
Case Else
|
||||
Return "NO COMPANY/WRONG COMPANY SUBMITTED"
|
||||
End Select
|
||||
|
||||
|
||||
Dim kdNrTmp = sql.getFMZOLLKdNrFromEORI(eoriNr, eoriNr_NL, firma)
|
||||
If IsNumeric(kdNrTmp) Then
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
|
||||
Dim returnStringAdresse = ""
|
||||
|
||||
|
||||
If AD IsNot Nothing Then
|
||||
returnStringAdresse &= AD.Name_1 & ";"
|
||||
returnStringAdresse &= AD.Name_2 & ";"
|
||||
returnStringAdresse &= AD.Straße & ";"
|
||||
returnStringAdresse &= AD.PLZ & ";"
|
||||
returnStringAdresse &= AD.Ort & ";"
|
||||
returnStringAdresse &= VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(AD.LandKz) & ";"
|
||||
End If
|
||||
|
||||
Return returnStringAdresse.ToString
|
||||
Else
|
||||
Return "NO DATA"
|
||||
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Delivers the Adresse Data for a given EORI-Nr
|
||||
''' If the EORI cannot be found, an empty String will be returned.
|
||||
''' </summary>
|
||||
''' <param name="eoriNr">EORI-No. as parameter</param>
|
||||
''' <param name="eoriNr_NL">EORI-No. for netherland</param>
|
||||
''' <param name="company">VERAG or IMEX or UNISPED as parameter</param>
|
||||
''' <returns>Comma seperated string with adress-data of the given EORI-NR or EORI-NL </returns>
|
||||
'''
|
||||
''' <response code="200">Request OK and returns the Adress</response>
|
||||
''' <response code="400">Returns Parameter are not valid</response>
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/cbamnew")>
|
||||
<BasicAuthentication>
|
||||
Public Function getCBAMNEW() As String
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim sqlString = "SELECT [Id]
|
||||
,[Teilnehmer]
|
||||
,[Anmeldeart_A]
|
||||
,[Verfahren]
|
||||
,[Bezugsnummer_LRN]
|
||||
,[Anlagedatum]
|
||||
,[Zeit]
|
||||
,[Zeitpunkt_der_letzten_CUSTAX]
|
||||
,[Überlassungsdatum]
|
||||
,[Annahmedatum]
|
||||
,[Registriernummer_MRN]
|
||||
,[Weitere_Reg_Nr]
|
||||
,[EDIFNR]
|
||||
,[Versendungsland]
|
||||
,[Art_der_Vertretung]
|
||||
,[Vertreter_des_Anmelders]
|
||||
,[Vertreter_AE_EORI]
|
||||
,[AE_Name]
|
||||
,[Versender_CZ_EORI]
|
||||
,Abs_Adr.[Name 1] as Versender_Name
|
||||
,Abs_Adr.[Name 2] as Versender_Name2
|
||||
,Abs_Adr.[LandKz] as Versender_Country
|
||||
,Abs_Adr.[Strasse] as Versender_Street
|
||||
,'' as Versender_Street_additional_line
|
||||
,Abs_Adr.[PLZ] as Versender_Postcode
|
||||
,Abs_Adr.[Ort] as Versender_City
|
||||
,'' as VersenderPOBox
|
||||
,Abs_Adr.[Ansprechpartner] as Versender_ContactName
|
||||
,Abs_Adr.[Telefon] as Versender_Contact_Phone_number
|
||||
,Abs_Adr.[E-Mail] as Versender_Contact_Email
|
||||
,[CZ_Code]
|
||||
,[CZ_Name]
|
||||
,[CZ_Ländercode]
|
||||
,[Empfänger_CN_EORI]
|
||||
,Emp_Adr.[Name 1] as Empfänger_Name
|
||||
,Emp_Adr.[Name 2] as Empfänger_Name2
|
||||
,Emp_Adr.[LandKz] as Empfänger_Country
|
||||
,Emp_Adr.[Strasse] as Empfänger_Street
|
||||
,'' as Empfänger_Street_additional_line
|
||||
,Emp_Adr.[PLZ] as Empfänger_Postcode
|
||||
,Emp_Adr.[Ort] as Empfänger_City
|
||||
,'' as EmpfängerPOBox
|
||||
,Emp_Adr.[Ansprechpartner] as Empfänger_ContactName
|
||||
,Emp_Adr.[Telefon] as Empfänger_Contact_Phone_number
|
||||
,Emp_Adr.[E-Mail] as Empfänger_Contact_Email
|
||||
,[CN_Code]
|
||||
,[CN_Name]
|
||||
,[CN_Ländercode]
|
||||
,[Anmelder_DT_EORI]
|
||||
,[DT_Code]
|
||||
,[DT_Name]
|
||||
,[DT_Ländercode]
|
||||
,[UstID_DT]
|
||||
,[Käufer_BY_Name]
|
||||
,[BY_EORI]
|
||||
,[Verkäufer_SL_Name]
|
||||
,[SL_EORI]
|
||||
,[ZollRechtlicherStatus]
|
||||
,[Bewilligungsnummer]
|
||||
,[Gesamtgewicht]
|
||||
,[Liefercode]
|
||||
,[Lieferort]
|
||||
,[Lieferkey]
|
||||
,[Geschäftsart]
|
||||
,[Rechnungsbetrag]
|
||||
,[Rechnungswährung]
|
||||
,[Rechnungskurs]
|
||||
,[Zollstelle]
|
||||
,[Aufschubart]
|
||||
,[HZAZoll]
|
||||
,[KontoZoll]
|
||||
,[TextZoll]
|
||||
,[EORIZoll]
|
||||
,[KennzeichenEigenZoll]
|
||||
,[ArtEust]
|
||||
,[HZAEust]
|
||||
,[KontoEusT]
|
||||
,[TextEust]
|
||||
,[EORIEust]
|
||||
,[KennzeichenEigenEust]
|
||||
,[Container]
|
||||
,[Unterlagenzeile]
|
||||
,[Unterlagenbereich]
|
||||
,[Unterlagenart]
|
||||
,[Unterlagennummer]
|
||||
,[Unterlagendatum]
|
||||
,[PositionNo]
|
||||
,[Positionen]
|
||||
,[Vorausstl_Zollabgabe]
|
||||
,[Vorausstl_Zollsatzabgabe]
|
||||
,[Vorausstl_Eustabgabe]
|
||||
,[Vorausstl_Eustsatzabgabe]
|
||||
,[Zollwert]
|
||||
,[AbgabeZoll]
|
||||
,[AbgabeZollsatz]
|
||||
,[Eustwert]
|
||||
,[AbgabeEust]
|
||||
,[AbgabeEustsatz]
|
||||
,[AbgabeAntidumping]
|
||||
,[AbgabeAntidumpingSatz]
|
||||
,[Status_Steuerbescheid]
|
||||
,[ArtikelCode]
|
||||
,[Warentarifnummer]
|
||||
,[Warenzusatz1]
|
||||
,[Warenzusatz2]
|
||||
,[Warenbezeichnung]
|
||||
,[Verfahren2]
|
||||
,[EU_Code]
|
||||
,[Artikelpreis]
|
||||
,[Statistischerwert]
|
||||
,[Eust_manuell]
|
||||
,[Ursprung]
|
||||
,[Präferenzursprungsland]
|
||||
,[Beguenstigung]
|
||||
,[Rohmasse]
|
||||
,[Rohmasseeinheit]
|
||||
,[Eigenmasse]
|
||||
,[Eigenmasseeinheit]
|
||||
,[Positionszusatz]
|
||||
,[Aussenhandelstatistische_Menge]
|
||||
,[Maßeinheit]
|
||||
,[AnzahlPackstücke]
|
||||
,[Packstückart]
|
||||
,[Packstückbezeichnung]
|
||||
,[Zusätzliche_angaben]
|
||||
,[SonderAbgabeZoll]
|
||||
,[SonderAbgabeEust]
|
||||
,[AbgabeZusatzzölle]
|
||||
,[SonderAbgabeAntidumping]
|
||||
,[Verbrauchssteuern]
|
||||
,[Positionsunterlagenzeile]
|
||||
,[Positionsunterlagenbereich]
|
||||
,[Positionsunterlagenart]
|
||||
,[Positionsunterlagennummer]
|
||||
,[Positionsunterlagendatum]
|
||||
,[DV1Rechnungsbetrag]
|
||||
,[DV1Währung]
|
||||
,[DV1UmgerechnerterRechnungsbetrag]
|
||||
,[DV1UmgerechneteWährung]
|
||||
,[DV1Versicherung]
|
||||
,[DV1Versicherungswährung]
|
||||
,[DV1Luftfrachtkosten]
|
||||
,[DV1Luftfrachtwährung]
|
||||
,[DV1Frachtkosten]
|
||||
,[DV1Frachtwährung]
|
||||
,[DV1Materialien]
|
||||
,[DV1Materialwährung]
|
||||
,[DV1Provisionen]
|
||||
,[DV1Provisionwährung]
|
||||
,[Abflughafen_Code]
|
||||
,[Abflughafen_Text]
|
||||
,[Vorpapierart]
|
||||
,[Vorpapiere_Regnummer]
|
||||
,[BEAnteil_SumA]
|
||||
,[BEAnteil_ZL]
|
||||
,[BEAnteil_AV]
|
||||
,[UST_ID_Einführer]
|
||||
,[UST_ID_Erwerber]
|
||||
,[UST_ID_Fiskalvertreter]
|
||||
,[Shipmentnummer]
|
||||
,[Importstatus]
|
||||
FROM [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import]
|
||||
|
||||
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] as Empfaenger on Empfaenger.[EORITIN] = [Empfänger_CN_EORI] and Empfaenger.[FilialenNr] = LEFT(Bezugsnummer_LRN,4)
|
||||
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] as Emp_Adr on Emp_Adr.AdressenNr = Empfaenger.KundenNr
|
||||
|
||||
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] as Absender on Absender.[EORITIN] = [Versender_CZ_EORI] and Absender.[FilialenNr] = LEFT(Bezugsnummer_LRN,4)
|
||||
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] as Abs_Adr on Abs_Adr.AdressenNr = Absender.KundenNr
|
||||
|
||||
WHERE (
|
||||
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
|
||||
OR left(Warentarifnummer,4) between 7301 and 7311
|
||||
OR left(Warentarifnummer,4) between 7205 and 7229
|
||||
OR left(Warentarifnummer,4) between 7603 and 7614
|
||||
OR Warentarifnummer like '25070080%'
|
||||
OR Warentarifnummer like '283421%'
|
||||
OR Warentarifnummer like '260112%'
|
||||
OR Warentarifnummer like '720211%'
|
||||
OR Warentarifnummer like '720219%'
|
||||
OR Warentarifnummer like '720241%'
|
||||
OR Warentarifnummer like '720249%'
|
||||
OR Warentarifnummer like '720260%'
|
||||
OR Warentarifnummer like '280410%'
|
||||
) and Warentarifnummer not like '310560%'"
|
||||
|
||||
Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
|
||||
If dt.Rows.Count > 0 Then
|
||||
|
||||
Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt))
|
||||
Return Convert.ToBase64String(Bytes)
|
||||
Else
|
||||
Return ""
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
@@ -1,214 +1,375 @@
|
||||
|
||||
Imports System.Web.Http
|
||||
Imports System.IO
|
||||
Imports System.Web.Http.Description
|
||||
Imports Microsoft.Web.Http
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/AVISO")>
|
||||
<BasicAuthentication>
|
||||
|
||||
Public Class AVISOController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Gets the Hello World Response
|
||||
''' Upload Files in Base64-Format and attach it to an existring LKW (with avisoId) or an specific consignment (with sendungsId)
|
||||
''' </summary>
|
||||
''' <returns>A SharePriceResponse which contains the price of the share</returns>
|
||||
''' <response code="200">Returns 200 And Hallo World</response>
|
||||
''' <response code="400">Returns 400 if the query Is invalid</response>
|
||||
Public Function GetValue() As String
|
||||
Return "Hello world!"
|
||||
'''
|
||||
''' <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}/uploadAvisoAttachment")>
|
||||
<BasicAuthentication>
|
||||
Public Function uploadAvisoAttachment(anhangsart As String, arrayOfFiles() As String, Optional avisoId As Integer = -1, Optional sendungsId As Integer = -1) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Try
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
'Dim bodyText
|
||||
'Dim json
|
||||
|
||||
'If HttpContext.Current.Request.GetBufferedInputStream IsNot Nothing Then
|
||||
' Dim bodyStream As Stream = HttpContext.Current.Request.GetBufferedInputStream
|
||||
' Dim reader = New StreamReader(bodyStream)
|
||||
' If bodyStream.CanRead Then
|
||||
' bodyText = reader.ReadToEnd
|
||||
|
||||
' json = JsonConvert.DeserializeObject(bodyText)
|
||||
|
||||
' Else
|
||||
' uploadAvisoAttachment = "STREAMREADER_ERR"
|
||||
' Return uploadAvisoAttachment
|
||||
' End If
|
||||
'Else
|
||||
|
||||
|
||||
' uploadAvisoAttachment = "UPLOAD_ERR"
|
||||
' Return uploadAvisoAttachment
|
||||
'End If
|
||||
|
||||
uploadAvisoAttachment = "ERR"
|
||||
|
||||
If arrayOfFiles Is Nothing OrElse arrayOfFiles.Length < 0 Then
|
||||
|
||||
uploadAvisoAttachment = "FILESARRAY_EMPTY_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If anhangsart <> "" Then ' AndAlso listOfImages IsNot Nothing AndAlso listOfImages.Count > 0
|
||||
|
||||
|
||||
If sendungsId > 0 Then
|
||||
|
||||
Dim SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(sendungsId)
|
||||
If SENDUNG Is Nothing Then
|
||||
uploadAvisoAttachment = "NO_SENDUNG_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
|
||||
Else
|
||||
|
||||
For Each image In arrayOfFiles
|
||||
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
|
||||
|
||||
Try
|
||||
Convert.FromBase64String(filetemp)
|
||||
Catch ex As Exception
|
||||
uploadAvisoAttachment = "BASE64_FORMAT_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End Try
|
||||
|
||||
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
|
||||
|
||||
'If fileextension.ToLower = "unknown" Then
|
||||
' uploadAvisoAttachment = "UNKNOWN_ATTACHMENT_EXTENSION_ERR"
|
||||
' Return uploadAvisoAttachment
|
||||
'End If
|
||||
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", SENDUNG.tblSnd_AvisoID, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
|
||||
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, "." & "jpg"), False, False)
|
||||
|
||||
If DS.da_id <= 0 Then
|
||||
uploadAvisoAttachment = "UPLOAD_DS_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End If
|
||||
Dim fileName = DS.da_name
|
||||
Dim destPath = DS.GET_TOP1_PATH
|
||||
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
|
||||
Dim fi As New FileInfo(destPath)
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(SENDUNG.tblSnd_AvisoID, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
|
||||
If Not ANH.SAVE Then
|
||||
uploadAvisoAttachment = "SAVE_ANH_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
ElseIf avisoId > 0 Then
|
||||
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(avisoId)
|
||||
If AVISO Is Nothing Then
|
||||
uploadAvisoAttachment = "NO_AVISO_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
Else
|
||||
For Each image In arrayOfFiles
|
||||
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
|
||||
Try
|
||||
Convert.FromBase64String(filetemp)
|
||||
Catch ex As Exception
|
||||
uploadAvisoAttachment = "BASE64_FORMAT_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End Try
|
||||
|
||||
|
||||
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
|
||||
|
||||
'If fileextension.ToLower = "unknown" Then
|
||||
' uploadAvisoAttachment = "UNKNOWN_ATTACHMENT_EXTENSION_ERR"
|
||||
' Return uploadAvisoAttachment
|
||||
'End If
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", avisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
|
||||
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, "." & "jpg"), False, False)
|
||||
|
||||
If DS.da_id <= 0 Then
|
||||
uploadAvisoAttachment = "UPLOAD_DS_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End If
|
||||
Dim fileName = DS.da_name
|
||||
Dim destPath = DS.GET_TOP1_PATH
|
||||
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
|
||||
Dim fi As New FileInfo(destPath)
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(avisoId, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
|
||||
If Not ANH.SAVE Then
|
||||
uploadAvisoAttachment = "SAVE_ANH_ERR"
|
||||
Return uploadAvisoAttachment
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Return uploadAvisoAttachment
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return "OK"
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Return uploadAvisoAttachment
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Return uploadAvisoAttachment
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Set the Test
|
||||
''' </summary>
|
||||
''' <param name="Traviso">TRAviso</param>
|
||||
''' <returns>A SharePriceResponse which contains the price of the share</returns>
|
||||
''' <response code="200">Returns 200 and the TRAviso-JSON-Object</response>
|
||||
''' <response code="400">Returns 400 if the query Is invalid</response>
|
||||
''' <response code="401">Returns 401 if your are not authorized</response>
|
||||
Public Function PostValue(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
|
||||
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/uploadAvisoAttString")>
|
||||
<BasicAuthentication>
|
||||
Public Function uploadAvisoAttString(anhangsart As String, arrayOfFiles As String, Optional avisoId As Integer = -1, Optional sendungsId As Integer = -1) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Try
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
'Dim bodyText
|
||||
'Dim json
|
||||
|
||||
'If HttpContext.Current.Request.GetBufferedInputStream IsNot Nothing Then
|
||||
' Dim bodyStream As Stream = HttpContext.Current.Request.GetBufferedInputStream
|
||||
' Dim reader = New StreamReader(bodyStream)
|
||||
' If bodyStream.CanRead Then
|
||||
' bodyText = reader.ReadToEnd
|
||||
|
||||
' json = JsonConvert.DeserializeObject(bodyText)
|
||||
|
||||
' Else
|
||||
' uploadAvisoAttachment = "STREAMREADER_ERR"
|
||||
' Return uploadAvisoAttachment
|
||||
' End If
|
||||
'Else
|
||||
|
||||
|
||||
' uploadAvisoAttachment = "UPLOAD_ERR"
|
||||
' Return uploadAvisoAttachment
|
||||
'End If
|
||||
|
||||
Dim listOfFiles As List(Of String) = arrayOfFiles.Split(",").ToList
|
||||
|
||||
If Not (listOfFiles IsNot Nothing AndAlso listOfFiles.Count > 0) Then
|
||||
uploadAvisoAttString = "FILESARRAY_EMPTY_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If anhangsart <> "" Then ' AndAlso listOfImages IsNot Nothing AndAlso listOfImages.Count > 0
|
||||
|
||||
|
||||
If sendungsId > 0 Then
|
||||
|
||||
Dim SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(sendungsId)
|
||||
If SENDUNG Is Nothing Then
|
||||
uploadAvisoAttString = "NO_SENDUNG_ERR"
|
||||
Return uploadAvisoAttString
|
||||
|
||||
Else
|
||||
|
||||
For Each image In listOfFiles
|
||||
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
|
||||
|
||||
|
||||
Try
|
||||
Convert.FromBase64String(filetemp)
|
||||
Catch ex As Exception
|
||||
uploadAvisoAttString = "BASE64_FORMAT_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End Try
|
||||
|
||||
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
|
||||
|
||||
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", SENDUNG.tblSnd_AvisoID, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
|
||||
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, ""), False, False)
|
||||
|
||||
If DS.da_id <= 0 Then
|
||||
uploadAvisoAttString = "UPLOAD_DS_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End If
|
||||
Dim fileName = DS.da_name
|
||||
Dim destPath = DS.GET_TOP1_PATH
|
||||
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
|
||||
Dim fi As New FileInfo(destPath)
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(SENDUNG.tblSnd_AvisoID, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
|
||||
If Not ANH.SAVE Then
|
||||
uploadAvisoAttString = "SAVE_ANH_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
|
||||
ElseIf avisoId > 0 Then
|
||||
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(avisoId)
|
||||
If AVISO Is Nothing Then
|
||||
uploadAvisoAttString = "NO_AVISO_ERR"
|
||||
Return uploadAvisoAttString
|
||||
Else
|
||||
For Each image In listOfFiles
|
||||
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
|
||||
Try
|
||||
Convert.FromBase64String(filetemp)
|
||||
Catch ex As Exception
|
||||
uploadAvisoAttString = "BASE64_FORMAT_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", avisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
|
||||
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, ""), False, False)
|
||||
|
||||
If DS.da_id <= 0 Then
|
||||
uploadAvisoAttString = "UPLOAD_DS_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End If
|
||||
Dim fileName = DS.da_name
|
||||
Dim destPath = DS.GET_TOP1_PATH
|
||||
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
|
||||
Dim fi As New FileInfo(destPath)
|
||||
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(avisoId, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
|
||||
If Not ANH.SAVE Then
|
||||
uploadAvisoAttString = "SAVE_ANH_ERR"
|
||||
Return uploadAvisoAttString
|
||||
End If
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Return uploadAvisoAttString
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Return "OK"
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
Return uploadAvisoAttString
|
||||
End Try
|
||||
|
||||
|
||||
|
||||
Return uploadAvisoAttString
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/TESTEN_POST")>
|
||||
<BasicAuthentication>
|
||||
Public Function TESTEN_POST(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(API_AVISO)
|
||||
SQL.doSQL("insert into tbltest (test) Values('IN_AVISO_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "IN_AVISO_ERR"
|
||||
Try
|
||||
If API_AVISO Is Nothing Then Return VERAG_IN_AVISO_Exceptions.ERR_01_Wrong_Format
|
||||
If API_AVISO.Company Is Nothing OrElse API_AVISO.Company = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_02_Missing_Company
|
||||
If API_AVISO.Department Is Nothing OrElse API_AVISO.Department = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_03_Missing_Department
|
||||
If API_AVISO.PartnerTID Is Nothing OrElse API_AVISO.PartnerTID = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_04_Missing_PartnerID
|
||||
If API_AVISO.TransportLicensePlate Is Nothing OrElse API_AVISO.TransportLicensePlate = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_09_Missing_PlateNr
|
||||
|
||||
Dim TR_AVISO As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoFULL
|
||||
|
||||
|
||||
TR_AVISO.trAv_PartnerSystem = API_AVISO.PartnerTID
|
||||
TR_AVISO.trAv_gewicht = API_AVISO.TotGrossWeight
|
||||
TR_AVISO.trAv_colli = API_AVISO.TotPackage
|
||||
TR_AVISO.trAv_Transportmittel = API_AVISO.TransportBorderType
|
||||
TR_AVISO.trAv_Grenzueberschreitung = API_AVISO.TransportModeBorder
|
||||
'TR_AVISO.trAv_FraechterKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Fraechter = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_AvisiererKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Avisierer = API_AVISO.PaXXXXXXXrtnerTID
|
||||
TR_AVISO.trAv_Nationalitaet = API_AVISO.TransportCountryCode
|
||||
TR_AVISO.trAv_Kennzeichen = API_AVISO.TransportLicensePlate
|
||||
TR_AVISO.trAv_Reference = API_AVISO.Reference
|
||||
TR_AVISO.trAv_Fraechter = API_AVISO.FreightCompany
|
||||
TR_AVISO.trAv_FraechterKdNr = API_AVISO.FreightCompanyID
|
||||
TR_AVISO.trAv_Niederlassung = API_AVISO.Department
|
||||
TR_AVISO.trAv_Firma = API_AVISO.Company
|
||||
TR_AVISO.trAv_datetime = Now
|
||||
TR_AVISO.trAv_Info = API_AVISO.Info
|
||||
|
||||
If Not TR_AVISO.SAVE(False) Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
If API_AVISO.DOCUMENTS IsNot Nothing Then
|
||||
For Each ANH In API_AVISO.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoAnhaenge
|
||||
TR_DOC.DocumentType = ANH.DocumentType
|
||||
TR_DOC.DocumentNr = ANH.DocumentNr
|
||||
TR_DOC.DocumentDate = ANH.DocumentDate
|
||||
|
||||
If ANH.base64BinaryStream IsNot Nothing AndAlso ANH.base64BinaryStream <> "" Then
|
||||
TR_DOC.trAvAh_docID = VERAG_IN_AVISO_Functions.base64toDS(ANH.base64BinaryStream, TR_AVISO.trAv_Id, ANH.FileName)
|
||||
End If
|
||||
TR_AVISO.ANHAENGE.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not TR_AVISO.SAVE_Anhaenge Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
|
||||
If API_AVISO.POSITIONS IsNot Nothing Then
|
||||
For Each SH In API_AVISO.POSITIONS
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA)
|
||||
' Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment()
|
||||
SHIPMENT.shTr_TRAvisoId = TR_AVISO.trAv_Id 'Zur Verknüfung
|
||||
|
||||
EZA.Company = API_AVISO.Company
|
||||
EZA.Department = API_AVISO.Department
|
||||
EZA.Reference = SH.Reference
|
||||
|
||||
|
||||
EZA.DeclarationCountry = SH.DeclarationCountry
|
||||
EZA.DeclarationType = SH.DeclarationType
|
||||
|
||||
EZA.TotPackage = SH.NumberOfPackages
|
||||
EZA.TotGrossWeight = SH.GrossWeight
|
||||
'EZA.TotGrossWeight = SH.GrossWeight
|
||||
|
||||
EZA.CustomsCodeDeparture = SH.CustomsCodeDeparture
|
||||
EZA.CustomsCodeDestination = SH.CustomsCodeDestination
|
||||
'EZA.CustomsCodeEntry = API_AVISO.CustomsCodeEntry
|
||||
EZA.TransportModeBorder = API_AVISO.TransportModeBorder
|
||||
|
||||
EZA.CountryCodeDeparture = SH.CountryCodeDeparture
|
||||
EZA.CountryCodeDestination = SH.CountryCodeDestination
|
||||
EZA.DEStateCodeDestination = SH.DEStateCodeDestination
|
||||
|
||||
EZA.TransportArrivalLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.TransportArrivalCountryCode = API_AVISO.TransportCountryCode
|
||||
EZA.TransportBorderType = API_AVISO.TransportBorderType
|
||||
EZA.TransportBorderLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.Incoterm = SH.Incoterm
|
||||
|
||||
EZA.PrePaperCode = SH.PrePaperCode
|
||||
EZA.PrePaperNr = SH.PrePaperNr
|
||||
' EZA.KindOfBusiness = SH.ReferenceXXXXXXXXXXXX
|
||||
EZA.InvoiceAmount = SH.InvoiceAmount
|
||||
EZA.InvoiceCurrency = SH.InvoiceCurrency
|
||||
|
||||
|
||||
EZA.ContainerNr1 = SH.ContainerNr1
|
||||
EZA.ContainerNr2 = SH.ContainerNr2
|
||||
EZA.ContainerNr3 = SH.ContainerNr3
|
||||
EZA.ContainerNr4 = SH.ContainerNr4
|
||||
|
||||
|
||||
|
||||
If SH.ADDRESS IsNot Nothing Then
|
||||
For Each ADD In SH.ADDRESS
|
||||
Dim TR_ADD As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen
|
||||
TR_ADD.AddressCode = ADD.AddressCode
|
||||
TR_ADD.CustomerID = ADD.CustomerID
|
||||
TR_ADD.EORI = ADD.EORI
|
||||
TR_ADD.NLNR = ADD.NLNR
|
||||
TR_ADD.Name1 = ADD.Name1
|
||||
TR_ADD.Name2 = ADD.Name2
|
||||
TR_ADD.Name3 = ADD.Name3
|
||||
TR_ADD.Street1 = ADD.Street1
|
||||
TR_ADD.Street2 = ADD.Street2
|
||||
TR_ADD.City = ADD.City
|
||||
TR_ADD.CountryCode = ADD.CountryCode
|
||||
TR_ADD.PostalCode = ADD.PostalCode
|
||||
TR_ADD.UStID = ADD.UStID
|
||||
|
||||
EZA.ADDRESS.Add(TR_ADD)
|
||||
Next
|
||||
End If
|
||||
|
||||
If SH.DOCUMENTS IsNot Nothing Then
|
||||
For Each DOC In SH.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shipment_Document
|
||||
TR_DOC.DocumentType = DOC.DocumentType
|
||||
TR_DOC.DocumentNr = DOC.DocumentNr
|
||||
TR_DOC.DocumentDate = DOC.DocumentDate
|
||||
|
||||
If DOC.base64BinaryStream IsNot Nothing AndAlso DOC.base64BinaryStream <> "" Then
|
||||
TR_DOC.shTrPosDoc_docID = VERAG_IN_AVISO_Functions.base64toDS(DOC.base64BinaryStream, TR_AVISO.trAv_Id, DOC.FileName, "SND_ATTACHMENT")
|
||||
End If
|
||||
|
||||
EZA.DOCUMENTS.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not SHIPMENT.SAVE() Then
|
||||
Return VERAG_IN_AVISO_Exceptions.ERR_06_InternalSave
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return "OK"
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
Return "OK"
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
Return TESTEN_POST
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
|
||||
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/TEST/AVISO")>
|
||||
Public Class AVISO1TESTController
|
||||
@@ -392,9 +553,6 @@ Namespace ApiController.Controllers
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Class VERAG_IN_AVISO_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_Company As String = "ERR_02"
|
||||
|
||||
@@ -1,12 +1,14 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports System.Web.Http.Description
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace api_CustomsDeclaration.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
|
||||
Public Class CustomsDeclaration1Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
@@ -21,78 +23,78 @@ Namespace api_CustomsDeclaration.Controllers
|
||||
Return EZA
|
||||
End Function
|
||||
|
||||
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
'Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_X101_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_X101_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
Try
|
||||
' Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL")
|
||||
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
|
||||
' Catch ex As Exception
|
||||
' SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
|
||||
|
||||
End Try
|
||||
' End Try
|
||||
|
||||
|
||||
PostValue = "EZA_ERR"
|
||||
Try
|
||||
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
' PostValue = "EZA_ERR"
|
||||
' Try
|
||||
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' ' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' ' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
' Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
If EZA_TR Is Nothing Then
|
||||
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
Else
|
||||
EZA_TR.setEZA(EZA_FREMD)
|
||||
End If
|
||||
' If EZA_TR Is Nothing Then
|
||||
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
' Else
|
||||
' EZA_TR.setEZA(EZA_FREMD)
|
||||
' End If
|
||||
|
||||
EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
EZA_TR.shTr_Status = 5
|
||||
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
' EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
' EZA_TR.shTr_Status = 5
|
||||
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
EZA_TR.EZA.Company = "VERAG"
|
||||
EZA_TR.EZA.Department = "SUB"
|
||||
'EZA_TR.Reference = ""
|
||||
' EZA_TR.EZA.Company = "VERAG"
|
||||
' EZA_TR.EZA.Department = "SUB"
|
||||
' 'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
If EZA_TR.SAVE_ALL Then
|
||||
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
' If EZA_TR.SAVE_ALL Then
|
||||
' 'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
' 'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
' Return "OK"
|
||||
' Else
|
||||
' PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
' End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
' Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
' End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
' ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
' Return PostValue
|
||||
|
||||
|
||||
End Function
|
||||
'End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -1,12 +1,13 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports System.Web.Http.Description
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
|
||||
|
||||
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/TR_NCTS")>
|
||||
Public Class TR_NCTS1Controller
|
||||
@@ -39,7 +40,7 @@ Namespace ApiController.Controllers
|
||||
'End Function
|
||||
|
||||
Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
@@ -261,7 +262,7 @@ Namespace ApiController.Controllers
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/V001/TEST/TR_NCTS")>
|
||||
Public Class TR_NCTSV001TESTController
|
||||
|
||||
@@ -1,5 +1,6 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports System.Web.Http.Description
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
@@ -8,6 +9,7 @@ Imports Newtonsoft.Json
|
||||
|
||||
Namespace NEWTESTController.Controllers
|
||||
|
||||
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")>
|
||||
Public Class NEWTEST1Controller
|
||||
|
||||
@@ -1,11 +1,13 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports System.Web.Http.Description
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
|
||||
<ApiVersion("1")>
|
||||
<Route("api/v{version:apiVersion}/TEST")>
|
||||
Public Class TESTController
|
||||
|
||||
@@ -1,420 +0,0 @@
|
||||
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/AVISO")>
|
||||
<BasicAuthentication>
|
||||
Public Class AVISOController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
|
||||
''' <summary>
|
||||
''' Gets the Hello World Response
|
||||
''' </summary>
|
||||
''' <returns>A SharePriceResponse which contains the price of the share</returns>
|
||||
''' <response code="200">Returns 200 And Hallo World</response>
|
||||
''' <response code="400">Returns 400 if the query Is invalid</response>
|
||||
Public Function GetValue() As String
|
||||
Return "Hello world!"
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Set the Test
|
||||
''' </summary>
|
||||
''' <param name="Traviso">TRAviso</param>
|
||||
''' <returns>A SharePriceResponse which contains the price of the share</returns>
|
||||
''' <response code="200">Returns 200 and the TRAviso-JSON-Object</response>
|
||||
''' <response code="400">Returns 400 if the query Is invalid</response>
|
||||
''' <response code="401">Returns 401 if your are not authorized</response>
|
||||
Public Function PostValue(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(API_AVISO)
|
||||
SQL.doSQL("insert into tbltest (test) Values('IN_AVISO_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "IN_AVISO_ERR"
|
||||
Try
|
||||
If API_AVISO Is Nothing Then Return VERAG_IN_AVISO_Exceptions.ERR_01_Wrong_Format
|
||||
If API_AVISO.Company Is Nothing OrElse API_AVISO.Company = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_02_Missing_Company
|
||||
If API_AVISO.Department Is Nothing OrElse API_AVISO.Department = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_03_Missing_Department
|
||||
If API_AVISO.PartnerTID Is Nothing OrElse API_AVISO.PartnerTID = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_04_Missing_PartnerID
|
||||
If API_AVISO.TransportLicensePlate Is Nothing OrElse API_AVISO.TransportLicensePlate = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_09_Missing_PlateNr
|
||||
|
||||
Dim TR_AVISO As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoFULL
|
||||
|
||||
|
||||
TR_AVISO.trAv_PartnerSystem = API_AVISO.PartnerTID
|
||||
TR_AVISO.trAv_gewicht = API_AVISO.TotGrossWeight
|
||||
TR_AVISO.trAv_colli = API_AVISO.TotPackage
|
||||
TR_AVISO.trAv_Transportmittel = API_AVISO.TransportBorderType
|
||||
TR_AVISO.trAv_Grenzueberschreitung = API_AVISO.TransportModeBorder
|
||||
'TR_AVISO.trAv_FraechterKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Fraechter = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_AvisiererKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Avisierer = API_AVISO.PaXXXXXXXrtnerTID
|
||||
TR_AVISO.trAv_Nationalitaet = API_AVISO.TransportCountryCode
|
||||
TR_AVISO.trAv_Kennzeichen = API_AVISO.TransportLicensePlate
|
||||
TR_AVISO.trAv_Reference = API_AVISO.Reference
|
||||
TR_AVISO.trAv_Fraechter = API_AVISO.FreightCompany
|
||||
TR_AVISO.trAv_FraechterKdNr = API_AVISO.FreightCompanyID
|
||||
TR_AVISO.trAv_Niederlassung = API_AVISO.Department
|
||||
TR_AVISO.trAv_Firma = API_AVISO.Company
|
||||
TR_AVISO.trAv_datetime = Now
|
||||
TR_AVISO.trAv_Info = API_AVISO.Info
|
||||
|
||||
If Not TR_AVISO.SAVE(False) Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
If API_AVISO.DOCUMENTS IsNot Nothing Then
|
||||
For Each ANH In API_AVISO.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoAnhaenge
|
||||
TR_DOC.DocumentType = ANH.DocumentType
|
||||
TR_DOC.DocumentNr = ANH.DocumentNr
|
||||
TR_DOC.DocumentDate = ANH.DocumentDate
|
||||
|
||||
If ANH.base64BinaryStream IsNot Nothing AndAlso ANH.base64BinaryStream <> "" Then
|
||||
TR_DOC.trAvAh_docID = VERAG_IN_AVISO_Functions.base64toDS(ANH.base64BinaryStream, TR_AVISO.trAv_Id, ANH.FileName)
|
||||
End If
|
||||
TR_AVISO.ANHAENGE.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not TR_AVISO.SAVE_Anhaenge Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
|
||||
If API_AVISO.POSITIONS IsNot Nothing Then
|
||||
For Each SH In API_AVISO.POSITIONS
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA)
|
||||
' Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment()
|
||||
SHIPMENT.shTr_TRAvisoId = TR_AVISO.trAv_Id 'Zur Verknüfung
|
||||
|
||||
EZA.Company = API_AVISO.Company
|
||||
EZA.Department = API_AVISO.Department
|
||||
EZA.Reference = SH.Reference
|
||||
|
||||
|
||||
EZA.DeclarationCountry = SH.DeclarationCountry
|
||||
EZA.DeclarationType = SH.DeclarationType
|
||||
|
||||
EZA.TotPackage = SH.NumberOfPackages
|
||||
EZA.TotGrossWeight = SH.GrossWeight
|
||||
'EZA.TotGrossWeight = SH.GrossWeight
|
||||
|
||||
EZA.CustomsCodeDeparture = SH.CustomsCodeDeparture
|
||||
EZA.CustomsCodeDestination = SH.CustomsCodeDestination
|
||||
'EZA.CustomsCodeEntry = API_AVISO.CustomsCodeEntry
|
||||
EZA.TransportModeBorder = API_AVISO.TransportModeBorder
|
||||
|
||||
EZA.CountryCodeDeparture = SH.CountryCodeDeparture
|
||||
EZA.CountryCodeDestination = SH.CountryCodeDestination
|
||||
EZA.DEStateCodeDestination = SH.DEStateCodeDestination
|
||||
|
||||
EZA.TransportArrivalLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.TransportArrivalCountryCode = API_AVISO.TransportCountryCode
|
||||
EZA.TransportBorderType = API_AVISO.TransportBorderType
|
||||
EZA.TransportBorderLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.Incoterm = SH.Incoterm
|
||||
|
||||
EZA.PrePaperCode = SH.PrePaperCode
|
||||
EZA.PrePaperNr = SH.PrePaperNr
|
||||
' EZA.KindOfBusiness = SH.ReferenceXXXXXXXXXXXX
|
||||
EZA.InvoiceAmount = SH.InvoiceAmount
|
||||
EZA.InvoiceCurrency = SH.InvoiceCurrency
|
||||
|
||||
|
||||
EZA.ContainerNr1 = SH.ContainerNr1
|
||||
EZA.ContainerNr2 = SH.ContainerNr2
|
||||
EZA.ContainerNr3 = SH.ContainerNr3
|
||||
EZA.ContainerNr4 = SH.ContainerNr4
|
||||
|
||||
|
||||
|
||||
If SH.ADDRESS IsNot Nothing Then
|
||||
For Each ADD In SH.ADDRESS
|
||||
Dim TR_ADD As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen
|
||||
TR_ADD.AddressCode = ADD.AddressCode
|
||||
TR_ADD.CustomerID = ADD.CustomerID
|
||||
TR_ADD.EORI = ADD.EORI
|
||||
TR_ADD.NLNR = ADD.NLNR
|
||||
TR_ADD.Name1 = ADD.Name1
|
||||
TR_ADD.Name2 = ADD.Name2
|
||||
TR_ADD.Name3 = ADD.Name3
|
||||
TR_ADD.Street1 = ADD.Street1
|
||||
TR_ADD.Street2 = ADD.Street2
|
||||
TR_ADD.City = ADD.City
|
||||
TR_ADD.CountryCode = ADD.CountryCode
|
||||
TR_ADD.PostalCode = ADD.PostalCode
|
||||
TR_ADD.UStID = ADD.UStID
|
||||
|
||||
EZA.ADDRESS.Add(TR_ADD)
|
||||
Next
|
||||
End If
|
||||
|
||||
If SH.DOCUMENTS IsNot Nothing Then
|
||||
For Each DOC In SH.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shipment_Document
|
||||
TR_DOC.DocumentType = DOC.DocumentType
|
||||
TR_DOC.DocumentNr = DOC.DocumentNr
|
||||
TR_DOC.DocumentDate = DOC.DocumentDate
|
||||
|
||||
If DOC.base64BinaryStream IsNot Nothing AndAlso DOC.base64BinaryStream <> "" Then
|
||||
TR_DOC.shTrPosDoc_docID = VERAG_IN_AVISO_Functions.base64toDS(DOC.base64BinaryStream, TR_AVISO.trAv_Id, DOC.FileName, "SND_ATTACHMENT")
|
||||
End If
|
||||
|
||||
EZA.DOCUMENTS.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not SHIPMENT.SAVE() Then
|
||||
Return VERAG_IN_AVISO_Exceptions.ERR_06_InternalSave
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return "OK"
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/TEST/AVISO")>
|
||||
Public Class AVISO1TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
''' <summary>
|
||||
''' Gets the Hello World Response
|
||||
''' </summary>
|
||||
Public Function GetValue() As String
|
||||
Return "Hello world!"
|
||||
End Function
|
||||
|
||||
Public Function PostValue(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
Dim resultJson2 = jsonString.FromClass(API_AVISO)
|
||||
SQL.doSQL("insert into tbltest (test) Values('IN_AVISO_" & resultJson2 & "')", "FMZOLL")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "IN_AVISO_ERR"
|
||||
Try
|
||||
If API_AVISO Is Nothing Then Return VERAG_IN_AVISO_Exceptions.ERR_01_Wrong_Format
|
||||
If API_AVISO.Company Is Nothing OrElse API_AVISO.Company = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_02_Missing_Company
|
||||
If API_AVISO.Department Is Nothing OrElse API_AVISO.Department = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_03_Missing_Department
|
||||
If API_AVISO.PartnerTID Is Nothing OrElse API_AVISO.PartnerTID = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_04_Missing_PartnerID
|
||||
If API_AVISO.TransportLicensePlate Is Nothing OrElse API_AVISO.TransportLicensePlate = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_09_Missing_PlateNr
|
||||
|
||||
Dim TR_AVISO As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoFULL
|
||||
|
||||
|
||||
TR_AVISO.trAv_PartnerSystem = API_AVISO.PartnerTID
|
||||
TR_AVISO.trAv_gewicht = API_AVISO.TotGrossWeight
|
||||
TR_AVISO.trAv_colli = API_AVISO.TotPackage
|
||||
TR_AVISO.trAv_Transportmittel = API_AVISO.TransportBorderType
|
||||
TR_AVISO.trAv_Grenzueberschreitung = API_AVISO.TransportModeBorder
|
||||
'TR_AVISO.trAv_FraechterKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Fraechter = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_AvisiererKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Avisierer = API_AVISO.PaXXXXXXXrtnerTID
|
||||
TR_AVISO.trAv_Nationalitaet = API_AVISO.TransportCountryCode
|
||||
TR_AVISO.trAv_Kennzeichen = API_AVISO.TransportLicensePlate
|
||||
TR_AVISO.trAv_Reference = API_AVISO.Reference
|
||||
TR_AVISO.trAv_Fraechter = API_AVISO.FreightCompany
|
||||
TR_AVISO.trAv_FraechterKdNr = API_AVISO.FreightCompanyID
|
||||
TR_AVISO.trAv_Niederlassung = API_AVISO.Department
|
||||
TR_AVISO.trAv_Firma = API_AVISO.Company
|
||||
TR_AVISO.trAv_datetime = Now
|
||||
TR_AVISO.trAv_Info = API_AVISO.Info
|
||||
|
||||
If Not TR_AVISO.SAVE(False) Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
If API_AVISO.DOCUMENTS IsNot Nothing Then
|
||||
For Each ANH In API_AVISO.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoAnhaenge
|
||||
TR_DOC.DocumentType = ANH.DocumentType
|
||||
TR_DOC.DocumentNr = ANH.DocumentNr
|
||||
TR_DOC.DocumentDate = ANH.DocumentDate
|
||||
|
||||
If ANH.base64BinaryStream IsNot Nothing AndAlso ANH.base64BinaryStream <> "" Then
|
||||
TR_DOC.trAvAh_docID = VERAG_IN_AVISO_Functions.base64toDS(ANH.base64BinaryStream, TR_AVISO.trAv_Id, ANH.FileName)
|
||||
End If
|
||||
TR_AVISO.ANHAENGE.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not TR_AVISO.SAVE_Anhaenge Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
|
||||
If API_AVISO.POSITIONS IsNot Nothing Then
|
||||
For Each SH In API_AVISO.POSITIONS
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA)
|
||||
' Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment()
|
||||
SHIPMENT.shTr_TRAvisoId = TR_AVISO.trAv_Id 'Zur Verknüfung
|
||||
|
||||
EZA.Company = API_AVISO.Company
|
||||
EZA.Department = API_AVISO.Department
|
||||
EZA.Reference = SH.Reference
|
||||
|
||||
|
||||
EZA.DeclarationCountry = SH.DeclarationCountry
|
||||
EZA.DeclarationType = SH.DeclarationType
|
||||
|
||||
EZA.TotPackage = SH.NumberOfPackages
|
||||
EZA.TotGrossWeight = SH.GrossWeight
|
||||
'EZA.TotGrossWeight = SH.GrossWeight
|
||||
|
||||
EZA.CustomsCodeDeparture = SH.CustomsCodeDeparture
|
||||
EZA.CustomsCodeDestination = SH.CustomsCodeDestination
|
||||
'EZA.CustomsCodeEntry = API_AVISO.CustomsCodeEntry
|
||||
EZA.TransportModeBorder = API_AVISO.TransportModeBorder
|
||||
|
||||
EZA.CountryCodeDeparture = SH.CountryCodeDeparture
|
||||
EZA.CountryCodeDestination = SH.CountryCodeDestination
|
||||
EZA.DEStateCodeDestination = SH.DEStateCodeDestination
|
||||
|
||||
EZA.TransportArrivalLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.TransportArrivalCountryCode = API_AVISO.TransportCountryCode
|
||||
EZA.TransportBorderType = API_AVISO.TransportBorderType
|
||||
EZA.TransportBorderLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.Incoterm = SH.Incoterm
|
||||
|
||||
EZA.PrePaperCode = SH.PrePaperCode
|
||||
EZA.PrePaperNr = SH.PrePaperNr
|
||||
' EZA.KindOfBusiness = SH.ReferenceXXXXXXXXXXXX
|
||||
EZA.InvoiceAmount = SH.InvoiceAmount
|
||||
EZA.InvoiceCurrency = SH.InvoiceCurrency
|
||||
|
||||
|
||||
EZA.ContainerNr1 = SH.ContainerNr1
|
||||
EZA.ContainerNr2 = SH.ContainerNr2
|
||||
EZA.ContainerNr3 = SH.ContainerNr3
|
||||
EZA.ContainerNr4 = SH.ContainerNr4
|
||||
|
||||
|
||||
|
||||
If SH.ADDRESS IsNot Nothing Then
|
||||
For Each ADD In SH.ADDRESS
|
||||
Dim TR_ADD As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen
|
||||
TR_ADD.AddressCode = ADD.AddressCode
|
||||
TR_ADD.CustomerID = ADD.CustomerID
|
||||
TR_ADD.EORI = ADD.EORI
|
||||
TR_ADD.NLNR = ADD.NLNR
|
||||
TR_ADD.Name1 = ADD.Name1
|
||||
TR_ADD.Name2 = ADD.Name2
|
||||
TR_ADD.Name3 = ADD.Name3
|
||||
TR_ADD.Street1 = ADD.Street1
|
||||
TR_ADD.Street2 = ADD.Street2
|
||||
TR_ADD.City = ADD.City
|
||||
TR_ADD.CountryCode = ADD.CountryCode
|
||||
TR_ADD.PostalCode = ADD.PostalCode
|
||||
TR_ADD.UStID = ADD.UStID
|
||||
|
||||
EZA.ADDRESS.Add(TR_ADD)
|
||||
Next
|
||||
End If
|
||||
|
||||
If SH.DOCUMENTS IsNot Nothing Then
|
||||
For Each DOC In SH.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shipment_Document
|
||||
TR_DOC.DocumentType = DOC.DocumentType
|
||||
TR_DOC.DocumentNr = DOC.DocumentNr
|
||||
TR_DOC.DocumentDate = DOC.DocumentDate
|
||||
|
||||
If DOC.base64BinaryStream IsNot Nothing AndAlso DOC.base64BinaryStream <> "" Then
|
||||
TR_DOC.shTrPosDoc_docID = VERAG_IN_AVISO_Functions.base64toDS(DOC.base64BinaryStream, TR_AVISO.trAv_Id, DOC.FileName, "SND_ATTACHMENT")
|
||||
End If
|
||||
|
||||
EZA.DOCUMENTS.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not SHIPMENT.SAVE() Then
|
||||
Return VERAG_IN_AVISO_Exceptions.ERR_06_InternalSave
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return "OK"
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Class VERAG_IN_AVISO_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_Company As String = "ERR_02"
|
||||
Public Const ERR_03_Missing_Department As String = "ERR_03"
|
||||
Public Const ERR_04_Missing_PartnerID As String = "ERR_04"
|
||||
Public Const ERR_05_InternalVerarb As String = "ERR_05"
|
||||
Public Const ERR_06_InternalSave As String = "ERR_06"
|
||||
Public Const ERR_07_Missing_Colli As String = "ERR_07"
|
||||
Public Const ERR_08_Missing_Gewicht As String = "ERR_08"
|
||||
Public Const ERR_09_Missing_PlateNr As String = "ERR_09"
|
||||
|
||||
End Class
|
||||
|
||||
Class VERAG_IN_AVISO_Functions
|
||||
|
||||
Public Shared Function base64toDS(base64 As String, AvisoTRID As Integer, FileName As String, Optional uOrdner3 As String = "AVISO_ATTACHMENT") As Integer
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "IN", "TR_AVISO", uOrdner3, AvisoTRID, FileName)
|
||||
DS.uploadDataToDATENSERVER_fromBase64String(base64, FileName,, False)
|
||||
Return DS.da_id
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -1,151 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace api_CustomsDeclaration.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
|
||||
Public Class CustomsDeclaration1Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
Return EZA
|
||||
End Function
|
||||
|
||||
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_X101_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "EZA_ERR"
|
||||
Try
|
||||
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
If EZA_TR Is Nothing Then
|
||||
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
Else
|
||||
EZA_TR.setEZA(EZA_FREMD)
|
||||
End If
|
||||
|
||||
EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
EZA_TR.shTr_Status = 5
|
||||
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
EZA_TR.EZA.Company = "VERAG"
|
||||
EZA_TR.EZA.Department = "SUB"
|
||||
'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
If EZA_TR.SAVE_ALL Then
|
||||
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
|
||||
Public Class jsonString
|
||||
|
||||
Shared Function FromClass(Of T)(data As T,
|
||||
Optional isEmptyToNull As Boolean = False,
|
||||
Optional jsonSettings As JsonSerializerSettings = Nothing) As String
|
||||
|
||||
Dim response As String = String.Empty
|
||||
|
||||
If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then
|
||||
response = JsonConvert.SerializeObject(data, jsonSettings)
|
||||
End If
|
||||
|
||||
Return If(isEmptyToNull, (If(response = "{}", "null", response)), response)
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function ToClass(Of T)(data As String,
|
||||
Optional jsonSettings As JsonSerializerSettings = Nothing) As T
|
||||
|
||||
Dim response = Nothing
|
||||
|
||||
If Not String.IsNullOrEmpty(data) Then
|
||||
response = If(jsonSettings Is Nothing,
|
||||
JsonConvert.DeserializeObject(Of T)(data),
|
||||
JsonConvert.DeserializeObject(Of T)(data, jsonSettings))
|
||||
End If
|
||||
|
||||
Return response
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class EZA_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_MRN As String = "ERR_02"
|
||||
Public Const ERR_03_InternalVerarb As String = "ERR_03"
|
||||
Public Const ERR_04_InternalSave As String = "ERR_04"
|
||||
Public Const ERR_05_Missing_Colli As String = "ERR_05"
|
||||
Public Const ERR_06_Missing_Gewicht As String = "ERR_06"
|
||||
Public Const ERR_07_Missing_PlateNr As String = "ERR_07"
|
||||
Public Const ERR_08_Missing_Reference As String = "ERR_08"
|
||||
|
||||
End Class
|
||||
|
||||
@@ -1,500 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/TR_NCTS")>
|
||||
Public Class TR_NCTS1Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
'Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_out_ncts
|
||||
' Dim NCTS As New VERAG_PROG_ALLGEMEIN.cVERAG_out_ncts
|
||||
' NCTS.ncts_WARENPOS.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_Warenposition)
|
||||
' NCTS.ncts_SICHERHEITSANGABEN.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_Sicherheitsangaben)
|
||||
' NCTS.ncts_WARENPOS(0).nctsWP_PACKSTUECKE.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_WarenpositionPackstuecke)
|
||||
' NCTS.ncts_WARENPOS(0).nctsWP_UNTERLAGEN.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)
|
||||
|
||||
' 'NCTS.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
|
||||
' Return NCTS
|
||||
'End Function
|
||||
|
||||
|
||||
'Public Function PostValue(ByVal value As String) As String
|
||||
' 'Dim file As System.IO.StreamWriter
|
||||
' 'file = My.Computer.FileSystem.OpenTextFileWriter("G:\test.txt", True)
|
||||
' 'file.WriteLine(value)
|
||||
' 'file.Close()
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' SQL.doSQL("insert into tbltest (test) Values('000')", "FMZOLL")
|
||||
|
||||
' Return "asd" & value
|
||||
'End Function
|
||||
|
||||
Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(NCTS_ATEZ)
|
||||
SQL.doSQL("insert into tbltest (test) Values('NCTS_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "NCTS_ERR"
|
||||
Try
|
||||
If NCTS_ATEZ Is Nothing OrElse NCTS_ATEZ.CC015B Is Nothing Then Return NCTS_Exceptions.ERR_01_Wrong_Format
|
||||
If NCTS_ATEZ.CC015B.MRNNumber Is Nothing OrElse NCTS_ATEZ.CC015B.MRNNumber = "" Then Return NCTS_Exceptions.ERR_02_Missing_MRN
|
||||
|
||||
|
||||
Dim MRN = If(NCTS_ATEZ.CC015B.MRNNumber, "")
|
||||
|
||||
Dim NCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, "ATEZ")
|
||||
If NCTS_TR Is Nothing Then
|
||||
NCTS_TR = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
End If
|
||||
|
||||
NCTS_TR.ncts_Partnersystem = "ATEZ"
|
||||
NCTS_TR.ncts_Status = 5
|
||||
NCTS_TR.ncts_Status_KEWILL_Equivalent = 5
|
||||
|
||||
NCTS_TR.ncts_MRN = NCTS_ATEZ.CC015B.MRNNumber
|
||||
|
||||
|
||||
|
||||
'NCTS_TR.ncts_ObjectName = NCTS_ATEZ.CC015B.RefId
|
||||
'NCTS_TR.ncts_ObjectAlias = NCTS_ATEZ.CC015B.RefId
|
||||
|
||||
If NCTS_ATEZ.CC015B.HEAHEA IsNot Nothing Then
|
||||
NCTS_TR.ncts_dyaArt = NCTS_ATEZ.CC015B.HEAHEA.TypOfDecHEA24
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85
|
||||
NCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = NCTS_ATEZ.CC015B.HEAHEA.NatOfMeaOfTraCroHEA87
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.CARTRA100 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.NamCARTRA121, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.StrAndNumCARTRA254, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.PosCodCARTRA121, 9)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.CitCARTRA789, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Land = NCTS_ATEZ.CC015B.CARTRA100.CouCodCARTRA587
|
||||
|
||||
'If NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 IsNot Nothing And NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 & NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACORSEC037 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.NamTRACORSEC041, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.StrNumTRACORSEC043, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.PosCodTRACORSEC042, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.CitTRACORSEC038, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACORSEC037.CouCodTRACORSEC039
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG & NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACONSEC029 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.NameTRACONSEC033, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.StrNumTRACONSEC035, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.PosCodTRACONSEC034, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.CitTRACONSEC030, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACONSEC029.CouCodTRACONSEC031
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG & NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036
|
||||
'End If
|
||||
End If
|
||||
|
||||
'Dim cnt = 1
|
||||
'If NCTS_ATEZ.CC015B.ITI IsNot Nothing Then
|
||||
' For Each R In NCTS_ATEZ.CC015B.ITI
|
||||
' Select Case cnt
|
||||
' Case 1 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand1 = R
|
||||
' Case 2 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand2 = R
|
||||
' Case 3 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand3 = R
|
||||
' Case 4 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand4 = R
|
||||
' Case 5 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand5 = R
|
||||
' Case 6 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand6 = R
|
||||
' Case 7 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand7 = R
|
||||
' Case 8 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand8 = R
|
||||
' Case 9 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand9 = R
|
||||
' Case 10 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand10 = R
|
||||
' Case 11 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand11 = R
|
||||
' Case 12 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand12 = R
|
||||
' End Select
|
||||
|
||||
' cnt += 1
|
||||
' Next
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
If NCTS_ATEZ.CC015B.GOOITEGDS IsNot Nothing Then
|
||||
For Each ITEM In NCTS_ATEZ.CC015B.GOOITEGDS
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
|
||||
POS.nctsWP_PositionsNummer = ITEM.IteNumGDS7
|
||||
POS.nctsWP_Warenbezeichnung = ITEM.GooDesGDS23
|
||||
|
||||
POS.nctsWP_Rohmasse = ITEM.GroMasGDS46
|
||||
POS.nctsWP_Eigenmasse = ITEM.NetMasGDS48
|
||||
If ITEM.ComCodTarCodGDS10 IsNot Nothing Then
|
||||
If ITEM.ComCodTarCodGDS10.ToString.Length > 10 Then
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10.Substring(0, 10)
|
||||
Else
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10
|
||||
End If
|
||||
End If
|
||||
If ITEM.PACGS2 IsNot Nothing Then
|
||||
|
||||
For Each PAC In ITEM.PACGS2
|
||||
Dim PACK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
|
||||
PACK.nctsWpPk_PackstueckeAnzahl = PAC.NumOfPacGS24
|
||||
PACK.nctsWpPk_Verpackungsart = PAC.KinOfPacGS23
|
||||
POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
If PACK.nctsWpPk_PackstueckeAnzahl Is Nothing Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
Else
|
||||
Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
End If
|
||||
|
||||
' For Each PACGS In ITEM.PACGS2
|
||||
' Dim PACK As New cNCTSPartnerWorker.cNCTS_TR_WarenpositionPackstuecke
|
||||
' PACK.nctsWpPk_PackstueckeAnzahl = PACGS.NumOfPacGS24
|
||||
' PACK.nctsWpPk_Verpackungsart = PACGS.KinOfPacGS23
|
||||
'' PACK.nctsWpPk_ZeichenNummern = PACGS.MarNumOfPacGS21
|
||||
' POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
' Next
|
||||
NCTS_TR.ncts_WARENPOS.Add(POS)
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_PACKSTUECKE.Count = 0 Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing Then Return NCTS_Exceptions.ERR_07_Missing_PlateNr
|
||||
|
||||
|
||||
|
||||
If NCTS_TR.SAVE_ALL Then
|
||||
'PostValue = "NCTS_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_NCTS_TEST: " & NCTS_ATEZ.CC015B.MRNNumber & "')", "FMZOLL")
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_OK - ID: " & NCTS_TR.ncts_Id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = NCTS_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
' Return "TEST3"
|
||||
|
||||
'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
|
||||
'MsgBox(resultJson)
|
||||
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "NCTS_ATEZ")
|
||||
'DS.uploadDataToDATENSERVER_fromBytes()
|
||||
|
||||
'Dim client = New RestClient(_baseURI)
|
||||
'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
|
||||
'request.AddUrlSegment("identifier", _identifier)
|
||||
'request.AddHeader("Authorization", "Basic " + _token)
|
||||
'Dim jstr = client.Execute(request).Content
|
||||
'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
|
||||
|
||||
'' POST api/CustomsDeclaration_V001/
|
||||
'Public Sub PostValue(<FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' PUT api/CustomsDeclaration_V001//5
|
||||
'Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' DELETE api/CustomsDeclaration_V001//5
|
||||
'Public Sub DeleteValue(ByVal id As Integer)
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/V001/TEST/TR_NCTS")>
|
||||
Public Class TR_NCTSV001TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Try
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(NCTS_ATEZ)
|
||||
SQL.doSQL("insert into tbltest (test) Values('NCTS_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "NCTS_ERR"
|
||||
|
||||
If NCTS_ATEZ Is Nothing OrElse NCTS_ATEZ.CC015B Is Nothing Then Return NCTS_Exceptions.ERR_01_Wrong_Format
|
||||
If NCTS_ATEZ.CC015B.MRNNumber Is Nothing OrElse NCTS_ATEZ.CC015B.MRNNumber = "" Then Return NCTS_Exceptions.ERR_02_Missing_MRN
|
||||
|
||||
|
||||
|
||||
Dim MRN = If(NCTS_ATEZ.CC015B.MRNNumber, "")
|
||||
|
||||
Dim NCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, "ATEZ")
|
||||
If NCTS_TR Is Nothing Then
|
||||
NCTS_TR = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
End If
|
||||
|
||||
|
||||
NCTS_TR.ncts_Partnersystem = "ATEZ"
|
||||
NCTS_TR.ncts_Status = 5
|
||||
NCTS_TR.ncts_Status_KEWILL_Equivalent = 5
|
||||
|
||||
NCTS_TR.ncts_MRN = NCTS_ATEZ.CC015B.MRNNumber
|
||||
|
||||
|
||||
'NCTS_TR.ncts_ObjectName = NCTS_ATEZ.CC015B.RefId
|
||||
'NCTS_TR.ncts_ObjectAlias = NCTS_ATEZ.CC015B.RefId
|
||||
|
||||
If NCTS_ATEZ.CC015B.HEAHEA IsNot Nothing Then
|
||||
NCTS_TR.ncts_dyaArt = NCTS_ATEZ.CC015B.HEAHEA.TypOfDecHEA24
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85
|
||||
NCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = NCTS_ATEZ.CC015B.HEAHEA.NatOfMeaOfTraCroHEA87
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.CARTRA100 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.NamCARTRA121, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.StrAndNumCARTRA254, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.PosCodCARTRA121, 9)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.CitCARTRA789, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Land = NCTS_ATEZ.CC015B.CARTRA100.CouCodCARTRA587
|
||||
|
||||
'If NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 IsNot Nothing And NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 & NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACORSEC037 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.NamTRACORSEC041, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.StrNumTRACORSEC043, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.PosCodTRACORSEC042, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.CitTRACORSEC038, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACORSEC037.CouCodTRACORSEC039
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG & NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACONSEC029 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.NameTRACONSEC033, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.StrNumTRACONSEC035, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.PosCodTRACONSEC034, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.CitTRACONSEC030, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACONSEC029.CouCodTRACONSEC031
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG & NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036
|
||||
'End If
|
||||
End If
|
||||
|
||||
'Dim cnt = 1
|
||||
'If NCTS_ATEZ.CC015B.ITI IsNot Nothing Then
|
||||
' For Each R In NCTS_ATEZ.CC015B.ITI
|
||||
' Select Case cnt
|
||||
' Case 1 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand1 = R
|
||||
' Case 2 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand2 = R
|
||||
' Case 3 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand3 = R
|
||||
' Case 4 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand4 = R
|
||||
' Case 5 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand5 = R
|
||||
' Case 6 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand6 = R
|
||||
' Case 7 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand7 = R
|
||||
' Case 8 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand8 = R
|
||||
' Case 9 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand9 = R
|
||||
' Case 10 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand10 = R
|
||||
' Case 11 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand11 = R
|
||||
' Case 12 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand12 = R
|
||||
' End Select
|
||||
|
||||
' cnt += 1
|
||||
' Next
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
If NCTS_ATEZ.CC015B.GOOITEGDS IsNot Nothing Then
|
||||
For Each ITEM In NCTS_ATEZ.CC015B.GOOITEGDS
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
|
||||
POS.nctsWP_PositionsNummer = ITEM.IteNumGDS7
|
||||
POS.nctsWP_Warenbezeichnung = ITEM.GooDesGDS23
|
||||
|
||||
POS.nctsWP_Rohmasse = ITEM.GroMasGDS46
|
||||
POS.nctsWP_Eigenmasse = ITEM.NetMasGDS48
|
||||
If ITEM.ComCodTarCodGDS10 IsNot Nothing Then
|
||||
If ITEM.ComCodTarCodGDS10.ToString.Length > 10 Then
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10.Substring(0, 10)
|
||||
Else
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10
|
||||
End If
|
||||
End If
|
||||
If ITEM.PACGS2 IsNot Nothing Then
|
||||
For Each PAC In ITEM.PACGS2
|
||||
Dim PACK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
|
||||
PACK.nctsWpPk_PackstueckeAnzahl = PAC.NumOfPacGS24
|
||||
PACK.nctsWpPk_Verpackungsart = PAC.KinOfPacGS23
|
||||
POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
If PACK.nctsWpPk_PackstueckeAnzahl Is Nothing Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
Else
|
||||
Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
End If
|
||||
|
||||
' For Each PACGS In ITEM.PACGS2
|
||||
' Dim PACK As New cNCTSPartnerWorker.cNCTS_TR_WarenpositionPackstuecke
|
||||
' PACK.nctsWpPk_PackstueckeAnzahl = PACGS.NumOfPacGS24
|
||||
' PACK.nctsWpPk_Verpackungsart = PACGS.KinOfPacGS23
|
||||
'' PACK.nctsWpPk_ZeichenNummern = PACGS.MarNumOfPacGS21
|
||||
' POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
' Next
|
||||
NCTS_TR.ncts_WARENPOS.Add(POS)
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_PACKSTUECKE.Count = 0 Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing Then Return NCTS_Exceptions.ERR_07_Missing_PlateNr
|
||||
|
||||
|
||||
|
||||
|
||||
If NCTS_TR.SAVE_ALL Then
|
||||
'PostValue = "NCTS_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_NCTS_TEST: " & NCTS_ATEZ.CC015B.MRNNumber & "')", "FMZOLL")
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_OK - ID: " & NCTS_TR.ncts_Id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = NCTS_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
Class NCTS_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_MRN As String = "ERR_02"
|
||||
Public Const ERR_03_InternalVerarb As String = "ERR_03"
|
||||
Public Const ERR_04_InternalSave As String = "ERR_04"
|
||||
Public Const ERR_05_Missing_Colli As String = "ERR_05"
|
||||
Public Const ERR_06_Missing_Gewicht As String = "ERR_06"
|
||||
Public Const ERR_07_Missing_PlateNr As String = "ERR_07"
|
||||
Public Const ERR_08_Missing_Reference As String = "ERR_08"
|
||||
End Class
|
||||
|
||||
|
||||
Class NCTS_Functions
|
||||
|
||||
Public Shared Function cutlength(o, l) As Object
|
||||
Try
|
||||
|
||||
If o IsNot Nothing Then
|
||||
If o.ToString.Length > l Then
|
||||
Return o.ToString.Substring(0, l)
|
||||
End If
|
||||
End If
|
||||
Return o
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
Return o
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
'Enum NCTS_ERR_CODES
|
||||
' ERR_01
|
||||
'End Enum
|
||||
@@ -1,21 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
|
||||
|
||||
Namespace NEWTESTController.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")>
|
||||
Public Class NEWTEST1Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "NEWTEST 1111"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -1,22 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<Route("api/v{version:apiVersion}/TEST")>
|
||||
Public Class TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
<MapToApiVersion("1")>
|
||||
Public Function GetValues() As String
|
||||
Return "TEST 1"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
@@ -1,392 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
|
||||
Namespace api_CustomsDeclaration.Controllers
|
||||
|
||||
<ApiVersion("2")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
|
||||
Public Class CustomsDeclaration2Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
Return EZA
|
||||
End Function
|
||||
|
||||
|
||||
'' GET api/CustomsDeclaration_V001/
|
||||
'Public Function GetValues() As IEnumerable(Of String)
|
||||
' Return New String() {"value1", "value2"}
|
||||
'End Function
|
||||
|
||||
'' GET api/CustomsDeclaration_V001//5
|
||||
'Public Function GetValue(ByVal id As Integer) As String
|
||||
' Return "value"
|
||||
'End Function
|
||||
|
||||
' POST api/CustomsDeclaration_V001/
|
||||
'Public Function PostValue(<FromBody()> ByVal value As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As Boolean
|
||||
' Dim EZA As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza = value
|
||||
|
||||
|
||||
'End Function
|
||||
|
||||
'Public Function PostValue(ByVal value As String) As String
|
||||
' 'Dim file As System.IO.StreamWriter
|
||||
' 'file = My.Computer.FileSystem.OpenTextFileWriter("G:\test.txt", True)
|
||||
' 'file.WriteLine(value)
|
||||
' 'file.Close()
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' SQL.doSQL("insert into tbltest (test) Values('000')", "FMZOLL")
|
||||
|
||||
' Return "asd" & value
|
||||
'End Function
|
||||
|
||||
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_001_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "EZA_ERR"
|
||||
Try
|
||||
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
If EZA_TR Is Nothing Then
|
||||
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
Else
|
||||
EZA_TR.setEZA(EZA_FREMD)
|
||||
End If
|
||||
|
||||
EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
EZA_TR.shTr_Status = 5
|
||||
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
EZA_TR.EZA.Company = "VERAG"
|
||||
EZA_TR.EZA.Department = "SUB"
|
||||
'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
|
||||
|
||||
If EZA_TR.SAVE_ALL Then
|
||||
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
' Return "TEST3"
|
||||
|
||||
'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
|
||||
'MsgBox(resultJson)
|
||||
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "EZA_FREMD")
|
||||
'DS.uploadDataToDATENSERVER_fromBytes()
|
||||
|
||||
'Dim client = New RestClient(_baseURI)
|
||||
'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
|
||||
'request.AddUrlSegment("identifier", _identifier)
|
||||
'request.AddHeader("Authorization", "Basic " + _token)
|
||||
'Dim jstr = client.Execute(request).Content
|
||||
'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
'SQL.doSQL("insert into tbltest (test) Values('C_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
|
||||
|
||||
'PostValue = "ERR"
|
||||
'Try
|
||||
|
||||
' If EZA Is Nothing Then
|
||||
' PostValue = "ERR " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
' Else
|
||||
' PostValue = "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
' Dim resultJson = jsonString.FromClass(EZA)
|
||||
' 'PostValue = resultJson
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & resultJson & "')", "FMZOLL")
|
||||
|
||||
' 'MsgBox(resultJson)
|
||||
' 'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "EZA")
|
||||
' 'DS.uploadDataToDATENSERVER_fromBytes()
|
||||
|
||||
' 'Dim client = New RestClient(_baseURI)
|
||||
' 'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
|
||||
' 'request.AddUrlSegment("identifier", _identifier)
|
||||
' 'request.AddHeader("Authorization", "Basic " + _token)
|
||||
' 'Dim jstr = client.Execute(request).Content
|
||||
' 'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
|
||||
|
||||
|
||||
' End If
|
||||
|
||||
'Catch ex As Exception
|
||||
' ' SQL.doSQL("insert into tbltest (test) Values('" & "ERRNOTHING " & ex.Message & "')", "FMZOLL")
|
||||
|
||||
'End Try
|
||||
|
||||
'' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
'Return PostValue
|
||||
End Function
|
||||
|
||||
|
||||
'' POST api/CustomsDeclaration_V001/
|
||||
'Public Sub PostValue(<FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' PUT api/CustomsDeclaration_V001//5
|
||||
'Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' DELETE api/CustomsDeclaration_V001//5
|
||||
'Public Sub DeleteValue(ByVal id As Integer)
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'<ApiVersion("1111101")>
|
||||
'<System.Web.Http.Route("api/V101/CustomsDeclaration")>
|
||||
'Public Class CustomsDeclarationV101Controller
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
' EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
' 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
' EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
' Return EZA
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
' Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_101 " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
' Try
|
||||
|
||||
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
' Catch ex As Exception
|
||||
' SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
|
||||
|
||||
' End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_101_')", "FMZOLL")
|
||||
|
||||
' PostValue = "EZA_ERR"
|
||||
' Try
|
||||
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' ' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' ' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
' Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
' If EZA_TR Is Nothing Then
|
||||
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
' Else
|
||||
' EZA_TR.setEZA(EZA_FREMD)
|
||||
' End If
|
||||
|
||||
' EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
' EZA_TR.shTr_Status = 5
|
||||
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
' EZA_TR.EZA.Company = "VERAG"
|
||||
' EZA_TR.EZA.Department = "SUB"
|
||||
' 'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
' If EZA_TR.SAVE_ALL Then
|
||||
' 'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
' 'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
' Return "OK"
|
||||
' Else
|
||||
' PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
' End If
|
||||
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
' Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
' End Try
|
||||
|
||||
' ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
' Return PostValue
|
||||
|
||||
|
||||
' End Function
|
||||
|
||||
|
||||
'End Class
|
||||
|
||||
|
||||
|
||||
'--------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
|
||||
'<ApiVersion("001")>
|
||||
'<System.Web.Http.Route("api/V001/TEST/CustomsDeclaration")>
|
||||
'Public Class CustomsDeclarationV001_TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
' EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
' 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
' EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
' Return EZA
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
' Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = Debugger.IsAttached
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
' Try
|
||||
|
||||
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
|
||||
' PostValue = "EZA_ERR"
|
||||
' Try
|
||||
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
|
||||
' Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
' If EZA_TR Is Nothing Then
|
||||
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
' Else
|
||||
' EZA_TR.setEZA(EZA_FREMD)
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
' EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
' EZA_TR.shTr_Status = 5
|
||||
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
' EZA_TR.EZA.Company = "VERAG"
|
||||
' EZA_TR.EZA.Department = "SUB"
|
||||
|
||||
|
||||
' If EZA_TR.SAVE_ALL Then
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
' Return "OK"
|
||||
' Else
|
||||
' PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
' End If
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
' Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
' End Try
|
||||
|
||||
' Return PostValue
|
||||
|
||||
' End Function
|
||||
|
||||
|
||||
'End Class
|
||||
End Namespace
|
||||
|
||||
@@ -1,20 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace NEWTESTController.Controllers
|
||||
|
||||
<ApiVersion("2")>
|
||||
<ApiVersion("3")>
|
||||
<System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")>
|
||||
Public Class NEWTEST2Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "NEWTEST 2222"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -1,24 +0,0 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace TESTController.Controllers.V2
|
||||
|
||||
|
||||
|
||||
<ApiVersion("2")>
|
||||
<Route("api/v{version:apiVersion}/TEST")>
|
||||
Public Class TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "TEST 2"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
@@ -22,7 +22,7 @@ Namespace My.Resources
|
||||
'''<summary>
|
||||
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
|
||||
@@ -15,7 +15,7 @@ Option Explicit On
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.6.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="15.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Project="..\packages\Swashbuckle.AspNetCore.6.7.1\build\Swashbuckle.AspNetCore.props" Condition="Exists('..\packages\Swashbuckle.AspNetCore.6.7.1\build\Swashbuckle.AspNetCore.props')" />
|
||||
<Import Project="..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.props" Condition="Exists('..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.props')" />
|
||||
<Import Project="..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.props" Condition="Exists('..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.props')" />
|
||||
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
|
||||
<PropertyGroup>
|
||||
@@ -14,7 +16,7 @@
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>VERAG_REST_SERVER</RootNamespace>
|
||||
<AssemblyName>VERAG_REST_SERVER</AssemblyName>
|
||||
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
|
||||
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
|
||||
<MyType>Custom</MyType>
|
||||
<UseIISExpress>true</UseIISExpress>
|
||||
<Use64BitIISExpress />
|
||||
@@ -35,6 +37,7 @@
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
@@ -45,8 +48,22 @@
|
||||
<OutputPath>bin\</OutputPath>
|
||||
<DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
<GenerateSerializationAssemblies>Off</GenerateSerializationAssemblies>
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="Asp.Versioning.Abstractions, Version=7.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Asp.Versioning.Abstractions.7.0.0\lib\netstandard2.0\Asp.Versioning.Abstractions.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Asp.Versioning.WebApi, Version=7.1.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Asp.Versioning.WebApi.7.1.0\lib\net45\Asp.Versioning.WebApi.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="BCrypt.Net-Next, Version=4.0.3.0, Culture=neutral, PublicKeyToken=1e11be04b6288443, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\BCrypt.Net-Next.4.0.3\lib\net462\BCrypt.Net-Next.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="BouncyCastle.Crypto, Version=1.9.0.0, Culture=neutral, PublicKeyToken=0e99375e54769942, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Portable.BouncyCastle.1.9.0\lib\net40\BouncyCastle.Crypto.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.AspNet.WebApi.Versioning, Version=4.1.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNet.WebApi.Versioning.4.1.1\lib\net45\Microsoft.AspNet.WebApi.Versioning.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -84,6 +101,18 @@
|
||||
<Reference Include="Microsoft.AspNetCore.Metadata, Version=7.0.3.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNetCore.Metadata.7.0.3\lib\net462\Microsoft.AspNetCore.Metadata.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.AspNetCore.Mvc.Abstractions, Version=2.1.3.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNetCore.Mvc.Abstractions.2.1.3\lib\netstandard2.0\Microsoft.AspNetCore.Mvc.Abstractions.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.AspNetCore.Mvc.ApiExplorer, Version=2.1.3.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNetCore.Mvc.ApiExplorer.2.1.3\lib\netstandard2.0\Microsoft.AspNetCore.Mvc.ApiExplorer.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.AspNetCore.Mvc.Core, Version=2.1.3.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNetCore.Mvc.Core.2.1.3\lib\netstandard2.0\Microsoft.AspNetCore.Mvc.Core.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.AspNetCore.Mvc.DataAnnotations, Version=2.1.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNetCore.Mvc.DataAnnotations.2.1.0\lib\netstandard2.0\Microsoft.AspNetCore.Mvc.DataAnnotations.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.AspNetCore.ResponseCaching.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNetCore.ResponseCaching.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.ResponseCaching.Abstractions.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -166,20 +195,20 @@
|
||||
<Reference Include="Microsoft.Net.Http.Headers, Version=2.2.8.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Net.Http.Headers.2.2.8\lib\netstandard2.0\Microsoft.Net.Http.Headers.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.OpenApi, Version=1.6.1.0, Culture=neutral, PublicKeyToken=3f5743946376f042, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.OpenApi.1.6.1\lib\netstandard2.0\Microsoft.OpenApi.dll</HintPath>
|
||||
<Reference Include="Microsoft.OpenApi, Version=1.6.14.0, Culture=neutral, PublicKeyToken=3f5743946376f042, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.OpenApi.1.6.14\lib\netstandard2.0\Microsoft.OpenApi.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.Owin, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Owin.4.2.2\lib\net45\Microsoft.Owin.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.Owin.FileSystems, Version=3.0.1.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Owin.FileSystems.3.0.1\lib\net45\Microsoft.Owin.FileSystems.dll</HintPath>
|
||||
<Reference Include="Microsoft.Owin.FileSystems, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Owin.FileSystems.4.2.2\lib\net45\Microsoft.Owin.FileSystems.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.Owin.Host.SystemWeb, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Owin.Host.SystemWeb.4.2.2\lib\net45\Microsoft.Owin.Host.SystemWeb.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.Owin.StaticFiles, Version=3.0.1.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Owin.StaticFiles.3.0.1\lib\net45\Microsoft.Owin.StaticFiles.dll</HintPath>
|
||||
<Reference Include="Microsoft.Owin.StaticFiles, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Owin.StaticFiles.4.2.2\lib\net45\Microsoft.Owin.StaticFiles.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Microsoft.Web.Infrastructure, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Web.Infrastructure.1.0.0.0\lib\net40\Microsoft.Web.Infrastructure.dll</HintPath>
|
||||
@@ -187,30 +216,45 @@
|
||||
<Reference Include="Microsoft.Win32.Registry, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.Win32.Registry.4.5.0\lib\net461\Microsoft.Win32.Registry.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Namotion.Reflection, Version=2.1.0.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Namotion.Reflection.2.1.0\lib\net45\Namotion.Reflection.dll</HintPath>
|
||||
<Reference Include="Namotion.Reflection, Version=3.1.1.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Namotion.Reflection.3.1.1\lib\net462\Namotion.Reflection.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Newtonsoft.Json.13.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
|
||||
<HintPath>..\packages\Newtonsoft.Json.13.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NJsonSchema, Version=10.8.0.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NJsonSchema.10.8.0\lib\net45\NJsonSchema.dll</HintPath>
|
||||
<Reference Include="NJsonSchema, Version=11.0.2.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NJsonSchema.11.0.2\lib\net462\NJsonSchema.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NSwag.AspNet.Owin, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.AspNet.Owin.13.18.2\lib\net45\NSwag.AspNet.Owin.dll</HintPath>
|
||||
<Reference Include="NJsonSchema.Annotations, Version=11.0.2.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NJsonSchema.Annotations.11.0.2\lib\net462\NJsonSchema.Annotations.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NSwag.Core, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.Core.13.18.2\lib\net45\NSwag.Core.dll</HintPath>
|
||||
<Reference Include="NJsonSchema.NewtonsoftJson, Version=11.0.2.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NJsonSchema.NewtonsoftJson.11.0.2\lib\net462\NJsonSchema.NewtonsoftJson.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NSwag.Generation, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.Generation.13.18.2\lib\net45\NSwag.Generation.dll</HintPath>
|
||||
<Reference Include="NSwag.AspNet.Owin, Version=14.1.0.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.AspNet.Owin.14.1.0\lib\net462\NSwag.AspNet.Owin.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NSwag.Generation.WebApi, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.Generation.WebApi.13.18.2\lib\net45\NSwag.Generation.WebApi.dll</HintPath>
|
||||
<Reference Include="NSwag.Core, Version=14.1.0.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.Core.14.1.0\lib\net462\NSwag.Core.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NSwag.Generation, Version=14.1.0.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.Generation.14.1.0\lib\net462\NSwag.Generation.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="NSwag.Generation.WebApi, Version=14.1.0.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\NSwag.Generation.WebApi.14.1.0\lib\net462\NSwag.Generation.WebApi.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Owin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=f0ebd12fd5e55cc5, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Owin.1.0\lib\net40\Owin.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Swashbuckle.AspNetCore.Swagger, Version=6.7.1.0, Culture=neutral, PublicKeyToken=62657d7474907593, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Swashbuckle.AspNetCore.Swagger.6.7.1\lib\netstandard2.0\Swashbuckle.AspNetCore.Swagger.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Swashbuckle.AspNetCore.SwaggerGen, Version=6.7.1.0, Culture=neutral, PublicKeyToken=d84d99fb0135530a, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Swashbuckle.AspNetCore.SwaggerGen.6.7.1\lib\netstandard2.0\Swashbuckle.AspNetCore.SwaggerGen.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Swashbuckle.AspNetCore.SwaggerUI, Version=6.7.1.0, Culture=neutral, PublicKeyToken=4232c99127b3c254, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Swashbuckle.AspNetCore.SwaggerUI.6.7.1\lib\netstandard2.0\Swashbuckle.AspNetCore.SwaggerUI.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Swashbuckle.Core, Version=1.0.0.0, Culture=neutral, PublicKeyToken=cd1bb07a5ac7c7bc, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Swashbuckle.Core.5.6.0\lib\net40\Swashbuckle.Core.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -250,11 +294,7 @@
|
||||
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System.Runtime.InteropServices.RuntimeInformation, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\System.Runtime.InteropServices.RuntimeInformation.4.3.0\lib\net45\System.Runtime.InteropServices.RuntimeInformation.dll</HintPath>
|
||||
<Private>True</Private>
|
||||
<Private>True</Private>
|
||||
</Reference>
|
||||
<Reference Include="System.Runtime.InteropServices.RuntimeInformation" />
|
||||
<Reference Include="System.Runtime.Serialization" />
|
||||
<Reference Include="System.Security" />
|
||||
<Reference Include="System.Security.AccessControl, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
|
||||
@@ -283,12 +323,12 @@
|
||||
<Reference Include="System.ValueTuple, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\System.ValueTuple.4.5.0\lib\net47\System.ValueTuple.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="System.Web.Extensions" />
|
||||
<Reference Include="System.Web.DynamicData" />
|
||||
<Reference Include="System.Web.Entity" />
|
||||
<Reference Include="System.Web.ApplicationServices" />
|
||||
<Reference Include="System.ComponentModel.DataAnnotations" />
|
||||
<Reference Include="System.Web" />
|
||||
<Reference Include="System.Web.Extensions" />
|
||||
<Reference Include="System.Web.Http, Version=5.2.9.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\Microsoft.AspNet.WebApi.Core.5.2.9\lib\net45\System.Web.Http.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -300,10 +340,6 @@
|
||||
<Reference Include="System.Web.Services" />
|
||||
<Reference Include="System.EnterpriseServices" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Debug\VERAG_PROG_ALLGEMEIN.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="WebActivatorEx, Version=2.0.0.0, Culture=neutral, PublicKeyToken=7b26dc2a43f6a0d4, processorArchitecture=MSIL">
|
||||
<HintPath>..\packages\WebActivatorEx.2.0\lib\net40\WebActivatorEx.dll</HintPath>
|
||||
</Reference>
|
||||
@@ -342,14 +378,12 @@
|
||||
<Compile Include="App_Start\RouteConfig.vb" />
|
||||
<Compile Include="App_Start\SwaggerConfig.vb" />
|
||||
<Compile Include="App_Start\WebApiConfig.vb" />
|
||||
<Compile Include="Controllers\V1\AvisoController\AVISOController.vb" />
|
||||
<Compile Include="Controllers\V1\CustomsDeclaration\CustomsDeclarationController.vb" />
|
||||
<Compile Include="Controllers\V2\CustomsDeclarationController\CustomDeclarationController.vb" />
|
||||
<Compile Include="Controllers\V1\NCTS\NCTSController.vb" />
|
||||
<Compile Include="Controllers\V1\NEWTESTController\NEWTESTController.vb" />
|
||||
<Compile Include="Controllers\V2\NEWTESTController\NEWTESTController.vb" />
|
||||
<Compile Include="Controllers\V1\TestController\TESTController.vb" />
|
||||
<Compile Include="Controllers\V2\TestController\TESTController.vb" />
|
||||
<Compile Include="Controllers\ATEZ\ATEZController.vb" />
|
||||
<Compile Include="Controllers\AvisoController\AVISOController.vb" />
|
||||
<Compile Include="Controllers\CustomsDeclaration\CustomsDeclarationController.vb" />
|
||||
<Compile Include="Controllers\NCTS\NCTSController.vb" />
|
||||
<Compile Include="Controllers\NEWTESTController\NEWTESTController.vb" />
|
||||
<Compile Include="Controllers\TestController\TESTController.vb" />
|
||||
<Compile Include="cREST_Options.vb" />
|
||||
<Compile Include="Global.asax.vb">
|
||||
<DependentUpon>Global.asax</DependentUpon>
|
||||
@@ -360,6 +394,7 @@
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
<DesignTime>True</DesignTime>
|
||||
</Compile>
|
||||
<Compile Include="My Project\MyExtensions\MyWebExtension.vb">
|
||||
<VBMyExtensionTemplateID>Microsoft.VisualBasic.Web.MyExtension</VBMyExtensionTemplateID>
|
||||
@@ -412,6 +447,14 @@
|
||||
<Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project>
|
||||
<Name>NCTSPartnerWorker</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\..\ADMIN\ADMIN\VERAGMonitoring\VERAGMonitoring.vbproj">
|
||||
<Project>{6C5CFB90-BE10-4824-997D-B494A7CFF565}</Project>
|
||||
<Name>VERAGMonitoring</Name>
|
||||
</ProjectReference>
|
||||
<ProjectReference Include="..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
|
||||
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
|
||||
<Name>VERAG_PROG_ALLGEMEIN</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
|
||||
@@ -432,6 +475,9 @@
|
||||
<PropertyGroup>
|
||||
<SignAssembly>false</SignAssembly>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
|
||||
</PropertyGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
|
||||
<Import Project="$(VSToolsPath)\WebApplications\Microsoft.WebApplication.targets" Condition="'$(VSToolsPath)' != ''" />
|
||||
<Import Project="$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v10.0\WebApplications\Microsoft.WebApplication.targets" Condition="false" />
|
||||
@@ -460,9 +506,13 @@
|
||||
<Error Condition="!Exists('..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.3.6.0\build\net46\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.3.6.0\build\net46\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.targets'))" />
|
||||
<Error Condition="!Exists('..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.props'))" />
|
||||
<Error Condition="!Exists('..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.targets'))" />
|
||||
<Error Condition="!Exists('..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.props'))" />
|
||||
<Error Condition="!Exists('..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.targets')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.targets'))" />
|
||||
<Error Condition="!Exists('..\packages\Swashbuckle.AspNetCore.6.7.1\build\Swashbuckle.AspNetCore.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Swashbuckle.AspNetCore.6.7.1\build\Swashbuckle.AspNetCore.props'))" />
|
||||
</Target>
|
||||
<Import Project="..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.3.6.0\build\net46\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.targets" Condition="Exists('..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.3.6.0\build\net46\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.targets')" />
|
||||
<Import Project="..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.targets" Condition="Exists('..\packages\Microsoft.Extensions.FileProviders.Embedded.7.0.3\build\netstandard2.0\Microsoft.Extensions.FileProviders.Embedded.targets')" />
|
||||
<Import Project="..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.targets" Condition="Exists('..\packages\Microsoft.Extensions.ApiDescription.Server.6.0.5\build\Microsoft.Extensions.ApiDescription.Server.targets')" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
|
||||
@@ -1,12 +1,12 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0"?>
|
||||
<!--
|
||||
Weitere Informationen zum Konfigurieren Ihrer ASP.NET-Anwendung finden Sie unter
|
||||
https://go.microsoft.com/fwlink/?LinkId=301879
|
||||
-->
|
||||
<configuration>
|
||||
<appSettings>
|
||||
<add key="owin:AutomaticAppStartup" value="false" />
|
||||
</appSettings>
|
||||
<appSettings>
|
||||
<add key="owin:AutomaticAppStartup" value="false"/>
|
||||
</appSettings>
|
||||
<!--
|
||||
Eine Beschreibung der Änderungen von 'web.config' finden Sie unter 'http://go.microsoft.com/fwlink/?LinkId=235367'.
|
||||
|
||||
@@ -16,205 +16,228 @@
|
||||
</system.Web>
|
||||
-->
|
||||
<system.web>
|
||||
<compilation debug="true" targetFramework="4.7" />
|
||||
<httpRuntime targetFramework="4.5" />
|
||||
<compilation debug="true" targetFramework="4.8"/>
|
||||
<httpRuntime targetFramework="4.5"/>
|
||||
</system.web>
|
||||
<runtime>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" />
|
||||
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Web.Helpers" publicKeyToken="31bf3856ad364e35" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" />
|
||||
<assemblyIdentity name="System.Web.Helpers" publicKeyToken="31bf3856ad364e35"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Web.Mvc" publicKeyToken="31bf3856ad364e35" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.2.4.0" newVersion="5.2.4.0" />
|
||||
<assemblyIdentity name="System.Web.Mvc" publicKeyToken="31bf3856ad364e35"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.2.4.0" newVersion="5.2.4.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Web.WebPages" publicKeyToken="31bf3856ad364e35" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" />
|
||||
<assemblyIdentity name="System.Web.WebPages" publicKeyToken="31bf3856ad364e35"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
|
||||
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<!--<dependentAssembly>
|
||||
<assemblyIdentity name="System.Runtime.InteropServices.RuntimeInformation" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.2.0" newVersion="4.0.2.0"/>
|
||||
</dependentAssembly>-->
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Web.Http" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Runtime.InteropServices.RuntimeInformation" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.2.0" newVersion="4.0.2.0" />
|
||||
<assemblyIdentity name="System.Net.Http.Formatting" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Web.Http" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0" />
|
||||
<assemblyIdentity name="System.Text.Encodings.Web" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Net.Http.Formatting" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0" />
|
||||
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Text.Encodings.Web" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2" />
|
||||
<assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.FileProviders.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.Primitives" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.FileProviders.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.DependencyInjection.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.Primitives" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.Logging.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.DependencyInjection.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.Options" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.Logging.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Routing.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.Options" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1" />
|
||||
<assemblyIdentity name="Microsoft.Net.Http.Headers" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.8.0" newVersion="2.2.8.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Routing.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Routing" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Net.Http.Headers" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.8.0" newVersion="2.2.8.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Authentication.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Routing" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Authorization" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Authentication.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.DependencyInjection" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Authorization" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.WebUtilities" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.DependencyInjection" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.ResponseCaching.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.WebUtilities" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="System.ValueTuple" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.ResponseCaching.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Http" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.ValueTuple" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Http.Features" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.0.17.0" newVersion="5.0.17.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Http" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0" />
|
||||
<assemblyIdentity name="Microsoft.OpenApi" publicKeyToken="3f5743946376f042" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-1.6.1.0" newVersion="1.6.1.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Http.Features" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-5.0.17.0" newVersion="5.0.17.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.1.3.0" newVersion="2.1.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.OpenApi" publicKeyToken="3f5743946376f042" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-1.6.1.0" newVersion="1.6.1.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.Core" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.1.3.0" newVersion="2.1.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.2" newVersion="7.0.0.2"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.Core" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.5.0" newVersion="2.2.5.0" />
|
||||
<assemblyIdentity name="System.ComponentModel.Annotations" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.2.1.0" newVersion="4.2.1.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.2" newVersion="7.0.0.2" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.ApiExplorer" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.1.3.0" newVersion="2.1.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.ComponentModel.Annotations" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.2.1.0" newVersion="4.2.1.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.StaticFiles" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.ApiExplorer" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.FileProviders.Embedded" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.StaticFiles" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.ObjectPool" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.FileProviders.Embedded" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" />
|
||||
<assemblyIdentity name="System.IO.Pipelines" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.ObjectPool" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.WebEncoders" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.IO.Pipelines" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.WebEncoders" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" />
|
||||
<assemblyIdentity name="System.Diagnostics.DiagnosticSource" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.DependencyModel" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="System.Diagnostics.DiagnosticSource" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.Localization.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.DependencyModel" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" />
|
||||
<assemblyIdentity name="Microsoft.Extensions.Localization" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.Localization.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" />
|
||||
<assemblyIdentity name="Microsoft.Owin" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.2.2.0" newVersion="4.2.2.0"/>
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Extensions.Localization" publicKeyToken="adb9793829ddae60" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" />
|
||||
</dependentAssembly>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.Owin" publicKeyToken="31bf3856ad364e35" culture="neutral" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-4.2.2.0" newVersion="4.2.2.0" />
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Http.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Authentication.Core" culture="neutral" publicKeyToken="adb9793829ddae60" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Hosting.Abstractions" culture="neutral" publicKeyToken="adb9793829ddae60" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity name="Microsoft.AspNetCore.Http.Extensions" culture="neutral" publicKeyToken="adb9793829ddae60" />
|
||||
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" />
|
||||
</dependentAssembly>
|
||||
</assemblyBinding>
|
||||
</runtime>
|
||||
<system.codedom>
|
||||
<compilers>
|
||||
<compiler extension=".cs" language="c#;cs;csharp" warningLevel="4" compilerOptions="/langversion:7.3 /nowarn:1659;1699;1701;612;618" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=3.6.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
|
||||
<compiler extension=".vb" language="vb;vbs;visualbasic;vbscript" warningLevel="4" compilerOptions="/langversion:default /nowarn:41008,40000,40008 /define:_MYTYPE=\"Web\" /optionInfer+" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=3.6.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" />
|
||||
<compiler extension=".cs" language="c#;cs;csharp" warningLevel="4" compilerOptions="/langversion:7.3 /nowarn:1659;1699;1701;612;618" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=3.6.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
|
||||
<compiler extension=".vb" language="vb;vbs;visualbasic;vbscript" warningLevel="4" compilerOptions="/langversion:default /nowarn:41008,40000,40008 /define:_MYTYPE=\"Web\" /optionInfer+" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=3.6.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
|
||||
</compilers>
|
||||
</system.codedom>
|
||||
<system.webServer>
|
||||
<system.webServer>
|
||||
<handlers>
|
||||
<remove name="ExtensionlessUrlHandler-Integrated-4.0" />
|
||||
<remove name="OPTIONSVerbHandler" />
|
||||
<remove name="TRACEVerbHandler" />
|
||||
<add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0" />
|
||||
<add name="NSwag" path="swagger" verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0" />
|
||||
<remove name="ExtensionlessUrlHandler-Integrated-4.0"/>
|
||||
<remove name="OPTIONSVerbHandler"/>
|
||||
<remove name="TRACEVerbHandler"/>
|
||||
<add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0"/>
|
||||
<add name="NSwag" path="swagger" verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0"/>
|
||||
</handlers>
|
||||
</system.webServer></configuration>
|
||||
</system.webServer>
|
||||
</configuration>
|
||||
@@ -1,5 +1,8 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<packages>
|
||||
<package id="Asp.Versioning.Abstractions" version="7.0.0" targetFramework="net47" />
|
||||
<package id="Asp.Versioning.WebApi" version="7.1.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="BCrypt.Net-Next" version="4.0.3" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="Microsoft.AspNet.WebApi" version="5.2.9" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNet.WebApi.Client" version="5.2.9" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNet.WebApi.Client.de" version="5.2.9" targetFramework="net47" />
|
||||
@@ -24,14 +27,19 @@
|
||||
<package id="Microsoft.AspNetCore.Http.Extensions" version="2.2.0" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Http.Features" version="5.0.17" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Metadata" version="7.0.3" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Mvc.Abstractions" version="2.1.3" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Mvc.ApiExplorer" version="2.1.3" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Mvc.Core" version="2.1.3" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Mvc.DataAnnotations" version="2.1.0" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.ResponseCaching.Abstractions" version="2.2.0" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Routing" version="2.2.2" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.Routing.Abstractions" version="2.2.0" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.StaticFiles" version="2.2.0" targetFramework="net47" />
|
||||
<package id="Microsoft.AspNetCore.WebUtilities" version="2.2.0" targetFramework="net47" />
|
||||
<package id="Microsoft.Bcl.AsyncInterfaces" version="7.0.0" targetFramework="net47" />
|
||||
<package id="Microsoft.CodeDom.Providers.DotNetCompilerPlatform" version="3.6.0" targetFramework="net47" />
|
||||
<package id="Microsoft.CodeDom.Providers.DotNetCompilerPlatform" version="3.6.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="Microsoft.DotNet.PlatformAbstractions" version="3.1.6" targetFramework="net47" />
|
||||
<package id="Microsoft.Extensions.ApiDescription.Server" version="6.0.5" targetFramework="net47" developmentDependency="true" />
|
||||
<package id="Microsoft.Extensions.Configuration.Abstractions" version="7.0.0" targetFramework="net47" />
|
||||
<package id="Microsoft.Extensions.DependencyInjection" version="7.0.0" targetFramework="net47" />
|
||||
<package id="Microsoft.Extensions.DependencyInjection.Abstractions" version="7.0.0" targetFramework="net47" />
|
||||
@@ -46,31 +54,38 @@
|
||||
<package id="Microsoft.Extensions.Options" version="7.0.1" targetFramework="net47" />
|
||||
<package id="Microsoft.Extensions.Primitives" version="7.0.0" targetFramework="net47" />
|
||||
<package id="Microsoft.Extensions.WebEncoders" version="7.0.3" targetFramework="net47" />
|
||||
<package id="Microsoft.IdentityModel.Abstractions" version="6.27.0" targetFramework="net47" />
|
||||
<package id="Microsoft.IdentityModel.JsonWebTokens" version="6.27.0" targetFramework="net47" />
|
||||
<package id="Microsoft.IdentityModel.Logging" version="6.27.0" targetFramework="net47" />
|
||||
<package id="Microsoft.IdentityModel.Tokens" version="6.27.0" targetFramework="net47" />
|
||||
<package id="Microsoft.IdentityModel.Abstractions" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="Microsoft.IdentityModel.JsonWebTokens" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="Microsoft.IdentityModel.Logging" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="Microsoft.IdentityModel.Tokens" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="Microsoft.Net.Http.Headers" version="2.2.8" targetFramework="net47" />
|
||||
<package id="Microsoft.OpenApi" version="1.6.1" targetFramework="net47" />
|
||||
<package id="Microsoft.OpenApi" version="1.6.14" targetFramework="net47" />
|
||||
<package id="Microsoft.Owin" version="4.2.2" targetFramework="net47" />
|
||||
<package id="Microsoft.Owin.FileSystems" version="3.0.1" targetFramework="net47" />
|
||||
<package id="Microsoft.Owin.FileSystems" version="4.2.2" targetFramework="net47" />
|
||||
<package id="Microsoft.Owin.Host.SystemWeb" version="4.2.2" targetFramework="net47" />
|
||||
<package id="Microsoft.Owin.StaticFiles" version="3.0.1" targetFramework="net47" />
|
||||
<package id="Microsoft.Owin.StaticFiles" version="4.2.2" targetFramework="net47" />
|
||||
<package id="Microsoft.Web.Infrastructure" version="1.0.0.0" targetFramework="net47" />
|
||||
<package id="Microsoft.Win32.Registry" version="4.5.0" targetFramework="net47" />
|
||||
<package id="Namotion.Reflection" version="2.1.0" targetFramework="net47" />
|
||||
<package id="Newtonsoft.Json" version="13.0.2" targetFramework="net47" />
|
||||
<package id="NJsonSchema" version="10.8.0" targetFramework="net47" />
|
||||
<package id="NSwag.AspNet.Owin" version="13.18.2" targetFramework="net47" />
|
||||
<package id="NSwag.Core" version="13.18.2" targetFramework="net47" />
|
||||
<package id="NSwag.Generation" version="13.18.2" targetFramework="net47" />
|
||||
<package id="NSwag.Generation.WebApi" version="13.18.2" targetFramework="net47" />
|
||||
<package id="Namotion.Reflection" version="3.1.1" targetFramework="net47" />
|
||||
<package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
|
||||
<package id="NJsonSchema" version="11.0.2" targetFramework="net47" />
|
||||
<package id="NJsonSchema.Annotations" version="11.0.2" targetFramework="net47" />
|
||||
<package id="NJsonSchema.NewtonsoftJson" version="11.0.2" targetFramework="net47" />
|
||||
<package id="NSwag.AspNet.Owin" version="14.1.0" targetFramework="net47" />
|
||||
<package id="NSwag.Core" version="14.1.0" targetFramework="net47" />
|
||||
<package id="NSwag.Generation" version="14.1.0" targetFramework="net47" />
|
||||
<package id="NSwag.Generation.WebApi" version="14.1.0" targetFramework="net47" />
|
||||
<package id="Owin" version="1.0" targetFramework="net47" />
|
||||
<package id="Portable.BouncyCastle" version="1.9.0" targetFramework="net47" />
|
||||
<package id="Swashbuckle.AspNetCore" version="6.7.1" targetFramework="net47" />
|
||||
<package id="Swashbuckle.AspNetCore.Swagger" version="6.7.1" targetFramework="net47" />
|
||||
<package id="Swashbuckle.AspNetCore.SwaggerGen" version="6.7.1" targetFramework="net47" />
|
||||
<package id="Swashbuckle.AspNetCore.SwaggerUI" version="6.7.1" targetFramework="net47" />
|
||||
<package id="Swashbuckle.Core" version="5.6.0" targetFramework="net47" />
|
||||
<package id="System.Buffers" version="4.5.1" targetFramework="net47" />
|
||||
<package id="System.ComponentModel.Annotations" version="5.0.0" targetFramework="net47" />
|
||||
<package id="System.Diagnostics.DiagnosticSource" version="7.0.1" targetFramework="net47" />
|
||||
<package id="System.IdentityModel.Tokens.Jwt" version="6.27.0" targetFramework="net47" />
|
||||
<package id="System.IdentityModel.Tokens.Jwt" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
|
||||
<package id="System.IO.Pipelines" version="7.0.0" targetFramework="net47" />
|
||||
<package id="System.Memory" version="4.5.5" targetFramework="net47" />
|
||||
<package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" />
|
||||
|
||||
Reference in New Issue
Block a user