Dialog box, vbApplicationModal, VBScript GUI SAP R / 3

[ERP]

Dear experts, I have a question if it is possible to solve?

I need the script to recognize that there is a dialog box and perform the actions at the time: if, see below:

If IsObject(vbApplicationModal) Then
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[0]/usr/cntlTREE_CONTAINER_0200/shellcont/shell").pressToolbarButton "SAVE"
session.findById("wnd[1]/usr/btn[0]").press
Else
session.findById("wnd[0]/usr/cntlTREE_CONTAINER_0200/shellcont/shell").pressToolbarButton "SAVE"
session.findById("wnd[1]/usr/btn[0]").press
End If

I tried the following types, but without success:

If DialogBox = vbApplicationModal Then
If vbApplicationModal Then
If vbApplicationModal = show Then
If vbApplicationModal = appear Then
If dlgAnswer = vbApplicationModal Then
If dlgAnswer Then
If dlgAnswer = DialogBox Then
If 0 Then
If 1 Then
If DialogBox Then
If showMessageBox Then
If box Then

I await your help. Thank you very much.

ERP

[Lala]

Hi ERP,

That is possible:

if session.findbyid("wnd[1]").text = "Information / Error" Then ' <- here goes the text of the Dialogbox !
      session.findbyid("wnd[1]").sendvKey 0
      session.findById("wnd[0]/usr/cntlTREE_CONTAINER_0200/shellcont/shell").pressToolbarButton "SAVE"
      session.findById("wnd[1]/usr/btn[0]").press
else
      session.findById("wnd[0]/usr/cntlTREE_CONTAINER_0200/shellcont/shell").pressToolbarButton "SAVE"
      session.findById("wnd[1]/usr/btn[0]").press
end if

In other words, you only can check if there is a Dialogbox (weither it's modal or unmodal). But you can check for it's caption.
Perhaps you have to check for an Error on runtime via on error resume next
and then to close the Dialog...

Regards,
Lala

[ERP]

Thanks Lala! I'll test the code on the system and keep you informed.

Regards,
ERP