edv/REST_SERVER
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

REST

Browse Source
This commit is contained in:
d.breimaier
2024-11-05 08:28:42 +01:00
parent 4ecf802db3
commit 8ab7ab8c38
24 changed files with 1240 additions and 1992 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
VERAG_REST_SERVER.sln
View File

@@ -4,11 +4,16 @@ Microsoft Visual Studio Solution File, Format Version 12.00
VisualStudioVersion = 17.3.32825.248 VisualStudioVersion = 17.3.32825.248
MinimumVisualStudioVersion = 10.0.40219.1 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_REST_SERVER", "VERAG_REST_SERVER\VERAG_REST_SERVER.vbproj", "{7DF44971-3806-4AEB-9F92-4A1A07837616}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_REST_SERVER", "VERAG_REST_SERVER\VERAG_REST_SERVER.vbproj", "{7DF44971-3806-4AEB-9F92-4A1A07837616}"
ProjectSection(ProjectDependencies) = postProject
{A3B497BD-842C-4A2B-B398-ED1976849DF1} = {A3B497BD-842C-4A2B-B398-ED1976849DF1}
EndProjectSection
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGMonitoring", "..\ADMIN\ADMIN\VERAGMonitoring\VERAGMonitoring.vbproj", "{6C5CFB90-BE10-4824-997D-B494A7CFF565}"
EndProject
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU Debug|Any CPU = Debug|Any CPU
@@ -41,6 +46,14 @@ Global
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.ActiveCfg = Release|Any CPU {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.ActiveCfg = Release|Any CPU
{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.Build.0 = Release|Any CPU {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|x64.Build.0 = Release|Any CPU
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Debug|Any CPU.Build.0 = Debug|Any CPU
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Debug|x64.ActiveCfg = Debug|x64
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Debug|x64.Build.0 = Debug|x64
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|Any CPU.ActiveCfg = Release|Any CPU
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|Any CPU.Build.0 = Release|Any CPU
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|x64.ActiveCfg = Release|x64
{6C5CFB90-BE10-4824-997D-B494A7CFF565}.Release|x64.Build.0 = Release|x64
EndGlobalSection EndGlobalSection
GlobalSection(SolutionProperties) = preSolution GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE HideSolutionNode = FALSE

11
VERAG_REST_SERVER/App_Start/BasicAuthenticationAttribute.vb
View File

@@ -3,12 +3,8 @@ Imports System.Net.Http
Imports System.Security.Principal Imports System.Security.Principal
Imports System.Threading Imports System.Threading
Imports System.Web.Http.Controllers Imports System.Web.Http.Controllers
Imports System.Web.Http.Description
Imports System.Web.Http.Filters Imports System.Web.Http.Filters
Imports Microsoft.AspNetCore.Authorization
Imports Swashbuckle.Swagger
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
@@ -25,6 +21,7 @@ Public Class BasicAuthenticationAttribute
Dim usernamePasswordArray = decodedAuthenticationToken.Split(":"c) Dim usernamePasswordArray = decodedAuthenticationToken.Split(":"c)
Dim userName = usernamePasswordArray(0) Dim userName = usernamePasswordArray(0)
Dim password = usernamePasswordArray(1) 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 SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim authenticated As Boolean = False Dim authenticated As Boolean = False
Dim Response = SQL.DLookup("username", "tblAuthentication", "username='" & user & "' and password='" & password & "'", "FMZOLL", "") Dim hashedPassword = SQL.DLookup("hashedPassword", "tblRESTAuthentication", "username='" & user & "' AND type = 'REST'", "ADMIN", "")
If Response <> "" Then If hashedPassword <> "" Then
authenticated = True authenticated = BCrypt.Net.BCrypt.Verify(password, hashedPassword)
End If End If
Return authenticated Return authenticated

59
VERAG_REST_SERVER/App_Start/SwaggerConfig.vb
View File

@@ -26,24 +26,25 @@ Public Class SwaggerConfig
Dim commentsFileName = Assembly.GetExecutingAssembly().GetName().Name + ".XML" Dim commentsFileName = Assembly.GetExecutingAssembly().GetName().Name + ".XML"
Dim commentsFile = Path.Combine(baseDirectory, commentsFileName) Dim commentsFile = Path.Combine(baseDirectory, commentsFileName)
GlobalConfiguration.Configuration.EnableSwagger(Function(c) GlobalConfiguration.Configuration.EnableSwagger(Function(c) As SwaggerDocsConfig
c.PrettyPrint() 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) vc.Version("1", descr & " V1").Description("A sample API for testing ").TermsOfService("Some Terms").Contact(Function(cont) As ContactBuilder
cont.Name("VERAG AG") cont.Name("VERAG AG")
cont.Url("http://test.at") cont.Url("http://test.at")
cont.Email("Mail.test") cont.Email("Mail.test")
End Function).License(Function(lic) End Function).License(Function(lic)
lic.Name("Lizenz") lic.Name("Lizenz")
lic.Url("http://test.at") lic.Url("http://test.at")
End Function) End Function)
vc.Version("v2", descr & " V2") vc.Version("2", descr & " V2")
vc.Version("v3", descr & " V3") vc.Version("3", descr & " V3")
Return vc
End Function) End Function)
@@ -59,8 +60,8 @@ Public Class SwaggerConfig
'c.OperationFilter(Of BasicAuthenticationAttribute)() 'c.OperationFilter(Of BasicAuthenticationAttribute)()
Return c
End Function).EnableSwaggerUi(Function(c) End Function).EnableSwaggerUi(Function(c) As SwaggerUiConfig
c.DocumentTitle(descr) c.DocumentTitle(descr)
c.EnableDiscoveryUrlSelector() c.EnableDiscoveryUrlSelector()
@@ -68,13 +69,13 @@ Public Class SwaggerConfig
c.CustomAsset("index", thisAssembly, "VERAG_REST_SERVER.my_index.html") c.CustomAsset("index", thisAssembly, "VERAG_REST_SERVER.my_index.html")
Return c
End Function) End Function)
End Sub End Sub
@@ -85,15 +86,27 @@ Public Class SwaggerConfig
End Function End Function
Public Shared Sub Register(ByVal config As HttpConfiguration) Public Shared Sub Register(ByVal config As HttpConfiguration)
RouteTable.Routes.MapOwinPath("swagger", Function(app) As Owin.IAppBuilder 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 app.UseSwaggerUi(GetType(WebApiApplication).Assembly, Function(settings) As SwaggerUiSettings(Of NSwag.Generation.WebApi.WebApiOpenApiDocumentGeneratorSettings)
End Function) 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 Function)
End Sub End Sub
End Class End Class

59
VERAG_REST_SERVER/App_Start/WebApiConfig.vb
View File

@@ -73,14 +73,14 @@ Public Module WebApiConfig
config.AddApiVersioning(Function(options) 'config.AddApiVersioning(Function(options)
options.ReportApiVersions = True ' options.ReportApiVersions = True
options.AssumeDefaultVersionWhenUnspecified = True ' options.AssumeDefaultVersionWhenUnspecified = True
options.ApiVersionReader = ApiVersionReader.Combine(New UrlSegmentApiVersionReader(), ' options.ApiVersionReader = ApiVersionReader.Combine(New UrlSegmentApiVersionReader(),
New HeaderApiVersionReader("x-api-version"), ' New HeaderApiVersionReader("x-api-version"),
New MediaTypeApiVersionReader("x-api-version")) ' New MediaTypeApiVersionReader("x-api-version"))
'options.DefaultApiVersion = New ApiVersion("1") ' 'options.DefaultApiVersion = New ApiVersion("1")
End Function) ' End Function)
config.AddVersionedApiExplorer(Function(c) config.AddVersionedApiExplorer(Function(c)
@@ -98,15 +98,50 @@ Public Module WebApiConfig
Public Sub Register(ByVal config As HttpConfiguration) Public Sub Register(ByVal config As HttpConfiguration)
SwaggerConfig.Register(config)
Dim constraintsResolver = New DefaultInlineConstraintResolver() Dim constraintsResolver = New DefaultInlineConstraintResolver()
constraintsResolver.ConstraintMap.Add("apiVersion", GetType(ApiVersionRouteConstraint)) constraintsResolver.ConstraintMap.Add("apiVersion", GetType(ApiVersionRouteConstraint))
config.MapHttpAttributeRoutes(constraintsResolver) 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 End Sub

66
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController CBAM.vb Normal file
View 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
View 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

526
VERAG_REST_SERVER/Controllers/AvisoController/AVISOController.vb
View File

@@ -1,214 +1,375 @@
 Imports System.IO
Imports System.Web.Http Imports System.Web.Http.Description
Imports Microsoft.Web.Http Imports Microsoft.Web.Http
Imports VERAG_PROG_ALLGEMEIN
Namespace ApiController.Controllers Namespace ApiController.Controllers
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/AVISO")>
<BasicAuthentication>
Public Class AVISOController Public Class AVISOController
Inherits System.Web.Http.ApiController Inherits System.Web.Http.ApiController
''' <summary> ''' <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> ''' </summary>
''' <returns>A SharePriceResponse which contains the price of the share</returns> '''
''' <response code="200">Returns 200 And Hallo World</response> ''' <returns>OK, if file is uploaded or ERROR-Code if something went wrong</returns>
''' <response code="400">Returns 400 if the query Is invalid</response>
Public Function GetValue() As String ''' <response code="200">Returns 200 file is uploaded sucessfully</response>
Return "Hello world!" ''' <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 End Function
''' <summary>
''' Set the Test
''' </summary> <ApiVersion("1")>
''' <param name="Traviso">TRAviso</param> <System.Web.Http.Route("api/v{version:apiVersion}/uploadAvisoAttString")>
''' <returns>A SharePriceResponse which contains the price of the share</returns> <BasicAuthentication>
''' <response code="200">Returns 200 and the TRAviso-JSON-Object</response> Public Function uploadAvisoAttString(anhangsart As String, arrayOfFiles As String, Optional avisoId As Integer = -1, Optional sendungsId As Integer = -1) As String
''' <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.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL 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 SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress() 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 Try
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
Dim resultJson2 = jsonString.FromClass(API_AVISO)
SQL.doSQL("insert into tbltest (test) Values('IN_AVISO_" & resultJson2 & "')", "FMZOLL")
Catch ex As Exception Catch ex As Exception
End Try End Try
Return "OK"
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") ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
Return PostValue Return TESTEN_POST
End Function End Function
End Class End Class
'------------------------------------------------------------------------
'----------------------------------TEST----------------------------------
'------------------------------------------------------------------------
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")> <ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TEST/AVISO")> <System.Web.Http.Route("api/v{version:apiVersion}/TEST/AVISO")>
Public Class AVISO1TESTController Public Class AVISO1TESTController
@@ -392,9 +553,6 @@ Namespace ApiController.Controllers
End Class End Class
Class VERAG_IN_AVISO_Exceptions Class VERAG_IN_AVISO_Exceptions
Public Const ERR_01_Wrong_Format As String = "ERR_01" Public Const ERR_01_Wrong_Format As String = "ERR_01"
Public Const ERR_02_Missing_Company As String = "ERR_02" Public Const ERR_02_Missing_Company As String = "ERR_02"

102
VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb
View File

@@ -1,12 +1,14 @@
Imports System.Net Imports System.Net
Imports System.Web.Http Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http Imports Microsoft.Web.Http
Imports Newtonsoft.Json Imports Newtonsoft.Json
Namespace api_CustomsDeclaration.Controllers Namespace api_CustomsDeclaration.Controllers
<ApiVersion("1")> <ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")> <System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
Public Class CustomsDeclaration1Controller Public Class CustomsDeclaration1Controller
Inherits System.Web.Http.ApiController Inherits System.Web.Http.ApiController
@@ -21,78 +23,78 @@ Namespace api_CustomsDeclaration.Controllers
Return EZA Return EZA
End Function End Function
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String '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 = False
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 ' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress() ' 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) ' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL") ' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL")
Catch ex As Exception ' Catch ex As Exception
SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL") ' SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
End Try ' End Try
PostValue = "EZA_ERR" ' PostValue = "EZA_ERR"
Try ' Try
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format ' 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.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference ' ' 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 ' If EZA_TR Is Nothing Then
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD) ' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
Else ' Else
EZA_TR.setEZA(EZA_FREMD) ' EZA_TR.setEZA(EZA_FREMD)
End If ' End If
EZA_TR.shTr_Partnersystem = "ATEZ" ' EZA_TR.shTr_Partnersystem = "ATEZ"
EZA_TR.shTr_Status = 5 ' EZA_TR.shTr_Status = 5
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5 ' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
EZA_TR.EZA.Company = "VERAG" ' EZA_TR.EZA.Company = "VERAG"
EZA_TR.EZA.Department = "SUB" ' EZA_TR.EZA.Department = "SUB"
'EZA_TR.Reference = "" ' 'EZA_TR.Reference = ""
If EZA_TR.SAVE_ALL Then ' If EZA_TR.SAVE_ALL Then
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString ' 'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
'Dim resultJson = jsonString.FromClass(EZA_FREMD) ' 'Dim resultJson = jsonString.FromClass(EZA_FREMD)
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL") ' '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) 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") ' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
Return "OK" ' Return "OK"
Else ' Else
PostValue = EZA_Exceptions.ERR_04_InternalSave ' PostValue = EZA_Exceptions.ERR_04_InternalSave
End If ' End If
Catch ex As Exception ' 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) ' 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") ' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
Return EZA_Exceptions.ERR_03_InternalVerarb ' Return EZA_Exceptions.ERR_03_InternalVerarb
End Try ' 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 End Class

7
VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb
View File

@@ -1,12 +1,13 @@
Imports System.Net Imports System.Net
Imports System.Web.Http Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http Imports Microsoft.Web.Http
Imports Newtonsoft.Json Imports Newtonsoft.Json
Namespace ApiController.Controllers Namespace ApiController.Controllers
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")> <ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TR_NCTS")> <System.Web.Http.Route("api/v{version:apiVersion}/TR_NCTS")>
Public Class TR_NCTS1Controller Public Class TR_NCTS1Controller
@@ -39,7 +40,7 @@ Namespace ApiController.Controllers
'End Function 'End Function
Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String 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 VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -261,7 +262,7 @@ Namespace ApiController.Controllers
'------------------------------------------------------------------------ '------------------------------------------------------------------------
'----------------------------------TEST---------------------------------- '----------------------------------TEST----------------------------------
'------------------------------------------------------------------------ '------------------------------------------------------------------------
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("001")> <ApiVersion("001")>
<System.Web.Http.Route("api/V001/TEST/TR_NCTS")> <System.Web.Http.Route("api/V001/TEST/TR_NCTS")>
Public Class TR_NCTSV001TESTController Public Class TR_NCTSV001TESTController

2
VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb
View File

@@ -1,5 +1,6 @@
Imports System.Net Imports System.Net
Imports System.Web.Http Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http Imports Microsoft.Web.Http
Imports Newtonsoft.Json Imports Newtonsoft.Json
@@ -8,6 +9,7 @@ Imports Newtonsoft.Json
Namespace NEWTESTController.Controllers Namespace NEWTESTController.Controllers
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")> <ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")> <System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")>
Public Class NEWTEST1Controller Public Class NEWTEST1Controller

2
VERAG_REST_SERVER/Controllers/TestController/TESTController.vb
View File

@@ -1,11 +1,13 @@
Imports System.Net Imports System.Net
Imports System.Web.Http Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http Imports Microsoft.Web.Http
Imports Newtonsoft.Json Imports Newtonsoft.Json
Namespace ApiController.Controllers Namespace ApiController.Controllers
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")> <ApiVersion("1")>
<Route("api/v{version:apiVersion}/TEST")> <Route("api/v{version:apiVersion}/TEST")>
Public Class TESTController Public Class TESTController

420
VERAG_REST_SERVER/Controllers/V1/AvisoController/AVISOController.vb
View File

@@ -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

151
VERAG_REST_SERVER/Controllers/V1/CustomsDeclaration/CustomsDeclarationController.vb
View File

@@ -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

500
VERAG_REST_SERVER/Controllers/V1/NCTS/NCTSController.vb
View File

@@ -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

21
VERAG_REST_SERVER/Controllers/V1/NEWTESTController/NEWTESTController.vb
View File

@@ -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

22
VERAG_REST_SERVER/Controllers/V1/TestController/TESTController.vb
View File

@@ -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

392
VERAG_REST_SERVER/Controllers/V2/CustomsDeclarationController/CustomDeclarationController.vb
View File

@@ -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

20
VERAG_REST_SERVER/Controllers/V2/NEWTESTController/NEWTESTController.vb
View File

@@ -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

24
VERAG_REST_SERVER/Controllers/V2/TestController/TESTController.vb
View File

@@ -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

2
VERAG_REST_SERVER/My Project/Resources.Designer.vb generated
View File

@@ -22,7 +22,7 @@ Namespace My.Resources
'''<summary> '''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _

2
VERAG_REST_SERVER/My Project/Settings.Designer.vb generated
View File

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <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)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase

126
VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj
View File

@@ -1,5 +1,7 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <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="..\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')" /> <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup> <PropertyGroup>
@@ -14,7 +16,7 @@
<OutputType>Library</OutputType> <OutputType>Library</OutputType>
<RootNamespace>VERAG_REST_SERVER</RootNamespace> <RootNamespace>VERAG_REST_SERVER</RootNamespace>
<AssemblyName>VERAG_REST_SERVER</AssemblyName> <AssemblyName>VERAG_REST_SERVER</AssemblyName>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion> <TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<MyType>Custom</MyType> <MyType>Custom</MyType>
<UseIISExpress>true</UseIISExpress> <UseIISExpress>true</UseIISExpress>
<Use64BitIISExpress /> <Use64BitIISExpress />
@@ -35,6 +37,7 @@
<OutputPath>bin\</OutputPath> <OutputPath>bin\</OutputPath>
<DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile> <DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<PlatformTarget>x64</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugSymbols>true</DebugSymbols> <DebugSymbols>true</DebugSymbols>
@@ -45,8 +48,22 @@
<OutputPath>bin\</OutputPath> <OutputPath>bin\</OutputPath>
<DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile> <DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<GenerateSerializationAssemblies>Off</GenerateSerializationAssemblies>
<PlatformTarget>AnyCPU</PlatformTarget>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <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"> <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> <HintPath>..\packages\Microsoft.AspNet.WebApi.Versioning.4.1.1\lib\net45\Microsoft.AspNet.WebApi.Versioning.dll</HintPath>
</Reference> </Reference>
@@ -84,6 +101,18 @@
<Reference Include="Microsoft.AspNetCore.Metadata, Version=7.0.3.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL"> <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> <HintPath>..\packages\Microsoft.AspNetCore.Metadata.7.0.3\lib\net462\Microsoft.AspNetCore.Metadata.dll</HintPath>
</Reference> </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"> <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> <HintPath>..\packages\Microsoft.AspNetCore.ResponseCaching.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.ResponseCaching.Abstractions.dll</HintPath>
</Reference> </Reference>
@@ -166,20 +195,20 @@
<Reference Include="Microsoft.Net.Http.Headers, Version=2.2.8.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL"> <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> <HintPath>..\packages\Microsoft.Net.Http.Headers.2.2.8\lib\netstandard2.0\Microsoft.Net.Http.Headers.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.OpenApi, Version=1.6.1.0, Culture=neutral, PublicKeyToken=3f5743946376f042, processorArchitecture=MSIL"> <Reference Include="Microsoft.OpenApi, Version=1.6.14.0, Culture=neutral, PublicKeyToken=3f5743946376f042, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.OpenApi.1.6.1\lib\netstandard2.0\Microsoft.OpenApi.dll</HintPath> <HintPath>..\packages\Microsoft.OpenApi.1.6.14\lib\netstandard2.0\Microsoft.OpenApi.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.Owin, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL"> <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> <HintPath>..\packages\Microsoft.Owin.4.2.2\lib\net45\Microsoft.Owin.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.Owin.FileSystems, Version=3.0.1.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL"> <Reference Include="Microsoft.Owin.FileSystems, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Owin.FileSystems.3.0.1\lib\net45\Microsoft.Owin.FileSystems.dll</HintPath> <HintPath>..\packages\Microsoft.Owin.FileSystems.4.2.2\lib\net45\Microsoft.Owin.FileSystems.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.Owin.Host.SystemWeb, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL"> <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> <HintPath>..\packages\Microsoft.Owin.Host.SystemWeb.4.2.2\lib\net45\Microsoft.Owin.Host.SystemWeb.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.Owin.StaticFiles, Version=3.0.1.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL"> <Reference Include="Microsoft.Owin.StaticFiles, Version=4.2.2.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Owin.StaticFiles.3.0.1\lib\net45\Microsoft.Owin.StaticFiles.dll</HintPath> <HintPath>..\packages\Microsoft.Owin.StaticFiles.4.2.2\lib\net45\Microsoft.Owin.StaticFiles.dll</HintPath>
</Reference> </Reference>
<Reference Include="Microsoft.Web.Infrastructure, Version=1.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL"> <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> <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"> <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> <HintPath>..\packages\Microsoft.Win32.Registry.4.5.0\lib\net461\Microsoft.Win32.Registry.dll</HintPath>
</Reference> </Reference>
<Reference Include="Namotion.Reflection, Version=2.1.0.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL"> <Reference Include="Namotion.Reflection, Version=3.1.1.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
<HintPath>..\packages\Namotion.Reflection.2.1.0\lib\net45\Namotion.Reflection.dll</HintPath> <HintPath>..\packages\Namotion.Reflection.3.1.1\lib\net462\Namotion.Reflection.dll</HintPath>
</Reference> </Reference>
<Reference Include="Newtonsoft.Json, Version=13.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL"> <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>
<Reference Include="NJsonSchema, Version=10.8.0.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL"> <Reference Include="NJsonSchema, Version=11.0.2.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
<HintPath>..\packages\NJsonSchema.10.8.0\lib\net45\NJsonSchema.dll</HintPath> <HintPath>..\packages\NJsonSchema.11.0.2\lib\net462\NJsonSchema.dll</HintPath>
</Reference> </Reference>
<Reference Include="NSwag.AspNet.Owin, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL"> <Reference Include="NJsonSchema.Annotations, Version=11.0.2.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
<HintPath>..\packages\NSwag.AspNet.Owin.13.18.2\lib\net45\NSwag.AspNet.Owin.dll</HintPath> <HintPath>..\packages\NJsonSchema.Annotations.11.0.2\lib\net462\NJsonSchema.Annotations.dll</HintPath>
</Reference> </Reference>
<Reference Include="NSwag.Core, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL"> <Reference Include="NJsonSchema.NewtonsoftJson, Version=11.0.2.0, Culture=neutral, PublicKeyToken=c2f9c3bdfae56102, processorArchitecture=MSIL">
<HintPath>..\packages\NSwag.Core.13.18.2\lib\net45\NSwag.Core.dll</HintPath> <HintPath>..\packages\NJsonSchema.NewtonsoftJson.11.0.2\lib\net462\NJsonSchema.NewtonsoftJson.dll</HintPath>
</Reference> </Reference>
<Reference Include="NSwag.Generation, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL"> <Reference Include="NSwag.AspNet.Owin, Version=14.1.0.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
<HintPath>..\packages\NSwag.Generation.13.18.2\lib\net45\NSwag.Generation.dll</HintPath> <HintPath>..\packages\NSwag.AspNet.Owin.14.1.0\lib\net462\NSwag.AspNet.Owin.dll</HintPath>
</Reference> </Reference>
<Reference Include="NSwag.Generation.WebApi, Version=13.18.2.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL"> <Reference Include="NSwag.Core, Version=14.1.0.0, Culture=neutral, PublicKeyToken=c2d88086e098d109, processorArchitecture=MSIL">
<HintPath>..\packages\NSwag.Generation.WebApi.13.18.2\lib\net45\NSwag.Generation.WebApi.dll</HintPath> <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>
<Reference Include="Owin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=f0ebd12fd5e55cc5, processorArchitecture=MSIL"> <Reference Include="Owin, Version=1.0.0.0, Culture=neutral, PublicKeyToken=f0ebd12fd5e55cc5, processorArchitecture=MSIL">
<HintPath>..\packages\Owin.1.0\lib\net40\Owin.dll</HintPath> <HintPath>..\packages\Owin.1.0\lib\net40\Owin.dll</HintPath>
</Reference> </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"> <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> <HintPath>..\packages\Swashbuckle.Core.5.6.0\lib\net40\Swashbuckle.Core.dll</HintPath>
</Reference> </Reference>
@@ -250,11 +294,7 @@
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"> <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> <HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.6.0.0\lib\net461\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference> </Reference>
<Reference Include="System.Runtime.InteropServices.RuntimeInformation, Version=4.0.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"> <Reference Include="System.Runtime.InteropServices.RuntimeInformation" />
<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.Serialization" /> <Reference Include="System.Runtime.Serialization" />
<Reference Include="System.Security" /> <Reference Include="System.Security" />
<Reference Include="System.Security.AccessControl, Version=4.1.1.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"> <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"> <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> <HintPath>..\packages\System.ValueTuple.4.5.0\lib\net47\System.ValueTuple.dll</HintPath>
</Reference> </Reference>
<Reference Include="System.Web.Extensions" />
<Reference Include="System.Web.DynamicData" /> <Reference Include="System.Web.DynamicData" />
<Reference Include="System.Web.Entity" /> <Reference Include="System.Web.Entity" />
<Reference Include="System.Web.ApplicationServices" /> <Reference Include="System.Web.ApplicationServices" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Web" /> <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"> <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> <HintPath>..\packages\Microsoft.AspNet.WebApi.Core.5.2.9\lib\net45\System.Web.Http.dll</HintPath>
</Reference> </Reference>
@@ -300,10 +340,6 @@
<Reference Include="System.Web.Services" /> <Reference Include="System.Web.Services" />
<Reference Include="System.EnterpriseServices" /> <Reference Include="System.EnterpriseServices" />
<Reference Include="System.Xml.Linq" /> <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"> <Reference Include="WebActivatorEx, Version=2.0.0.0, Culture=neutral, PublicKeyToken=7b26dc2a43f6a0d4, processorArchitecture=MSIL">
<HintPath>..\packages\WebActivatorEx.2.0\lib\net40\WebActivatorEx.dll</HintPath> <HintPath>..\packages\WebActivatorEx.2.0\lib\net40\WebActivatorEx.dll</HintPath>
</Reference> </Reference>
@@ -342,14 +378,12 @@
<Compile Include="App_Start\RouteConfig.vb" /> <Compile Include="App_Start\RouteConfig.vb" />
<Compile Include="App_Start\SwaggerConfig.vb" /> <Compile Include="App_Start\SwaggerConfig.vb" />
<Compile Include="App_Start\WebApiConfig.vb" /> <Compile Include="App_Start\WebApiConfig.vb" />
<Compile Include="Controllers\V1\AvisoController\AVISOController.vb" /> <Compile Include="Controllers\ATEZ\ATEZController.vb" />
<Compile Include="Controllers\V1\CustomsDeclaration\CustomsDeclarationController.vb" /> <Compile Include="Controllers\AvisoController\AVISOController.vb" />
<Compile Include="Controllers\V2\CustomsDeclarationController\CustomDeclarationController.vb" /> <Compile Include="Controllers\CustomsDeclaration\CustomsDeclarationController.vb" />
<Compile Include="Controllers\V1\NCTS\NCTSController.vb" /> <Compile Include="Controllers\NCTS\NCTSController.vb" />
<Compile Include="Controllers\V1\NEWTESTController\NEWTESTController.vb" /> <Compile Include="Controllers\NEWTESTController\NEWTESTController.vb" />
<Compile Include="Controllers\V2\NEWTESTController\NEWTESTController.vb" /> <Compile Include="Controllers\TestController\TESTController.vb" />
<Compile Include="Controllers\V1\TestController\TESTController.vb" />
<Compile Include="Controllers\V2\TestController\TESTController.vb" />
<Compile Include="cREST_Options.vb" /> <Compile Include="cREST_Options.vb" />
<Compile Include="Global.asax.vb"> <Compile Include="Global.asax.vb">
<DependentUpon>Global.asax</DependentUpon> <DependentUpon>Global.asax</DependentUpon>
@@ -360,6 +394,7 @@
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>
<DesignTime>True</DesignTime>
</Compile> </Compile>
<Compile Include="My Project\MyExtensions\MyWebExtension.vb"> <Compile Include="My Project\MyExtensions\MyWebExtension.vb">
<VBMyExtensionTemplateID>Microsoft.VisualBasic.Web.MyExtension</VBMyExtensionTemplateID> <VBMyExtensionTemplateID>Microsoft.VisualBasic.Web.MyExtension</VBMyExtensionTemplateID>
@@ -412,6 +447,14 @@
<Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project> <Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project>
<Name>NCTSPartnerWorker</Name> <Name>NCTSPartnerWorker</Name>
</ProjectReference> </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> </ItemGroup>
<PropertyGroup> <PropertyGroup>
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion> <VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
@@ -432,6 +475,9 @@
<PropertyGroup> <PropertyGroup>
<SignAssembly>false</SignAssembly> <SignAssembly>false</SignAssembly>
</PropertyGroup> </PropertyGroup>
<PropertyGroup>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
</PropertyGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" /> <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<Import Project="$(VSToolsPath)\WebApplications\Microsoft.WebApplication.targets" Condition="'$(VSToolsPath)' != ''" /> <Import Project="$(VSToolsPath)\WebApplications\Microsoft.WebApplication.targets" Condition="'$(VSToolsPath)' != ''" />
<Import Project="$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v10.0\WebApplications\Microsoft.WebApplication.targets" Condition="false" /> <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.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.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.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> </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.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.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. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild"> <Target Name="BeforeBuild">

237
VERAG_REST_SERVER/Web.config
View File

@@ -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 Weitere Informationen zum Konfigurieren Ihrer ASP.NET-Anwendung finden Sie unter
https://go.microsoft.com/fwlink/?LinkId=301879 https://go.microsoft.com/fwlink/?LinkId=301879
--> -->
<configuration> <configuration>
<appSettings> <appSettings>
<add key="owin:AutomaticAppStartup" value="false" /> <add key="owin:AutomaticAppStartup" value="false"/>
</appSettings> </appSettings>
<!-- <!--
Eine Beschreibung der Änderungen von 'web.config' finden Sie unter 'http://go.microsoft.com/fwlink/?LinkId=235367'. 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>
--> -->
<system.web> <system.web>
<compilation debug="true" targetFramework="4.7" /> <compilation debug="true" targetFramework="4.8"/>
<httpRuntime targetFramework="4.5" /> <httpRuntime targetFramework="4.5"/>
</system.web> </system.web>
<runtime> <runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1"> <assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" /> <assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed"/>
<bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-13.0.0.0" newVersion="13.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Web.Helpers" publicKeyToken="31bf3856ad364e35" /> <assemblyIdentity name="System.Web.Helpers" publicKeyToken="31bf3856ad364e35"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Web.Mvc" publicKeyToken="31bf3856ad364e35" /> <assemblyIdentity name="System.Web.Mvc" publicKeyToken="31bf3856ad364e35"/>
<bindingRedirect oldVersion="0.0.0.0-5.2.4.0" newVersion="5.2.4.0" /> <bindingRedirect oldVersion="0.0.0.0-5.2.4.0" newVersion="5.2.4.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Web.WebPages" publicKeyToken="31bf3856ad364e35" /> <assemblyIdentity name="System.Web.WebPages" publicKeyToken="31bf3856ad364e35"/>
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" /> <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>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Runtime.InteropServices.RuntimeInformation" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" /> <assemblyIdentity name="System.Net.Http.Formatting" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.2.0" newVersion="4.0.2.0" /> <bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Web.Http" publicKeyToken="31bf3856ad364e35" culture="neutral" /> <assemblyIdentity name="System.Text.Encodings.Web" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Net.Http.Formatting" publicKeyToken="31bf3856ad364e35" culture="neutral" /> <assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-5.2.9.0" newVersion="5.2.9.0" /> <bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Text.Encodings.Web" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Memory" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.1.2" newVersion="4.0.1.2" /> <bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Runtime.CompilerServices.Unsafe" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.FileProviders.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-6.0.0.0" newVersion="6.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Numerics.Vectors" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.Primitives" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.1.4.0" newVersion="4.1.4.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.FileProviders.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <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" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.Primitives" publicKeyToken="adb9793829ddae60" culture="neutral" /> <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" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.DependencyInjection.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.Options" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.Logging.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Routing.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.Options" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Net.Http.Headers" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1" /> <bindingRedirect oldVersion="0.0.0.0-2.2.8.0" newVersion="2.2.8.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Routing.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Routing" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Net.Http.Headers" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Authentication.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.8.0" newVersion="2.2.8.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Routing" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Authorization" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Authentication.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.DependencyInjection" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Authorization" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.WebUtilities" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.DependencyInjection" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.ResponseCaching.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.WebUtilities" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="System.ValueTuple" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.ResponseCaching.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Http" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.ValueTuple" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Http.Features" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-5.0.17.0" newVersion="5.0.17.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Http" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.OpenApi" publicKeyToken="3f5743946376f042" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.2.0" newVersion="2.2.2.0" /> <bindingRedirect oldVersion="0.0.0.0-1.6.1.0" newVersion="1.6.1.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Http.Features" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Mvc.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-5.0.17.0" newVersion="5.0.17.0" /> <bindingRedirect oldVersion="0.0.0.0-2.1.3.0" newVersion="2.1.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.OpenApi" publicKeyToken="3f5743946376f042" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Mvc.Core" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-1.6.1.0" newVersion="1.6.1.0" /> <bindingRedirect oldVersion="0.0.0.0-2.1.3.0" newVersion="2.1.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.2" newVersion="7.0.0.2"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.Core" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="System.ComponentModel.Annotations" publicKeyToken="b03f5f7f11d50a3a" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.5.0" newVersion="2.2.5.0" /> <bindingRedirect oldVersion="0.0.0.0-4.2.1.0" newVersion="4.2.1.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Text.Json" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Mvc.ApiExplorer" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.2" newVersion="7.0.0.2" /> <bindingRedirect oldVersion="0.0.0.0-2.1.3.0" newVersion="2.1.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.ComponentModel.Annotations" publicKeyToken="b03f5f7f11d50a3a" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.StaticFiles" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.2.1.0" newVersion="4.2.1.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.Mvc.ApiExplorer" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.FileProviders.Embedded" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.AspNetCore.StaticFiles" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.ObjectPool" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.FileProviders.Embedded" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="System.IO.Pipelines" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.ObjectPool" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.WebEncoders" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.IO.Pipelines" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.WebEncoders" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="System.Diagnostics.DiagnosticSource" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Threading.Tasks.Extensions" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.DependencyModel" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-4.2.0.1" newVersion="4.2.0.1" /> <bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="System.Diagnostics.DiagnosticSource" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.Localization.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.1" newVersion="7.0.0.1" /> <bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.DependencyModel" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Extensions.Localization" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.0.0" newVersion="7.0.0.0" /> <bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.Localization.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.Owin" publicKeyToken="31bf3856ad364e35" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-4.2.2.0" newVersion="4.2.2.0"/>
</dependentAssembly> </dependentAssembly>
<dependentAssembly> <dependentAssembly>
<assemblyIdentity name="Microsoft.Extensions.Localization" publicKeyToken="adb9793829ddae60" culture="neutral" /> <assemblyIdentity name="Microsoft.AspNetCore.Http.Abstractions" publicKeyToken="adb9793829ddae60" culture="neutral"/>
<bindingRedirect oldVersion="0.0.0.0-7.0.3.0" newVersion="7.0.3.0" /> <bindingRedirect oldVersion="0.0.0.0-2.2.0.0" newVersion="2.2.0.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" />
</dependentAssembly> </dependentAssembly>
</assemblyBinding> </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> </runtime>
<system.codedom> <system.codedom>
<compilers> <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=".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=\&quot;Web\&quot; /optionInfer+" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, 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=\&quot;Web\&quot; /optionInfer+" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=3.6.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
</compilers> </compilers>
</system.codedom> </system.codedom>
<system.webServer> <system.webServer>
<handlers> <handlers>
<remove name="ExtensionlessUrlHandler-Integrated-4.0" /> <remove name="ExtensionlessUrlHandler-Integrated-4.0"/>
<remove name="OPTIONSVerbHandler" /> <remove name="OPTIONSVerbHandler"/>
<remove name="TRACEVerbHandler" /> <remove name="TRACEVerbHandler"/>
<add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0" /> <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" /> <add name="NSwag" path="swagger" verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0"/>
</handlers> </handlers>
</system.webServer></configuration> </system.webServer>
</configuration>

47
VERAG_REST_SERVER/packages.config
View File

@@ -1,5 +1,8 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <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" version="5.2.9" targetFramework="net47" />
<package id="Microsoft.AspNet.WebApi.Client" 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" /> <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.Extensions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Http.Features" version="5.0.17" 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.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.ResponseCaching.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Routing" version="2.2.2" 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.Routing.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.StaticFiles" 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.AspNetCore.WebUtilities" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Bcl.AsyncInterfaces" version="7.0.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.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.Configuration.Abstractions" version="7.0.0" targetFramework="net47" />
<package id="Microsoft.Extensions.DependencyInjection" 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" /> <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.Options" version="7.0.1" targetFramework="net47" />
<package id="Microsoft.Extensions.Primitives" version="7.0.0" 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.Extensions.WebEncoders" version="7.0.3" targetFramework="net47" />
<package id="Microsoft.IdentityModel.Abstractions" 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" /> <package id="Microsoft.IdentityModel.JsonWebTokens" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
<package id="Microsoft.IdentityModel.Logging" version="6.27.0" targetFramework="net47" /> <package id="Microsoft.IdentityModel.Logging" version="6.27.0" targetFramework="net47" requireReinstallation="true" />
<package id="Microsoft.IdentityModel.Tokens" version="6.27.0" targetFramework="net47" /> <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.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" 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.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.Web.Infrastructure" version="1.0.0.0" targetFramework="net47" />
<package id="Microsoft.Win32.Registry" version="4.5.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="Namotion.Reflection" version="3.1.1" targetFramework="net47" />
<package id="Newtonsoft.Json" version="13.0.2" targetFramework="net47" /> <package id="Newtonsoft.Json" version="13.0.3" targetFramework="net47" />
<package id="NJsonSchema" version="10.8.0" targetFramework="net47" /> <package id="NJsonSchema" version="11.0.2" targetFramework="net47" />
<package id="NSwag.AspNet.Owin" version="13.18.2" targetFramework="net47" /> <package id="NJsonSchema.Annotations" version="11.0.2" targetFramework="net47" />
<package id="NSwag.Core" version="13.18.2" targetFramework="net47" /> <package id="NJsonSchema.NewtonsoftJson" version="11.0.2" targetFramework="net47" />
<package id="NSwag.Generation" version="13.18.2" targetFramework="net47" /> <package id="NSwag.AspNet.Owin" version="14.1.0" targetFramework="net47" />
<package id="NSwag.Generation.WebApi" version="13.18.2" 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="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="Swashbuckle.Core" version="5.6.0" targetFramework="net47" />
<package id="System.Buffers" version="4.5.1" 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.ComponentModel.Annotations" version="5.0.0" targetFramework="net47" />
<package id="System.Diagnostics.DiagnosticSource" version="7.0.1" 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.IO.Pipelines" version="7.0.0" targetFramework="net47" />
<package id="System.Memory" version="4.5.5" targetFramework="net47" /> <package id="System.Memory" version="4.5.5" targetFramework="net47" />
<package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" /> <package id="System.Numerics.Vectors" version="4.5.0" targetFramework="net47" />