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

atez

Browse Source
This commit is contained in:
d.breimaier
2025-04-17 12:09:07 +02:00
parent daa211f3bb
commit c9fa9ab2d7
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.1.2")> <Assembly: AssemblyVersion("4.1.2.0")>
<Assembly: AssemblyFileVersion("4.1.1.2")> <Assembly: AssemblyFileVersion("4.1.2.0")>

8
Aviso/frmATEZ_NCTS.vb
View File

@@ -25,7 +25,7 @@ Public Class frmATEZ_NCTS
Dim id As Integer = -1 Dim id As Integer = -1
Dim dgv As DataGridView = Nothing Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA 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 Dim allSelected As Boolean = False
Property BezugsNr As String = "" Property BezugsNr As String = ""
@@ -169,7 +169,7 @@ Public Class frmATEZ_NCTS
Dim failreDesc As String Dim failreDesc As String
Dim authResp = atez.authenticate() Dim authResp = atez.authenticate("NCTS")
If authResp <> "200" Then If authResp <> "200" Then
failreDesc = "Authentifizierung fehlgeschlagen" failreDesc = "Authentifizierung fehlgeschlagen"
@@ -192,7 +192,7 @@ Public Class frmATEZ_NCTS
atezData.sessionId = atez.sessionID 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!") MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
atezData.status = "Failure" atezData.status = "Failure"
atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten" atezData.fehlerbeschreibung = "Fehler beim Erstellen der Daten"
@@ -209,7 +209,7 @@ Public Class frmATEZ_NCTS
End If End If
Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc) Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc, "/api/integrations/verag", "POST")
If failreDesc <> "" Then If failreDesc <> "" Then
If atezData.status = "Draft" Then If atezData.status = "Draft" Then