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

REST

Browse Source
This commit is contained in:
d.breimaier
2024-11-05 08:28:42 +01:00
parent 4ecf802db3
commit 8ab7ab8c38
24 changed files with 1240 additions and 1992 deletions
Download Patch File Download Diff File Expand all files Collapse all files

66
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController CBAM.vb Normal file
View File

@@ -0,0 +1,66 @@
Imports Microsoft.Web.Http
Namespace ApiController.Controllers
Public Class ATEZControllerCBAM
Inherits System.Web.Http.ApiController
''' <summary>
''' Delivers the CBAM-Data
''' Currently only data for DE and Q3 2024 available.
''' </summary>
'''
''' <returns>Base64 String with CBAM-Data</returns>
'''
''' <response code="200">Request OK and returns CBAM Data as Base64 String</response>
''' <response code="400">Returns Parameter are not valid</response>
'''
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/cbam")>
<BasicAuthentication>
Public Function getCBAM(ByVal Firma As String, country As String, Year As Integer, Quarter As Integer, DirectRepresenation As Boolean) As String
Dim Teilnehmner = ""
Dim von As Date
Dim bis As Date
Select Case Firma
Case "VERAG" : Teilnehmner = "SUB"
Case "IMEX" : Teilnehmner = "IME"
Case "UNISPED" : Teilnehmner = "UNAT"
End Select
Select Case Quarter
Case 1 : von = New Date("01.01." & Year) : bis = New Date("30.03" & Year)
Case 2 : von = New Date("01.04." & Year) : bis = New Date("30.06" & Year)
Case 3 : von = New Date("01.07." & Year) : bis = New Date("30.09" & Year)
Case 4 : von = New Date("01.10." & Year) : bis = New Date("31.12" & Year)
End Select
'country aktuell nur DE -> Weil aktuell nur DAKOSY-Datensätzr
'Year aktuell nur 2024 Datensätze
'Quartal aktuell nur q3 Datensätze
Dim where = "where 1 = 1 "
If Teilnehmner <> "" Then where &= "and Teilnehmer =" & Teilnehmner
where &= "and [Vertreter_des_Anmelders] = " & IIf(DirectRepresenation, "1", "2")
where &= "and [Überlassungsdatum] is between" & von & " and " & bis
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim sqlString = "select * from tbl_DY_Zollmeldungen_Import " & where
Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
If dt.Rows.Count > 0 Then
Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt))
Return Convert.ToBase64String(Bytes)
End If
End Function
End Class
End Namespace

421
VERAG_REST_SERVER/Controllers/ATEZ/ATEZController.vb Normal file
View File

@@ -0,0 +1,421 @@
Imports Microsoft.Web.Http
Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.TESTJSON
Imports VERAGMonitoring
Namespace ApiController.Controllers
Public Class ATEZController
Inherits System.Web.Http.ApiController
''' <summary>
''' Delivers the sum of the guarantee for the requested GRN
''' </summary>
'''
''' <returns>sum of the guarantee</returns>
'''
''' <response code="200">Request OK and returns the sum sum of the guarantee</response>
''' <response code="400">Returns Failure if GRN is not valid</response>
'''
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/sumOfGRN")>
<BasicAuthentication>
Public Function getSumOfGRN(ByVal GRN As String) As String
Dim BRG As New cBrgDb 'Monitoring
Dim DE_DIFFERENZ As Double = 1000000 ' PUFFER FÜR UK!!!
If GRN = "" Then Return -1
'ZOLARIS AT TAG
Dim AtTag_zolaris As Double = BRG.getBrgSumFromFMZOLL_Zolaris(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", GRN, " AND DatumBestimmungErreicht IS NULL ")
'TELOTEC AT TAG
Dim AtTag_telotec As Double = BRG.getBrgSumFromFMZOLL_TELOTEC(Now.AddMonths(-1).ToShortDateString, Now.ToShortDateString, "50", "50", GRN)
'DE TAG
Dim tag_de2 As Double = BRG.getBrgSumFromFMZOLL_Zabis(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", GRN)
'NCTS_TR AT TAG
Dim DetTag_nctsTR As Double = BRG.getBrgSumFromFMZOLL_NCTS_TR(Now.AddMonths(-3).ToShortDateString, Now.ToShortDateString, "50", "50", GRN)
Dim saldo = AtTag_zolaris + AtTag_telotec + tag_de2 + DetTag_nctsTR
If saldo = 0 Then Return saldo
Return saldo + DE_DIFFERENZ
End Function
''' <summary>
''' Delivers the CBAM-Data
''' Currently only data for DE and Q3 2024 available.
''' </summary>
''' <param name="company">VERAG or IMEX or UNISPED as parameter</param>
''' <param name="country">AT or DE as parameter </param>
''' <param name="year">Year (2024) as parameter</param>
''' <param name="quarter">Quarter (1, 2, ,3, 4 ) as parameter</param>
''' <param name="directRepresenation">Direct or indirect representation</param>
''' <returns>Base64 String with CBAM-Data</returns>
'''
''' <response code="200">Request OK and returns CBAM Data as Base64 String</response>
''' <response code="400">Returns Parameter are not valid</response>
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/cbam")>
<BasicAuthentication>
Public Function getCBAM(ByVal company As String, country As String, year As Integer, quarter As Integer, directRepresenation As Boolean) As String
Dim Teilnehmner = ""
Dim von As DateTime
Dim bis As DateTime
Select Case company
Case "VERAG" : Teilnehmner = "SUB"
Case "IMEX" : Teilnehmner = "IME"
Case "UNISPED" : Teilnehmner = "UNAT"
Case Else
Return ""
End Select
Select Case quarter
Case 1 : von = New DateTime(year, 1, 1) : bis = New DateTime(year, 3, 30)
Case 2 : von = New DateTime(year, 4, 1) : bis = New DateTime(year, 6, 30)
Case 3 : von = New DateTime(year, 7, 1) : bis = New DateTime(year, 9, 30)
Case 4 : von = New DateTime(year, 10, 1) : bis = New DateTime(year, 12, 30)
End Select
'New DateTime(year, month + 1, 1)
'country aktuell nur DE -> Weil aktuell nur DAKOSY-Datensätze
'Year aktuell nur 2024 Datensätze
'Quartal aktuell nur q3 Datensätze
Dim where = "where 1 = 1 "
If Teilnehmner <> "" Then where &= "and Teilnehmer ='" & Teilnehmner & "'"
where &= " and [Vertreter_des_Anmelders] = " & IIf(directRepresenation, "1", "2")
where &= " and [Überlassungsdatum] between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'"
'Filter auf CBAM-Pflichtige Warennummern!
where &= " WHERE (
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(Warentarifnummer,4) between 7301 and 7311
OR left(Warentarifnummer,4) between 7205 and 7229
OR left(Warentarifnummer,4) between 7603 and 7614
OR Warentarifnummer like '25070080%'
OR Warentarifnummer like '283421%'
OR Warentarifnummer like '260112%'
OR Warentarifnummer like '720211%'
OR Warentarifnummer like '720219%'
OR Warentarifnummer like '720241%'
OR Warentarifnummer like '720249%'
OR Warentarifnummer like '720260%'
OR Warentarifnummer like '280410%'
) and Warentarifnummer not like '310560%' "
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim sqlString = "select * from tbl_DY_Zollmeldungen_Import " & where
Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
If dt.Rows.Count > 0 Then
Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt))
Return Convert.ToBase64String(Bytes)
Else
Return ""
End If
End Function
''' <summary>
''' Delivers the Adresse Data for a given EORI-Nr
''' If the EORI cannot be found, an empty String will be returned.
''' </summary>
''' <param name="eoriNr">EORI-No. as parameter</param>
''' <param name="eoriNr_NL">EORI-No. for netherland</param>
''' <param name="company">VERAG or IMEX or UNISPED as parameter</param>
''' <returns>Comma seperated string with adress-data of the given EORI-NR or EORI-NL </returns>
'''
''' <response code="200">Request OK and returns the Adress</response>
''' <response code="400">Returns Parameter are not valid</response>
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/eorino")>
<BasicAuthentication>
Public Function getCBAMEORI(company As String, Optional eoriNr As String = "", Optional eoriNr_NL As String = "") As String
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim firma As String
Dim regexAufbauEORI As Boolean = False
Dim regexAufbauEORINL As Boolean = False
If eoriNr <> "" Then regexAufbauEORI = Regex.IsMatch(eoriNr, "^[A-Z]{2}[0-9A-Z]{7,15}$")
If eoriNr_NL <> "" Then regexAufbauEORINL = Regex.IsMatch(eoriNr_NL, "^[NL]{2}[0-9A-Z]{9}$")
If eoriNr = "" And eoriNr_NL = "" Then
Return "NO EORI NR SUBMITTED"
End If
If eoriNr <> "" And Not regexAufbauEORI Then
Return "WRONG EORI-NR"
End If
If eoriNr_NL <> "" And Not regexAufbauEORINL Then
Return "WRONG EORI-NL"
End If
Select Case company
Case "VERAG" : firma = "VERAG"
Case "IMEX" : firma = "IMEX"
Case "UNISPED" : firma = "UNISPED"
Case Else
Return "NO COMPANY/WRONG COMPANY SUBMITTED"
End Select
Dim kdNrTmp = sql.getFMZOLLKdNrFromEORI(eoriNr, eoriNr_NL, firma)
If IsNumeric(kdNrTmp) Then
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(kdNrTmp)
Dim returnStringAdresse = ""
If AD IsNot Nothing Then
returnStringAdresse &= AD.Name_1 & ";"
returnStringAdresse &= AD.Name_2 & ";"
returnStringAdresse &= AD.Straße & ";"
returnStringAdresse &= AD.PLZ & ";"
returnStringAdresse &= AD.Ort & ";"
returnStringAdresse &= VERAG_PROG_ALLGEMEIN.cProgramFunctions.getISO2Land(AD.LandKz) & ";"
End If
Return returnStringAdresse.ToString
Else
Return "NO DATA"
End If
End Function
''' <summary>
''' Delivers the Adresse Data for a given EORI-Nr
''' If the EORI cannot be found, an empty String will be returned.
''' </summary>
''' <param name="eoriNr">EORI-No. as parameter</param>
''' <param name="eoriNr_NL">EORI-No. for netherland</param>
''' <param name="company">VERAG or IMEX or UNISPED as parameter</param>
''' <returns>Comma seperated string with adress-data of the given EORI-NR or EORI-NL </returns>
'''
''' <response code="200">Request OK and returns the Adress</response>
''' <response code="400">Returns Parameter are not valid</response>
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/cbamnew")>
<BasicAuthentication>
Public Function getCBAMNEW() As String
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim sqlString = "SELECT [Id]
,[Teilnehmer]
,[Anmeldeart_A]
,[Verfahren]
,[Bezugsnummer_LRN]
,[Anlagedatum]
,[Zeit]
,[Zeitpunkt_der_letzten_CUSTAX]
,[Überlassungsdatum]
,[Annahmedatum]
,[Registriernummer_MRN]
,[Weitere_Reg_Nr]
,[EDIFNR]
,[Versendungsland]
,[Art_der_Vertretung]
,[Vertreter_des_Anmelders]
,[Vertreter_AE_EORI]
,[AE_Name]
,[Versender_CZ_EORI]
,Abs_Adr.[Name 1] as Versender_Name
,Abs_Adr.[Name 2] as Versender_Name2
,Abs_Adr.[LandKz] as Versender_Country
,Abs_Adr.[Strasse] as Versender_Street
,'' as Versender_Street_additional_line
,Abs_Adr.[PLZ] as Versender_Postcode
,Abs_Adr.[Ort] as Versender_City
,'' as VersenderPOBox
,Abs_Adr.[Ansprechpartner] as Versender_ContactName
,Abs_Adr.[Telefon] as Versender_Contact_Phone_number
,Abs_Adr.[E-Mail] as Versender_Contact_Email
,[CZ_Code]
,[CZ_Name]
,[CZ_Ländercode]
,[Empfänger_CN_EORI]
,Emp_Adr.[Name 1] as Empfänger_Name
,Emp_Adr.[Name 2] as Empfänger_Name2
,Emp_Adr.[LandKz] as Empfänger_Country
,Emp_Adr.[Strasse] as Empfänger_Street
,'' as Empfänger_Street_additional_line
,Emp_Adr.[PLZ] as Empfänger_Postcode
,Emp_Adr.[Ort] as Empfänger_City
,'' as EmpfängerPOBox
,Emp_Adr.[Ansprechpartner] as Empfänger_ContactName
,Emp_Adr.[Telefon] as Empfänger_Contact_Phone_number
,Emp_Adr.[E-Mail] as Empfänger_Contact_Email
,[CN_Code]
,[CN_Name]
,[CN_Ländercode]
,[Anmelder_DT_EORI]
,[DT_Code]
,[DT_Name]
,[DT_Ländercode]
,[UstID_DT]
,[Käufer_BY_Name]
,[BY_EORI]
,[Verkäufer_SL_Name]
,[SL_EORI]
,[ZollRechtlicherStatus]
,[Bewilligungsnummer]
,[Gesamtgewicht]
,[Liefercode]
,[Lieferort]
,[Lieferkey]
,[Geschäftsart]
,[Rechnungsbetrag]
,[Rechnungswährung]
,[Rechnungskurs]
,[Zollstelle]
,[Aufschubart]
,[HZAZoll]
,[KontoZoll]
,[TextZoll]
,[EORIZoll]
,[KennzeichenEigenZoll]
,[ArtEust]
,[HZAEust]
,[KontoEusT]
,[TextEust]
,[EORIEust]
,[KennzeichenEigenEust]
,[Container]
,[Unterlagenzeile]
,[Unterlagenbereich]
,[Unterlagenart]
,[Unterlagennummer]
,[Unterlagendatum]
,[PositionNo]
,[Positionen]
,[Vorausstl_Zollabgabe]
,[Vorausstl_Zollsatzabgabe]
,[Vorausstl_Eustabgabe]
,[Vorausstl_Eustsatzabgabe]
,[Zollwert]
,[AbgabeZoll]
,[AbgabeZollsatz]
,[Eustwert]
,[AbgabeEust]
,[AbgabeEustsatz]
,[AbgabeAntidumping]
,[AbgabeAntidumpingSatz]
,[Status_Steuerbescheid]
,[ArtikelCode]
,[Warentarifnummer]
,[Warenzusatz1]
,[Warenzusatz2]
,[Warenbezeichnung]
,[Verfahren2]
,[EU_Code]
,[Artikelpreis]
,[Statistischerwert]
,[Eust_manuell]
,[Ursprung]
,[Präferenzursprungsland]
,[Beguenstigung]
,[Rohmasse]
,[Rohmasseeinheit]
,[Eigenmasse]
,[Eigenmasseeinheit]
,[Positionszusatz]
,[Aussenhandelstatistische_Menge]
,[Maßeinheit]
,[AnzahlPackstücke]
,[Packstückart]
,[Packstückbezeichnung]
,[Zusätzliche_angaben]
,[SonderAbgabeZoll]
,[SonderAbgabeEust]
,[AbgabeZusatzzölle]
,[SonderAbgabeAntidumping]
,[Verbrauchssteuern]
,[Positionsunterlagenzeile]
,[Positionsunterlagenbereich]
,[Positionsunterlagenart]
,[Positionsunterlagennummer]
,[Positionsunterlagendatum]
,[DV1Rechnungsbetrag]
,[DV1Währung]
,[DV1UmgerechnerterRechnungsbetrag]
,[DV1UmgerechneteWährung]
,[DV1Versicherung]
,[DV1Versicherungswährung]
,[DV1Luftfrachtkosten]
,[DV1Luftfrachtwährung]
,[DV1Frachtkosten]
,[DV1Frachtwährung]
,[DV1Materialien]
,[DV1Materialwährung]
,[DV1Provisionen]
,[DV1Provisionwährung]
,[Abflughafen_Code]
,[Abflughafen_Text]
,[Vorpapierart]
,[Vorpapiere_Regnummer]
,[BEAnteil_SumA]
,[BEAnteil_ZL]
,[BEAnteil_AV]
,[UST_ID_Einführer]
,[UST_ID_Erwerber]
,[UST_ID_Fiskalvertreter]
,[Shipmentnummer]
,[Importstatus]
FROM [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import]
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] as Empfaenger on Empfaenger.[EORITIN] = [Empfänger_CN_EORI] and Empfaenger.[FilialenNr] = LEFT(Bezugsnummer_LRN,4)
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] as Emp_Adr on Emp_Adr.AdressenNr = Empfaenger.KundenNr
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] as Absender on Absender.[EORITIN] = [Versender_CZ_EORI] and Absender.[FilialenNr] = LEFT(Bezugsnummer_LRN,4)
left JOIN [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] as Abs_Adr on Abs_Adr.AdressenNr = Absender.KundenNr
WHERE (
left(Warentarifnummer,4) IN (2523,2716,2808,2814,3102,3105,7201,7203,7318,7326,7601,7616)
OR left(Warentarifnummer,4) between 7301 and 7311
OR left(Warentarifnummer,4) between 7205 and 7229
OR left(Warentarifnummer,4) between 7603 and 7614
OR Warentarifnummer like '25070080%'
OR Warentarifnummer like '283421%'
OR Warentarifnummer like '260112%'
OR Warentarifnummer like '720211%'
OR Warentarifnummer like '720219%'
OR Warentarifnummer like '720241%'
OR Warentarifnummer like '720249%'
OR Warentarifnummer like '720260%'
OR Warentarifnummer like '280410%'
) and Warentarifnummer not like '310560%'"
Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
If dt.Rows.Count > 0 Then
Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genCSVFromDT(dt))
Return Convert.ToBase64String(Bytes)
Else
Return ""
End If
End Function
End Class
End Namespace

526
VERAG_REST_SERVER/Controllers/AvisoController/AVISOController.vb
View File

@@ -1,214 +1,375 @@

Imports System.Web.Http
Imports System.IO
Imports System.Web.Http.Description
Imports Microsoft.Web.Http
Imports VERAG_PROG_ALLGEMEIN
Namespace ApiController.Controllers
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/AVISO")>
<BasicAuthentication>
Public Class AVISOController
Inherits System.Web.Http.ApiController
''' <summary>
''' Gets the Hello World Response
''' Upload Files in Base64-Format and attach it to an existring LKW (with avisoId) or an specific consignment (with sendungsId)
''' </summary>
''' <returns>A SharePriceResponse which contains the price of the share</returns>
''' <response code="200">Returns 200 And Hallo World</response>
''' <response code="400">Returns 400 if the query Is invalid</response>
Public Function GetValue() As String
Return "Hello world!"
'''
''' <returns>OK, if file is uploaded or ERROR-Code if something went wrong</returns>
''' <response code="200">Returns 200 file is uploaded sucessfully</response>
''' <response code="400">Returns 400 upload failed</response>
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/uploadAvisoAttachment")>
<BasicAuthentication>
Public Function uploadAvisoAttachment(anhangsart As String, arrayOfFiles() As String, Optional avisoId As Integer = -1, Optional sendungsId As Integer = -1) 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
Try
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
'Dim bodyText
'Dim json
'If HttpContext.Current.Request.GetBufferedInputStream IsNot Nothing Then
' Dim bodyStream As Stream = HttpContext.Current.Request.GetBufferedInputStream
' Dim reader = New StreamReader(bodyStream)
' If bodyStream.CanRead Then
' bodyText = reader.ReadToEnd
' json = JsonConvert.DeserializeObject(bodyText)
' Else
' uploadAvisoAttachment = "STREAMREADER_ERR"
' Return uploadAvisoAttachment
' End If
'Else
' uploadAvisoAttachment = "UPLOAD_ERR"
' Return uploadAvisoAttachment
'End If
uploadAvisoAttachment = "ERR"
If arrayOfFiles Is Nothing OrElse arrayOfFiles.Length < 0 Then
uploadAvisoAttachment = "FILESARRAY_EMPTY_ERR"
Return uploadAvisoAttachment
End If
If anhangsart <> "" Then ' AndAlso listOfImages IsNot Nothing AndAlso listOfImages.Count > 0
If sendungsId > 0 Then
Dim SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(sendungsId)
If SENDUNG Is Nothing Then
uploadAvisoAttachment = "NO_SENDUNG_ERR"
Return uploadAvisoAttachment
Else
For Each image In arrayOfFiles
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
Try
Convert.FromBase64String(filetemp)
Catch ex As Exception
uploadAvisoAttachment = "BASE64_FORMAT_ERR"
Return uploadAvisoAttachment
End Try
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
'If fileextension.ToLower = "unknown" Then
' uploadAvisoAttachment = "UNKNOWN_ATTACHMENT_EXTENSION_ERR"
' Return uploadAvisoAttachment
'End If
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", SENDUNG.tblSnd_AvisoID, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, "." & "jpg"), False, False)
If DS.da_id <= 0 Then
uploadAvisoAttachment = "UPLOAD_DS_ERR"
Return uploadAvisoAttachment
End If
Dim fileName = DS.da_name
Dim destPath = DS.GET_TOP1_PATH
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
Dim fi As New FileInfo(destPath)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(SENDUNG.tblSnd_AvisoID, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
If Not ANH.SAVE Then
uploadAvisoAttachment = "SAVE_ANH_ERR"
Return uploadAvisoAttachment
End If
Next
End If
ElseIf avisoId > 0 Then
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(avisoId)
If AVISO Is Nothing Then
uploadAvisoAttachment = "NO_AVISO_ERR"
Return uploadAvisoAttachment
Else
For Each image In arrayOfFiles
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
Try
Convert.FromBase64String(filetemp)
Catch ex As Exception
uploadAvisoAttachment = "BASE64_FORMAT_ERR"
Return uploadAvisoAttachment
End Try
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
'If fileextension.ToLower = "unknown" Then
' uploadAvisoAttachment = "UNKNOWN_ATTACHMENT_EXTENSION_ERR"
' Return uploadAvisoAttachment
'End If
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", avisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, "." & "jpg"), False, False)
If DS.da_id <= 0 Then
uploadAvisoAttachment = "UPLOAD_DS_ERR"
Return uploadAvisoAttachment
End If
Dim fileName = DS.da_name
Dim destPath = DS.GET_TOP1_PATH
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
Dim fi As New FileInfo(destPath)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(avisoId, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
If Not ANH.SAVE Then
uploadAvisoAttachment = "SAVE_ANH_ERR"
Return uploadAvisoAttachment
End If
Next
End If
Else
Return uploadAvisoAttachment
End If
Return "OK"
End If
Catch ex As Exception
Return uploadAvisoAttachment
End Try
Return uploadAvisoAttachment
End Function
''' <summary>
''' Set the Test
''' </summary>
''' <param name="Traviso">TRAviso</param>
''' <returns>A SharePriceResponse which contains the price of the share</returns>
''' <response code="200">Returns 200 and the TRAviso-JSON-Object</response>
''' <response code="400">Returns 400 if the query Is invalid</response>
''' <response code="401">Returns 401 if your are not authorized</response>
Public Function PostValue(ByVal API_AVISO As VERAG_PROG_ALLGEMEIN.cVERAG_in_TRAviso) As String
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/uploadAvisoAttString")>
<BasicAuthentication>
Public Function uploadAvisoAttString(anhangsart As String, arrayOfFiles As String, Optional avisoId As Integer = -1, Optional sendungsId As Integer = -1) 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
Try
Dim ip = Request.Properties("MS_HttpContext").Request.UserHostAddress()
'Dim bodyText
'Dim json
'If HttpContext.Current.Request.GetBufferedInputStream IsNot Nothing Then
' Dim bodyStream As Stream = HttpContext.Current.Request.GetBufferedInputStream
' Dim reader = New StreamReader(bodyStream)
' If bodyStream.CanRead Then
' bodyText = reader.ReadToEnd
' json = JsonConvert.DeserializeObject(bodyText)
' Else
' uploadAvisoAttachment = "STREAMREADER_ERR"
' Return uploadAvisoAttachment
' End If
'Else
' uploadAvisoAttachment = "UPLOAD_ERR"
' Return uploadAvisoAttachment
'End If
Dim listOfFiles As List(Of String) = arrayOfFiles.Split(",").ToList
If Not (listOfFiles IsNot Nothing AndAlso listOfFiles.Count > 0) Then
uploadAvisoAttString = "FILESARRAY_EMPTY_ERR"
Return uploadAvisoAttString
End If
If anhangsart <> "" Then ' AndAlso listOfImages IsNot Nothing AndAlso listOfImages.Count > 0
If sendungsId > 0 Then
Dim SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(sendungsId)
If SENDUNG Is Nothing Then
uploadAvisoAttString = "NO_SENDUNG_ERR"
Return uploadAvisoAttString
Else
For Each image In listOfFiles
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
Try
Convert.FromBase64String(filetemp)
Catch ex As Exception
uploadAvisoAttString = "BASE64_FORMAT_ERR"
Return uploadAvisoAttString
End Try
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", SENDUNG.tblSnd_AvisoID, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, ""), False, False)
If DS.da_id <= 0 Then
uploadAvisoAttString = "UPLOAD_DS_ERR"
Return uploadAvisoAttString
End If
Dim fileName = DS.da_name
Dim destPath = DS.GET_TOP1_PATH
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
Dim fi As New FileInfo(destPath)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(SENDUNG.tblSnd_AvisoID, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
If Not ANH.SAVE Then
uploadAvisoAttString = "SAVE_ANH_ERR"
Return uploadAvisoAttString
End If
Next
End If
ElseIf avisoId > 0 Then
Dim AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(avisoId)
If AVISO Is Nothing Then
uploadAvisoAttString = "NO_AVISO_ERR"
Return uploadAvisoAttString
Else
For Each image In listOfFiles
Dim filetemp = image.Replace("data:application/pdf;base64,", "")
Try
Convert.FromBase64String(filetemp)
Catch ex As Exception
uploadAvisoAttString = "BASE64_FORMAT_ERR"
Return uploadAvisoAttString
End Try
Dim fileextension = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getFileExtensionFromBase64String(filetemp)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "AVISO_ANHAENGE", avisoId, Now.ToString("ddMMyy_HHmmss.ffff"), "", anhangsart & "_" & Now.ToString("ddMMyy_HHmmss"), False)
DS.uploadDataToDATENSERVER_fromBase64String(filetemp, DS.da_name, IIf(fileextension.ToLower <> "unknown", "." & fileextension, ""), False, False)
If DS.da_id <= 0 Then
uploadAvisoAttString = "UPLOAD_DS_ERR"
Return uploadAvisoAttString
End If
Dim fileName = DS.da_name
Dim destPath = DS.GET_TOP1_PATH
fileName = VERAG_PROG_ALLGEMEIN.cDATENSERVER.replaceInvalidCahr(fileName)
Dim fi As New FileInfo(destPath)
Dim ANH As New VERAG_PROG_ALLGEMEIN.cAvisoAnhaenge(avisoId, fileName, DS.da_id, anhangsart, fi.Extension, sendungsId,, fi.Length,)
If Not ANH.SAVE Then
uploadAvisoAttString = "SAVE_ANH_ERR"
Return uploadAvisoAttString
End If
Next
End If
Else
Return uploadAvisoAttString
End If
Return "OK"
End If
Catch ex As Exception
Return uploadAvisoAttString
End Try
Return uploadAvisoAttString
End Function
'------------------------------------------------------------------------
'----------------------------------TEST----------------------------------
'------------------------------------------------------------------------
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TESTEN_POST")>
<BasicAuthentication>
Public Function TESTEN_POST(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")
SQL.doSQL("insert into tbltest (test,ipaddress) Values('IN_AVISO_START " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "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
Return "OK"
' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
Return PostValue
Return TESTEN_POST
End Function
End Class
'------------------------------------------------------------------------
'----------------------------------TEST----------------------------------
'------------------------------------------------------------------------
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TEST/AVISO")>
Public Class AVISO1TESTController
@@ -392,9 +553,6 @@ Namespace ApiController.Controllers
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"

102
VERAG_REST_SERVER/Controllers/CustomsDeclaration/CustomsDeclarationController.vb
View File

@@ -1,12 +1,14 @@
Imports System.Net
Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace api_CustomsDeclaration.Controllers
<ApiVersion("1")>
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("001")>
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
Public Class CustomsDeclaration1Controller
Inherits System.Web.Http.ApiController
@@ -21,78 +23,78 @@ Namespace api_CustomsDeclaration.Controllers
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)
'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()
' 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")
' SQL.doSQL("insert into tbltest (test,ipaddress) Values('ATEZ_EZA_START_X101_ " & Now.ToShortDateString & "-" & Now.ToShortTimeString & "','" & ip & "')", "FMZOLL")
Try
' Try
Dim resultJson2 = jsonString.FromClass(EZA_FREMD)
SQL.doSQL("insert into tbltest (test) Values('EZA_" & resultJson2.Replace("'", "") & "')", "FMZOLL")
' 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")
' Catch ex As Exception
' SQL.doSQL("insert into tbltest (test) Values('ERR:EZA_101_" & ex.Message & "')", "FMZOLL")
End Try
' 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
' 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 Reference = If(EZA_FREMD.Reference, "")
Dim EZA_TR = VERAG_PROG_ALLGEMEIN.cVERAG_in_eza_FULL.LOADByReference("ATEZ", Reference, True)
' 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
' 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.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 = ""
' 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")
' 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 "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
' 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")
' ' SQL.doSQL("insert into tbltest (test) Values('" & PostValue & "')", "FMZOLL")
Return PostValue
' Return PostValue
End Function
'End Function
End Class

7
VERAG_REST_SERVER/Controllers/NCTS/NCTSController.vb
View File

@@ -1,12 +1,13 @@
Imports System.Net
Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace ApiController.Controllers
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TR_NCTS")>
Public Class TR_NCTS1Controller
@@ -39,7 +40,7 @@ Namespace ApiController.Controllers
'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.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
@@ -261,7 +262,7 @@ Namespace ApiController.Controllers
'------------------------------------------------------------------------
'----------------------------------TEST----------------------------------
'------------------------------------------------------------------------
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("001")>
<System.Web.Http.Route("api/V001/TEST/TR_NCTS")>
Public Class TR_NCTSV001TESTController

2
VERAG_REST_SERVER/Controllers/NEWTESTController/NEWTESTController.vb
View File

@@ -1,5 +1,6 @@
Imports System.Net
Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
@@ -8,6 +9,7 @@ Imports Newtonsoft.Json
Namespace NEWTESTController.Controllers
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/NEWTEST")>
Public Class NEWTEST1Controller

2
VERAG_REST_SERVER/Controllers/TestController/TESTController.vb
View File

@@ -1,11 +1,13 @@
Imports System.Net
Imports System.Web.Http
Imports System.Web.Http.Description
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace ApiController.Controllers
<ApiExplorerSettings(IgnoreApi:=True)> 'hide controller
<ApiVersion("1")>
<Route("api/v{version:apiVersion}/TEST")>
Public Class TESTController

420
VERAG_REST_SERVER/Controllers/V1/AvisoController/AVISOController.vb
View File

@@ -1,420 +0,0 @@

Imports System.Web.Http
Imports Microsoft.Web.Http
Namespace ApiController.Controllers
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/AVISO")>
<BasicAuthentication>
Public Class AVISOController
Inherits System.Web.Http.ApiController
''' <summary>
''' Gets the Hello World Response
''' </summary>
''' <returns>A SharePriceResponse which contains the price of the share</returns>
''' <response code="200">Returns 200 And Hallo World</response>
''' <response code="400">Returns 400 if the query Is invalid</response>
Public Function GetValue() As String
Return "Hello world!"
End Function
''' <summary>
''' Set the Test
''' </summary>
''' <param name="Traviso">TRAviso</param>
''' <returns>A SharePriceResponse which contains the price of the share</returns>
''' <response code="200">Returns 200 and the TRAviso-JSON-Object</response>
''' <response code="400">Returns 400 if the query Is invalid</response>
''' <response code="401">Returns 401 if your are not authorized</response>
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("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TEST/AVISO")>
Public Class AVISO1TESTController
Inherits System.Web.Http.ApiController
''' <summary>
''' Gets the Hello World Response
''' </summary>
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

151
VERAG_REST_SERVER/Controllers/V1/CustomsDeclaration/CustomsDeclarationController.vb
View File

@@ -1,151 +0,0 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace api_CustomsDeclaration.Controllers
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/CustomsDeclaration")>
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

500
VERAG_REST_SERVER/Controllers/V1/NCTS/NCTSController.vb
View File

@@ -1,500 +0,0 @@
Imports System.Net
Imports System.Web.Http
Imports Microsoft.Web.Http
Imports Newtonsoft.Json
Namespace ApiController.Controllers
<ApiVersion("1")>
<System.Web.Http.Route("api/v{version:apiVersion}/TR_NCTS")>
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(<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

21
VERAG_REST_SERVER/Controllers/V1/NEWTESTController/NEWTESTController.vb
View File

@@ -1,21 +0,0 @@
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{version:apiVersion}/NEWTEST")>
Public Class NEWTEST1Controller
Inherits System.Web.Http.ApiController
Public Function GetValues() As String
Return "NEWTEST 1111"
End Function
End Class
End Namespace

22
VERAG_REST_SERVER/Controllers/V1/TestController/TESTController.vb
View File

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

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

@@ -1,392 +0,0 @@
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 CustomsDeclaration2Controller
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
View File

@@ -1,20 +0,0 @@
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 NEWTEST2Controller
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
View File

@@ -1,24 +0,0 @@
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