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

Digicust und ATEZ

Browse Source
This commit is contained in:
d.breimaier
2023-09-13 17:18:46 +02:00
parent 78a8564267
commit 0c601a9402
3 changed files with 166 additions and 152 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Aviso/frmATEZ_NCTS.vb
View File

@@ -116,6 +116,7 @@ Public Class frmATEZ_NCTS
.Carrier_Adress_Street = usrCntl_Carrier.txtStrasse.Text
.Carrier_EORI = usrCntl_Carrier.txtEORI.Text
.Guarantee_GRN = "" 'leer
.erstellerId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
'For Each doc As DataGridViewRow In dgvAnhaenge.Rows
' Dim isSelected = IIf(DBNull.Value Is doc.Cells("anh_selekt").Value, False, doc.Cells("anh_selekt").Value)
@@ -155,7 +156,7 @@ Public Class frmATEZ_NCTS
Dim authResp = atez.authenticate()
If authResp <> "200" Then
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen!"
failreDesc = "Authentifizierung fehlgeschlagen - " & authResp & vbNewLine & "Vorgang abgebrochen/wiederholen!"
lblInfo.Text = failreDesc
Return False
End If
@@ -189,13 +190,11 @@ Public Class frmATEZ_NCTS
lblInfo.Text = "Fehler in der API "
Else
If azetId = -1 Then
atezData.fehlerbeschreibung = "Request has been sent, but not header received!"
End If
If azetId = -1 Then atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
atezData.status = "Sent"
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
Return atezData.SAVE()
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
Return atezData.SAVE()
End If