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

Hinweismeldung fehlender Warenwert

Browse Source
This commit is contained in:
d.breimaier
2026-08-06 10:28:32 +02:00
parent 1f7858e971
commit baa65abe01
1 changed files with 20 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -326,30 +326,40 @@ Public Class frmSendungsdetailsNEU
(cboVorpapier2.Text.Trim <> "" AndAlso txtVorpapier2Pos.Text.Trim = "" Or cboVorpapier2.Text.Trim = "" AndAlso txtVorpapier2Pos.Text.Trim <> "") OrElse
(cboVorpapier3.Text.Trim <> "" AndAlso txtVorpapier3Pos.Text.Trim = "" Or cboVorpapier3.Text.Trim = "" AndAlso txtVorpapier3Pos.Text.Trim <> "")
Dim missingWarenwert As Boolean =
(cboVorpapier.Text.Trim <> "" AndAlso txtWarenwert.Text = "" AndAlso txtWarenwertWaehrung.Text = "" Or txtWarenwert.Text = "" AndAlso txtWarenwertWaehrung.Text = "" AndAlso txtVorpapierPos.Text.Trim <> "") OrElse
(cboVorpapier2.Text.Trim <> "" AndAlso txtWarenwert.Text = "" AndAlso txtWarenwertWaehrung.Text = "" Or txtWarenwert.Text = "" AndAlso txtWarenwertWaehrung.Text = "" AndAlso txtVorpapier2Pos.Text.Trim <> "") OrElse
(cboVorpapier3.Text.Trim <> "" AndAlso txtWarenwert.Text = "" AndAlso txtWarenwertWaehrung.Text = "" Or txtWarenwert.Text = "" AndAlso txtWarenwertWaehrung.Text = "" AndAlso txtVorpapier3Pos.Text.Trim <> "")
Dim hasIssue As Boolean
If isVerimex Then
hasIssue = (invalidPrepaper OrElse missingPosition)
Else
hasIssue = (invalidPrepaper OrElse missingPosition)
End If
Dim InfoMsg As String
If isVerimex Then
InfoMsg = "Pre-Paper/PosNr data is invalid or incomplete. Continue?"
InfoMsg = "Pre-Paper/PosNr data is invalid or incomplete." & vbCrLf & vbCrLf & "Do you want to continue anyway?"
Else
InfoMsg = "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig, fortfahren?"
InfoMsg = "Vorpapier-Nr/PosNr ist ungültig oder nicht vollständig." & vbCrLf & vbCrLf & "Möchten Sie trotzdem fortfahren?"
End If
If Not hasIssue Then
hasIssue = missingWarenwert
If isVerimex Then
InfoMsg = "The value of the goods has not been entered." & vbCrLf & vbCrLf & "Do you want to continue anyway?"
Else
InfoMsg = "Der Warenwert wurde nicht eingetragen." & vbCrLf & vbCrLf & "Möchten Sie trotzdem fortfahren?"
End If
End If
If hasIssue Then
If showErr Then
If MsgBox(InfoMsg, vbYesNoCancel) <> vbYes Then
If MsgBox(InfoMsg, vbYesNoCancel Or vbExclamation Or vbDefaultButton2, "Warning") <> vbYes Then
Return False
End If
End If
End If