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

SndDetails

Browse Source
This commit is contained in:
Andreas Luxbauer
2026-03-31 10:20:37 +02:00
parent 455477f60c
commit fea2340e8b
6 changed files with 450 additions and 420 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1099,12 +1099,21 @@ Public Class frmSendungsdetailsNEU
b.lblAbfBez.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblAuftr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblNr.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
b.lblColliWeight.BackColor = IIf(b.value = pos, Color.FromArgb(0, 34, 98), Color.DarkGray)
b.lblColliWeight.ForeColor = IIf(b.value = pos, VERAG_PROG_ALLGEMEIN.cAllgemein.cSPECIFIC.FIRMA_ForeColor, Color.Black)
' Dim r As DataRow = AVISO_newDataSet.tblSendungen.Rows(b.value)
' MsgBox(da("tblSnd_PosUnterNr") & ". ")
b.lblNr.Text = SENDUNG_LIST(b.value).tblSnd_PosUnterNr & ". "
b.lblAbfBez.Text = ADMIN.getValueTxtBySql("SELECT Abfertigungsbezeichnung FROM Abfertigungsarten WHERE [Abfertigungsart]='" & SENDUNG_LIST(b.value).tblSnd_Abfertigungsart_ID & "'", "FMZOLL")
b.lblAuftr.Text = loadValue(SENDUNG_LIST(b.value).tblSnd_Empfaenger, "")
b.lblColliWeight.Text = ""
If SENDUNG_LIST(b.value).tblSnd_Colli IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(b.value).tblSnd_Colli) Then b.lblColliWeight.Text = CDbl(SENDUNG_LIST(b.value).tblSnd_Colli).ToString("N0") & " Pk"
If SENDUNG_LIST(b.value).tblSnd_Gewicht IsNot Nothing AndAlso IsNumeric(SENDUNG_LIST(b.value).tblSnd_Gewicht) Then
b.lblColliWeight.Text &= If(b.lblColliWeight.Text <> "", "/", "") & CDbl(SENDUNG_LIST(b.value).tblSnd_Gewicht).ToString("N0") & " kg"
End If
'End If
End If
@@ -1975,7 +1984,7 @@ Public Class frmSendungsdetailsNEU
If SENDUNG_LIST(CURRENT_INDEX).tblSnd_SpeditionsbuchEingetragen Then
btnSpeditionsbuchEintragen.BackgroundImage = My.Resources.speditionsbuchAktiv
setTooltioBtn(btnSpeditionsbuchEintragen, "Status 'Speditionsbuch Eingetragen' entfernen")
setTooltioBtn(btnSpeditionsbuchEintragen, "Speditionsbuch Eingetrag öffnen")
End If
@@ -8137,7 +8146,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusAbklaerungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbklaerungTR.Click
Me.Cursor = Cursors.WaitCursor
If AVISOFUNC.setSendungAbklaerungTR(SendungsId, AvisoId) Then
If AVISOFUNC.setSendungAbklaerungTR(SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8145,7 +8154,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusVorbereitetQS_Click(sender As Object, e As EventArgs) Handles btnStatusVorbereitetQS.Click
Me.Cursor = Cursors.WaitCursor
If AVISOFUNC.setSendungVorbereitetQS(SendungsId, AvisoId) Then
If AVISOFUNC.setSendungVorbereitetQS(SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8153,7 +8162,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusVorgeschrieben_Click(sender As Object, e As EventArgs) Handles btnStatusVorgeschrieben.Click
Me.Cursor = Cursors.WaitCursor
If AVISOFUNC.setSendungVorgeschrieben(SendungsId, AvisoId) Then
If AVISOFUNC.setSendungVorgeschrieben(SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8161,7 +8170,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnStatusAbfertigungTR_Click(sender As Object, e As EventArgs) Handles btnStatusAbfertigungTR.Click
Me.Cursor = Cursors.WaitCursor
If AVISOFUNC.setSendungAbfertigungTR(SendungsId, AvisoId) Then
If AVISOFUNC.setSendungAbfertigungTR(SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default
@@ -8170,7 +8179,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnSpeditionsbuchEintragen_Click(sender As Object, e As EventArgs) Handles btnSpeditionsbuchEintragen.Click
Me.Cursor = Cursors.WaitCursor
If Not cbxFremdspedition.Checked Then
If AVISOFUNC.setSendungFakturiert(SendungsId, AvisoId) Then
If AVISOFUNC.setSendungSpeditionsbuchEintrag(SendungID, AvisoId) Then
initDataBinding()
End If
End If
@@ -8179,7 +8188,7 @@ Public Class frmSendungsdetailsNEU
Private Sub btnSendungFakturiert_Click(sender As Object, e As EventArgs) Handles btnSendungFakturiert.Click
Me.Cursor = Cursors.WaitCursor
If AVISOFUNC.setSendungFakturiert(SendungsId, AvisoId) Then
If AVISOFUNC.setSendungFakturiert(SendungID, AvisoId) Then
initDataBinding()
End If
Me.Cursor = Cursors.Default