1

I'm currently trying to fix some issues in a SAP procedure using VBA.

By now I have a piece of code that can correctly handle the error pop-up that sometimes appears:

If session.findById("wnd[2]/usr/txtMESSTXT1").Text = "Material já atualizado para esta operação" Then       
    'Saves error text
    ThisWoorkbook.Worksheets("ExpandirMateriais").Cells(i, "d") = "error"
    ThisWoorkbook.Worksheets("ExpandirMateriais").Cells(i, "e") = Now
    ThisWoorkbook.Worksheets("ExpandirMateriais").Cells(i, "f") = session.findById("wnd[2]/usr/txtMESSTXT1").Text   

    'Goes to the inicial SAP window
    session.findById("wnd[0]/tbar[0]/okcd").Text = "/nBPMDG/UTL_BROWSER"
    session.findById("wnd[0]/tbar[0]/btn[0]").Press

    'Goes to the last line of the while loop
    GoTo end_while
End If

The issue is this: this error is triggered by just some of the lines of my database. If I leave the code this way, it will cause an error in the lines that don't need the error handling. I need to verify if the active session is the error pop-up and then proceed to handle the error, ie, I need something like this:

If ActiveSession.Name = "wnd[2]/usr/txtMESSTXT1" Then
    If session.findById("wnd[2]/usr/txtMESSTXT1").Text = "Material já atualizado para esta operação" Then       
        'Saves error text
        ThisWoorkbook.Worksheets("ExpandirMateriais").Cells(i, "d") = "error"
        ThisWoorkbook.Worksheets("ExpandirMateriais").Cells(i, "e") = Now
        ThisWoorkbook.Worksheets("ExpandirMateriais").Cells(i, "f") = session.findById("wnd[2]/usr/txtMESSTXT1").Text   

        'Goes to the inicial SAP window
        session.findById("wnd[0]/tbar[0]/okcd").Text = "/nBPMDG/UTL_BROWSER"
        session.findById("wnd[0]/tbar[0]/btn[0]").Press

        'Goes to the last line of the while loop
        GoTo end_while
    End If
End If

but I don't know how to properly verify if the active windows is THE error window I'm working with.

I appreciate any help with this syntax.

Sandra Rossi
  • 11,934
  • 5
  • 22
  • 48
Caue Evangelista
  • 23
  • 1
  • 6

1 Answers1

2

You could use the following 2 methods to find the relevant SAP session:

  1. the easy way

     Set SapGuiAuto  = GetObject("SAPGUI")
 Set SapApplication = SapGuiAuto.GetScriptingEngine
 Set connection = SapApplication.Children(0)

 set session = SapApplication.activeSession
 ... 
 If session.Name = "wnd[2]/usr/txtMESSTXT1" Then   
 ...

  2. the complicated method

    Set SapGuiAuto  = GetObject("SAPGUI")
Set SapApplication = SapGuiAuto.GetScriptingEngine
Set connection = SapApplication.Children(0)

for mySession = 0 to connection.children.count - 1
    Set ActiveSession    = connection.Children(int(mySession))
    If ActiveSession.Name = "wnd[2]/usr/txtMESSTXT1" Then 
       set session = ActiveSession
       exit for
    end if 
next

If session.Name = "wnd[2]/usr/txtMESSTXT1" Then
...

You will have to find out for yourself which of the two methods is applicable to you.

Regards, ScriptMan

ScriptMan
  • 1,580
  • 1
  • 9
  • 9