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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.1.2")>
<Assembly: AssemblyFileVersion("4.1.1.2")>
<Assembly: AssemblyVersion("4.1.2.0")>
<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 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