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

bugfix

Browse Source
This commit is contained in:
d.breimaier
2026-08-07 19:42:53 +02:00
parent b1a12a6430
commit 8446f81ab4
3 changed files with 34 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -384,32 +384,32 @@ Public Class frmSendungsdetailsNEU
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
End If
Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44)
'Dim isATB = SENDUNG_LIST.Any(Function(r) r.tblSnd_Abfertigungsart_ID = 44)
If isATB Then
'If isATB Then
Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse
String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse
((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso
(String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse
((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso
(String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)))))
' Dim invalidSendung = SENDUNG_LIST.FirstOrDefault(Function(r) r.tblSnd_Abfertigungsart_ID <> 44 AndAlso ((String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier) OrElse
' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier_Pos)) OrElse
'((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
' Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos)) AndAlso
' (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2) OrElse
' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier2_Pos))) OrElse
'((Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
' Not String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)) AndAlso
' (String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3) OrElse
' String.IsNullOrWhiteSpace(r.tblSnd_Vorpapier3_Pos)))))
If invalidSendung IsNot Nothing Then
If MsgBox("Sendung-ID: " & invalidSendung.tblSnd_SendungID & vbCrLf &
"Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." &
vbCrLf & vbCrLf &
"Möchten Sie trotzdem fortfahren?",
MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation) = MsgBoxResult.No Then
Return False
End If
End If
' If invalidSendung IsNot Nothing Then
' If MsgBox("Sendung-ID: " & invalidSendung.tblSnd_SendungID & vbCrLf &
' "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." &
' vbCrLf & vbCrLf &
' "Möchten Sie trotzdem fortfahren?",
' MsgBoxStyle.YesNo Or MsgBoxStyle.Exclamation) = MsgBoxResult.No Then
' Return False
' End If
' End If
End If
'End If