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

ATEZ

Browse Source
This commit is contained in:
d.breimaier
2023-09-13 13:34:50 +02:00
parent 18df66c8fe
commit 78a8564267
4 changed files with 32 additions and 19 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.1.4")> <Assembly: AssemblyVersion("3.9.1.5")>
<Assembly: AssemblyFileVersion("3.9.1.4")> <Assembly: AssemblyFileVersion("3.9.1.5")>

14
Aviso/frmATEZ_NCTS.vb
View File

@@ -135,8 +135,11 @@ Public Class frmATEZ_NCTS
If sendAtezData(atez_data, atez) Then If sendAtezData(atez_data, atez) Then
Me.Close() Me.Close()
Else
Me.Close()
End If End If
Me.Cursor = Cursors.Default Me.Cursor = Cursors.Default
Catch ex As Exception Catch ex As Exception
@@ -186,10 +189,15 @@ Public Class frmATEZ_NCTS
lblInfo.Text = "Fehler in der API " lblInfo.Text = "Fehler in der API "
Else Else
If azetId = -1 Then
atezData.fehlerbeschreibung = "Request has been sent, but not header received!"
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()
End If
End If
End Function End Function

20
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -3979,9 +3979,9 @@ Public Class frmSendungsdetailsNEU
Next Next
End Sub End Sub
'Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click Private Sub Button20_Click(sender As Object, e As EventArgs) Handles btnOptionen.Click
' cntxtAnh.Show(Cursor.Position) cntxtAnh.Show(Cursor.Position)
'End Sub End Sub
Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click Private Sub KopierenZwischenablageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KopierenZwischenablageToolStripMenuItem.Click
If dgvAnhang.SelectedRows.Count >= 1 Then If dgvAnhang.SelectedRows.Count >= 1 Then
@@ -6414,14 +6414,16 @@ Public Class frmSendungsdetailsNEU
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
If e.KeyCode = Keys.Delete Then If e.KeyCode = Keys.Delete Then
If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then If dgvATEZNCTS.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Or IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
atez.delete() Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
initdgvATEZ() atez.delete()
initdgvATEZ()
End If
End If End If
End If End If
End If End If
End Sub End Sub
Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click Private Sub Button19_Click(sender As Object, e As EventArgs) Handles Button19.Click

13
Aviso/usrcntlAktDetailsATILLANeu.vb
View File

@@ -1689,12 +1689,15 @@ Public Class usrcntlAktDetailsATILLANeu
Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp Private Sub dgvATEZNCTS_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvATEZNCTS.KeyUp
If e.KeyCode = Keys.Delete Then If e.KeyCode = Keys.Delete Then
If dgvATEZNCTS.SelectedRows.Count > 0 AndAlso Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Then If dgvATEZNCTS.SelectedRows.Count > 0 Then
If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then If Not IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) AndAlso dgvATEZNCTS.SelectedRows(0).Cells("Status").Value <> "Sent" Or IsDBNull(dgvATEZNCTS.SelectedRows(0).Cells("Status").Value) Then
Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value) If vbYes = MsgBox("Möchten Sie diesen Request wirklich löschen?", vbYesNoCancel) Then
atez.delete() Dim atez As New cATEZ_NCTS_DATA(dgvATEZNCTS.SelectedRows(0).Cells("Id").Value)
initdgvATEZ() atez.delete()
initdgvATEZ()
End If
End If End If
End If End If
End If End If
End Sub End Sub