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

Vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-09-11 14:39:40 +02:00
parent 3698fa827b
commit 0a0c1c5f10
3 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmATEZ_NCTS.vb
View File

@@ -158,7 +158,7 @@ Public Class frmATEZ_NCTS
If Not atez.setJsonPDF(atezData, dgvAnhaenge) Then MsgBox("Fehler beim Erstellen der PDF-Daten, kein Anhang ausgewählt!" & vbNewLine & "Vorgang abgebrochen!")
'MsgBox(atezData.json)
Dim azetId = atez.SendRequestWithAuthHeader("application/json", failreDesc)
If failreDesc <> "" Then
@@ -243,9 +243,9 @@ Public Class frmATEZ_NCTS
cboProzedur.Items.Clear()
cboProzedur.Items.Add(New MyListItem("T1", "T1"))
cboProzedur.Items.Add(New MyListItem("T2", "T2"))
cboProzedur.Items.Add(New MyListItem("TIR", "TIR"))
cboProzedur.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T1", "T1"))
cboProzedur.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("T2", "T2"))
cboProzedur.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TIR", "TIR"))
Select Case FIRMA_DY
Case "ATILLA" : cboProzedur.changeItem("T2")