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

Commit

Browse Source
This commit is contained in:
d.breimaier
2023-02-22 09:58:13 +01:00
parent f80edd789b
commit 152312175f
21 changed files with 1048 additions and 670 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -0,0 +1,392 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Namespace api_CustomsDeclaration.Controllers
<ApiVersion("2")>
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
Public Class 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
'' GET api/CustomsDeclaration_V001/
'Public Function GetValues() As IEnumerable(Of String)
' Return New String() {"value1", "value2"}
'End Function
'' GET api/CustomsDeclaration_V001//5
'Public Function GetValue(ByVal id As Integer) As String
' Return "value"
'End Function
' POST api/CustomsDeclaration_V001/
'Public Function PostValue(<FromBody()> ByVal value As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As Boolean
' Dim EZA As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza = value
'End Function
'Public Function PostValue(ByVal value As String) As String
' 'Dim file As System.IO.StreamWriter
' 'file = My.Computer.FileSystem.OpenTextFileWriter("G:\test.txt", True)
' 'file.WriteLine(value)
' 'file.Close()
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' SQL.doSQL("insert into tbltest (test) Values('000')", "FMZOLL")
' Return "asd" & value
'End Function
Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_001_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
Try
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
Catch ex As Exception
End Try
PostValue = "EZA_ERR"
Try
If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
Dim Reference = If(EZA_FREMD.Reference, "")
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
If EZA_TR Is Nothing Then
EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
Else
EZA_TR.setEZA(EZA_FREMD)
End If
EZA_TR.shTr_Partnersystem = "ATEZ"
EZA_TR.shTr_Status = 5
'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
EZA_TR.EZA.Company = "VERAG"
EZA_TR.EZA.Department = "SUB"
'EZA_TR.Reference = ""
If EZA_TR.SAVE_ALL Then
'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
'Dim resultJson = jsonString.FromClass(EZA_FREMD)
'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
Return "OK"
Else
PostValue = EZA_Exceptions.ERR_04_InternalSave
End If
' Return "TEST3"
'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
'MsgBox(resultJson)
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "EZA_FREMD")
'DS.uploadDataToDATENSERVER_fromBytes()
'Dim client = New RestClient(_baseURI)
'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
'request.AddUrlSegment("identifier", _identifier)
'request.AddHeader("Authorization", "Basic " + _token)
'Dim jstr = client.Execute(request).Content
'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
Return EZA_Exceptions.ERR_03_InternalVerarb
End Try
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
Return PostValue
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'SQL.doSQL("insert into tbltest (test) Values('C_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
'PostValue = "ERR"
'Try
' If EZA Is Nothing Then
' PostValue = "ERR " & Now.ToShortDateString & "-" & Now.ToShortTimeString
' Else
' PostValue = "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
' 'SQL.doSQL("insert into tbltest (test) Values('" & "OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "')", "FMZOLL")
' Dim resultJson = jsonString.FromClass(EZA)
' 'PostValue = resultJson
' SQL.doSQL("insert into tbltest (test) Values('" & resultJson & "')", "FMZOLL")
' 'MsgBox(resultJson)
' 'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("INTERFACE", "ATEZ", "IN", "EZA")
' 'DS.uploadDataToDATENSERVER_fromBytes()
' 'Dim client = New RestClient(_baseURI)
' 'Dim request = New RestRequest("/datasources/{identifier}/data", Method.GET)
' 'request.AddUrlSegment("identifier", _identifier)
' 'request.AddHeader("Authorization", "Basic " + _token)
' 'Dim jstr = client.Execute(request).Content
' 'Dim allDATA As List(Of GeneralInfo) = JsonConvert.DeserializeObject(Of List(Of GeneralInfo))(jstr)
' End If
'Catch ex As Exception
' ' SQL.doSQL("insert into tbltest (test) Values('" & "ERRNOTHING " & ex.Message & "')", "FMZOLL")
'End Try
'' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
'Return PostValue
End Function
'' POST api/CustomsDeclaration_V001/
'Public Sub PostValue(<FromBody()> ByVal value As String)
'End Sub
'' PUT api/CustomsDeclaration_V001//5
'Public Sub PutValue(ByVal id As Integer, <FromBody()> ByVal value As String)
'End Sub
'' DELETE api/CustomsDeclaration_V001//5
'Public Sub DeleteValue(ByVal id As Integer)
'End Sub
End Class
'<ApiVersion("1111101")>
'<System.Web.Http.Route("api/V101/CustomsDeclaration")>
'Public Class CustomsDeclarationV101Controller
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
' Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
' EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
' EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
' 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
' EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
' Return EZA
' End Function
' Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
' ' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cREST_Options.isTESTSSTEM(Request)
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_101 " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
' Try
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
' Catch ex As Exception
' SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
' End Try
' SQL.doSQL("insert into tbltest (test) Values('EZA_101_')", "FMZOLL")
' PostValue = "EZA_ERR"
' Try
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
' ' If EZA_FREMD.TransportBorderLicensePlate = "" Then Return EZA_Exceptions.ERR_07_Missing_PlateNr
' ' If EZA_FREMD.Reference = "" Then Return EZA_Exceptions.ERR_08_Missing_Reference
' Dim Reference = If(EZA_FREMD.Reference, "")
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
' If EZA_TR Is Nothing Then
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
' Else
' EZA_TR.setEZA(EZA_FREMD)
' End If
' EZA_TR.shTr_Partnersystem = "ATEZ"
' EZA_TR.shTr_Status = 5
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
' EZA_TR.EZA.Company = "VERAG"
' EZA_TR.EZA.Department = "SUB"
' 'EZA_TR.Reference = ""
' If EZA_TR.SAVE_ALL Then
' 'PostValue = "EZA_OK " & Now.ToShortDateString & "-" & Now.ToShortTimeString
' 'Dim resultJson = jsonString.FromClass(EZA_FREMD)
' 'SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson & "')", "FMZOLL")
' 'SQL.doSQL("insert into tbltest (test) Values('ATEZ_EZA_TEST: " & EZA_FREMD.TransportBorderLicensePlate & " - " & EZA_FREMD.Reference & "')", "FMZOLL")
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
' Return "OK"
' Else
' PostValue = EZA_Exceptions.ERR_04_InternalSave
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
' Return EZA_Exceptions.ERR_03_InternalVerarb
' End Try
' ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
' Return PostValue
' End Function
'End Class
'--------------------------------------------------------------------
'----------------------------------TEST----------------------------------
'------------------------------------------------------------------------
'<ApiVersion("001")>
'<System.Web.Http.Route("api/V001/TEST/CustomsDeclaration")>
'Public Class CustomsDeclarationV001_TESTController
' Inherits System.Web.Http.ApiController
' Public Function GetValues() As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
' Dim EZA As New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza
' EZA.POSITIONS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position)
' EZA.POSITIONS(0).DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_position_document)
' 'EZA.DOCUMENTS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_document)
' EZA.ADDRESS.Add(New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_Adressen)
' Return EZA
' End Function
' Public Function PostValue(ByVal EZA_FREMD As VERAG_PROG_ALLGEMEIN.cVERAG_in_eza) As String
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
' VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = Debugger.IsAttached
' VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
' Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
' Try
' Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
' SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2 & "')", "FMZOLL")
' Catch ex As Exception
' End Try
' PostValue = "EZA_ERR"
' Try
' If EZA_FREMD Is Nothing Then Return EZA_Exceptions.ERR_01_Wrong_Format
' Dim Reference = If(EZA_FREMD.Reference, "")
' Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
' If EZA_TR Is Nothing Then
' EZA_TR = New VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL(EZA_FREMD)
' Else
' EZA_TR.setEZA(EZA_FREMD)
' End If
' EZA_TR.shTr_Partnersystem = "ATEZ"
' EZA_TR.shTr_Status = 5
' 'EZA_TR.shTr_Status_KEWILL_Equivalent = 5
' EZA_TR.EZA.Company = "VERAG"
' EZA_TR.EZA.Department = "SUB"
' If EZA_TR.SAVE_ALL Then
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_OK - ID: " & EZA_TR.shTr_id & "','" & ip & "')", "FMZOLL")
' Return "OK"
' Else
' PostValue = EZA_Exceptions.ERR_04_InternalSave
' End If
' Catch ex As Exception
' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & EZA_Exceptions.ERR_03_InternalVerarb, System.Reflection.MethodInfo.GetCurrentMethod.Name)
' SQL.doSQL("insert into tbltest (test) Values('" & EZA_Exceptions.ERR_03_InternalVerarb & ex.Message & "')", "FMZOLL")
' Return EZA_Exceptions.ERR_03_InternalVerarb
' End Try
' Return PostValue
' End Function
'End Class
End Namespace

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

@@ -0,0 +1,20 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace NEWTESTController.Controllers
<ApiVersion("2")>
<ApiVersion("3")>
<System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")>
Public Class NEWTESTV2Controller
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "NEWTEST 2222"
End Function
End Class
End Namespace

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

@@ -0,0 +1,24 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace TESTController.Controllers.V2
<ApiVersion("2")>
<Route("api/v{version:apiVersion}/TEST")>
Public Class TESTController
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "TEST 2"
End Function
End Class
End Namespace