ATBGestellung, Gesamtsicherheiten, etc.

Aviso/usrCntlSND_ATBGestellung.vb

@@ -42,7 +42,7 @@ Public Class usrCntlSND_ATBGestellung
             If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
 
             If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
-                If CDate(SND.tblSnd_T1_Frist) <= Today() Then
+                If CDate(SND.tblSnd_T1_Frist) >= Today() Then
                     '-> OK
                 Else
                     MsgBox("T1 Frist ist abgelaufen!")
@@ -267,7 +267,6 @@ Public Class usrCntlSND_ATBGestellung
 
     Private Sub usrCntlSND_ATBGestellung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
-
         initGesamtsicherheiten()
 
     End Sub
@@ -318,6 +317,11 @@ Public Class usrCntlSND_ATBGestellung
         txtT1Datum._value = CDate(sender.value).ToShortDateString
     End Sub
 
+    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
+        Dim webAddress As String = "https://wiki.verag.ag/e/de/software/aviso/howtos/Gesamtsicherheiten-AUTO"
+        Process.Start(webAddress)
+    End Sub
+
 
     'Public Sub setValues()
     '    txtATBT1.Text = If(NCTS_GA.nga_name, "")