From c9fa9ab2d7e115013abd35bc7156d3e040b36db9 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 17 Apr 2025 12:09:07 +0200 Subject: [PATCH] atez --- Aviso/My Project/AssemblyInfo.vb | 4 ++-- Aviso/frmATEZ_NCTS.vb | 8 ++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 51d9110..99e8b8d 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index 43eebf7..121d88c 100644 --- a/Aviso/frmATEZ_NCTS.vb +++ b/Aviso/frmATEZ_NCTS.vb @@ -25,7 +25,7 @@ Public Class frmATEZ_NCTS Dim id As Integer = -1 Dim dgv As DataGridView = Nothing Dim atez_data As cATEZ_NCTS_DATA - Dim atez = New cATEZ_NCTS_IN("atez") + Dim atez = New cATEZ_NCTS_IN("atez_ncts") Dim allSelected As Boolean = False Property BezugsNr As String = "" @@ -169,7 +169,7 @@ Public Class frmATEZ_NCTS Dim failreDesc As String - Dim authResp = atez.authenticate() + Dim authResp = atez.authenticate("NCTS") If authResp <> "200" Then failreDesc = "Authentifizierung fehlgeschlagen" @@ -192,7 +192,7 @@ Public Class frmATEZ_NCTS atezData.sessionId = atez.sessionID - If Not atez.setJson(atezData) Then + If Not atez.setJsonNCTS(atezData) Then MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!") atezData.status = "Failure" atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten" @@ -209,7 +209,7 @@ Public Class frmATEZ_NCTS End If - Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc) + Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST") If failreDesc <> "" Then If atezData.status = "Draft" Then