diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 4d677ad..92ee315 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmATEZ_NCTS.vb b/Aviso/frmATEZ_NCTS.vb index 5c445fc..9cf0964 100644 --- a/Aviso/frmATEZ_NCTS.vb +++ b/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() diff --git a/Aviso/frmEssensbestellungenAdministration.vb b/Aviso/frmEssensbestellungenAdministration.vb index 571fb92..fe95109 100644 --- a/Aviso/frmEssensbestellungenAdministration.vb +++ b/Aviso/frmEssensbestellungenAdministration.vb @@ -372,6 +372,9 @@ Public Class frmEssensbestellungenAdministration bestellung.eb_storniert_am = DBNull.Value End If + + bestellung.eb_preis = 0 + bestellung.SAVE() diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index e1f9b4a..684baec 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/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 diff --git a/Aviso/usrcntlAktDetailsATILLANeu.vb b/Aviso/usrcntlAktDetailsATILLANeu.vb index fa97afa..836344f 100644 --- a/Aviso/usrcntlAktDetailsATILLANeu.vb +++ b/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