From 4ecf802db3d161594b3671cd118fc79bbc8db31e Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 5 Nov 2024 08:28:34 +0100 Subject: [PATCH] REST --- .../AvisoController/AVISOController.vb | 420 +++++++++++++++ .../CustomsDeclarationController.vb | 151 ++++++ .../Controllers/NCTS/NCTSController.vb | 500 ++++++++++++++++++ .../NEWTESTController/NEWTESTController.vb | 21 + .../TestController/TESTController.vb | 22 + 5 files changed, 1114 insertions(+) create mode 100644 VERAG_REST_SERVER/Controllers/AvisoController/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/TESTController.vb diff --git a/VERAG_REST_SERVER/Controllers/AvisoController/AVISOController.vb b/VERAG_REST_SERVER/Controllers/AvisoController/AVISOController.vb new file mode 100644 index 0000000..93076db --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/AvisoController/AVISOController.vb @@ -0,0 +1,420 @@ + +Imports System.Web.Http +Imports Microsoft.Web.Http + +Namespace ApiController.Controllers + + + + + Public Class AVISOController + Inherits System.Web.Http.ApiController + + + + ''' + ''' Gets the Hello World Response + ''' + ''' A SharePriceResponse which contains the price of the share + ''' Returns 200 And Hallo World + ''' Returns 400 if the query Is invalid + Public Function GetValue() As String + Return "Hello world!" + End Function + + ''' + ''' Set the Test + ''' + ''' TRAviso + ''' A SharePriceResponse which contains the price of the share + ''' Returns 200 and the TRAviso-JSON-Object + ''' Returns 400 if the query Is invalid + ''' Returns 401 if your are not authorized + 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 AVISO1TESTController + Inherits System.Web.Http.ApiController + + ''' + ''' Gets the Hello World Response + ''' + 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..706b88e --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb @@ -0,0 +1,151 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + +Namespace api_CustomsDeclaration.Controllers + + + + Public Class CustomsDeclaration1Controller + Inherits System.Web.Http.ApiController + + Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza + Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza + EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position) + EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document) + 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document) + EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen) + + Return EZA + End Function + + Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String + ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request) + + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress() + + SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_X101_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL") + + + Try + + Dim resultJson2 = jsonString.FromClass(EZA_FREMD) + SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL") + + Catch ex As Exception + SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL") + + End Try + + + PostValue = "EZA_ERR" + Try + If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format + ' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr + ' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference + + Dim Reference = If(EZA_FREMD.Reference, "") + + Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True) + + If EZA_TR Is Nothing Then + EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD) + Else + EZA_TR.setEZA(EZA_FREMD) + End If + + EZA_TR.shTr_Partnersystem = "ATEZ" + EZA_TR.shTr_Status = 5 + 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5 + + EZA_TR.EZA.Company = "VERAG" + EZA_TR.EZA.Department = "SUB" + 'EZA_TR.Reference = "" + + + If EZA_TR.SAVE_ALL Then + 'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString + 'Dim resultJson = jsonString.FromClass(EZA_FREMD) + 'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL") + 'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL") + SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL") + + Return "OK" + Else + PostValue = EZA_Exceptions.ERR_04_InternalSave + End If + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name) + SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL") + Return EZA_Exceptions.ERR_03_InternalVerarb + End Try + + ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL") + + Return PostValue + + + End Function + + + End Class + + +End Namespace + + + +Public Class jsonString + + Shared Function FromClass(Of T)(data As T, + Optional isEmptyToNull As Boolean = False, + Optional jsonSettings As JsonSerializerSettings = Nothing) As String + + Dim response As String = String.Empty + + If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then + response = JsonConvert.SerializeObject(data, jsonSettings) + End If + + Return If(isEmptyToNull, (If(response = "{}", "null", response)), response) + + End Function + + Shared Function ToClass(Of T)(data As String, + Optional jsonSettings As JsonSerializerSettings = Nothing) As T + + Dim response = Nothing + + If Not String.IsNullOrEmpty(data) Then + response = If(jsonSettings Is Nothing, + JsonConvert.DeserializeObject(Of T)(data), + JsonConvert.DeserializeObject(Of T)(data, jsonSettings)) + End If + + Return response + + End Function + + + +End Class + +Class EZA_Exceptions + Public Const ERR_01_Wrong_Format As String = "ERR_01" + Public Const ERR_02_Missing_MRN As String = "ERR_02" + Public Const ERR_03_InternalVerarb As String = "ERR_03" + Public Const ERR_04_InternalSave As String = "ERR_04" + Public Const ERR_05_Missing_Colli As String = "ERR_05" + Public Const ERR_06_Missing_Gewicht As String = "ERR_06" + Public Const ERR_07_Missing_PlateNr As String = "ERR_07" + Public Const ERR_08_Missing_Reference As String = "ERR_08" + +End Class + diff --git a/VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb b/VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb new file mode 100644 index 0000000..c37fa0c --- /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_NCTS1Controller + Inherits System.Web.Http.ApiController + + 'Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_out_ncts + ' Dim NCTS As New VERAG_PROG_ALLGEMEIN.cVERAG_out_ncts + ' NCTS.ncts_WARENPOS.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_Warenposition) + ' NCTS.ncts_SICHERHEITSANGABEN.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_Sicherheitsangaben) + ' NCTS.ncts_WARENPOS(0).nctsWP_PACKSTUECKE.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_WarenpositionPackstuecke) + ' NCTS.ncts_WARENPOS(0).nctsWP_UNTERLAGEN.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen) + + ' 'NCTS.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen) + + + ' Return NCTS + 'End Function + + + 'Public Function PostValue(ByVal value As String) As String + ' 'Dim file As System.IO.StreamWriter + ' 'file = My.Computer.FileSystem.OpenTextFileWriter("G:\test.txt", True) + ' 'file.WriteLine(value) + ' 'file.Close() + ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + ' SQL.doSQL("insert into tbltest (test) Values('000')", "FMZOLL") + + ' Return "asd" & value + 'End Function + + Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request) + VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress() + + + SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL") + + Try + + Dim resultJson2 = jsonString.FromClass(NCTS_ATEZ) + SQL.doSQL("insert into tbltest (test) Values('NCTS_" & resultJson2 & "')", "FMZOLL") + + Catch ex As Exception + + End Try + + + PostValue = "NCTS_ERR" + Try + If NCTS_ATEZ Is Nothing OrElse NCTS_ATEZ.CC015B Is Nothing Then Return NCTS_Exceptions.ERR_01_Wrong_Format + If NCTS_ATEZ.CC015B.MRNNumber Is Nothing OrElse NCTS_ATEZ.CC015B.MRNNumber = "" Then Return NCTS_Exceptions.ERR_02_Missing_MRN + + + Dim MRN = If(NCTS_ATEZ.CC015B.MRNNumber, "") + + Dim NCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, "ATEZ") + If NCTS_TR Is Nothing Then + NCTS_TR = New VERAG_PROG_ALLGEMEIN.cNCTS_TR + End If + + NCTS_TR.ncts_Partnersystem = "ATEZ" + NCTS_TR.ncts_Status = 5 + NCTS_TR.ncts_Status_KEWILL_Equivalent = 5 + + NCTS_TR.ncts_MRN = NCTS_ATEZ.CC015B.MRNNumber + + + + 'NCTS_TR.ncts_ObjectName = NCTS_ATEZ.CC015B.RefId + 'NCTS_TR.ncts_ObjectAlias = NCTS_ATEZ.CC015B.RefId + + If NCTS_ATEZ.CC015B.HEAHEA IsNot Nothing Then + NCTS_TR.ncts_dyaArt = NCTS_ATEZ.CC015B.HEAHEA.TypOfDecHEA24 + NCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85 + NCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = NCTS_ATEZ.CC015B.HEAHEA.NatOfMeaOfTraCroHEA87 + NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78 + End If + + If NCTS_ATEZ.CC015B.CARTRA100 IsNot Nothing Then + NCTS_TR.ncts_SumA_Befoerderer_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.NamCARTRA121, 35) + NCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.StrAndNumCARTRA254, 35) + NCTS_TR.ncts_SumA_Befoerderer_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.PosCodCARTRA121, 9) + NCTS_TR.ncts_SumA_Befoerderer_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.CitCARTRA789, 35) + NCTS_TR.ncts_SumA_Befoerderer_Land = NCTS_ATEZ.CC015B.CARTRA100.CouCodCARTRA587 + + 'If NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 IsNot Nothing And NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121 IsNot Nothing Then + ' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 & NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121 + 'End If + End If + + If NCTS_ATEZ.CC015B.TRACORSEC037 IsNot Nothing Then + NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.NamTRACORSEC041, 35) + NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.StrNumTRACORSEC043, 35) + NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.PosCodTRACORSEC042, 9) + NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.CitTRACORSEC038, 35) + NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACORSEC037.CouCodTRACORSEC039 + + 'If NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044 IsNot Nothing Then + ' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG & NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044 + 'End If + End If + + If NCTS_ATEZ.CC015B.TRACONSEC029 IsNot Nothing Then + NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.NameTRACONSEC033, 35) + NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.StrNumTRACONSEC035, 35) + NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.PosCodTRACONSEC034, 9) + NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.CitTRACONSEC030, 35) + NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACONSEC029.CouCodTRACONSEC031 + + 'If NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036 IsNot Nothing Then + ' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG & NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036 + 'End If + End If + + 'Dim cnt = 1 + 'If NCTS_ATEZ.CC015B.ITI IsNot Nothing Then + ' For Each R In NCTS_ATEZ.CC015B.ITI + ' Select Case cnt + ' Case 1 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand1 = R + ' Case 2 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand2 = R + ' Case 3 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand3 = R + ' Case 4 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand4 = R + ' Case 5 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand5 = R + ' Case 6 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand6 = R + ' Case 7 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand7 = R + ' Case 8 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand8 = R + ' Case 9 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand9 = R + ' Case 10 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand10 = R + ' Case 11 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand11 = R + ' Case 12 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand12 = R + ' End Select + + ' cnt += 1 + ' Next + + 'End If + + + + + If NCTS_ATEZ.CC015B.GOOITEGDS IsNot Nothing Then + For Each ITEM In NCTS_ATEZ.CC015B.GOOITEGDS + Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition + POS.nctsWP_PositionsNummer = ITEM.IteNumGDS7 + POS.nctsWP_Warenbezeichnung = ITEM.GooDesGDS23 + + POS.nctsWP_Rohmasse = ITEM.GroMasGDS46 + POS.nctsWP_Eigenmasse = ITEM.NetMasGDS48 + If ITEM.ComCodTarCodGDS10 IsNot Nothing Then + If ITEM.ComCodTarCodGDS10.ToString.Length > 10 Then + POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10.Substring(0, 10) + Else + POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10 + End If + End If + If ITEM.PACGS2 IsNot Nothing Then + + For Each PAC In ITEM.PACGS2 + Dim PACK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke + PACK.nctsWpPk_PackstueckeAnzahl = PAC.NumOfPacGS24 + PACK.nctsWpPk_Verpackungsart = PAC.KinOfPacGS23 + POS.nctsWP_PACKSTUECKE.Add(PACK) + If PACK.nctsWpPk_PackstueckeAnzahl Is Nothing Then Return NCTS_Exceptions.ERR_05_Missing_Colli + Next + Else + Return NCTS_Exceptions.ERR_05_Missing_Colli + End If + + ' For Each PACGS In ITEM.PACGS2 + ' Dim PACK As New cNCTSPartnerWorker.cNCTS_TR_WarenpositionPackstuecke + ' PACK.nctsWpPk_PackstueckeAnzahl = PACGS.NumOfPacGS24 + ' PACK.nctsWpPk_Verpackungsart = PACGS.KinOfPacGS23 + '' PACK.nctsWpPk_ZeichenNummern = PACGS.MarNumOfPacGS21 + ' POS.nctsWP_PACKSTUECKE.Add(PACK) + ' Next + NCTS_TR.ncts_WARENPOS.Add(POS) + If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht + If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht + If POS.nctsWP_PACKSTUECKE.Count = 0 Then Return NCTS_Exceptions.ERR_05_Missing_Colli + Next + + End If + + If NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing Then Return NCTS_Exceptions.ERR_07_Missing_PlateNr + + + + If NCTS_TR.SAVE_ALL Then + 'PostValue = "NCTS_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString + 'SQL.doSQL("insert into tbltest (test) Values('ATEZ_NCTS_TEST: " & NCTS_ATEZ.CC015B.MRNNumber & "')", "FMZOLL") + + SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_OK - ID: " & NCTS_TR.ncts_Id & "','" & ip & "')", "FMZOLL") + + Return "OK" + Else + PostValue = NCTS_Exceptions.ERR_04_InternalSave + End If + ' Return "TEST3" + + 'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL") + + 'MsgBox(resultJson) + 'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "NCTS_ATEZ") + 'DS.uploadDataToDATENSERVER_fromBytes() + + 'Dim client = New RestClient(_baseURI) + 'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET) + 'request.AddUrlSegment("identifier", _identifier) + 'request.AddHeader("Authorization", "Basic " + _token) + 'Dim jstr = client.Execute(request).Content + 'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr) + + + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name) + SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL") + Return NCTS_Exceptions.ERR_03_InternalVerarb + End Try + + ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL") + + Return PostValue + End Function + + + '' POST api/CustomsDeclaration_V001/ + 'Public Sub PostValue( 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..ad57986 --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb @@ -0,0 +1,21 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + + + +Namespace NEWTESTController.Controllers + + + + Public Class NEWTEST1Controller + Inherits System.Web.Http.ApiController + + Public Function GetValues() As String + Return "NEWTEST 1111" + End Function + + End Class +End Namespace diff --git a/VERAG_REST_SERVER/Controllers/TestController/TESTController.vb b/VERAG_REST_SERVER/Controllers/TestController/TESTController.vb new file mode 100644 index 0000000..efe26fc --- /dev/null +++ b/VERAG_REST_SERVER/Controllers/TestController/TESTController.vb @@ -0,0 +1,22 @@ +Imports System.Net +Imports System.Web.Http +Imports Microsoft.Web.Http +Imports Newtonsoft.Json + + +Namespace ApiController.Controllers + + + + Public Class TESTController + Inherits System.Web.Http.ApiController + + + Public Function GetValues() As String + Return "TEST 1" + End Function + + End Class + + +End Namespace