ATEZ-NCTS-Sessions eingebaut, Essensbestellungen Bugfix

Aviso/My Project/AssemblyInfo.vb

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

Aviso/frmATEZ_NCTS.vb

@@ -192,6 +192,8 @@ Public Class frmATEZ_NCTS
             Return False
         End If
 
+        atezData.sessionId = atez.sessionID
+
 
         If Not atez.setJson(atezData) Then
             MsgBox("Fehler beim Erstellen der Daten" & vbNewLine & "Vorgang abgebrochen!")
@@ -231,7 +233,11 @@ Public Class frmATEZ_NCTS
 
         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.atezId = IIf(azetId IsNot Nothing, azetId, "")
             Return atezData.SAVE()

Aviso/frmEssensbestellungenAdministration.vb

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

Aviso/frmSendungsdetailsNEU.vb

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

Aviso/usrcntlAktDetailsATILLANeu.vb

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