Welcome! Guest
New User? Register | Login

Script Waiting For GuiXT to Finish

By: Shailesh Singh | 25 Jun 2009 3:33 am

I'm writing a VB script to automate certain tasks in SAP. In the past, we've always made sure GuiXT was off when performign these tasks. However, I've been trying to get it to work with GuiXT on so that these tasks can be interchanged with actual users (who are required to keep GuiXT on at all times).

My one main problem is this. When I press a button using VBScript that makes GuiXT perform several actions, the VB script tries to continue on before GuiXT is done, causing a COM exception: "The data neccessary to complete this operation is not yet available". I tried check the GuiSession.Busy property, and looping in a waiting cycle until it cleared, but Busy doesn't seem to reflect whether GuiXT is busy or not.

Does anyone know of a way to determine if GuiXT is still processing so I can make VBScript wait until GuiXT is complete?

Comments

If VBscript has multiple actions executed inside it (Enters), then you should have as many screen blocks

Example: Replace * with actual screen numbers

Screen *
ApplyGuiScript "test.vbs" // This vbscript has 3 actions (Enters) inside it,

Screen *

Screen *

By: saperpguru | 25 Jun 2009

The VB script I'm working on is not run within GuiXT. It's run as it's own file.

For example, I created a script to create a batch of standard orders based on a simple text data file. The script goes to the various SAP order screens, enters the information, and saves the orders. It's not meant to support GuiXT. I want though, to be able to run my scripts with GuiXT on, because I can touch fewer screens that way.

By: saperpguru | 25 Jun 2009

Hi Shailesh,

There are the following approaches:

1. A text file under GuiXT create and show presence in VBScript

For Example:
...
OpenFile "signal.txt" -OutPut
closeFile "signal.txt"
...

...
Set oFS = CreateObject("Scripting.FileSystemObject")
if oFS.fileExists("signal.txt") then
set f1 = oFS.GetFile("signal.txt")
f1.Delete
end if
do
Wscript.Sleep 1000
Loop until oFS.fileExists("signal.txt")
...

2. At a certain window in VBScript wait

For Example:

set Wshell = CreateObject("WScript.Shell")
Do
bWindowFound = Wshell.AppActivate("The name of a window") 'e.g "SAP Easy Access"
WScript.Sleep 1000
Loop Until bWindowFound
...

Regards,
ScriptMan

By: ScriptMan | 14 Aug 2009

In such cases, I test whether a command is executed without error.

For example:

...
on error resume next
err.clear
session.findbyid( "wnd[0]/usr/ ...
while err.number <> 0
err.clear
wscript.sleep 1000
session.findbyid( "wnd[0]/usr/ ...
wend
on error goto 0
...

By: Shailesh Singh | 02 Feb 2010