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

Sendungsdetails

Browse Source
This commit is contained in:
d.breimaier
2026-09-01 15:02:20 +02:00
parent bc21166aba
commit 7a3184f21c
2 changed files with 8 additions and 8 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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.3.1.9")>
<Assembly: AssemblyFileVersion("4.3.1.9")>
<Assembly: AssemblyVersion("4.3.2.0")>
<Assembly: AssemblyFileVersion("4.3.2.0")>

12
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -8260,7 +8260,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If AVISOFUNC.setSendungAbklaerungTR(SendungID, AvisoId) Then
If AVISOFUNC.setSendungAbklaerungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8269,7 +8269,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If AVISOFUNC.setSendungVorbereitetQS(SendungID, AvisoId) Then
If AVISOFUNC.setSendungVorbereitetQS(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8278,7 +8278,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If AVISOFUNC.setSendungVorgeschrieben(SendungID, AvisoId) Then
If AVISOFUNC.setSendungVorgeschrieben(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8287,7 +8287,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If AVISOFUNC.setSendungAbfertigungTR(SendungID, AvisoId) Then
If AVISOFUNC.setSendungAbfertigungTR(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8297,7 +8297,7 @@ Public Class frmSendungsdetailsNEU
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If Not cbxFremdspedition.Checked Then
If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
If AVISOFUNC.setSendungSpeditionsbuchEintrag(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
initDataBinding()
End If
End If
@@ -8307,7 +8307,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If AVISOFUNC.setSendungFakturiert(SendungID, AvisoId) Then
If AVISOFUNC.setSendungFakturiert(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default