From e77b22cefc62ffe00680589d9637f03696feab2f Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Sat, 8 Jul 2023 15:12:10 +0200 Subject: [PATCH] Fiskalubersicht, ATEZ-API und Timas API --- SDL/SDL.vbproj | 2 +- SDL/kunden/usrcntlFiskaluebersicht.vb | 2 +- VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb | 28 +- .../{ => ATEZ_OUT_VERAG_IN}/cATEZ_NCTS.vb | 0 .../ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb | 328 ++++++++++++++++++ .../VERAG_PROG_ALLGEMEIN.vbproj | 3 +- 6 files changed, 343 insertions(+), 20 deletions(-) rename VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/{ => ATEZ_OUT_VERAG_IN}/cATEZ_NCTS.vb (100%) create mode 100644 VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj index b3e4d7d1..680da2b5 100644 --- a/SDL/SDL.vbproj +++ b/SDL/SDL.vbproj @@ -90,7 +90,7 @@ false - SDL_TemporaryKey.pfx + Test.pfx diff --git a/SDL/kunden/usrcntlFiskaluebersicht.vb b/SDL/kunden/usrcntlFiskaluebersicht.vb index d775e11c..86ed2066 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.vb +++ b/SDL/kunden/usrcntlFiskaluebersicht.vb @@ -678,7 +678,7 @@ Public Class usrcntlFiskaluebersicht Private Sub txtVM_TextChanged(sender As Object, e As EventArgs) Handles txtVM.TextChanged If txtVM._value <> "" Then Dim a As Date = Date.ParseExact(txtVM._value, "dd.MM.yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo) - If a > fk.FK_Datum.AddDays(-daysWithinDocumentAreValid) Then + If a > fk.FK_Datum.AddYears(-2) Then 'Vollmacahten sollten grundsätzlich 2 Jahre ab Austellung gültig sein! cbxVollmacht.Checked = True txtVM.ForeColor = Color.Black Else diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb index 96710f93..fdf78875 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cMitarbeiter.vb @@ -20,6 +20,7 @@ Public Class cMitarbeiter Property mit_abteilung As String = "" Property mit_position As String = "" Property mit_durchwahl As String = "" + Property mit_telefonnr As String = "" Property mit_email As String = "" Property mit_mobiltel As String = "" Property mit_allowAnruf As Boolean @@ -78,10 +79,11 @@ Public Class cMitarbeiter Property mit_foto_DocId As Object = Nothing Property mit_sprache As String = "DE" Property mit_fakturierungsgruppe As String = "" - Property mit_CSuser As Object = Nothing - Property mit_CSpwd As Object = Nothing + Property mit_PersonalNr As Object = Nothing + Property mit_timasId As Object = Nothing + Dim SQL As New SQL @@ -130,6 +132,7 @@ Public Class cMitarbeiter list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_niederlassung", mit_niederlassung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_abteilung", mit_abteilung)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_position", mit_position)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_telefonnr", mit_telefonnr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_durchwahl", mit_durchwahl)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_email", mit_email)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_mobiltel", mit_mobiltel)) @@ -149,48 +152,39 @@ Public Class cMitarbeiter list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardDP", mit_DpUserStandardDP)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma", mit_DpUserStandardFirma)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DpUserStandardFirma2", mit_DpUserStandardFirma2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_EZOLL_SB", mit_EZOLL_SB)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ATLAS_SB", mit_ATLAS_SB)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_pseudoUser", mit_pseudoUser)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmenDatenAnzeige", mit_FirmenDatenAnzeige)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SB", mit_DAKOSY_SB)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_DAKOSY_SBFull", mit_DAKOSY_SBFull)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TESTonly", mit_TESTonly)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PasswortChanged", mit_PasswortChanged)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_TELOTEC_SB", mit_TELOTEC_SB)) - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain", mit_AliasAD_Domain)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username", mit_AliasAD_Username)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Domain2", mit_AliasAD_Domain2)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_AliasAD_Username2", mit_AliasAD_Username2)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_teamId", mit_teamId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatBenutzer", mit_ChatBenutzer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_FirmaHaupt", mit_FirmaHaupt)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_ChatEasteregg", mit_ChatEasteregg)) - - - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_SettingsTstmp", mit_MAVerzeichnis_SettingsTstmp)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDat", mit_MAVerzeichnis_allowGebDat)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowWohnadresse", mit_MAVerzeichnis_allowWohnadresse)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowGebDatOhneJahr", mit_MAVerzeichnis_allowGebDatOhneJahr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowHandynummer", mit_MAVerzeichnis_allowHandynummer)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_allowFoto", mit_MAVerzeichnis_allowFoto)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Motto", mit_MAVerzeichnis_Motto)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_MAVerzeichnis_Spitzname", mit_MAVerzeichnis_Spitzname)) - list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_foto_DocId", mit_foto_DocId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_sprache", mit_sprache)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_fakturierungsgruppe", mit_fakturierungsgruppe)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSuser", mit_CSuser)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_CSpwd", mit_CSpwd)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_PersonalNr", mit_PersonalNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mit_timasId", mit_timasId)) + Return list End Function @@ -321,6 +315,7 @@ Public Class cMitarbeiter Me.mit_niederlassung = dr.Item("mit_niederlassung") Me.mit_abteilung = dr.Item("mit_abteilung") Me.mit_position = dr.Item("mit_position") + If Not dr.Item("mit_telefonnr") Is DBNull.Value Then Me.mit_telefonnr = dr.Item("mit_telefonnr") Me.mit_durchwahl = dr.Item("mit_durchwahl") Me.mit_email = dr.Item("mit_email") Me.mit_mobiltel = dr.Item("mit_mobiltel") @@ -359,14 +354,11 @@ Public Class cMitarbeiter If Not dr.Item("mit_AliasAD_Username2") Is DBNull.Value Then Me.mit_AliasAD_Username2 = dr.Item("mit_AliasAD_Username2") If Not dr.Item("mit_teamId") Is DBNull.Value Then Me.mit_teamId = dr.Item("mit_teamId") - Me.mit_ChatBenutzer = dr.Item("mit_ChatBenutzer") Me.mit_ChatEasteregg = dr.Item("mit_ChatEasteregg") - If Not dr.Item("mit_FirmaHaupt") Is DBNull.Value Then Me.mit_FirmaHaupt = dr.Item("mit_FirmaHaupt") - If Not dr.Item("mit_MAVerzeichnis_SettingsTstmp") Is DBNull.Value Then Me.mit_MAVerzeichnis_SettingsTstmp = dr.Item("mit_MAVerzeichnis_SettingsTstmp") Me.mit_MAVerzeichnis_allowGebDat = dr.Item("mit_MAVerzeichnis_allowGebDat") Me.mit_MAVerzeichnis_allowGebDatOhneJahr = dr.Item("mit_MAVerzeichnis_allowGebDatOhneJahr") @@ -381,6 +373,8 @@ Public Class cMitarbeiter If Not dr.Item("mit_fakturierungsgruppe") Is DBNull.Value Then Me.mit_fakturierungsgruppe = dr.Item("mit_fakturierungsgruppe") If Not dr.Item("mit_CSuser") Is DBNull.Value Then Me.mit_CSuser = dr.Item("mit_CSuser") If Not dr.Item("mit_CSpwd") Is DBNull.Value Then Me.mit_CSpwd = dr.Item("mit_CSpwd") + If Not dr.Item("mit_PersonalNr") Is DBNull.Value Then Me.mit_PersonalNr = dr.Item("mit_PersonalNr") + If Not dr.Item("mit_timasId") Is DBNull.Value Then Me.mit_timasId = dr.Item("mit_timasId") diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/ATEZ_OUT_VERAG_IN/cATEZ_NCTS.vb similarity index 100% rename from VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/cATEZ_NCTS.vb rename to VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/ATEZ_OUT_VERAG_IN/cATEZ_NCTS.vb diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb new file mode 100644 index 00000000..b6511b1c --- /dev/null +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb @@ -0,0 +1,328 @@ +Imports System.Data.SqlClient +Imports System.Net +Imports System.Reflection +Imports System.Threading +Imports System.Web.Routing +Imports VERAG_PROG_ALLGEMEIN.cCreditSafeAPI + +Public Class cATEZ_NCTS_DATA + + Public Property Id As String + Public Property VERAG_LRN As String + Public Property LicensePlateContainerNo As String + Public Property DepartureCustomsOffice As String + Public Property DestinationCustomsOffice As String + Public Property DatDeterminationLimit As String + Public Property CoolingTemperature As String + Public Property DAKOSY_TemplateCode As String + Public Property DAKOSY_IOPartner As String + Public Property DAKOSY_Division1 As String + Public Property DAKOSY_Division2 As String + Public Property DAKOSY_Division3 As String + Public Property status As Object = 0 + Property erstellung As DateTime = Now + Public Property Route_Country As String + Public Property Carrier_Name As String + Public Property Carrier_Adress_Country As String + Public Property Carrier_Adress_Postcode As String + Public Property Carrier_Adress_City As String + Public Property Carrier_Adress_Street As String + Public Property Carrier_EORI As String + Public Property Guarantee_GRN As String + Public Property TransitCustomsOffices As cATEZ_NCTS_DATA_TransitCustomsOffice() + Public Property Attachments As cATEZ_NCTS_DATA_Attachments + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim hasEntry As Boolean + + Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Id", Id, , True, True)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VERAG_LRN", VERAG_LRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LicensePlateContainerNo", LicensePlateContainerNo)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DepartureCustomsOffice", DepartureCustomsOffice)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DestinationCustomsOffice", DestinationCustomsOffice)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DatDeterminationLimit", DatDeterminationLimit)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CoolingTemperature", CoolingTemperature)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_TemplateCode", DAKOSY_TemplateCode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_IOPartner", DAKOSY_IOPartner)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division1", DAKOSY_Division1)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division2", DAKOSY_Division2)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("DAKOSY_Division3", DAKOSY_Division3)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Route_Country", Route_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Name", Carrier_Name)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Country", Carrier_Adress_Country)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Postcode", Carrier_Adress_Postcode)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_City", Carrier_Adress_City)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_Adress_Street", Carrier_Adress_Street)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Carrier_EORI", Carrier_EORI)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Guarantee_GRN", Guarantee_GRN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("status", status)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("erstellung", erstellung)) + + Return list + End Function + + Sub New() + + End Sub + + Sub New(VERAG_LRN) + Me.VERAG_LRN = VERAG_LRN + LOAD() + End Sub + + Public Function UPDATE_STATUS(status) As Boolean + Me.status = status + Return Me.SAVE + End Function + + Public Function SAVE(Optional errHinweis = "") As Boolean + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblATEZ_NCTS_DATA WITH(updlock,serializable) WHERE Id=@Id) " & + " BEGIN " & getUpdateCmd() & " END " & + " Else " & + " BEGIN " & getInsertCmd() & " END " & + " commit tran " + + Dim IdTMP = Id + IdTMP = SQL.doSQLVarListID(IdTMP, sqlstr, "FMZOLL", , list, , errHinweis) + If _Id <= 0 Then Id = IdTMP + Return Id > 0 + End Function + + Public Function getUpdateCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + + Dim str As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + Return (" UPDATE [tblATEZ_NCTS_DATA] SET " & str & " WHERE Id=@Id ") + + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Function getInsertCmd() As String + Try + Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList() + Dim str As String = "" + Dim values As String = "" + For Each i In list + If Not i.isPrimaryParam Then + str &= "[" & i.Text & "]," + values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & "," + End If + Next + str = str.Substring(0, str.Length - 1) 'wg. ',' + values = values.Substring(0, values.Length - 1) 'wg. ',' + Return (" INSERT INTO tblATEZ_NCTS_DATA (" & str & ") VALUES(" & values & ") ") + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return "" + End Function + + + Public Sub LOAD() + Try + hasEntry = False + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT * FROM tblATEZ_NCTS_DATA WHERE Id=@Id ", conn) + cmd.Parameters.AddWithValue("@Id", Id) + Dim dr = cmd.ExecuteReader() + If dr.Read Then + For Each li In getParameterList() + Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable) + + If dr.Item(li.Text) Is DBNull.Value Then + propInfo.SetValue(Me, Nothing) + Else + propInfo.SetValue(Me, dr.Item(li.Text)) + End If + + Next + hasEntry = True + End If + dr.Close() + End Using + End Using + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + End Sub + +End Class + + +Public Class cATEZ_NCTS_DATA_TransitCustomsOffice + Public Property TransitCustomsOffice As String +End Class + +Public Class cATEZ_NCTS_DATA_Attachment + Public Property FileType As String + Public Property DocumentType As String + Public Property base64BinaryStream As String +End Class + +Public Class cATEZ_NCTS_DATA_Attachments + Public Property Attachment As cATEZ_NCTS_DATA_Attachment() +End Class + +Public Class cATEZ_NCTS_IN + + + + 'DEV + Shared API_STRING As String = "https://dev-tds.singlewindow.io" + Shared token As String = "" + Public dataTable As New DataTable() + + + Shared Function SendRequestAuthentificationToken(ByVal myuri As String, ByVal contentType As String, ByVal method As String, ByRef Itoken As String) As String + Try + If Itoken <> "" Then Return "token filled" + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim rest As New Chilkat.Rest + Dim success As Boolean + + + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + Return rest.LastErrorText + + End If + + + Dim json As New Chilkat.JsonObject + json.UpdateString("password", "V3r4gAtez2023!") + json.UpdateString("username", "atez-integration@verag.ag") + + + rest.AddHeader("Content-Type", contentType) + + Dim sbRequestBody As New Chilkat.StringBuilder + json.EmitSb(sbRequestBody) + + + Dim sbResponseBody As New Chilkat.StringBuilder + Dim ResponseStr = rest.FullRequestSb(method, myuri, sbRequestBody, sbResponseBody) + + + If (rest.ResponseStatusCode <> 200) Then + Return rest.ResponseStatusCode & " " & rest.ResponseStatusText + End If + + Dim jsonResp = New Chilkat.JsonObject() + jsonResp.LoadSb(sbResponseBody) + + token = jsonResp.StringOf("access_token") + Itoken = token + + Return rest.ResponseStatusCode & " " & rest.ResponseStatusText + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End Function + + Shared Function authenticate() As String + + Dim myUri As String = API_STRING & "/api/tds/auth/" + Dim response = SendRequestAuthentificationToken(myUri, "application/json", "POST", token) + + Return response + + + End Function + + Shared Function SendRequestWithAuthHeader(acceptContentType As String, json As Chilkat.JsonObject, ByRef failureDesc As String) As String + Try + + VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat() + + Dim rest As New Chilkat.Rest + Dim success As Boolean + + + Dim bTls As Boolean = True + Dim port As Integer = 443 + Dim bAutoReconnect As Boolean = True + success = rest.Connect(API_STRING, port, bTls, bAutoReconnect) + If (success <> True) Then + Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) + Debug.WriteLine(rest.LastErrorText) + failureDesc = rest.LastErrorText + Return failureDesc + End If + + + rest.AddHeader("Content-Type", "application/json") + rest.AddHeader("Authorization", "Bearer " & token) + rest.AddHeader("Accept", acceptContentType) + + Dim sbRequestBody As New Chilkat.StringBuilder + json.EmitSb(sbRequestBody) + Debug.WriteLine(sbRequestBody) + + 'rest.DebugMode = True + + Dim sbResponseBody As New Chilkat.StringBuilder + success = rest.FullRequestSb("POST", "/api/integrations/verag", sbRequestBody, sbResponseBody) + + 'Dim bdRequest As New Chilkat.BinData + 'success = rest.GetLastDebugRequest(bdRequest) + 'Debug.WriteLine("----") + 'Debug.WriteLine(bdRequest.GetString("utf-8")) + 'Debug.WriteLine("----") + + + + If (rest.LastMethodSuccess <> True) Then + Debug.WriteLine(rest.LastErrorText) + failureDesc = rest.LastErrorText + Return failureDesc + + Else + If (rest.ResponseStatusCode <> 200) Then + failureDesc = rest.ResponseStatusText + Return failureDesc + Else + + Dim jsonResult As New Chilkat.JsonObject + success = jsonResult.LoadSb(sbResponseBody) + Return jsonResult.Emit() + + End If + + End If + + + + + + Catch ex As WebException + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + End Function + + + +End Class diff --git a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj index 4e682188..fa5ad9d3 100644 --- a/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj +++ b/VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj @@ -573,7 +573,8 @@ UserControl - + +