From 877f50f1eb3212929860f77a6a1dee38346d0bb7 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Tue, 14 Feb 2023 15:38:31 +0100 Subject: [PATCH] =?UTF-8?q?Projektdateien=20hinzuf=C3=BCgen.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- VERAG_REST_SERVER.sln | 37 ++ VERAG_REST_SERVER/App_Start/RouteConfig.vb | 16 + VERAG_REST_SERVER/App_Start/WebApiConfig.vb | 200 +++++++ .../Controllers/AVISOController.vb | 407 +++++++++++++ .../CustomsDeclarationController.vb | 544 ++++++++++++++++++ .../Controllers/NCTS/NCTSController.vb | 500 ++++++++++++++++ .../NEWTESTController/NEWTESTController.vb | 73 +++ .../TestController/V1/TESTController.vb | 61 ++ .../TestController/V2/TESTController.vb | 61 ++ VERAG_REST_SERVER/Global.asax | 1 + VERAG_REST_SERVER/Global.asax.vb | 11 + VERAG_REST_SERVER/Models/cTEST.vb | 31 + .../Models/cVERAG_in_shippmentOLD.vb | 203 +++++++ .../My Project/Application.Designer.vb | 13 + .../My Project/Application.myapp | 10 + VERAG_REST_SERVER/My Project/AssemblyInfo.vb | 34 ++ .../My Project/MyExtensions/MyWebExtension.vb | 73 +++ .../My Project/Resources.Designer.vb | 63 ++ VERAG_REST_SERVER/My Project/Resources.resx | 117 ++++ .../My Project/Settings.Designer.vb | 73 +++ .../My Project/Settings.settings | 7 + VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj | 352 ++++++++++++ VERAG_REST_SERVER/Web.Debug.config | 30 + VERAG_REST_SERVER/Web.Release.config | 31 + VERAG_REST_SERVER/Web.config | 70 +++ VERAG_REST_SERVER/cREST_Options.vb | 32 ++ VERAG_REST_SERVER/packages.config | 48 ++ 27 files changed, 3098 insertions(+) create mode 100644 VERAG_REST_SERVER.sln create mode 100644 VERAG_REST_SERVER/App_Start/RouteConfig.vb create mode 100644 VERAG_REST_SERVER/App_Start/WebApiConfig.vb create mode 100644 VERAG_REST_SERVER/Controllers/AVISOController.vb create mode 100644 VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb create mode 100644 VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb create mode 100644 VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb create mode 100644 VERAG_REST_SERVER/Controllers/TestController/V1/TESTController.vb create mode 100644 VERAG_REST_SERVER/Controllers/TestController/V2/TESTController.vb create mode 100644 VERAG_REST_SERVER/Global.asax create mode 100644 VERAG_REST_SERVER/Global.asax.vb create mode 100644 VERAG_REST_SERVER/Models/cTEST.vb create mode 100644 VERAG_REST_SERVER/Models/cVERAG_in_shippmentOLD.vb create mode 100644 VERAG_REST_SERVER/My Project/Application.Designer.vb create mode 100644 VERAG_REST_SERVER/My Project/Application.myapp create mode 100644 VERAG_REST_SERVER/My Project/AssemblyInfo.vb create mode 100644 VERAG_REST_SERVER/My Project/MyExtensions/MyWebExtension.vb create mode 100644 VERAG_REST_SERVER/My Project/Resources.Designer.vb create mode 100644 VERAG_REST_SERVER/My Project/Resources.resx create mode 100644 VERAG_REST_SERVER/My Project/Settings.Designer.vb create mode 100644 VERAG_REST_SERVER/My Project/Settings.settings create mode 100644 VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj create mode 100644 VERAG_REST_SERVER/Web.Debug.config create mode 100644 VERAG_REST_SERVER/Web.Release.config create mode 100644 VERAG_REST_SERVER/Web.config create mode 100644 VERAG_REST_SERVER/cREST_Options.vb create mode 100644 VERAG_REST_SERVER/packages.config diff --git a/VERAG_REST_SERVER.sln b/VERAG_REST_SERVER.sln new file mode 100644 index 0000000..1dd96d6 --- /dev/null +++ b/VERAG_REST_SERVER.sln @@ -0,0 +1,37 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 15 +VisualStudioVersion = 15.0.28307.106 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_REST_SERVER", "VERAG_REST_SERVER\VERAG_REST_SERVER.vbproj", "{7DF44971-3806-4AEB-9F92-4A1A07837616}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "NCTSPartnerWorker", "..\..\VB\ADMIN\ADMIN\cNCTSPartnerWorker\NCTSPartnerWorker.vbproj", "{2BBD7643-82A1-481F-A014-EB7FCDEED3B5}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {7DF44971-3806-4AEB-9F92-4A1A07837616}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {7DF44971-3806-4AEB-9F92-4A1A07837616}.Debug|Any CPU.Build.0 = Debug|Any CPU + {7DF44971-3806-4AEB-9F92-4A1A07837616}.Release|Any CPU.ActiveCfg = Release|Any CPU + {7DF44971-3806-4AEB-9F92-4A1A07837616}.Release|Any CPU.Build.0 = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU + {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Debug|Any CPU.Build.0 = Debug|Any CPU + {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.ActiveCfg = Release|Any CPU + {2BBD7643-82A1-481F-A014-EB7FCDEED3B5}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {444E2A0A-5CEA-487E-B24B-361E760BFF8E} + EndGlobalSection +EndGlobal diff --git a/VERAG_REST_SERVER/App_Start/RouteConfig.vb b/VERAG_REST_SERVER/App_Start/RouteConfig.vb new file mode 100644 index 0000000..7c9e816 --- /dev/null +++ b/VERAG_REST_SERVER/App_Start/RouteConfig.vb @@ -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 diff --git a/VERAG_REST_SERVER/App_Start/WebApiConfig.vb b/VERAG_REST_SERVER/App_Start/WebApiConfig.vb new file mode 100644 index 0000000..22c91d6 --- /dev/null +++ b/VERAG_REST_SERVER/App_Start/WebApiConfig.vb @@ -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 diff --git a/VERAG_REST_SERVER/Controllers/AVISOController.vb b/VERAG_REST_SERVER/Controllers/AVISOController.vb new file mode 100644 index 0000000..ea0b6fc --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/AVISOController.vb @@ -0,0 +1,407 @@ + +Imports System.Web.Http +Imports Microsoft.Web.Http + +Namespace ApiController.Controllers + + + + + 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---------------------------------- + '------------------------------------------------------------------------ + + + + + 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 \ No newline at end of file diff --git a/VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb b/VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb new file mode 100644 index 0000000..38d44bf --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb @@ -0,0 +1,544 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + + + +Namespace api_CustomsDeclaration.Controllers + + + + 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( 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( ByVal value As String) + + 'End Sub + + '' PUT api/CustomsDeclaration_V001//5 + 'Public Sub PutValue(ByVal id As Integer, ByVal value As String) + + 'End Sub + + '' DELETE api/CustomsDeclaration_V001//5 + 'Public Sub DeleteValue(ByVal id As Integer) + + 'End Sub + + + + End Class + + + + + + ' + ' + '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---------------------------------- + '------------------------------------------------------------------------ + + + ' + ' + '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 + + + + 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 + diff --git a/VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb b/VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb new file mode 100644 index 0000000..e9e97dd --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb @@ -0,0 +1,500 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + +Namespace ApiController.Controllers + + + + + + 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( ByVal value As String) + + 'End Sub + + '' PUT api/CustomsDeclaration_V001//5 + 'Public Sub PutValue(ByVal id As Integer, ByVal value As String) + + 'End Sub + + '' DELETE api/CustomsDeclaration_V001//5 + 'Public Sub DeleteValue(ByVal id As Integer) + + 'End Sub + + + End Class + + + + '------------------------------------------------------------------------ + '----------------------------------TEST---------------------------------- + '------------------------------------------------------------------------ + + + + 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 \ No newline at end of file diff --git a/VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb b/VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb new file mode 100644 index 0000000..a3e57d7 --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb @@ -0,0 +1,73 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + + + +Namespace NEWTESTController.Controllers + + + + Public Class NEWTESTV1Controller + Inherits System.Web.Http.ApiController + + Public Function GetValues() As String + Return "NEWTEST 1111" + End Function + + End Class + + + + + + 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 + + + +' +' +' 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 + +' +' +' Public Class TESTController +' Inherits System.Web.Http.ApiController + + +' Public Function GetValues() As String +' Return "TEST 3" +' End Function + +' End Class + + +'End Namespace diff --git a/VERAG_REST_SERVER/Controllers/TestController/V1/TESTController.vb b/VERAG_REST_SERVER/Controllers/TestController/V1/TESTController.vb new file mode 100644 index 0000000..d6ec082 --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/TestController/V1/TESTController.vb @@ -0,0 +1,61 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + +Namespace TESTController.Controllers.V1 + + + + + + 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 + + + +' +' +' 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 + +' +' +' Public Class TESTController +' Inherits System.Web.Http.ApiController + + +' Public Function GetValues() As String +' Return "TEST 3" +' End Function + +' End Class + + +'End Namespace diff --git a/VERAG_REST_SERVER/Controllers/TestController/V2/TESTController.vb b/VERAG_REST_SERVER/Controllers/TestController/V2/TESTController.vb new file mode 100644 index 0000000..82d09b3 --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/TestController/V2/TESTController.vb @@ -0,0 +1,61 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + +Namespace TESTController.Controllers.V2 + + + + + + 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 + + + +' +' +' 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 + +' +' +' Public Class TESTController +' Inherits System.Web.Http.ApiController + + +' Public Function GetValues() As String +' Return "TEST 3" +' End Function + +' End Class + + +'End Namespace diff --git a/VERAG_REST_SERVER/Global.asax b/VERAG_REST_SERVER/Global.asax new file mode 100644 index 0000000..deb5064 --- /dev/null +++ b/VERAG_REST_SERVER/Global.asax @@ -0,0 +1 @@ +<%@ Application Codebehind="Global.asax.vb" Inherits="VERAG_REST_SERVER.WebApiApplication" Language="VB" %> diff --git a/VERAG_REST_SERVER/Global.asax.vb b/VERAG_REST_SERVER/Global.asax.vb new file mode 100644 index 0000000..e5b3d0d --- /dev/null +++ b/VERAG_REST_SERVER/Global.asax.vb @@ -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 diff --git a/VERAG_REST_SERVER/Models/cTEST.vb b/VERAG_REST_SERVER/Models/cTEST.vb new file mode 100644 index 0000000..2b9e5a6 --- /dev/null +++ b/VERAG_REST_SERVER/Models/cTEST.vb @@ -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} + + ' + 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 + + diff --git a/VERAG_REST_SERVER/Models/cVERAG_in_shippmentOLD.vb b/VERAG_REST_SERVER/Models/cVERAG_in_shippmentOLD.vb new file mode 100644 index 0000000..fd0c4a2 --- /dev/null +++ b/VERAG_REST_SERVER/Models/cVERAG_in_shippmentOLD.vb @@ -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 + + + + diff --git a/VERAG_REST_SERVER/My Project/Application.Designer.vb b/VERAG_REST_SERVER/My Project/Application.Designer.vb new file mode 100644 index 0000000..8ab460b --- /dev/null +++ b/VERAG_REST_SERVER/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + diff --git a/VERAG_REST_SERVER/My Project/Application.myapp b/VERAG_REST_SERVER/My Project/Application.myapp new file mode 100644 index 0000000..758895d --- /dev/null +++ b/VERAG_REST_SERVER/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + false + false + 0 + true + 0 + 1 + true + diff --git a/VERAG_REST_SERVER/My Project/AssemblyInfo.vb b/VERAG_REST_SERVER/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..d80c6f6 --- /dev/null +++ b/VERAG_REST_SERVER/My Project/AssemblyInfo.vb @@ -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 + + + + + + + + + +'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM bereitgestellt wird. + + +' 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: +' + + + diff --git a/VERAG_REST_SERVER/My Project/MyExtensions/MyWebExtension.vb b/VERAG_REST_SERVER/My Project/MyExtensions/MyWebExtension.vb new file mode 100644 index 0000000..e431691 --- /dev/null +++ b/VERAG_REST_SERVER/My Project/MyExtensions/MyWebExtension.vb @@ -0,0 +1,73 @@ +#If _MyType <> "Empty" Then + +Namespace My + ''' + ''' Modul, das zum Definieren der Eigenschaften verwendet wird, die unter "My Namespace" für Webprojekte verfügbar sind. + ''' + ''' + _ + 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) + ''' + ''' Gibt Informationen zum Hostcomputer zurück. + ''' + _ + Friend ReadOnly Property Computer() As Global.Microsoft.VisualBasic.Devices.ServerComputer + Get + Return s_Computer.GetInstance() + End Get + End Property + ''' + ''' Gibt Informationen zum aktuellen Webbenutzer zurück. + ''' + _ + Friend ReadOnly Property User() As Global.Microsoft.VisualBasic.ApplicationServices.WebUser + Get + Return s_User.GetInstance() + End Get + End Property + ''' + ''' Gibt das Objekt "Request" zurück. + ''' + _ + _ + Friend ReadOnly Property Request() As Global.System.Web.HttpRequest + _ + 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 + ''' + ''' Gibt das Objekt "Response" zurück. + ''' + _ + _ + Friend ReadOnly Property Response() As Global.System.Web.HttpResponse + _ + 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 + ''' + ''' Gibt das ASP-Protokollobjekt zurück. + ''' + _ + 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 \ No newline at end of file diff --git a/VERAG_REST_SERVER/My Project/Resources.Designer.vb b/VERAG_REST_SERVER/My Project/Resources.Designer.vb new file mode 100644 index 0000000..e073b82 --- /dev/null +++ b/VERAG_REST_SERVER/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +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. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + 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 + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/VERAG_REST_SERVER/My Project/Resources.resx b/VERAG_REST_SERVER/My Project/Resources.resx new file mode 100644 index 0000000..5931345 --- /dev/null +++ b/VERAG_REST_SERVER/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VERAG_REST_SERVER/My Project/Settings.Designer.vb b/VERAG_REST_SERVER/My Project/Settings.Designer.vb new file mode 100644 index 0000000..91be83e --- /dev/null +++ b/VERAG_REST_SERVER/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' 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. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + 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 + + _ + 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 + + _ + Friend Module MySettingsProperty + + _ + 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 diff --git a/VERAG_REST_SERVER/My Project/Settings.settings b/VERAG_REST_SERVER/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/VERAG_REST_SERVER/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj b/VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj new file mode 100644 index 0000000..4079b7e --- /dev/null +++ b/VERAG_REST_SERVER/VERAG_REST_SERVER.vbproj @@ -0,0 +1,352 @@ + + + + + + Debug + AnyCPU + + + + + {7DF44971-3806-4AEB-9F92-4A1A07837616} + {349c5851-65df-11da-9384-00065b846f21};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + Library + VERAG_REST_SERVER + VERAG_REST_SERVER + v4.7 + Custom + true + + + + + + + + + + + + true + full + true + true + bin\ + VERAG_REST_SERVER.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + true + pdbonly + false + true + true + bin\ + VERAG_REST_SERVER.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + + ..\packages\Microsoft.AspNet.WebApi.Versioning.4.0.0\lib\net45\Microsoft.AspNet.WebApi.Versioning.dll + + + ..\packages\Microsoft.AspNetCore.Authentication.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authentication.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.Authentication.Core.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authentication.Core.dll + + + ..\packages\Microsoft.AspNetCore.Authorization.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authorization.dll + + + ..\packages\Microsoft.AspNetCore.Authorization.Policy.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Authorization.Policy.dll + + + ..\packages\Microsoft.AspNetCore.Hosting.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Hosting.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.Hosting.Server.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Hosting.Server.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.Http.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.dll + + + ..\packages\Microsoft.AspNetCore.Http.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.Http.Extensions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.Extensions.dll + + + ..\packages\Microsoft.AspNetCore.Http.Features.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Http.Features.dll + + + ..\packages\Microsoft.AspNetCore.Mvc.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Mvc.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.ResponseCaching.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.ResponseCaching.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.Routing.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Routing.dll + + + ..\packages\Microsoft.AspNetCore.Routing.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.Routing.Abstractions.dll + + + ..\packages\Microsoft.AspNetCore.WebUtilities.2.2.0\lib\netstandard2.0\Microsoft.AspNetCore.WebUtilities.dll + + + + ..\packages\Microsoft.DotNet.PlatformAbstractions.2.1.0\lib\net45\Microsoft.DotNet.PlatformAbstractions.dll + + + ..\packages\Microsoft.Extensions.Configuration.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Configuration.Abstractions.dll + + + ..\packages\Microsoft.Extensions.DependencyInjection.2.2.0\lib\net461\Microsoft.Extensions.DependencyInjection.dll + + + ..\packages\Microsoft.Extensions.DependencyInjection.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.DependencyInjection.Abstractions.dll + + + ..\packages\Microsoft.Extensions.DependencyModel.2.1.0\lib\net451\Microsoft.Extensions.DependencyModel.dll + + + ..\packages\Microsoft.Extensions.FileProviders.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.FileProviders.Abstractions.dll + + + ..\packages\Microsoft.Extensions.Hosting.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Hosting.Abstractions.dll + + + ..\packages\Microsoft.Extensions.Logging.Abstractions.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Logging.Abstractions.dll + + + ..\packages\Microsoft.Extensions.ObjectPool.2.2.0\lib\netstandard2.0\Microsoft.Extensions.ObjectPool.dll + + + ..\packages\Microsoft.Extensions.Options.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Options.dll + + + ..\packages\Microsoft.Extensions.Primitives.2.2.0\lib\netstandard2.0\Microsoft.Extensions.Primitives.dll + + + ..\packages\Microsoft.Net.Http.Headers.2.2.0\lib\netstandard2.0\Microsoft.Net.Http.Headers.dll + + + + ..\packages\System.Buffers.4.5.0\lib\netstandard2.0\System.Buffers.dll + + + + + ..\packages\System.Diagnostics.DiagnosticSource.4.5.0\lib\net46\System.Diagnostics.DiagnosticSource.dll + + + + ..\packages\System.Memory.4.5.1\lib\netstandard2.0\System.Memory.dll + + + + + ..\packages\System.Numerics.Vectors.4.4.0\lib\net46\System.Numerics.Vectors.dll + + + ..\packages\System.Runtime.CompilerServices.Unsafe.4.5.1\lib\netstandard2.0\System.Runtime.CompilerServices.Unsafe.dll + + + ..\packages\System.Runtime.InteropServices.RuntimeInformation.4.0.0\lib\net45\System.Runtime.InteropServices.RuntimeInformation.dll + True + True + + + ..\packages\System.Text.Encodings.Web.4.5.0\lib\netstandard2.0\System.Text.Encodings.Web.dll + + + ..\packages\System.Threading.Tasks.Extensions.4.5.1\lib\netstandard2.0\System.Threading.Tasks.Extensions.dll + + + + + + + + + + + + + + False + ..\..\..\VB\SDL\SDL\VERAG_PROG_ALLGEMEIN\bin\Release\VERAG_PROG_ALLGEMEIN.dll + + + + + ..\packages\Newtonsoft.Json.11.0.1\lib\net45\Newtonsoft.Json.dll + + + ..\packages\Microsoft.AspNet.WebApi.Client.5.2.4\lib\net45\System.Net.Http.Formatting.dll + + + ..\packages\Microsoft.AspNet.WebApi.Core.5.2.4\lib\net45\System.Web.Http.dll + + + ..\packages\Microsoft.AspNet.WebApi.WebHost.5.2.4\lib\net45\System.Web.Http.WebHost.dll + + + ..\packages\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.2.0.0\lib\net45\Microsoft.CodeDom.Providers.DotNetCompilerPlatform.dll + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Global.asax + + + + + + True + Application.myapp + + + Microsoft.VisualBasic.Web.MyExtension + 1.0.0.0 + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + Web.config + + + Web.config + + + + + + + + {2bbd7643-82a1-481f-a014-eb7fcdeed3b5} + NCTSPartnerWorker + + + + 10.0 + $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + On + + + Binary + + + Off + + + On + + + false + + + + + + + + + True + True + 58452 + / + http://localhost:58452/ + False + False + + + False + + + + + + + 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}". + + + + + \ No newline at end of file diff --git a/VERAG_REST_SERVER/Web.Debug.config b/VERAG_REST_SERVER/Web.Debug.config new file mode 100644 index 0000000..f01fcc5 --- /dev/null +++ b/VERAG_REST_SERVER/Web.Debug.config @@ -0,0 +1,30 @@ + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_REST_SERVER/Web.Release.config b/VERAG_REST_SERVER/Web.Release.config new file mode 100644 index 0000000..86c687b --- /dev/null +++ b/VERAG_REST_SERVER/Web.Release.config @@ -0,0 +1,31 @@ + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_REST_SERVER/Web.config b/VERAG_REST_SERVER/Web.config new file mode 100644 index 0000000..163ea4b --- /dev/null +++ b/VERAG_REST_SERVER/Web.config @@ -0,0 +1,70 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAG_REST_SERVER/cREST_Options.vb b/VERAG_REST_SERVER/cREST_Options.vb new file mode 100644 index 0000000..3560d55 --- /dev/null +++ b/VERAG_REST_SERVER/cREST_Options.vb @@ -0,0 +1,32 @@ +Public Class cREST_Options + + + 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 diff --git a/VERAG_REST_SERVER/packages.config b/VERAG_REST_SERVER/packages.config new file mode 100644 index 0000000..86a1c12 --- /dev/null +++ b/VERAG_REST_SERVER/packages.config @@ -0,0 +1,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + \ No newline at end of file