Rest-API WIKI, Mitarbeiter kopieren Rechte übernehmen

UID/cProgramFunctions.vb

@@ -1124,7 +1124,7 @@ Public Class cProgramFunctions
         End Try
     End Sub
 
-    Public Function CalendarWeek(ByVal nWeek As Integer, _
+    Public Function CalendarWeek(ByVal nWeek As Integer,
  ByVal nYear As Integer) As Date
 
         ' Wochentag des 4. Januar des Jahres ermitteln
@@ -1137,9 +1137,18 @@ Public Class cProgramFunctions
         ' Gesuchte KW ermitteln
         Return dFirst.AddDays((nWeek - 1) * 7)
     End Function
+
+    Public Function MessageTimeOut(sMessage As String, sTitle As String, iSeconds As Integer) As Boolean
+        Dim Shell = CreateObject("WScript.Shell")
+        Shell.Run("mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & sMessage & """," & iSeconds & ",""" & sTitle & """))")
+        MessageTimeOut = True
+    End Function
+
 End Class
 
 
+
+
 Public Class SQLVariable
     Private TextSQLName As String
     Private ValueSQLVALUE As Object