SAP GUI中的直到循环

2020-08-13 13:14发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨,我是SAP GUI的新手。 ...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


嗨,我是SAP GUI的新手。 我想运行循环,直到出现下一个屏幕。 在下面,我共享了我录制的GUI脚本,并突出显示了需要循环的区域,还共享了我想使用该循环的屏幕。 您的帮助将不胜感激。

需要重复此操作,直到出现下一个屏幕

" session.findById(" wnd [1]")。sendVKey 0"

如果不是IsObject(application),则
    设置SapGuiAuto = GetObject(" SAPGUI")
    设置应用程序= SapGuiAuto.GetScriptingEngine
 万一
 如果不是IsObject(连接),则
    设置连接= application.Children(0)
 万一
 如果不是IsObject(session)然后
    设置会话= connection.Children(0)
 万一
 如果IsObject(WScript)然后
    WScript.ConnectObject会话,"打开"
    WScript.ConnectObject应用程序,"打开"
 万一
 session.findById(" wnd [0]")。maximize
 session.findById(" wnd [0]/tbar [0]/okcd")。text =" va01"
 session.findById(" wnd [0]")。sendVKey 0
 session.findById(" wnd [0]/usr/ctxtVBAK-AUART")。text =" ZCRE"
 session.findById(" wnd [0]")。sendVKey 0
 session.findById(" wnd [1]/usr/tabsMYTABSTRIP/tabpRFAK/ssubSUB1:SAPLV45C:0304/ctxtVBRK-VBELN")。text =" 6214557"
 session.findById(" wnd [1]/usr/tabsMYTABSTRIP/tabpRFAK/ssubSUB1:SAPLV45C:0304/ctxtVBRK-VBELN")。caretPosition = 7
 session.findById(" wnd [1]/tbar [0]/btn [5]")。按

 session.findById(" wnd [1]")。sendVKey 0

 session.findById(" wnd [0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY:SAPMV45A:4415/cmbVBAK-FAKSK")。key =""
 session.findById(" wnd [0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY:SAPMV45A:4415/cmbVBAK-FAKSK")。setFocus
 session.findById(" wnd [0]/usr/tabsTAXI_TABSTRIP_OVERVIEW/tabpT \ 02/ssubSUBSCREEN_BODY:SAPMV45A:4415/subSUBSCREEN_TC:SAPMV45A:4902/subSUBSCREEN_BUTTONS:SAPMV45A:4050/btnBT_PKON")。press
 session.findById(" wnd [0]/mbar/menu [1]/menu [12]")。select
 session.findById(" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。setCurrentCell -1,""
 session.findById(" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。selectColumn" ANZEIGEPOS"
 session.findById(" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。selectColumn" AUSGABETEXT"
 session.findById(" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。selectColumn" FELD"
 session.findById(" wnd [0]/usr/cntlGRID1/shellcont/shell/shellcont [1]/shell")。selectedRows =" 0"
 session.findById(" wnd [0]/tbar [1]/btn [2]")。按
 session.findById(" wnd [0]/usr/tabsTAXI_TABSTRIP_HEAD/tabpT \ 01/ssubSUBSCREEN_BODY:SAPMV45A:4301/cmbVBAK-AUGRU")。key =" 001"
 session.findById(" wnd [0]/tbar [0]/btn [3]")。按
 session.findById(" wnd [0]")。sendVKey 11
 session.findById(" wnd [0]/tbar [0]/btn [15]")。按
 session.findById(" wnd [0]/tbar [0]/okcd")。text =" VF01"
 session.findById(" wnd [0]")。sendVKey 0
 session.findById(" wnd [0]")。sendVKey 11


 
info-screen.jpg (314.3 kB)