Projektdateien hinzufügen.
This commit is contained in:
407
VERAG_REST_SERVER/Controllers/AVISOController.vb
Normal file
407
VERAG_REST_SERVER/Controllers/AVISOController.vb
Normal file
@@ -0,0 +1,407 @@
|
||||
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/V001/AVISO")>
|
||||
Public Class AVISO001Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValue(ByVal id As Integer) As String
|
||||
Return "Hello world!"
|
||||
End Function
|
||||
Public Function GetValue() As String
|
||||
Return "Hello world!"
|
||||
End Function
|
||||
|
||||
Public Function PostValue(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(API_AVISO)
|
||||
SQL.doSQL("insert into tbltest (test) Values('IN_AVISO_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "IN_AVISO_ERR"
|
||||
Try
|
||||
If API_AVISO Is Nothing Then Return VERAG_IN_AVISO_Exceptions.ERR_01_Wrong_Format
|
||||
If API_AVISO.Company Is Nothing OrElse API_AVISO.Company = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_02_Missing_Company
|
||||
If API_AVISO.Department Is Nothing OrElse API_AVISO.Department = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_03_Missing_Department
|
||||
If API_AVISO.PartnerTID Is Nothing OrElse API_AVISO.PartnerTID = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_04_Missing_PartnerID
|
||||
If API_AVISO.TransportLicensePlate Is Nothing OrElse API_AVISO.TransportLicensePlate = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_09_Missing_PlateNr
|
||||
|
||||
Dim TR_AVISO As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoFULL
|
||||
|
||||
|
||||
TR_AVISO.trAv_PartnerSystem = API_AVISO.PartnerTID
|
||||
TR_AVISO.trAv_gewicht = API_AVISO.TotGrossWeight
|
||||
TR_AVISO.trAv_colli = API_AVISO.TotPackage
|
||||
TR_AVISO.trAv_Transportmittel = API_AVISO.TransportBorderType
|
||||
TR_AVISO.trAv_Grenzueberschreitung = API_AVISO.TransportModeBorder
|
||||
'TR_AVISO.trAv_FraechterKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Fraechter = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_AvisiererKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Avisierer = API_AVISO.PaXXXXXXXrtnerTID
|
||||
TR_AVISO.trAv_Nationalitaet = API_AVISO.TransportCountryCode
|
||||
TR_AVISO.trAv_Kennzeichen = API_AVISO.TransportLicensePlate
|
||||
TR_AVISO.trAv_Reference = API_AVISO.Reference
|
||||
TR_AVISO.trAv_Fraechter = API_AVISO.FreightCompany
|
||||
TR_AVISO.trAv_FraechterKdNr = API_AVISO.FreightCompanyID
|
||||
TR_AVISO.trAv_Niederlassung = API_AVISO.Department
|
||||
TR_AVISO.trAv_Firma = API_AVISO.Company
|
||||
TR_AVISO.trAv_datetime = Now
|
||||
TR_AVISO.trAv_Info = API_AVISO.Info
|
||||
|
||||
If Not TR_AVISO.SAVE(False) Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
If API_AVISO.DOCUMENTS IsNot Nothing Then
|
||||
For Each ANH In API_AVISO.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoAnhaenge
|
||||
TR_DOC.DocumentType = ANH.DocumentType
|
||||
TR_DOC.DocumentNr = ANH.DocumentNr
|
||||
TR_DOC.DocumentDate = ANH.DocumentDate
|
||||
|
||||
If ANH.base64BinaryStream IsNot Nothing AndAlso ANH.base64BinaryStream <> "" Then
|
||||
TR_DOC.trAvAh_docID = VERAG_IN_AVISO_Functions.base64toDS(ANH.base64BinaryStream, TR_AVISO.trAv_Id, ANH.FileName)
|
||||
End If
|
||||
TR_AVISO.ANHAENGE.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not TR_AVISO.SAVE_Anhaenge Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
|
||||
If API_AVISO.POSITIONS IsNot Nothing Then
|
||||
For Each SH In API_AVISO.POSITIONS
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA)
|
||||
' Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment()
|
||||
SHIPMENT.shTr_TRAvisoId = TR_AVISO.trAv_Id 'Zur Verknüfung
|
||||
|
||||
EZA.Company = API_AVISO.Company
|
||||
EZA.Department = API_AVISO.Department
|
||||
EZA.Reference = SH.Reference
|
||||
|
||||
|
||||
EZA.DeclarationCountry = SH.DeclarationCountry
|
||||
EZA.DeclarationType = SH.DeclarationType
|
||||
|
||||
EZA.TotPackage = SH.NumberOfPackages
|
||||
EZA.TotGrossWeight = SH.GrossWeight
|
||||
'EZA.TotGrossWeight = SH.GrossWeight
|
||||
|
||||
EZA.CustomsCodeDeparture = SH.CustomsCodeDeparture
|
||||
EZA.CustomsCodeDestination = SH.CustomsCodeDestination
|
||||
'EZA.CustomsCodeEntry = API_AVISO.CustomsCodeEntry
|
||||
EZA.TransportModeBorder = API_AVISO.TransportModeBorder
|
||||
|
||||
EZA.CountryCodeDeparture = SH.CountryCodeDeparture
|
||||
EZA.CountryCodeDestination = SH.CountryCodeDestination
|
||||
EZA.DEStateCodeDestination = SH.DEStateCodeDestination
|
||||
|
||||
EZA.TransportArrivalLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.TransportArrivalCountryCode = API_AVISO.TransportCountryCode
|
||||
EZA.TransportBorderType = API_AVISO.TransportBorderType
|
||||
EZA.TransportBorderLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.Incoterm = SH.Incoterm
|
||||
|
||||
EZA.PrePaperCode = SH.PrePaperCode
|
||||
EZA.PrePaperNr = SH.PrePaperNr
|
||||
' EZA.KindOfBusiness = SH.ReferenceXXXXXXXXXXXX
|
||||
EZA.InvoiceAmount = SH.InvoiceAmount
|
||||
EZA.InvoiceCurrency = SH.InvoiceCurrency
|
||||
|
||||
|
||||
EZA.ContainerNr1 = SH.ContainerNr1
|
||||
EZA.ContainerNr2 = SH.ContainerNr2
|
||||
EZA.ContainerNr3 = SH.ContainerNr3
|
||||
EZA.ContainerNr4 = SH.ContainerNr4
|
||||
|
||||
|
||||
|
||||
If SH.ADDRESS IsNot Nothing Then
|
||||
For Each ADD In SH.ADDRESS
|
||||
Dim TR_ADD As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen
|
||||
TR_ADD.AddressCode = ADD.AddressCode
|
||||
TR_ADD.CustomerID = ADD.CustomerID
|
||||
TR_ADD.EORI = ADD.EORI
|
||||
TR_ADD.NLNR = ADD.NLNR
|
||||
TR_ADD.Name1 = ADD.Name1
|
||||
TR_ADD.Name2 = ADD.Name2
|
||||
TR_ADD.Name3 = ADD.Name3
|
||||
TR_ADD.Street1 = ADD.Street1
|
||||
TR_ADD.Street2 = ADD.Street2
|
||||
TR_ADD.City = ADD.City
|
||||
TR_ADD.CountryCode = ADD.CountryCode
|
||||
TR_ADD.PostalCode = ADD.PostalCode
|
||||
TR_ADD.UStID = ADD.UStID
|
||||
|
||||
EZA.ADDRESS.Add(TR_ADD)
|
||||
Next
|
||||
End If
|
||||
|
||||
If SH.DOCUMENTS IsNot Nothing Then
|
||||
For Each DOC In SH.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shipment_Document
|
||||
TR_DOC.DocumentType = DOC.DocumentType
|
||||
TR_DOC.DocumentNr = DOC.DocumentNr
|
||||
TR_DOC.DocumentDate = DOC.DocumentDate
|
||||
|
||||
If DOC.base64BinaryStream IsNot Nothing AndAlso DOC.base64BinaryStream <> "" Then
|
||||
TR_DOC.shTrPosDoc_docID = VERAG_IN_AVISO_Functions.base64toDS(DOC.base64BinaryStream, TR_AVISO.trAv_Id, DOC.FileName, "SND_ATTACHMENT")
|
||||
End If
|
||||
|
||||
EZA.DOCUMENTS.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not SHIPMENT.SAVE() Then
|
||||
Return VERAG_IN_AVISO_Exceptions.ERR_06_InternalSave
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return "OK"
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/V001/TEST/AVISO")>
|
||||
Public Class AVISO001TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValue(ByVal id As Integer) As String
|
||||
Return "Hello world!"
|
||||
End Function
|
||||
Public Function GetValue() As String
|
||||
Return "Hello world!"
|
||||
End Function
|
||||
|
||||
Public Function PostValue(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
Dim resultJson2 = jsonString.FromClass(API_AVISO)
|
||||
SQL.doSQL("insert into tbltest (test) Values('IN_AVISO_" & resultJson2 & "')", "FMZOLL")
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "IN_AVISO_ERR"
|
||||
Try
|
||||
If API_AVISO Is Nothing Then Return VERAG_IN_AVISO_Exceptions.ERR_01_Wrong_Format
|
||||
If API_AVISO.Company Is Nothing OrElse API_AVISO.Company = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_02_Missing_Company
|
||||
If API_AVISO.Department Is Nothing OrElse API_AVISO.Department = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_03_Missing_Department
|
||||
If API_AVISO.PartnerTID Is Nothing OrElse API_AVISO.PartnerTID = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_04_Missing_PartnerID
|
||||
If API_AVISO.TransportLicensePlate Is Nothing OrElse API_AVISO.TransportLicensePlate = "" Then Return VERAG_IN_AVISO_Exceptions.ERR_09_Missing_PlateNr
|
||||
|
||||
Dim TR_AVISO As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoFULL
|
||||
|
||||
|
||||
TR_AVISO.trAv_PartnerSystem = API_AVISO.PartnerTID
|
||||
TR_AVISO.trAv_gewicht = API_AVISO.TotGrossWeight
|
||||
TR_AVISO.trAv_colli = API_AVISO.TotPackage
|
||||
TR_AVISO.trAv_Transportmittel = API_AVISO.TransportBorderType
|
||||
TR_AVISO.trAv_Grenzueberschreitung = API_AVISO.TransportModeBorder
|
||||
'TR_AVISO.trAv_FraechterKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Fraechter = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_AvisiererKdNr = API_AVISO.PaXXXXXXXrtnerTID
|
||||
'TR_AVISO.trAv_Avisierer = API_AVISO.PaXXXXXXXrtnerTID
|
||||
TR_AVISO.trAv_Nationalitaet = API_AVISO.TransportCountryCode
|
||||
TR_AVISO.trAv_Kennzeichen = API_AVISO.TransportLicensePlate
|
||||
TR_AVISO.trAv_Reference = API_AVISO.Reference
|
||||
TR_AVISO.trAv_Fraechter = API_AVISO.FreightCompany
|
||||
TR_AVISO.trAv_FraechterKdNr = API_AVISO.FreightCompanyID
|
||||
TR_AVISO.trAv_Niederlassung = API_AVISO.Department
|
||||
TR_AVISO.trAv_Firma = API_AVISO.Company
|
||||
TR_AVISO.trAv_datetime = Now
|
||||
TR_AVISO.trAv_Info = API_AVISO.Info
|
||||
|
||||
If Not TR_AVISO.SAVE(False) Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
If API_AVISO.DOCUMENTS IsNot Nothing Then
|
||||
For Each ANH In API_AVISO.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAvisoAnhaenge
|
||||
TR_DOC.DocumentType = ANH.DocumentType
|
||||
TR_DOC.DocumentNr = ANH.DocumentNr
|
||||
TR_DOC.DocumentDate = ANH.DocumentDate
|
||||
|
||||
If ANH.base64BinaryStream IsNot Nothing AndAlso ANH.base64BinaryStream <> "" Then
|
||||
TR_DOC.trAvAh_docID = VERAG_IN_AVISO_Functions.base64toDS(ANH.base64BinaryStream, TR_AVISO.trAv_Id, ANH.FileName)
|
||||
End If
|
||||
TR_AVISO.ANHAENGE.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not TR_AVISO.SAVE_Anhaenge Then Return VERAG_IN_AVISO_Exceptions.ERR_05_InternalVerarb
|
||||
|
||||
|
||||
If API_AVISO.POSITIONS IsNot Nothing Then
|
||||
For Each SH In API_AVISO.POSITIONS
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA)
|
||||
' Dim SHIPMENT As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shippment()
|
||||
SHIPMENT.shTr_TRAvisoId = TR_AVISO.trAv_Id 'Zur Verknüfung
|
||||
|
||||
EZA.Company = API_AVISO.Company
|
||||
EZA.Department = API_AVISO.Department
|
||||
EZA.Reference = SH.Reference
|
||||
|
||||
|
||||
EZA.DeclarationCountry = SH.DeclarationCountry
|
||||
EZA.DeclarationType = SH.DeclarationType
|
||||
|
||||
EZA.TotPackage = SH.NumberOfPackages
|
||||
EZA.TotGrossWeight = SH.GrossWeight
|
||||
'EZA.TotGrossWeight = SH.GrossWeight
|
||||
|
||||
EZA.CustomsCodeDeparture = SH.CustomsCodeDeparture
|
||||
EZA.CustomsCodeDestination = SH.CustomsCodeDestination
|
||||
'EZA.CustomsCodeEntry = API_AVISO.CustomsCodeEntry
|
||||
EZA.TransportModeBorder = API_AVISO.TransportModeBorder
|
||||
|
||||
EZA.CountryCodeDeparture = SH.CountryCodeDeparture
|
||||
EZA.CountryCodeDestination = SH.CountryCodeDestination
|
||||
EZA.DEStateCodeDestination = SH.DEStateCodeDestination
|
||||
|
||||
EZA.TransportArrivalLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.TransportArrivalCountryCode = API_AVISO.TransportCountryCode
|
||||
EZA.TransportBorderType = API_AVISO.TransportBorderType
|
||||
EZA.TransportBorderLicensePlate = API_AVISO.TransportLicensePlate
|
||||
EZA.Incoterm = SH.Incoterm
|
||||
|
||||
EZA.PrePaperCode = SH.PrePaperCode
|
||||
EZA.PrePaperNr = SH.PrePaperNr
|
||||
' EZA.KindOfBusiness = SH.ReferenceXXXXXXXXXXXX
|
||||
EZA.InvoiceAmount = SH.InvoiceAmount
|
||||
EZA.InvoiceCurrency = SH.InvoiceCurrency
|
||||
|
||||
|
||||
EZA.ContainerNr1 = SH.ContainerNr1
|
||||
EZA.ContainerNr2 = SH.ContainerNr2
|
||||
EZA.ContainerNr3 = SH.ContainerNr3
|
||||
EZA.ContainerNr4 = SH.ContainerNr4
|
||||
|
||||
|
||||
|
||||
If SH.ADDRESS IsNot Nothing Then
|
||||
For Each ADD In SH.ADDRESS
|
||||
Dim TR_ADD As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen
|
||||
TR_ADD.AddressCode = ADD.AddressCode
|
||||
TR_ADD.CustomerID = ADD.CustomerID
|
||||
TR_ADD.EORI = ADD.EORI
|
||||
TR_ADD.NLNR = ADD.NLNR
|
||||
TR_ADD.Name1 = ADD.Name1
|
||||
TR_ADD.Name2 = ADD.Name2
|
||||
TR_ADD.Name3 = ADD.Name3
|
||||
TR_ADD.Street1 = ADD.Street1
|
||||
TR_ADD.Street2 = ADD.Street2
|
||||
TR_ADD.City = ADD.City
|
||||
TR_ADD.CountryCode = ADD.CountryCode
|
||||
TR_ADD.PostalCode = ADD.PostalCode
|
||||
TR_ADD.UStID = ADD.UStID
|
||||
|
||||
EZA.ADDRESS.Add(TR_ADD)
|
||||
Next
|
||||
End If
|
||||
|
||||
If SH.DOCUMENTS IsNot Nothing Then
|
||||
For Each DOC In SH.DOCUMENTS
|
||||
Dim TR_DOC As New VERAG_PROG_ALLGEMEIN.cVERAG_in_shipment_Document
|
||||
TR_DOC.DocumentType = DOC.DocumentType
|
||||
TR_DOC.DocumentNr = DOC.DocumentNr
|
||||
TR_DOC.DocumentDate = DOC.DocumentDate
|
||||
|
||||
If DOC.base64BinaryStream IsNot Nothing AndAlso DOC.base64BinaryStream <> "" Then
|
||||
TR_DOC.shTrPosDoc_docID = VERAG_IN_AVISO_Functions.base64toDS(DOC.base64BinaryStream, TR_AVISO.trAv_Id, DOC.FileName, "SND_ATTACHMENT")
|
||||
End If
|
||||
|
||||
EZA.DOCUMENTS.Add(TR_DOC)
|
||||
Next
|
||||
End If
|
||||
|
||||
If Not SHIPMENT.SAVE() Then
|
||||
Return VERAG_IN_AVISO_Exceptions.ERR_06_InternalSave
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
|
||||
Return "OK"
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Class VERAG_IN_AVISO_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_Company As String = "ERR_02"
|
||||
Public Const ERR_03_Missing_Department As String = "ERR_03"
|
||||
Public Const ERR_04_Missing_PartnerID As String = "ERR_04"
|
||||
Public Const ERR_05_InternalVerarb As String = "ERR_05"
|
||||
Public Const ERR_06_InternalSave As String = "ERR_06"
|
||||
Public Const ERR_07_Missing_Colli As String = "ERR_07"
|
||||
Public Const ERR_08_Missing_Gewicht As String = "ERR_08"
|
||||
Public Const ERR_09_Missing_PlateNr As String = "ERR_09"
|
||||
|
||||
End Class
|
||||
|
||||
Class VERAG_IN_AVISO_Functions
|
||||
|
||||
Public Shared Function base64toDS(base64 As String, AvisoTRID As Integer, FileName As String, Optional uOrdner3 As String = "AVISO_ATTACHMENT") As Integer
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "IN", "TR_AVISO", uOrdner3, AvisoTRID, FileName)
|
||||
DS.uploadDataToDATENSERVER_fromBase64String(base64, FileName,, False)
|
||||
Return DS.da_id
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,544 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
|
||||
|
||||
Namespace api_CustomsDeclaration.Controllers
|
||||
|
||||
<ApiVersion("2.0")>
|
||||
<System.Web.Http.Route("api/v002/CustomsDeclaration")>
|
||||
Public Class CustomsDeclarationV1Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
Return EZA
|
||||
End Function
|
||||
|
||||
|
||||
'' GET api/CustomsDeclaration_V001/
|
||||
'Public Function GetValues() As IEnumerable(Of String)
|
||||
' Return New String() {"value1", "value2"}
|
||||
'End Function
|
||||
|
||||
'' GET api/CustomsDeclaration_V001//5
|
||||
'Public Function GetValue(ByVal id As Integer) As String
|
||||
' Return "value"
|
||||
'End Function
|
||||
|
||||
' POST api/CustomsDeclaration_V001/
|
||||
'Public Function PostValue(<FromBody()> ByVal value As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As Boolean
|
||||
' Dim EZA As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza = value
|
||||
|
||||
|
||||
'End Function
|
||||
|
||||
'Public Function PostValue(ByVal value As String) As String
|
||||
' 'Dim file As System.IO.StreamWriter
|
||||
' 'file = My.Computer.FileSystem.OpenTextFileWriter("G:\test.txt", True)
|
||||
' 'file.WriteLine(value)
|
||||
' 'file.Close()
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' SQL.doSQL("insert into tbltest (test) Values('000')", "FMZOLL")
|
||||
|
||||
' Return "asd" & value
|
||||
'End Function
|
||||
|
||||
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_001_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "EZA_ERR"
|
||||
Try
|
||||
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
If EZA_TR Is Nothing Then
|
||||
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
Else
|
||||
EZA_TR.setEZA(EZA_FREMD)
|
||||
End If
|
||||
|
||||
EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
EZA_TR.shTr_Status = 5
|
||||
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
EZA_TR.EZA.Company = "VERAG"
|
||||
EZA_TR.EZA.Department = "SUB"
|
||||
'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
|
||||
|
||||
If EZA_TR.SAVE_ALL Then
|
||||
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
' Return "TEST3"
|
||||
|
||||
'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
|
||||
'MsgBox(resultJson)
|
||||
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "EZA_FREMD")
|
||||
'DS.uploadDataToDATENSERVER_fromBytes()
|
||||
|
||||
'Dim client = New RestClient(_baseURI)
|
||||
'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
|
||||
'request.AddUrlSegment("identifier", _identifier)
|
||||
'request.AddHeader("Authorization", "Basic " + _token)
|
||||
'Dim jstr = client.Execute(request).Content
|
||||
'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
'SQL.doSQL("insert into tbltest (test) Values('C_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
|
||||
|
||||
'PostValue = "ERR"
|
||||
'Try
|
||||
|
||||
' If EZA Is Nothing Then
|
||||
' PostValue = "ERR " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
' Else
|
||||
' PostValue = "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
' Dim resultJson = jsonString.FromClass(EZA)
|
||||
' 'PostValue = resultJson
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & resultJson & "')", "FMZOLL")
|
||||
|
||||
' 'MsgBox(resultJson)
|
||||
' 'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "EZA")
|
||||
' 'DS.uploadDataToDATENSERVER_fromBytes()
|
||||
|
||||
' 'Dim client = New RestClient(_baseURI)
|
||||
' 'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
|
||||
' 'request.AddUrlSegment("identifier", _identifier)
|
||||
' 'request.AddHeader("Authorization", "Basic " + _token)
|
||||
' 'Dim jstr = client.Execute(request).Content
|
||||
' 'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
|
||||
|
||||
|
||||
' End If
|
||||
|
||||
'Catch ex As Exception
|
||||
' ' SQL.doSQL("insert into tbltest (test) Values('" & "ERRNOTHING " & ex.Message & "')", "FMZOLL")
|
||||
|
||||
'End Try
|
||||
|
||||
'' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
'Return PostValue
|
||||
End Function
|
||||
|
||||
|
||||
'' POST api/CustomsDeclaration_V001/
|
||||
'Public Sub PostValue(<FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' PUT api/CustomsDeclaration_V001//5
|
||||
'Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' DELETE api/CustomsDeclaration_V001//5
|
||||
'Public Sub DeleteValue(ByVal id As Integer)
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'<ApiVersion("1111101")>
|
||||
'<System.Web.Http.Route("api/V101/CustomsDeclaration")>
|
||||
'Public Class CustomsDeclarationV101Controller
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
' EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
' 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
' EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
' Return EZA
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
' Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_101 " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
' Try
|
||||
|
||||
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
' Catch ex As Exception
|
||||
' SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
|
||||
|
||||
' End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_101_')", "FMZOLL")
|
||||
|
||||
' PostValue = "EZA_ERR"
|
||||
' Try
|
||||
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' ' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' ' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
' Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
' If EZA_TR Is Nothing Then
|
||||
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
' Else
|
||||
' EZA_TR.setEZA(EZA_FREMD)
|
||||
' End If
|
||||
|
||||
' EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
' EZA_TR.shTr_Status = 5
|
||||
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
' EZA_TR.EZA.Company = "VERAG"
|
||||
' EZA_TR.EZA.Department = "SUB"
|
||||
' 'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
' If EZA_TR.SAVE_ALL Then
|
||||
' 'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
' 'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
' 'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
' Return "OK"
|
||||
' Else
|
||||
' PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
' End If
|
||||
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
' Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
' End Try
|
||||
|
||||
' ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
' Return PostValue
|
||||
|
||||
|
||||
' End Function
|
||||
|
||||
|
||||
'End Class
|
||||
|
||||
|
||||
|
||||
'--------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
|
||||
'<ApiVersion("001")>
|
||||
'<System.Web.Http.Route("api/V001/TEST/CustomsDeclaration")>
|
||||
'Public Class CustomsDeclarationV001_TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
' EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
' EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
' 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
' EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
' Return EZA
|
||||
' End Function
|
||||
|
||||
|
||||
|
||||
' Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = Debugger.IsAttached
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
' Try
|
||||
|
||||
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
' Catch ex As Exception
|
||||
|
||||
' End Try
|
||||
|
||||
|
||||
' PostValue = "EZA_ERR"
|
||||
' Try
|
||||
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
|
||||
' Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
' If EZA_TR Is Nothing Then
|
||||
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
' Else
|
||||
' EZA_TR.setEZA(EZA_FREMD)
|
||||
' End If
|
||||
|
||||
|
||||
|
||||
' EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
' EZA_TR.shTr_Status = 5
|
||||
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
' EZA_TR.EZA.Company = "VERAG"
|
||||
' EZA_TR.EZA.Department = "SUB"
|
||||
|
||||
|
||||
' If EZA_TR.SAVE_ALL Then
|
||||
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
' Return "OK"
|
||||
' Else
|
||||
' PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
' End If
|
||||
|
||||
' Catch ex As Exception
|
||||
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
' Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
' End Try
|
||||
|
||||
' Return PostValue
|
||||
|
||||
' End Function
|
||||
|
||||
|
||||
'End Class
|
||||
End Namespace
|
||||
|
||||
|
||||
|
||||
Namespace api_CustomsDeclaration.Controllers
|
||||
|
||||
<ApiVersion("1.0")>
|
||||
<System.Web.Http.Route("api/v101/CustomsDeclaration")>
|
||||
Public Class CustomsDeclarationV2Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
|
||||
EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
|
||||
EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
|
||||
'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
|
||||
EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
Return EZA
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_X101_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
|
||||
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "EZA_ERR"
|
||||
Try
|
||||
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
|
||||
' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
|
||||
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
|
||||
|
||||
Dim Reference = If(EZA_FREMD.Reference, "")
|
||||
|
||||
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
|
||||
|
||||
If EZA_TR Is Nothing Then
|
||||
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
|
||||
Else
|
||||
EZA_TR.setEZA(EZA_FREMD)
|
||||
End If
|
||||
|
||||
EZA_TR.shTr_Partnersystem = "ATEZ"
|
||||
EZA_TR.shTr_Status = 5
|
||||
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
|
||||
|
||||
EZA_TR.EZA.Company = "VERAG"
|
||||
EZA_TR.EZA.Department = "SUB"
|
||||
'EZA_TR.Reference = ""
|
||||
|
||||
|
||||
If EZA_TR.SAVE_ALL Then
|
||||
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'Dim resultJson = jsonString.FromClass(EZA_FREMD)
|
||||
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = EZA_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return EZA_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
|
||||
Public Class jsonString
|
||||
|
||||
Shared Function FromClass(Of T)(data As T,
|
||||
Optional isEmptyToNull As Boolean = False,
|
||||
Optional jsonSettings As JsonSerializerSettings = Nothing) As String
|
||||
|
||||
Dim response As String = String.Empty
|
||||
|
||||
If Not EqualityComparer(Of T).Default.Equals(data, Nothing) Then
|
||||
response = JsonConvert.SerializeObject(data, jsonSettings)
|
||||
End If
|
||||
|
||||
Return If(isEmptyToNull, (If(response = "{}", "null", response)), response)
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function ToClass(Of T)(data As String,
|
||||
Optional jsonSettings As JsonSerializerSettings = Nothing) As T
|
||||
|
||||
Dim response = Nothing
|
||||
|
||||
If Not String.IsNullOrEmpty(data) Then
|
||||
response = If(jsonSettings Is Nothing,
|
||||
JsonConvert.DeserializeObject(Of T)(data),
|
||||
JsonConvert.DeserializeObject(Of T)(data, jsonSettings))
|
||||
End If
|
||||
|
||||
Return response
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Class EZA_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_MRN As String = "ERR_02"
|
||||
Public Const ERR_03_InternalVerarb As String = "ERR_03"
|
||||
Public Const ERR_04_InternalSave As String = "ERR_04"
|
||||
Public Const ERR_05_Missing_Colli As String = "ERR_05"
|
||||
Public Const ERR_06_Missing_Gewicht As String = "ERR_06"
|
||||
Public Const ERR_07_Missing_PlateNr As String = "ERR_07"
|
||||
Public Const ERR_08_Missing_Reference As String = "ERR_08"
|
||||
|
||||
End Class
|
||||
|
||||
500
VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb
Normal file
500
VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb
Normal file
@@ -0,0 +1,500 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
Namespace ApiController.Controllers
|
||||
|
||||
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/V001/TR_NCTS")>
|
||||
Public Class TR_NCTSV001Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
'Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_out_ncts
|
||||
' Dim NCTS As New VERAG_PROG_ALLGEMEIN.cVERAG_out_ncts
|
||||
' NCTS.ncts_WARENPOS.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_Warenposition)
|
||||
' NCTS.ncts_SICHERHEITSANGABEN.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_Sicherheitsangaben)
|
||||
' NCTS.ncts_WARENPOS(0).nctsWP_PACKSTUECKE.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_WarenpositionPackstuecke)
|
||||
' NCTS.ncts_WARENPOS(0).nctsWP_UNTERLAGEN.Add(New VERAG_PROG_ALLGEMEIN.cDakosy_NCTSOut_WarenpositionVorgelegteUnterlagen)
|
||||
|
||||
' 'NCTS.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
|
||||
|
||||
|
||||
' Return NCTS
|
||||
'End Function
|
||||
|
||||
|
||||
'Public Function PostValue(ByVal value As String) As String
|
||||
' 'Dim file As System.IO.StreamWriter
|
||||
' 'file = My.Computer.FileSystem.OpenTextFileWriter("G:\test.txt", True)
|
||||
' 'file.WriteLine(value)
|
||||
' 'file.Close()
|
||||
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' SQL.doSQL("insert into tbltest (test) Values('000')", "FMZOLL")
|
||||
|
||||
' Return "asd" & value
|
||||
'End Function
|
||||
|
||||
Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(NCTS_ATEZ)
|
||||
SQL.doSQL("insert into tbltest (test) Values('NCTS_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "NCTS_ERR"
|
||||
Try
|
||||
If NCTS_ATEZ Is Nothing OrElse NCTS_ATEZ.CC015B Is Nothing Then Return NCTS_Exceptions.ERR_01_Wrong_Format
|
||||
If NCTS_ATEZ.CC015B.MRNNumber Is Nothing OrElse NCTS_ATEZ.CC015B.MRNNumber = "" Then Return NCTS_Exceptions.ERR_02_Missing_MRN
|
||||
|
||||
|
||||
Dim MRN = If(NCTS_ATEZ.CC015B.MRNNumber, "")
|
||||
|
||||
Dim NCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, "ATEZ")
|
||||
If NCTS_TR Is Nothing Then
|
||||
NCTS_TR = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
End If
|
||||
|
||||
NCTS_TR.ncts_Partnersystem = "ATEZ"
|
||||
NCTS_TR.ncts_Status = 5
|
||||
NCTS_TR.ncts_Status_KEWILL_Equivalent = 5
|
||||
|
||||
NCTS_TR.ncts_MRN = NCTS_ATEZ.CC015B.MRNNumber
|
||||
|
||||
|
||||
|
||||
'NCTS_TR.ncts_ObjectName = NCTS_ATEZ.CC015B.RefId
|
||||
'NCTS_TR.ncts_ObjectAlias = NCTS_ATEZ.CC015B.RefId
|
||||
|
||||
If NCTS_ATEZ.CC015B.HEAHEA IsNot Nothing Then
|
||||
NCTS_TR.ncts_dyaArt = NCTS_ATEZ.CC015B.HEAHEA.TypOfDecHEA24
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85
|
||||
NCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = NCTS_ATEZ.CC015B.HEAHEA.NatOfMeaOfTraCroHEA87
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.CARTRA100 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.NamCARTRA121, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.StrAndNumCARTRA254, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.PosCodCARTRA121, 9)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.CitCARTRA789, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Land = NCTS_ATEZ.CC015B.CARTRA100.CouCodCARTRA587
|
||||
|
||||
'If NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 IsNot Nothing And NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 & NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACORSEC037 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.NamTRACORSEC041, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.StrNumTRACORSEC043, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.PosCodTRACORSEC042, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.CitTRACORSEC038, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACORSEC037.CouCodTRACORSEC039
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG & NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACONSEC029 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.NameTRACONSEC033, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.StrNumTRACONSEC035, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.PosCodTRACONSEC034, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.CitTRACONSEC030, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACONSEC029.CouCodTRACONSEC031
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG & NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036
|
||||
'End If
|
||||
End If
|
||||
|
||||
'Dim cnt = 1
|
||||
'If NCTS_ATEZ.CC015B.ITI IsNot Nothing Then
|
||||
' For Each R In NCTS_ATEZ.CC015B.ITI
|
||||
' Select Case cnt
|
||||
' Case 1 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand1 = R
|
||||
' Case 2 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand2 = R
|
||||
' Case 3 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand3 = R
|
||||
' Case 4 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand4 = R
|
||||
' Case 5 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand5 = R
|
||||
' Case 6 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand6 = R
|
||||
' Case 7 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand7 = R
|
||||
' Case 8 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand8 = R
|
||||
' Case 9 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand9 = R
|
||||
' Case 10 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand10 = R
|
||||
' Case 11 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand11 = R
|
||||
' Case 12 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand12 = R
|
||||
' End Select
|
||||
|
||||
' cnt += 1
|
||||
' Next
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
|
||||
If NCTS_ATEZ.CC015B.GOOITEGDS IsNot Nothing Then
|
||||
For Each ITEM In NCTS_ATEZ.CC015B.GOOITEGDS
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
|
||||
POS.nctsWP_PositionsNummer = ITEM.IteNumGDS7
|
||||
POS.nctsWP_Warenbezeichnung = ITEM.GooDesGDS23
|
||||
|
||||
POS.nctsWP_Rohmasse = ITEM.GroMasGDS46
|
||||
POS.nctsWP_Eigenmasse = ITEM.NetMasGDS48
|
||||
If ITEM.ComCodTarCodGDS10 IsNot Nothing Then
|
||||
If ITEM.ComCodTarCodGDS10.ToString.Length > 10 Then
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10.Substring(0, 10)
|
||||
Else
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10
|
||||
End If
|
||||
End If
|
||||
If ITEM.PACGS2 IsNot Nothing Then
|
||||
|
||||
For Each PAC In ITEM.PACGS2
|
||||
Dim PACK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
|
||||
PACK.nctsWpPk_PackstueckeAnzahl = PAC.NumOfPacGS24
|
||||
PACK.nctsWpPk_Verpackungsart = PAC.KinOfPacGS23
|
||||
POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
If PACK.nctsWpPk_PackstueckeAnzahl Is Nothing Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
Else
|
||||
Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
End If
|
||||
|
||||
' For Each PACGS In ITEM.PACGS2
|
||||
' Dim PACK As New cNCTSPartnerWorker.cNCTS_TR_WarenpositionPackstuecke
|
||||
' PACK.nctsWpPk_PackstueckeAnzahl = PACGS.NumOfPacGS24
|
||||
' PACK.nctsWpPk_Verpackungsart = PACGS.KinOfPacGS23
|
||||
'' PACK.nctsWpPk_ZeichenNummern = PACGS.MarNumOfPacGS21
|
||||
' POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
' Next
|
||||
NCTS_TR.ncts_WARENPOS.Add(POS)
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_PACKSTUECKE.Count = 0 Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing Then Return NCTS_Exceptions.ERR_07_Missing_PlateNr
|
||||
|
||||
|
||||
|
||||
If NCTS_TR.SAVE_ALL Then
|
||||
'PostValue = "NCTS_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_NCTS_TEST: " & NCTS_ATEZ.CC015B.MRNNumber & "')", "FMZOLL")
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_OK - ID: " & NCTS_TR.ncts_Id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = NCTS_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
' Return "TEST3"
|
||||
|
||||
'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
|
||||
|
||||
'MsgBox(resultJson)
|
||||
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "NCTS_ATEZ")
|
||||
'DS.uploadDataToDATENSERVER_fromBytes()
|
||||
|
||||
'Dim client = New RestClient(_baseURI)
|
||||
'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
|
||||
'request.AddUrlSegment("identifier", _identifier)
|
||||
'request.AddHeader("Authorization", "Basic " + _token)
|
||||
'Dim jstr = client.Execute(request).Content
|
||||
'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
|
||||
|
||||
'' POST api/CustomsDeclaration_V001/
|
||||
'Public Sub PostValue(<FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' PUT api/CustomsDeclaration_V001//5
|
||||
'Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)
|
||||
|
||||
'End Sub
|
||||
|
||||
'' DELETE api/CustomsDeclaration_V001//5
|
||||
'Public Sub DeleteValue(ByVal id As Integer)
|
||||
|
||||
'End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
'------------------------------------------------------------------------
|
||||
'----------------------------------TEST----------------------------------
|
||||
'------------------------------------------------------------------------
|
||||
|
||||
<ApiVersion("001")>
|
||||
<System.Web.Http.Route("api/V001/TEST/TR_NCTS")>
|
||||
Public Class TR_NCTSV001TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
Public Function PostValue(ByVal NCTS_ATEZ As VERAG_PROG_ALLGEMEIN.cATEZ_NCTS) As String
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
Try
|
||||
|
||||
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
|
||||
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Try
|
||||
|
||||
Dim resultJson2 = jsonString.FromClass(NCTS_ATEZ)
|
||||
SQL.doSQL("insert into tbltest (test) Values('NCTS_" & resultJson2 & "')", "FMZOLL")
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
PostValue = "NCTS_ERR"
|
||||
|
||||
If NCTS_ATEZ Is Nothing OrElse NCTS_ATEZ.CC015B Is Nothing Then Return NCTS_Exceptions.ERR_01_Wrong_Format
|
||||
If NCTS_ATEZ.CC015B.MRNNumber Is Nothing OrElse NCTS_ATEZ.CC015B.MRNNumber = "" Then Return NCTS_Exceptions.ERR_02_Missing_MRN
|
||||
|
||||
|
||||
|
||||
Dim MRN = If(NCTS_ATEZ.CC015B.MRNNumber, "")
|
||||
|
||||
Dim NCTS_TR = VERAG_PROG_ALLGEMEIN.cNCTS_TR.LOADByMRN(MRN, True,, "ATEZ")
|
||||
If NCTS_TR Is Nothing Then
|
||||
NCTS_TR = New VERAG_PROG_ALLGEMEIN.cNCTS_TR
|
||||
End If
|
||||
|
||||
|
||||
NCTS_TR.ncts_Partnersystem = "ATEZ"
|
||||
NCTS_TR.ncts_Status = 5
|
||||
NCTS_TR.ncts_Status_KEWILL_Equivalent = 5
|
||||
|
||||
NCTS_TR.ncts_MRN = NCTS_ATEZ.CC015B.MRNNumber
|
||||
|
||||
|
||||
'NCTS_TR.ncts_ObjectName = NCTS_ATEZ.CC015B.RefId
|
||||
'NCTS_TR.ncts_ObjectAlias = NCTS_ATEZ.CC015B.RefId
|
||||
|
||||
If NCTS_ATEZ.CC015B.HEAHEA IsNot Nothing Then
|
||||
NCTS_TR.ncts_dyaArt = NCTS_ATEZ.CC015B.HEAHEA.TypOfDecHEA24
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenGrenzueberschreitend = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraCroHEA85
|
||||
NCTS_TR.ncts_Befoerderungsmittel_StaatszugehoerigkeitGrenzueberschreitendCode = NCTS_ATEZ.CC015B.HEAHEA.NatOfMeaOfTraCroHEA87
|
||||
NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang = NCTS_ATEZ.CC015B.HEAHEA.IdeOfMeaOfTraAtDHEA78
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.CARTRA100 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.NamCARTRA121, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.StrAndNumCARTRA254, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.PosCodCARTRA121, 9)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.CARTRA100.CitCARTRA789, 35)
|
||||
NCTS_TR.ncts_SumA_Befoerderer_Land = NCTS_ATEZ.CC015B.CARTRA100.CouCodCARTRA587
|
||||
|
||||
'If NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 IsNot Nothing And NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.CARTRA100.TINCARTRA254 & NCTS_ATEZ.CC015B.CARTRA100.NADCARTRA121
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACORSEC037 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.NamTRACORSEC041, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.StrNumTRACORSEC043, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.PosCodTRACORSEC042, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACORSEC037.CitTRACORSEC038, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACORSEC037.CouCodTRACORSEC039
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACORSEC037.TRACORSEC037LNG & NCTS_ATEZ.CC015B.TRACORSEC037.TINTRACORSEC044
|
||||
'End If
|
||||
End If
|
||||
|
||||
If NCTS_ATEZ.CC015B.TRACONSEC029 IsNot Nothing Then
|
||||
NCTS_TR.ncts_SumA_Versender_Name = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.NameTRACONSEC033, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_StrasseHausnummer = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.StrNumTRACONSEC035, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_PLZ = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.PosCodTRACONSEC034, 9)
|
||||
NCTS_TR.ncts_SumA_Versender_Ort = NCTS_Functions.cutlength(NCTS_ATEZ.CC015B.TRACONSEC029.CitTRACONSEC030, 35)
|
||||
NCTS_TR.ncts_SumA_Versender_Land = NCTS_ATEZ.CC015B.TRACONSEC029.CouCodTRACONSEC031
|
||||
|
||||
'If NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG IsNot Nothing And NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036 IsNot Nothing Then
|
||||
' NCTS_TR.ncts_SumA_Befoerderer_EORI = NCTS_ATEZ.CC015B.TRACONSEC029.TRACONSEC029LNG & NCTS_ATEZ.CC015B.TRACONSEC029.TINTRACONSEC036
|
||||
'End If
|
||||
End If
|
||||
|
||||
'Dim cnt = 1
|
||||
'If NCTS_ATEZ.CC015B.ITI IsNot Nothing Then
|
||||
' For Each R In NCTS_ATEZ.CC015B.ITI
|
||||
' Select Case cnt
|
||||
' Case 1 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand1 = R
|
||||
' Case 2 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand2 = R
|
||||
' Case 3 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand3 = R
|
||||
' Case 4 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand4 = R
|
||||
' Case 5 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand5 = R
|
||||
' Case 6 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand6 = R
|
||||
' Case 7 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand7 = R
|
||||
' Case 8 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand8 = R
|
||||
' Case 9 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand9 = R
|
||||
' Case 10 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand10 = R
|
||||
' Case 11 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand11 = R
|
||||
' Case 12 : NCTS_TR.ncts_SumA_BefoerderungsrouteLand12 = R
|
||||
' End Select
|
||||
|
||||
' cnt += 1
|
||||
' Next
|
||||
|
||||
'End If
|
||||
|
||||
|
||||
|
||||
If NCTS_ATEZ.CC015B.GOOITEGDS IsNot Nothing Then
|
||||
For Each ITEM In NCTS_ATEZ.CC015B.GOOITEGDS
|
||||
Dim POS As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_Warenposition
|
||||
POS.nctsWP_PositionsNummer = ITEM.IteNumGDS7
|
||||
POS.nctsWP_Warenbezeichnung = ITEM.GooDesGDS23
|
||||
|
||||
POS.nctsWP_Rohmasse = ITEM.GroMasGDS46
|
||||
POS.nctsWP_Eigenmasse = ITEM.NetMasGDS48
|
||||
If ITEM.ComCodTarCodGDS10 IsNot Nothing Then
|
||||
If ITEM.ComCodTarCodGDS10.ToString.Length > 10 Then
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10.Substring(0, 10)
|
||||
Else
|
||||
POS.nctsWP_Warennummer = ITEM.ComCodTarCodGDS10
|
||||
End If
|
||||
End If
|
||||
If ITEM.PACGS2 IsNot Nothing Then
|
||||
For Each PAC In ITEM.PACGS2
|
||||
Dim PACK As New VERAG_PROG_ALLGEMEIN.cNCTS_TR_WarenpositionPackstuecke
|
||||
PACK.nctsWpPk_PackstueckeAnzahl = PAC.NumOfPacGS24
|
||||
PACK.nctsWpPk_Verpackungsart = PAC.KinOfPacGS23
|
||||
POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
If PACK.nctsWpPk_PackstueckeAnzahl Is Nothing Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
Else
|
||||
Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
End If
|
||||
|
||||
' For Each PACGS In ITEM.PACGS2
|
||||
' Dim PACK As New cNCTSPartnerWorker.cNCTS_TR_WarenpositionPackstuecke
|
||||
' PACK.nctsWpPk_PackstueckeAnzahl = PACGS.NumOfPacGS24
|
||||
' PACK.nctsWpPk_Verpackungsart = PACGS.KinOfPacGS23
|
||||
'' PACK.nctsWpPk_ZeichenNummern = PACGS.MarNumOfPacGS21
|
||||
' POS.nctsWP_PACKSTUECKE.Add(PACK)
|
||||
' Next
|
||||
NCTS_TR.ncts_WARENPOS.Add(POS)
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_Rohmasse Is Nothing Then Return NCTS_Exceptions.ERR_06_Missing_Gewicht
|
||||
If POS.nctsWP_PACKSTUECKE.Count = 0 Then Return NCTS_Exceptions.ERR_05_Missing_Colli
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
If NCTS_TR.ncts_Befoerderungsmittel_KennzeichenAbgang Is Nothing Then Return NCTS_Exceptions.ERR_07_Missing_PlateNr
|
||||
|
||||
|
||||
|
||||
|
||||
If NCTS_TR.SAVE_ALL Then
|
||||
'PostValue = "NCTS_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
|
||||
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_NCTS_TEST: " & NCTS_ATEZ.CC015B.MRNNumber & "')", "FMZOLL")
|
||||
|
||||
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_NCTS_OK - ID: " & NCTS_TR.ncts_Id & "','" & ip & "')", "FMZOLL")
|
||||
|
||||
Return "OK"
|
||||
Else
|
||||
PostValue = NCTS_Exceptions.ERR_04_InternalSave
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & NCTS_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
SQL.doSQL("insert into tbltest (test) Values('" & NCTS_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
|
||||
Return NCTS_Exceptions.ERR_03_InternalVerarb
|
||||
End Try
|
||||
|
||||
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
|
||||
|
||||
Return PostValue
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
Class NCTS_Exceptions
|
||||
Public Const ERR_01_Wrong_Format As String = "ERR_01"
|
||||
Public Const ERR_02_Missing_MRN As String = "ERR_02"
|
||||
Public Const ERR_03_InternalVerarb As String = "ERR_03"
|
||||
Public Const ERR_04_InternalSave As String = "ERR_04"
|
||||
Public Const ERR_05_Missing_Colli As String = "ERR_05"
|
||||
Public Const ERR_06_Missing_Gewicht As String = "ERR_06"
|
||||
Public Const ERR_07_Missing_PlateNr As String = "ERR_07"
|
||||
Public Const ERR_08_Missing_Reference As String = "ERR_08"
|
||||
End Class
|
||||
|
||||
|
||||
Class NCTS_Functions
|
||||
|
||||
Public Shared Function cutlength(o, l) As Object
|
||||
Try
|
||||
|
||||
If o IsNot Nothing Then
|
||||
If o.ToString.Length > l Then
|
||||
Return o.ToString.Substring(0, l)
|
||||
End If
|
||||
End If
|
||||
Return o
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
Return o
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
'Enum NCTS_ERR_CODES
|
||||
' ERR_01
|
||||
'End Enum
|
||||
@@ -0,0 +1,73 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
|
||||
|
||||
Namespace NEWTESTController.Controllers
|
||||
|
||||
<ApiVersion("1")>
|
||||
<System.Web.Http.Route("api/v{apiVersion}/NEWTEST")>
|
||||
Public Class NEWTESTV1Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "NEWTEST 1111"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
<ApiVersion("2")>
|
||||
<ApiVersion("3")>
|
||||
<System.Web.Http.Route("api/v{apiVersion}/NEWTEST")>
|
||||
Public Class NEWTESTV2Controller
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "NEWTEST 2222"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
|
||||
|
||||
|
||||
'Namespace TESTController.Controllers.V2
|
||||
|
||||
|
||||
|
||||
' <ApiVersion("2")>
|
||||
' <RoutePrefix("api/v2/TEST")>
|
||||
' Public Class TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As String
|
||||
' Return "TEST 2"
|
||||
' End Function
|
||||
|
||||
' End Class
|
||||
|
||||
'End Namespace
|
||||
|
||||
|
||||
|
||||
'Namespace TESTController.Controllers.V3
|
||||
|
||||
' <ApiVersion("3")>
|
||||
' <RoutePrefix("api/v3/TEST")>
|
||||
' Public Class TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
' Public Function GetValues() As String
|
||||
' Return "TEST 3"
|
||||
' End Function
|
||||
|
||||
' End Class
|
||||
|
||||
|
||||
'End Namespace
|
||||
@@ -0,0 +1,61 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace TESTController.Controllers.V1
|
||||
|
||||
|
||||
|
||||
<ApiVersion("1")>
|
||||
<RoutePrefix("api/{apiVersion:apiVersionConstraint(v1)}/TEST")>
|
||||
Public Class TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "TEST 1"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
|
||||
'Namespace TESTController.Controllers.V2
|
||||
|
||||
|
||||
|
||||
' <ApiVersion("2")>
|
||||
' <RoutePrefix("api/v2/TEST")>
|
||||
' Public Class TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As String
|
||||
' Return "TEST 2"
|
||||
' End Function
|
||||
|
||||
' End Class
|
||||
|
||||
'End Namespace
|
||||
|
||||
|
||||
|
||||
'Namespace TESTController.Controllers.V3
|
||||
|
||||
' <ApiVersion("3")>
|
||||
' <RoutePrefix("api/v3/TEST")>
|
||||
' Public Class TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
' Public Function GetValues() As String
|
||||
' Return "TEST 3"
|
||||
' End Function
|
||||
|
||||
' End Class
|
||||
|
||||
|
||||
'End Namespace
|
||||
@@ -0,0 +1,61 @@
|
||||
Imports System.Net
|
||||
Imports System.Web.Http
|
||||
Imports Microsoft.Web.Http
|
||||
Imports Newtonsoft.Json
|
||||
|
||||
|
||||
Namespace TESTController.Controllers.V2
|
||||
|
||||
|
||||
|
||||
<ApiVersion("2")>
|
||||
<RoutePrefix("api/v{apiVersion}/TEST")>
|
||||
Public Class TESTController
|
||||
Inherits System.Web.Http.ApiController
|
||||
|
||||
Public Function GetValues() As String
|
||||
Return "TEST 2"
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
|
||||
'Namespace TESTController.Controllers.V2
|
||||
|
||||
|
||||
|
||||
' <ApiVersion("2")>
|
||||
' <RoutePrefix("api/v2/TEST")>
|
||||
' Public Class TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
' Public Function GetValues() As String
|
||||
' Return "TEST 2"
|
||||
' End Function
|
||||
|
||||
' End Class
|
||||
|
||||
'End Namespace
|
||||
|
||||
|
||||
|
||||
'Namespace TESTController.Controllers.V3
|
||||
|
||||
' <ApiVersion("3")>
|
||||
' <RoutePrefix("api/v3/TEST")>
|
||||
' Public Class TESTController
|
||||
' Inherits System.Web.Http.ApiController
|
||||
|
||||
|
||||
' Public Function GetValues() As String
|
||||
' Return "TEST 3"
|
||||
' End Function
|
||||
|
||||
' End Class
|
||||
|
||||
|
||||
'End Namespace
|
||||
Reference in New Issue
Block a user