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

snd status fix

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-04-01 16:41:05 +02:00
parent ea0df065a3
commit c1cf86d8a9
2 changed files with 78 additions and 69 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1783,6 +1783,7 @@ Public Class frmSendungsdetailsNEU
initSND_CHAT(SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID)
checkinitOLDAbfertigungsart(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Abfertigungsart_ID)
lblSendungsId.Text = SENDUNG_LIST(CURRENT_INDEX).tblSnd_SendungID
initSendungs_Status()
initZuteilung()
@@ -2090,8 +2091,10 @@ Public Class frmSendungsdetailsNEU
Dim gesGewicht As Double = 0
For Each s In SENDUNG_LIST
If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
If s.tblSnd_Abfertigungsart_ID <> 45 Then
If s.tblSnd_Colli IsNot Nothing AndAlso IsNumeric(s.tblSnd_Colli.Replace("Pk", "").Replace(".", "").Trim) Then gesColli += s.tblSnd_Colli
If s.tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(s.tblSnd_Gewicht.Replace("kg", "").Trim) Then gesGewicht += s.tblSnd_Gewicht
End If
Next
'lblGesColli.Text = If(gesColli = 0, "-", gesColli.ToString("N0")) & " Pk"
@@ -8146,6 +8149,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
initDataBinding()
End If
@@ -8154,6 +8158,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
initDataBinding()
End If
@@ -8162,6 +8167,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
initDataBinding()
End If
@@ -8170,6 +8176,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
initDataBinding()
End If
@@ -8178,6 +8185,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnSpeditionsbuchEintragen_Click(sender As Object, e As EventArgs) Handles btnSpeditionsbuchEintragen.Click
Me.Cursor = Cursors.WaitCursor
SAVE_ME()
If Not cbxFremdspedition.Checked Then
If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
initDataBinding()
@@ -8188,6 +8196,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
initDataBinding()
End If