timas

SDL/frmMain.vb

@@ -143,7 +143,7 @@ Public Class frmMain
         setProfileImage()
 
 
-
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_ausstempelnBeiBeenden Then
             If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                 Dim timas As New cTimasAPI("timas")
                 Dim infoMessage As String = ""
@@ -166,6 +166,10 @@ Public Class frmMain
                 End If
 
             End If
+        End If
+
+
+
 
         AddHandler KdSearchBox1.PropertyChanged, Sub()
                                                      Try