Skip to Content
avatar image
Former Member

Add input box

Hello,

I was wondering what code I can use to add an input box to my code below that will prompt me to enter the Plant right before the line in Bold below??

If Not IsObject(application) Then Set SapGuiAuto = GetObject("SAPGUI") Set application = SapGuiAuto.GetScriptingEngine End If If Not IsObject(connection) Then Set connection = application.Children(0) End If If Not IsObject(session) Then Set session = connection.Children(0) End If If IsObject(WScript) Then WScript.ConnectObject session, "on" WScript.ConnectObject application, "on" End If session.findById("wnd[0]").maximize session.findById("wnd[0]/tbar[0]/okcd").text = "/nih08" session.findById("wnd[0]").sendVKey 0 session.findById("wnd[0]/tbar[1]/btn[17]").press session.findById("wnd[1]/usr/txtV-LOW").text = "equipment List" session.findById("wnd[1]/usr/txtV-LOW").caretPosition = 14 session.findById("wnd[1]/tbar[0]/btn[8]").press session.findById("wnd[0]/usr/ctxtDATUV").text = ""

session.findById("wnd[0]/usr/ctxtSWERK-LOW").text = "9835"

session.findById("wnd[0]/usr/ctxtDATUV").setFocus session.findById("wnd[0]/usr/ctxtDATUV").caretPosition = 0 session.findById("wnd[0]/tbar[1]/btn[8]").press session.findById("wnd[0]/mbar/menu[0]/menu[10]/menu[2]").select session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").select session.findById("wnd[1]/usr/subSUBSCREEN_STEPLOOP:SAPLSPO5:0150/sub:SAPLSPO5:0150/radSPOPLI-SELFLAG[1,0]").setFocus session.findById("wnd[1]/tbar[0]/btn[0]").press session.findById("wnd[1]").sendVKey 4 session.findById("wnd[1]/tbar[0]/btn[0]").press

Add comment
10|10000 characters needed characters exceeded

  • Get RSS Feed

0 Answers