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

Auswertung VERIMEX Korr., Laufzettel SA-Gestellung

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-12-21 14:53:31 +01:00
parent 0f6a78428b
commit 984a341b6e
10 changed files with 293 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Aviso/frmAbfertigungTR_ExportAnz.vb
View File

@@ -19,8 +19,12 @@
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
If txtAnz._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
If txtAnzPos._value = "" Then Me.DialogResult = DialogResult.None : Exit Sub
lblError.Visible = False
If txtAnz._value = "" OrElse Not IsNumeric(txtAnz._value) Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub
If txtAnzPos._value = "" OrElse Not IsNumeric(txtAnzPos._value) Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub
If CInt(txtAnz._value) <= 0 Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub
If CInt(txtAnzPos._value) <= 0 Then Me.DialogResult = DialogResult.None : lblError.Visible = True : Exit Sub
Me.DialogResult = DialogResult.OK