15. Februar 2007 12:46
IF NOT UserSetup.GET(USERID) THEN
EXIT;
IF NOT POSData.GET(UserSetup."Responsibility Center",UserSetup.POS) THEN
EXIT;
SHELL(POSData."POS open Folder/Command");
SHELL('CMD.EXE /c M:\WINNT\system32\kasse.com 4');
15. Februar 2007 13:05
15. Februar 2007 13:21
15. Februar 2007 13:57
Function "RunCommand(CommandString [Text1024])"
{ Local: WSH_Shell, Automation: "Windows Script Host Object Model".WshShell }
IF ISCLEAR(WSH_Shell) THEN
CREATE(WSH_Shell);
WSH_Shell.Run(CommandString);
IF NOT UserSetup.GET(USERID) THEN
EXIT;
IF NOT POSData.GET(UserSetup."Responsibility Center",UserSetup.POS) THEN
EXIT;
RunCommand(POSData."POS open Folder/Command");
RunCommand('CMD.EXE /c M:\WINNT\system32\kasse.com 4');
15. Februar 2007 15:56