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