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

ATEZ-NCTS-Sessions eingebaut, Essensbestellungen Bugfix

Browse Source
This commit is contained in:
d.breimaier
2023-09-25 16:11:39 +02:00
parent 83bef15dc9
commit 9eff28cc9a
5 changed files with 14 additions and 3 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("3.9.2.0")> <Assembly: AssemblyVersion("3.9.2.5")>
<Assembly: AssemblyFileVersion("3.9.2.0")> <Assembly: AssemblyFileVersion("3.9.2.5")>

8
Aviso/frmATEZ_NCTS.vb
View File

@@ -192,6 +192,8 @@ Public Class frmATEZ_NCTS
Return False Return False
End If End If
atezData.sessionId = atez.sessionID
If Not atez.setJson(atezData) Then If Not atez.setJson(atezData) Then
MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!") MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
@@ -231,7 +233,11 @@ Public Class frmATEZ_NCTS
Else Else
If azetId = "-1" Then atezData.fehlerbeschreibung = "Request has been sent, but no header received!" If azetId = "-1" Then
atezData.fehlerbeschreibung = "Request has been sent, but no header received!"
Else
atezData.fehlerbeschreibung = ""
End If
atezData.status = "Sent" atezData.status = "Sent"
atezData.atezId = IIf(azetId IsNot Nothing, azetId, "") atezData.atezId = IIf(azetId IsNot Nothing, azetId, "")
Return atezData.SAVE() Return atezData.SAVE()

3
Aviso/frmEssensbestellungenAdministration.vb
View File

@@ -372,6 +372,9 @@ Public Class frmEssensbestellungenAdministration
bestellung.eb_storniert_am = DBNull.Value bestellung.eb_storniert_am = DBNull.Value
End If End If
bestellung.eb_preis = 0
bestellung.SAVE() bestellung.SAVE()

1
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -6401,6 +6401,7 @@ Public Class frmSendungsdetailsNEU
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy")) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
Me.Refresh() Me.Refresh()
initdgvATEZ()
End If End If

1
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1678,6 +1678,7 @@ Public Class usrcntlAktDetailsATILLANeu
Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy")) Dim frmAttilaATEZNCTS = New frmATEZ_NCTS(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value, AVISO, SND, Now.ToString("yy"))
frmAttilaATEZNCTS.Show(Me) frmAttilaATEZNCTS.Show(Me)
Me.Refresh() Me.Refresh()
initdgvATEZ()
End If End If