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

Projektdateien hinzufügen.

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-02-14 15:38:31 +01:00
parent 15086b808b
commit 877f50f1eb
27 changed files with 3098 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
VERAG_REST_SERVER/App_Start/RouteConfig.vb Normal file
View File

@@ -0,0 +1,16 @@
'Imports System
'Imports System.Collections.Generic
'Imports System.Linq
'Imports System.Web
'Imports System.Web.Mvc
'Imports System.Web.Routing
'Namespace WebApiNamespacesVersion.Web
' Public Class RouteConfig
' Public Shared Sub RegisterRoutes(ByVal routes As RouteCollection)
' routes.IgnoreRoute("{resource}.axd/{*pathInfo}")
' routes.MapRoute(name:="Default", url:="{controller}/{action}/{id}", defaults:=New With {Key .controller = "Home", Key .action = "Index", Key .id = UrlParameter.[Optional]
' })
' End Sub
' End Class
'End Namespace

200
VERAG_REST_SERVER/App_Start/WebApiConfig.vb Normal file
View File

@@ -0,0 +1,200 @@
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web.Http
Imports System.Web.Http.Dispatcher
Imports System.Web.Http.Routing
Imports Microsoft.Extensions.DependencyInjection
Imports Microsoft.Web.Http
Imports Microsoft.Web.Http.Routing
Public Module WebApiConfig
'Public Sub Register(ByVal config As HttpConfiguration)
' ' Web-API-Konfiguration und -Dienste
' ' Web-API-Routen
' config.MapHttpAttributeRoutes()
' ' Dim constraintResolver = New DefaultInlineConstraintResolver() ' With {.ConstraintMap = {{"apiVersion", GetType(ApiVersionRouteConstraint)}}
' 'config.Routes.MapHttpRoute(
' ' name:="DefaultApi",
' ' routeTemplate:="api/{controller}/{id}",
' ' defaults:=New With {.id = RouteParameter.Optional}
' ')
' config.Routes.MapHttpRoute(
' name:="DefaultApi1",
' routeTemplate:="api/V1/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
' )
' config.Routes.MapHttpRoute(
' name:="DefaultApi2",
' routeTemplate:="api/V2/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
' )
' ' config.MapHttpAttributeRoutes(constraintResolver)
'End Sub
Public Sub Register(ByVal config As HttpConfiguration)
Dim constraintsResolver = New DefaultInlineConstraintResolver()
constraintsResolver.ConstraintMap.Add("apiVersion", GetType(ApiVersionRouteConstraint))
' config.MapHttpAttributeRoutes(constraintsResolver)
' config.Services.Replace(GetType(IHttpControllerSelector), New HttpControllerSelector(config))
config.MapHttpAttributeRoutes(constraintsResolver)
'Dim constraintResolver = New DefaultInlineConstraintResolver() With {.ConstraintMap = {{"apiVersion", GetType(ApiVersionRouteConstraint)}}}
'config.MapHttpAttributeRoutes(constraintResolver)
config.AddApiVersioning(Function(options)
options.ReportApiVersions = True
options.AssumeDefaultVersionWhenUnspecified = True
' options.DefaultApiVersion = New ApiVersion("1")
End Function)
'config.AddApiVersioning(Function(o)
' o.DefaultApiVersion = New ApiVersion(1, 0)
' End Function)
' config.Routes.MapHttpRoute(name:="DefaultApi-Versioned", routeTemplate:="v{apiversion}", defaults:=New With {Key
'config.Routes.MapHttpRoute(
' name:="AVISORoute0",
' routeTemplate:="api/V{apiversion}/AVISO",
' defaults:=New With {.id = RouteParameter.Optional}
')
'config.Routes.MapHttpRoute(
' name:="AVISORoute",
' routeTemplate:="api/V{apiVersion}/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional, .Constraints = New Microsoft.Web.Http.Routing.ApiVersionRouteConstraint()}
')
config.Routes.MapHttpRoute(
name:="AVISORoute2",
routeTemplate:="api/{controller}/{id}",
defaults:=New With {.id = RouteParameter.Optional}
)
'TEST/
config.Routes.MapHttpRoute(
name:="AVISORoute0TEST",
routeTemplate:="api/V{apiversion}/{controller}/AVISO",
defaults:=New With {.id = RouteParameter.Optional}
)
'config.Routes.MapHttpRoute(
' name:="AVISORouteTEST",
' routeTemplate:="api/V{apiversion}/{controller}/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
')
' config.Routes.MapHttpRoute(
' name:="AVISORoute2TEST",
' routeTemplate:="api/{controller}/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
')
config.Routes.MapHttpRoute(
name:="AVISO",
routeTemplate:="api/V{apiversion}/{controller}/{id}",
defaults:=New With {.id = RouteParameter.Optional, .Constraints = New Microsoft.Web.Http.Routing.ApiVersionRouteConstraint()}
)
End Sub
'Public Sub Register(ByVal config As HttpConfiguration)
' 'Dim constraintsResolver = New DefaultInlineConstraintResolver()
' 'constraintsResolver.ConstraintMap.Add("apiVersionConstraint", GetType(ApiVersionConstraint))
' 'config.MapHttpAttributeRoutes(constraintsResolver)
' 'config.Services.Replace(GetType(IHttpControllerSelector), New NamespaceHttpControllerSelector(config))
' ' Web API routes
' config.MapHttpAttributeRoutes()
' 'config.Routes.MapHttpRoute(
' ' name:="DefaultApi",
' ' routeTemplate:="api/{controller}/{action}/{id}",
' ' defaults:=New With {.id = RouteParameter.Optional}
' ' )
' 'config.MapHttpAttributeRoutes()
' config.AddApiVersioning(Function(options)
' options.ReportApiVersions = True
' options.AssumeDefaultVersionWhenUnspecified = True
' ' options.DefaultApiVersion = New ApiVersion(1, 0)
' End Function)
' 'config.AddApiVersioning(Function(options)
' ' options.ReportApiVersions = False
' ' options.AssumeDefaultVersionWhenUnspecified = False
' ' options.DefaultApiVersion = New ApiVersion(1, 0)
' ' End Function)
' 'config.AddApiVersioning(Function(o)
' ' o.DefaultApiVersion = New ApiVersion(2, 0)
' ' End Function)
' ' config.Routes.MapHttpRoute(name:="DefaultApi-Versioned", routeTemplate:="v{apiversion}", defaults:=New With {Key
' 'config.Routes.MapHttpRoute(
' ' name:="AVISORoute0",
' ' routeTemplate:="api/v{apiversion}/AVISO",
' ' defaults:=New With {.id = RouteParameter.Optional}
' ')
' 'config.Routes.MapHttpRoute(name:="DefaultApi", routeTemplate:="api/{version}/{controller}", defaults:=New With {Key .version = "v2"})
' 'config.Routes.MapHttpRoute(name:="DefaultApiWithId", routeTemplate:="api/{version}/{controller}/{id}", defaults:=New With {Key .id = RouteParameter.[Optional]})
' 'config.MapHttpAttributeRoutes(contraintResolver)
' config.Routes.MapHttpRoute(
' name:="AVISORoute",
' routeTemplate:="api/v{version:apiVersion}/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional, .Constraints = New Microsoft.Web.Http.Routing.ApiVersionRouteConstraint()}
' )
' config.Routes.MapHttpRoute(
' name:="AVISORoute2",
' routeTemplate:="api/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
' )
' 'TEST/
' config.Routes.MapHttpRoute(
' name:="AVISORoute0TEST",
' routeTemplate:="api/V{version:apiVersion}/TEST/AVISO",
' defaults:=New With {.id = RouteParameter.Optional}
' )
' config.Routes.MapHttpRoute(
' name:="AVISORouteTEST",
' routeTemplate:="api/V{version:apiVersion}/TEST/{controller}/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
' )
' config.Routes.MapHttpRoute(
' name:="AVISORoute2TEST",
' routeTemplate:="api/{controller}/TEST/{id}",
' defaults:=New With {.id = RouteParameter.Optional}
' )
'End Sub
End Module

407
VERAG_REST_SERVER/Controllers/AVISOController.vb Normal file
View File

@@ -0,0 +1,407 @@

Imports System.Web.Http
Imports Microsoft.Web.Http
Namespace ApiController.Controllers
<ApiVersion("001")>
<System.Web.Http.Route("api/V001/AVISO")>
Public Class AVISO001Controller
Inherits System.Web.Http.ApiController
Public Function GetValue(ByVal id As Integer) As String
Return "Hello world!"
End Function
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 = 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("001")>
<System.Web.Http.Route("api/V001/TEST/AVISO")>
Public Class AVISO001TESTController
Inherits System.Web.Http.ApiController
Public Function GetValue(ByVal id As Integer) As String
Return "Hello world!"
End Function
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

544
VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb Normal file
View File

@@ -0,0 +1,544 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace api_CustomsDeclaration.Controllers
<ApiVersion("2.0")>
<System.Web.Http.Route("api/v002/CustomsDeclaration")>
Public Class CustomsDeclarationV1Controller
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
Namespace api_CustomsDeclaration.Controllers
<ApiVersion("1.0")>
<System.Web.Http.Route("api/v101/CustomsDeclaration")>
Public Class CustomsDeclarationV2Controller
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/NCTS/NCTSController.vb Normal file
View File

@@ -0,0 +1,500 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace ApiController.Controllers
<ApiVersion("001")>
<System.Web.Http.Route("api/V001/TR_NCTS")>
Public Class TR_NCTSV001Controller
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

73
VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb Normal file
View File

@@ -0,0 +1,73 @@
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{apiVersion}/NEWTEST")>
Public Class NEWTESTV1Controller
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "NEWTEST 1111"
End Function
End Class
<ApiVersion("2")>
<ApiVersion("3")>
<System.Web.Http.Route("api/v{apiVersion}/NEWTEST")>
Public Class NEWTESTV2Controller
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "NEWTEST 2222"
End Function
End Class
End Namespace
'Namespace TESTController.Controllers.V2
' <ApiVersion("2")>
' <RoutePrefix("api/v2/TEST")>
' Public Class TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As String
' Return "TEST 2"
' End Function
' End Class
'End Namespace
'Namespace TESTController.Controllers.V3
' <ApiVersion("3")>
' <RoutePrefix("api/v3/TEST")>
' Public Class TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As String
' Return "TEST 3"
' End Function
' End Class
'End Namespace

61
VERAG_REST_SERVER/Controllers/TestController/V1/TESTController.vb Normal file
View File

@@ -0,0 +1,61 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace TESTController.Controllers.V1
<ApiVersion("1")>
<RoutePrefix("api/{apiVersion:apiVersionConstraint(v1)}/TEST")>
Public Class TESTController
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "TEST 1"
End Function
End Class
End Namespace
'Namespace TESTController.Controllers.V2
' <ApiVersion("2")>
' <RoutePrefix("api/v2/TEST")>
' Public Class TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As String
' Return "TEST 2"
' End Function
' End Class
'End Namespace
'Namespace TESTController.Controllers.V3
' <ApiVersion("3")>
' <RoutePrefix("api/v3/TEST")>
' Public Class TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As String
' Return "TEST 3"
' End Function
' End Class
'End Namespace

61
VERAG_REST_SERVER/Controllers/TestController/V2/TESTController.vb Normal file
View File

@@ -0,0 +1,61 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace TESTController.Controllers.V2
<ApiVersion("2")>
<RoutePrefix("api/v{apiVersion}/TEST")>
Public Class TESTController
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "TEST 2"
End Function
End Class
End Namespace
'Namespace TESTController.Controllers.V2
' <ApiVersion("2")>
' <RoutePrefix("api/v2/TEST")>
' Public Class TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As String
' Return "TEST 2"
' End Function
' End Class
'End Namespace
'Namespace TESTController.Controllers.V3
' <ApiVersion("3")>
' <RoutePrefix("api/v3/TEST")>
' Public Class TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As String
' Return "TEST 3"
' End Function
' End Class
'End Namespace

1
VERAG_REST_SERVER/Global.asax Normal file
View File

@@ -0,0 +1 @@
<%@ Application Codebehind="Global.asax.vb" Inherits="VERAG_REST_SERVER.WebApiApplication" Language="VB" %>

11
VERAG_REST_SERVER/Global.asax.vb Normal file
View File

@@ -0,0 +1,11 @@
Imports System.Web.Http
Public Class WebApiApplication
Inherits System.Web.HttpApplication
Protected Sub Application_Start()
GlobalConfiguration.Configure(AddressOf WebApiConfig.Register)
End Sub
End Class

31
VERAG_REST_SERVER/Models/cTEST.vb Normal file
View File

@@ -0,0 +1,31 @@
Imports Newtonsoft.Json
Public Class cTEST
Public Property Field1 As String
Public Property Field2 As String
' Public Property array As cTEST_array()
Public Property array As New List(Of cTEST_array) 'With {.id = Field1}
'<JsonProperty("cTEST_varray")>
Public Structure cTEST_array
'Public Property id As Integer
Dim Field1 As String
Dim Field2 As String
End Structure
' Public Property num Acces As String
'Public Enum AccesMode
' VIEWONLY
' SHAREDACCESS
' EXCLUSIVE
' 'PRIVATE
'End Enum
End Class

203
VERAG_REST_SERVER/Models/cVERAG_in_shippmentOLD.vb Normal file
View File

@@ -0,0 +1,203 @@
Imports System.Data.SqlClient
Imports System.Reflection
Public Class cVERAG_in_shippment
Property in_sh_id As Object = Nothing ' INT Not NULL,
Property in_sh_AvisoId As Object = Nothing ' INT NULL,
Property in_sh_SendungsId As Object = Nothing ' INT NULL,
Property in_sh_Erstellung As Object = Nothing ' DATETIME Default (getdate()) Not NULL,
Property in_sh_firma As Object = Nothing ' VARCHAR(10) NULL,
Property in_sh_niederlassung As Object = Nothing ' VARCHAR(10) NULL,
'Property MsgType As Object = Nothing ' VARCHAR(10) NULL,
'Property dec_ProzessArt As Object = Nothing ' VARCHAR(4) Not NULL,
'Property dec_Anmelde_ID As Object = Nothing ' INT NULL,
'Property dec_Template_ID As Object = Nothing ' INT NULL,
'Property dec_Lager_ID As Object = Nothing ' VARCHAR(6) NULL,
'Property dec_Lag_IND As Object = Nothing ' BIT NULL,
'Property dec_CreateDate As Object = Nothing ' DATETIME Not NULL,
'Property dec_CreatePersonalID As Object = Nothing ' VARCHAR(12) NULL,
'Property dec_PreDec_IND As Object = Nothing ' BIT NULL,
'Property dec_TotNet As Object = Nothing ' Decimal (14, 3) NULL,
'Property dec_TotNetSplit_IND As Object = Nothing ' BIT NULL,
'Property dec_FillPackList_IND As Object = Nothing ' BIT NULL,
'Property dec_Memo As Object = Nothing ' VARCHAR(1000) NULL,
'Property Refs_LRN As Object = Nothing ' VARCHAR(22) Not NULL,
'Property Refs_CRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_CSRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_ERN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_FRN As Object = Nothing ' VARCHAR(21) NULL,
'Property Refs_Stat As Object = Nothing ' VARCHAR(2) NULL,
Property Hea_DecTy As Object = Nothing ' Type --> T1, T2, EZA
Property Hea_TotItem As Object = Nothing ' Pos gesamt
Property Hea_TotPack As Object = Nothing ' Packstücke gesamt
Property Hea_TotGross As Object = Nothing ' GesRohmasse
'Property Hea_DepLNG As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_DestLNG As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_PayTy As Object = Nothing ' VARCHAR(1) NULL,
'Property Hea_DefPayRef As Object = Nothing ' INT NULL,
'Property Hea_PerPayRef As Object = Nothing ' INT NULL,
'Property Hea_PayMet As Object = Nothing ' INT NULL,
'Property Hea_AExpRef As Object = Nothing ' BIT NULL,
'Property Hea_Fin As Object = Nothing ' VARCHAR(2) NULL,
'Property Hea_Simp As Object = Nothing ' BIT Not NULL,
'Property Hea_IssD As Object = Nothing ' Date NULL,
Property Hea_AuthID As Object = Nothing ' ? ATA
Property Hea_Incoterm As Object = Nothing ' ? Lieferkondition
'Property Hea_TransDat As Object = Nothing ' BIT NULL,
'Property Hea_WoffD As Object = Nothing ' Date NULL,
'Property Hea_DecDT As Object = Nothing ' Date Not NULL,
'Property Hea_DecPlc As Object = Nothing ' VARCHAR(35) Not NULL,
'Property Hea_AccDT As Object = Nothing ' DATETIME NULL,
'Property Hea_SecInd As Object = Nothing ' BIT NULL,
'Property Hea_ComRef As Object = Nothing ' VARCHAR(70) NULL,
'Property Hea_ProArrDT As Object = Nothing ' DATETIME NULL,
'Property Hea_PlaDepDT As Object = Nothing ' DATETIME NULL,
'Property Locs_TradCtry As Object = Nothing ' VARCHAR(2) NULL,
Property Locs_Disp As Object = Nothing ' VARCHAR(2) NULL,
Property Locs_Dest As Object = Nothing ' VARCHAR(2) NULL,
'Property Locs_GdsLocCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_GdsLoc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_GdsLocAuth As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_LoadPlcCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_LoadPlc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_CustPlc As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_ArrLocCd As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_ArrLoc As Object = Nothing ' VARCHAR(35) NULL,
'Property Locs_ArrLocAuth As Object = Nothing ' VARCHAR(17) NULL,
'Property Locs_WarTy As Object = Nothing ' VARCHAR(1) NULL,
'Property Locs_WarCtry As Object = Nothing ' VARCHAR(2) NULL,
'Property Locs_War As Object = Nothing ' VARCHAR(17) NULL,
Property Transp_InMo As Object = Nothing ' Transportmittel INland
Property Transp_BordMo As Object = Nothing ' Transportmittel Grenze
Property Transp_DepTy As Object = Nothing ' Transportmittel TypAbfahrt
Property Transp_DepIdnt As Object = Nothing ' Transportmittel Kennezeichen Abfahrt
Property Transp_DepNat As Object = Nothing ' Transportmittel Nationalität Abfahrt
Property Transp_CrossTy As Object = Nothing ' Transportmittel Typ Grenze
Property Transp_CrossIdnt As Object = Nothing ' Transportmittel Kennezeichen Grenze
Property Transp_CrossIdntNat As Object = Nothing ' Transportmittel Nationalität Grenze
Property Transp_ContInd As Object = Nothing ' BIT NULL,
'Property ValData_TermDelCd As Object = Nothing ' VARCHAR(3) NULL,
'Property ValData_TermDelPlc As Object = Nothing ' VARCHAR(35) NULL,
'Property ValData_TermDelSit As Object = Nothing ' VARCHAR(1) NULL,
'Property ValData_InvCurr As Object = Nothing ' VARCHAR(3) NULL,
'Property ValData_ExRa As Object = Nothing ' Decimal (20, 7) NULL,
'Property ValData_InvVal As Object = Nothing ' Decimal (18, 2) NULL,
'Property ValData_TransacCd As Object = Nothing ' INT NULL,
Property ConorTra_Na As Object = Nothing ' ABSENDER
Property ConorTra_Strt As Object = Nothing '
Property ConorTra_Pst As Object = Nothing '
Property ConorTra_Cty As Object = Nothing '
Property ConorTra_Ctry As Object = Nothing '
Property ConorTra_EORI As Object = Nothing '
Property ConorTra_UIDCtry As Object = Nothing '
Property ConorTra_UID As Object = Nothing '
Property ConeeTra_Na As Object = Nothing ' EMPFÄNGER
Property ConeeTra_Strt As Object = Nothing '
Property ConeeTra_Pst As Object = Nothing '
Property ConeeTra_Cty As Object = Nothing '
Property ConeeTra_Ctry As Object = Nothing '
Property ConeeTra_EORI As Object = Nothing '
Property ConeeTra_UIDCtry As Object = Nothing '
Property ConeeTra_UID As Object = Nothing '
Property ExpTra_Na As Object = Nothing ' EXPORTEUR
Property ExpTra_Strt As Object = Nothing '
Property ExpTra_Pst As Object = Nothing '
Property ExpTra_Cty As Object = Nothing '
Property ExpTra_Ctry As Object = Nothing '
Property ExpTra_EORI As Object = Nothing '
Property ExpTra_UIDCtry As Object = Nothing '
Property ExpTra_UID As Object = Nothing '
Property Declarant_Na As Object = Nothing ' ZOLLAGENT
Property Declarant_Strt As Object = Nothing '
Property Declarant_Pst As Object = Nothing '
Property Declarant_Cty As Object = Nothing '
Property Declarant_Ctry As Object = Nothing '
Property Declarant_EORI As Object = Nothing '
Property Declarant_UIDCtry As Object = Nothing '
Property Declarant_UID As Object = Nothing '
Property Declarant_DecRep As Object = Nothing '
Property DestCO_Ref As Object = Nothing ' Zielzollstelle
Property DepCO_Ref As Object = Nothing ' Abgangszollstelle
Property CtrlRslt_DLimit As Object = Nothing ' NCTS_GEstellung
Property POSITIONSDATEN As New List(Of cVERAG_in_shippment_Position)
'Property SICHERHEIT As New List(Of cVERAG_in_shippment_Sicherheit)
Sub New()
End Sub
End Class
Public Class cVERAG_in_shippment_Position
Property in_pos_id As Integer
Property in_pos_inShId As Integer
'Property Mandant_ID As Object = Nothing
'Property Bereich_ID As Object = Nothing
'Property Referenz_ID As Object = Nothing
'Property ComIndicator As Object = Nothing
Property Pos_Nr As Integer
Property Item_GdsDes As Object = Nothing
'Property Item_Status As Object = Nothing
'Property Item_ComCd As Object = Nothing
Property Item_TarNr As Object = Nothing
Property Item_Gross As Object = Nothing
Property Item_Net As Object = Nothing
Property Item_Orig As Object = Nothing
'Property Item_ProcCd As Object = Nothing
'Property Item_ProcAddCd As Object = Nothing
Property Item_ItVal As Object = Nothing
'Property Item_Pref As Object = Nothing
'Property Item_Quota As Object = Nothing
'Property Item_ValMet As Object = Nothing
'Property Item_VATInd As Object = Nothing
'Property Item_StatVal As Object = Nothing
'Property SurvCO_Ref As Object = Nothing
'Property Telo_Artikel_ID As Object = Nothing
Property Telo_Artikelmenge As Object = Nothing
Property Telo_ArtikelMEH As Object = Nothing
Property PACKSTUECKE As New List(Of cVERAG_in_shippment_Packing)
Sub New()
End Sub
End Class
Public Class cVERAG_in_shippment_Packing
Property in_posPk_id As Integer
Property in_posPk_inShId As Integer
Property in_posPk_inPosId As Integer
Property Pack_Mark As Object = Nothing
Property Pack_Kind As Object = Nothing
Property Pack_Nr As Object = Nothing
Property Pack_Piec As Object = Nothing
Property Telo_Gross As Object = Nothing
Sub New()
End Sub
End Class

13
VERAG_REST_SERVER/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,13 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On

10
VERAG_REST_SERVER/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

34
VERAG_REST_SERVER/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,34 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die
' Assemblyinformationen zu ändern.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("VERAG_REST_SERVER")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("VERAG_REST_SERVER")>
<Assembly: AssemblyCopyright("Copyright © 2020")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM bereitgestellt wird.
<Assembly: Guid("7df44971-3806-4aeb-9f92-4a1a07837616")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
' übernehmen, indem Sie "*" wie folgt verwenden:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

73
VERAG_REST_SERVER/My Project/MyExtensions/MyWebExtension.vb Normal file
View File

@@ -0,0 +1,73 @@
#If _MyType <> "Empty" Then
Namespace My
''' <summary>
''' Modul, das zum Definieren der Eigenschaften verwendet wird, die unter "My Namespace" für Webprojekte verfügbar sind.
''' </summary>
''' <remarks></remarks>
<Global.Microsoft.VisualBasic.HideModuleName()> _
Module MyWebExtension
Private s_Computer As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Devices.ServerComputer)
Private s_User As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.ApplicationServices.WebUser)
Private s_Log As New ThreadSafeObjectProvider(Of Global.Microsoft.VisualBasic.Logging.AspLog)
''' <summary>
''' Gibt Informationen zum Hostcomputer zurück.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property Computer() As Global.Microsoft.VisualBasic.Devices.ServerComputer
Get
Return s_Computer.GetInstance()
End Get
End Property
''' <summary>
''' Gibt Informationen zum aktuellen Webbenutzer zurück.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property User() As Global.Microsoft.VisualBasic.ApplicationServices.WebUser
Get
Return s_User.GetInstance()
End Get
End Property
''' <summary>
''' Gibt das Objekt "Request" zurück.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
<Global.System.ComponentModel.Design.HelpKeyword("My.Request")> _
Friend ReadOnly Property Request() As Global.System.Web.HttpRequest
<Global.System.Diagnostics.DebuggerHidden()> _
Get
Dim CurrentContext As Global.System.Web.HttpContext = Global.System.Web.HttpContext.Current
If CurrentContext IsNot Nothing Then
Return CurrentContext.Request
End If
Return Nothing
End Get
End Property
''' <summary>
''' Gibt das Objekt "Response" zurück.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
<Global.System.ComponentModel.Design.HelpKeyword("My.Response")> _
Friend ReadOnly Property Response() As Global.System.Web.HttpResponse
<Global.System.Diagnostics.DebuggerHidden()> _
Get
Dim CurrentContext As Global.System.Web.HttpContext = Global.System.Web.HttpContext.Current
If CurrentContext IsNot Nothing Then
Return CurrentContext.Response
End If
Return Nothing
End Get
End Property
''' <summary>
''' Gibt das ASP-Protokollobjekt zurück.
''' </summary>
<Global.System.Diagnostics.CodeAnalysis.SuppressMessageAttribute("Microsoft.Performance", "CA1811:AvoidUncalledPrivateCode")> _
Friend ReadOnly Property Log() As Global.Microsoft.VisualBasic.Logging.AspLog
Get
Return s_Log.GetInstance()
End Get
End Property
End Module
End Namespace
#End If

63
VERAG_REST_SERVER/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary>
''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VERAG_REST_SERVER.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
VERAG_REST_SERVER/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

73
VERAG_REST_SERVER/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.9.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.VERAG_REST_SERVER.My.MySettings
Get
Return Global.VERAG_REST_SERVER.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
VERAG_REST_SERVER/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

352
VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj Normal file
View File

@@ -0,0 +1,352 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.2.0.0\build\net45\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.props" Condition="Exists('..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.2.0.0\build\net45\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.props')" />
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>
</SchemaVersion>
<ProjectGuid>{7DF44971-3806-4AEB-9F92-4A1A07837616}</ProjectGuid>
<ProjectTypeGuids>{349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F}</ProjectTypeGuids>
<OutputType>Library</OutputType>
<RootNamespace>VERAG_REST_SERVER</RootNamespace>
<AssemblyName>VERAG_REST_SERVER</AssemblyName>
<TargetFrameworkVersion>v4.7</TargetFrameworkVersion>
<MyType>Custom</MyType>
<UseIISExpress>true</UseIISExpress>
<Use64BitIISExpress />
<IISExpressSSLPort />
<IISExpressAnonymousAuthentication />
<IISExpressWindowsAuthentication />
<IISExpressUseClassicPipelineMode />
<UseGlobalApplicationHostFile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
<TargetFrameworkProfile />
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\</OutputPath>
<DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<DebugSymbols>true</DebugSymbols>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\</OutputPath>
<DocumentationFile>VERAG_REST_SERVER.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<ItemGroup>
<Reference Include="Microsoft.AspNet.WebApi.Versioning, Version=4.0.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNet.WebApi.Versioning.4.0.0\lib\net45\Microsoft.AspNet.WebApi.Versioning.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Authentication.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Authentication.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authentication.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Authentication.Core, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Authentication.Core.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authentication.Core.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Authorization, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Authorization.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authorization.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Authorization.Policy, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Authorization.Policy.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authorization.Policy.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Hosting.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Hosting.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Hosting.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Hosting.Server.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Hosting.Server.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Hosting.Server.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Http, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Http.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Http.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Http.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Http.Extensions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Http.Extensions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.Extensions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Http.Features, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Http.Features.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.Features.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Mvc.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Mvc.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Mvc.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.ResponseCaching.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.ResponseCaching.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.ResponseCaching.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Routing, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Routing.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Routing.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.Routing.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.Routing.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Routing.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.AspNetCore.WebUtilities, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.AspNetCore.WebUtilities.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.WebUtilities.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Microsoft.DotNet.PlatformAbstractions, Version=2.1.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.DotNet.PlatformAbstractions.2.1.0\lib\net45\Microsoft.DotNet.PlatformAbstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.Configuration.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.Configuration.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Configuration.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.DependencyInjection, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.DependencyInjection.2.2.0\lib\net461\Microsoft.Extensions.DependencyInjection.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.DependencyInjection.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.DependencyInjection.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.DependencyInjection.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.DependencyModel, Version=2.1.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.DependencyModel.2.1.0\lib\net451\Microsoft.Extensions.DependencyModel.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.FileProviders.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.FileProviders.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.FileProviders.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.Hosting.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.Hosting.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Hosting.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.Logging.Abstractions, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.Logging.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Logging.Abstractions.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.ObjectPool, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.ObjectPool.2.2.0\lib\netstandard2.0\Microsoft.Extensions.ObjectPool.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.Options, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.Options.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Options.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Extensions.Primitives, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Extensions.Primitives.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Primitives.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Net.Http.Headers, Version=2.2.0.0, Culture=neutral, PublicKeyToken=adb9793829ddae60, processorArchitecture=MSIL">
<HintPath>..\packages\Microsoft.Net.Http.Headers.2.2.0\lib\netstandard2.0\Microsoft.Net.Http.Headers.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Buffers, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Buffers.4.5.0\lib\netstandard2.0\System.Buffers.dll</HintPath>
</Reference>
<Reference Include="System.Data" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Diagnostics.DiagnosticSource, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Diagnostics.DiagnosticSource.4.5.0\lib\net46\System.Diagnostics.DiagnosticSource.dll</HintPath>
</Reference>
<Reference Include="System.Drawing" />
<Reference Include="System.Memory, Version=4.0.1.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Memory.4.5.1\lib\netstandard2.0\System.Memory.dll</HintPath>
</Reference>
<Reference Include="System.Net.Http" />
<Reference Include="System.Numerics" />
<Reference Include="System.Numerics.Vectors, Version=4.1.3.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.CompilerServices.Unsafe, Version=4.0.4.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.CompilerServices.Unsafe.4.5.1\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll</HintPath>
</Reference>
<Reference Include="System.Runtime.InteropServices.RuntimeInformation, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL">
<HintPath>..\packages\System.Runtime.InteropServices.RuntimeInformation.4.0.0\lib\net45\System.Runtime.InteropServices.RuntimeInformation.dll</HintPath>
<Private>True</Private>
<Private>True</Private>
</Reference>
<Reference Include="System.Text.Encodings.Web, Version=4.0.3.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Text.Encodings.Web.4.5.0\lib\netstandard2.0\System.Text.Encodings.Web.dll</HintPath>
</Reference>
<Reference Include="System.Threading.Tasks.Extensions, Version=4.2.0.0, Culture=neutral, PublicKeyToken=cc7b13ffcd2ddd51, processorArchitecture=MSIL">
<HintPath>..\packages\System.Threading.Tasks.Extensions.4.5.1\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll</HintPath>
</Reference>
<Reference Include="System.Web.Extensions" />
<Reference Include="System.Web.DynamicData" />
<Reference Include="System.Web.Entity" />
<Reference Include="System.Web.ApplicationServices" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Web" />
<Reference Include="System.Xml" />
<Reference Include="System.Configuration" />
<Reference Include="System.Web.Services" />
<Reference Include="System.EnterpriseServices" />
<Reference Include="System.Xml.Linq" />
<Reference Include="VERAG_PROG_ALLGEMEIN, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Release\VERAG_PROG_ALLGEMEIN.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Reference Include="Newtonsoft.Json">
<HintPath>..\packages\Newtonsoft.Json.11.0.1\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="System.Net.Http.Formatting">
<HintPath>..\packages\Microsoft.AspNet.WebApi.Client.5.2.4\lib\net45\System.Net.Http.Formatting.dll</HintPath>
</Reference>
<Reference Include="System.Web.Http">
<HintPath>..\packages\Microsoft.AspNet.WebApi.Core.5.2.4\lib\net45\System.Web.Http.dll</HintPath>
</Reference>
<Reference Include="System.Web.Http.WebHost">
<HintPath>..\packages\Microsoft.AspNet.WebApi.WebHost.5.2.4\lib\net45\System.Web.Http.WebHost.dll</HintPath>
</Reference>
<Reference Include="Microsoft.CodeDom.Providers.DotNetCompilerPlatform">
<HintPath>..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.2.0.0\lib\net45\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.dll</HintPath>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Diagnostics" />
<Import Include="System.Collections.Specialized" />
<Import Include="System.Configuration" />
<Import Include="System.Text" />
<Import Include="System.Text.RegularExpressions" />
<Import Include="System.Web" />
<Import Include="System.Web.Caching" />
<Import Include="System.Web.SessionState" />
<Import Include="System.Web.Security" />
<Import Include="System.Web.Profile" />
<Import Include="System.Web.UI" />
<Import Include="System.Web.UI.WebControls" />
<Import Include="System.Web.UI.WebControls.WebParts" />
<Import Include="System.Web.UI.HtmlControls" />
</ItemGroup>
<ItemGroup>
<Content Include="Global.asax" />
<Content Include="Web.config" />
</ItemGroup>
<ItemGroup>
<Compile Include="App_Start\RouteConfig.vb" />
<Compile Include="App_Start\WebApiConfig.vb" />
<Compile Include="Controllers\AVISOController.vb" />
<Compile Include="Controllers\CustomsDeclaration\CustomsDeclarationController.vb" />
<Compile Include="Controllers\NCTS\NCTSController.vb" />
<Compile Include="Controllers\NEWTESTController\NEWTESTController.vb" />
<Compile Include="Controllers\TestController\V1\TESTController.vb" />
<Compile Include="Controllers\TestController\V2\TESTController.vb" />
<Compile Include="cREST_Options.vb" />
<Compile Include="Global.asax.vb">
<DependentUpon>Global.asax</DependentUpon>
</Compile>
<Compile Include="Models\cTEST.vb" />
<Compile Include="Models\cVERAG_in_shippmentOLD.vb" />
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\MyExtensions\MyWebExtension.vb">
<VBMyExtensionTemplateID>Microsoft.VisualBasic.Web.MyExtension</VBMyExtensionTemplateID>
<VBMyExtensionTemplateVersion>1.0.0.0</VBMyExtensionTemplateVersion>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\PublishProfiles\api.verag.ag.pubxml" />
<None Include="My Project\PublishProfiles\apiTest.verag.ag.pubxml" />
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="packages.config" />
<None Include="Web.Debug.config">
<DependentUpon>Web.config</DependentUpon>
</None>
<None Include="Web.Release.config">
<DependentUpon>Web.config</DependentUpon>
</None>
</ItemGroup>
<ItemGroup>
<Folder Include="App_Data\" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\..\..\VB\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj">
<Project>{2bbd7643-82a1-481f-a014-eb7fcdeed3b5}</Project>
<Name>NCTSPartnerWorker</Name>
</ProjectReference>
</ItemGroup>
<PropertyGroup>
<VisualStudioVersion Condition="'$(VisualStudioVersion)' == ''">10.0</VisualStudioVersion>
<VSToolsPath Condition="'$(VSToolsPath)' == ''">$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)</VSToolsPath>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<SignAssembly>false</SignAssembly>
</PropertyGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<Import Project="$(VSToolsPath)\WebApplications\Microsoft.WebApplication.targets" Condition="'$(VSToolsPath)' != ''" />
<Import Project="$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v10.0\WebApplications\Microsoft.WebApplication.targets" Condition="false" />
<ProjectExtensions>
<VisualStudio>
<FlavorProperties GUID="{349c5851-65df-11da-9384-00065b846f21}">
<WebProjectProperties>
<UseIIS>True</UseIIS>
<AutoAssignPort>True</AutoAssignPort>
<DevelopmentServerPort>58452</DevelopmentServerPort>
<DevelopmentServerVPath>/</DevelopmentServerVPath>
<IISUrl>http://localhost:58452/</IISUrl>
<NTLMAuthentication>False</NTLMAuthentication>
<UseCustomServer>False</UseCustomServer>
<CustomServerUrl>
</CustomServerUrl>
<SaveServerSettingsInUserFile>False</SaveServerSettingsInUserFile>
</WebProjectProperties>
</FlavorProperties>
</VisualStudio>
</ProjectExtensions>
<Target Name="EnsureNuGetPackageBuildImports" BeforeTargets="PrepareForBuild">
<PropertyGroup>
<ErrorText>Dieses Projekt verweist auf mindestens ein NuGet-Paket, das auf diesem Computer fehlt. Verwenden Sie die Wiederherstellung von NuGet-Paketen, um die fehlenden Dateien herunterzuladen. Weitere Informationen finden Sie unter "http://go.microsoft.com/fwlink/?LinkID=322105". Die fehlende Datei ist "{0}".</ErrorText>
</PropertyGroup>
<Error Condition="!Exists('..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.2.0.0\build\net45\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.props')" Text="$([System.String]::Format('$(ErrorText)', '..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.2.0.0\build\net45\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.props'))" />
</Target>
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

30
VERAG_REST_SERVER/Web.Debug.config Normal file
View File

@@ -0,0 +1,30 @@
<?xml version="1.0" encoding="utf-8"?>
<!-- Weitere Informationen zur Verwendung der web.config-Transformation finden Sie unter https://go.microsoft.com/fwlink/?LinkId=125889 -->
<configuration xmlns:xdt="http://schemas.microsoft.com/XML-Document-Transform">
<!--
Im folgenden Beispiel wird durch die Transformation "SetAttributes" der Wert von
"connectionString" geändert, sodass "ReleaseSQLServer" nur verwendet wird, wenn
vom Locator "Match" ein Attribut vom Typ "name" mit dem Wert "MyDB" gefunden wird.
<connectionStrings>
<add name="MyDB"
connectionString="Data Source=ReleaseSQLServer;Initial Catalog=MyReleaseDB;Integrated Security=True"
xdt:Transform="SetAttributes" xdt:Locator="Match(name)"/>
</connectionStrings>
-->
<system.web>
<!--
Im folgenden Beispiel ersetzt die Transformation "Replace" den gesamten
Abschnitt "<customErrors>" der Datei "web.config".
Da unter dem Knoten "<system.web>" nur ein Abschnitt vom Typ
"customErrors" vorhanden ist, muss das Attribut "xdt:Locator" nicht verwendet werden.
<customErrors defaultRedirect="GenericError.htm"
mode="RemoteOnly" xdt:Transform="Replace">
<error statusCode="500" redirect="InternalError.htm"/>
</customErrors>
-->
</system.web>
</configuration>

31
VERAG_REST_SERVER/Web.Release.config Normal file
View File

@@ -0,0 +1,31 @@
<?xml version="1.0" encoding="utf-8"?>
<!-- Weitere Informationen zur Verwendung der web.config-Transformation finden Sie unter https://go.microsoft.com/fwlink/?LinkId=125889 -->
<configuration xmlns:xdt="http://schemas.microsoft.com/XML-Document-Transform">
<!--
Im folgenden Beispiel wird durch die Transformation "SetAttributes" der Wert von
"connectionString" geändert, sodass "ReleaseSQLServer" nur verwendet wird, wenn
vom Locator "Match" ein Attribut vom Typ "name" mit dem Wert "MyDB" gefunden wird.
<connectionStrings>
<add name="MyDB"
connectionString="Data Source=ReleaseSQLServer;Initial Catalog=MyReleaseDB;Integrated Security=True"
xdt:Transform="SetAttributes" xdt:Locator="Match(name)"/>
</connectionStrings>
-->
<system.web>
<compilation xdt:Transform="RemoveAttributes(debug)" />
<!--
Im folgenden Beispiel ersetzt die Transformation "Replace" den gesamten
Abschnitt "<customErrors>" der Datei "web.config".
Da unter dem Knoten "<system.web>" nur ein Abschnitt vom Typ
"customErrors" vorhanden ist, muss das Attribut "xdt:Locator" nicht verwendet werden.
<customErrors defaultRedirect="GenericError.htm"
mode="RemoteOnly" xdt:Transform="Replace">
<error statusCode="500" redirect="InternalError.htm"/>
</customErrors>
-->
</system.web>
</configuration>

70
VERAG_REST_SERVER/Web.config Normal file
View File

@@ -0,0 +1,70 @@
<?xml version="1.0" encoding="utf-8"?>
<!--
Weitere Informationen zum Konfigurieren Ihrer ASP.NET-Anwendung finden Sie unter
https://go.microsoft.com/fwlink/?LinkId=301879
-->
<configuration>
<appSettings />
<!--
Eine Beschreibung der Änderungen von 'web.config' finden Sie unter 'http://go.microsoft.com/fwlink/?LinkId=235367'.
Die folgenden Attribute können für die <httpRuntime>-Kennung festgelegt werden.
<system.Web>
<httpRuntime targetFramework="4.7" />
</system.Web>
-->
<system.web>
<compilation debug="true" targetFramework="4.7" />
<httpRuntime targetFramework="4.5" />
</system.web>
<system.webServer>
<handlers>
<remove name="ExtensionlessUrlHandler-Integrated-4.0" />
<remove name="OPTIONSVerbHandler" />
<remove name="TRACEVerbHandler" />
<add name="ExtensionlessUrlHandler-Integrated-4.0" path="*." verb="*" type="System.Web.Handlers.TransferRequestHandler" preCondition="integratedMode,runtimeVersionv4.0" />
</handlers>
</system.webServer>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" />
<bindingRedirect oldVersion="0.0.0.0-11.0.0.0" newVersion="11.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Web.Helpers" publicKeyToken="31bf3856ad364e35" />
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Web.Mvc" publicKeyToken="31bf3856ad364e35" />
<bindingRedirect oldVersion="0.0.0.0-5.2.4.0" newVersion="5.2.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Web.WebPages" publicKeyToken="31bf3856ad364e35" />
<bindingRedirect oldVersion="0.0.0.0-3.0.0.0" newVersion="3.0.0.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Buffers" publicKeyToken="cc7b13ffcd2ddd51" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-4.0.3.0" newVersion="4.0.3.0" />
</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.4.0" newVersion="5.2.4.0" />
</dependentAssembly>
<dependentAssembly>
<assemblyIdentity name="System.Net.Http.Formatting" publicKeyToken="31bf3856ad364e35" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-5.2.4.0" newVersion="5.2.4.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
<system.codedom>
<compilers>
<compiler language="c#;cs;csharp" extension=".cs" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.CSharpCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=2.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:6 /nowarn:1659;1699;1701" />
<compiler language="vb;vbs;visualbasic;vbscript" extension=".vb" type="Microsoft.CodeDom.Providers.DotNetCompilerPlatform.VBCodeProvider, Microsoft.CodeDom.Providers.DotNetCompilerPlatform, Version=2.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35" warningLevel="4" compilerOptions="/langversion:14 /nowarn:41008 /define:_MYTYPE=\&quot;Web\&quot; /optionInfer+" />
</compilers>
</system.codedom>
</configuration>

32
VERAG_REST_SERVER/cREST_Options.vb Normal file
View File

@@ -0,0 +1,32 @@
Public Class cREST_Options
<Conditional("DEBUG")>
Shared Sub IsDebugCheck(ByRef isDebug As Boolean)
isDebug = True
End Sub
Shared Function isTESTSSTEM(Request) As Boolean
Try
Dim baseUri As New Uri(Request.RequestUri.AbsoluteUri.Replace(Request.RequestUri.PathAndQuery, String.Empty))
If baseUri.AbsoluteUri.Contains("apitest.verag.ag") Or baseUri.AbsoluteUri.Contains("localhost") Then
Return True
Else
Return False
End If
Catch ex As Exception
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
SQL.doSQL("insert into tbltest (test,ipaddress) Values('FEHLRRR " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
End Try
Return False
End Function
End Class

48
VERAG_REST_SERVER/packages.config Normal file
View File

@@ -0,0 +1,48 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="Microsoft.AspNet.WebApi" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNet.WebApi.Client" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNet.WebApi.Client.de" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNet.WebApi.Core" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNet.WebApi.Core.de" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNet.WebApi.Versioning" version="4.0.0" targetFramework="net47" />
<package id="Microsoft.AspNet.WebApi.WebHost" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNet.WebApi.WebHost.de" version="5.2.4" targetFramework="net45" />
<package id="Microsoft.AspNetCore.Authentication.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Authentication.Core" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Authorization" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Authorization.Policy" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Hosting.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Hosting.Server.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Http" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Http.Abstractions" 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="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.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.Routing.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.AspNetCore.WebUtilities" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.CodeDom.Providers.DotNetCompilerPlatform" version="2.0.0" targetFramework="net45" />
<package id="Microsoft.DotNet.PlatformAbstractions" version="2.1.0" targetFramework="net47" />
<package id="Microsoft.Extensions.Configuration.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.DependencyInjection" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.DependencyInjection.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.DependencyModel" version="2.1.0" targetFramework="net47" />
<package id="Microsoft.Extensions.FileProviders.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.Hosting.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.Logging.Abstractions" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.ObjectPool" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.Options" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Extensions.Primitives" version="2.2.0" targetFramework="net47" />
<package id="Microsoft.Net.Http.Headers" version="2.2.0" targetFramework="net47" />
<package id="Newtonsoft.Json" version="11.0.1" targetFramework="net45" />
<package id="System.Buffers" version="4.5.0" targetFramework="net47" />
<package id="System.ComponentModel.Annotations" version="4.5.0" targetFramework="net47" />
<package id="System.Diagnostics.DiagnosticSource" version="4.5.0" targetFramework="net47" />
<package id="System.Memory" version="4.5.1" targetFramework="net47" />
<package id="System.Numerics.Vectors" version="4.4.0" targetFramework="net47" />
<package id="System.Runtime.CompilerServices.Unsafe" version="4.5.1" targetFramework="net47" />
<package id="System.Runtime.InteropServices.RuntimeInformation" version="4.0.0" targetFramework="net47" />
<package id="System.Text.Encodings.Web" version="4.5.0" targetFramework="net47" />
<package id="System.Threading.Tasks.Extensions" version="4.5.1" targetFramework="net47" />
</packages>