Ankunftsanzeige

This commit is contained in:
2024-11-04 15:13:37 +01:00
parent 16e920204b
commit 9d136403e1
4 changed files with 87 additions and 6 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.2.4")>
<Assembly: AssemblyFileVersion("1.3.2.4")>
<Assembly: AssemblyVersion("1.3.2.5")>
<Assembly: AssemblyFileVersion("1.3.2.5")>

View File

@@ -71,6 +71,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
If cboStammreferenz._value = "" Then MsgBox("Stammreferenz auswählen!") : Exit Sub
If txtMRN._value = "" Then MsgBox("MRN auswählen!") : Exit Sub
If txtMRN._value.Length > 18 Then MsgBox("MRN zu lang!") : Exit Sub
Me.Refresh()