Änderungen Fiskalübersicht, Norsware-API Verbesserung

2023-06-28 16:56:40 +02:00
parent 24418e9d51
commit 0ba24ef930
8 changed files with 218 additions and 91 deletions
--- a/SDL/cProgramFunctions.vb
+++ b/SDL/cProgramFunctions.vb
@@ -1395,6 +1395,13 @@ Public Class cProgramFunctions

    End Sub

+    Function MessageTimeOut(sMessage As String, sTitle As String, iSeconds As Integer) As Boolean
+        Dim Shell
+        Shell = CreateObject("WScript.Shell")
+        Shell.Run("mshta.exe vbscript:close(CreateObject(""WScript.shell"").Popup(""" & sMessage & """," & iSeconds & ",""" & sTitle & """))")
+        MessageTimeOut = True
+    End Function
+
 End Class