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

Vorpapier-Prüfung, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-10 07:52:17 +02:00
parent 8446f81ab4
commit 0282fecbb8
3 changed files with 410 additions and 412 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("4.3.0.9")> <Assembly: AssemblyVersion("4.3.1.0")>
<Assembly: AssemblyFileVersion("4.3.0.9")> <Assembly: AssemblyFileVersion("4.3.1.0")>

776
Aviso/frmSendungsdetailsNEU.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

42
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -384,32 +384,30 @@ Public Class frmSendungsdetailsNEU
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
End If 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)))))
If invalidSendung IsNot Nothing Then
Dim err = "Sendung " & invalidSendung.tblSnd_PosUnterNr & " Vorp-Nr/PosNr fehlt/ist falsch."
rtbValidierung.Text &= err & vbNewLine : pnlValidation.Visible = True
End If
End If
' 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
'End If