SAP GUI中的直到循环

2020-08-13 13:14发布

         点击此处--->   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)

         点击此处--->   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)
付费偷看设置
发送
2条回答
吹牛啤
1楼 · 2020-08-13 13:27.采纳回答

此代码段将检查事物是否存在,然后执行某事。

如果不是session.findById(" wnd [1]",False),则没有
      session.findById(" wnd [1]")。sendVKey 0
 如果结束

或者如果要砸就输入直到消失...

不执行会话时执行。FindById(" wnd [1]",False)什么都没有
     Session.FindById(" wnd [1]")。sendVKey 0
 循环
 
小c菟菟
2楼-- · 2020-08-13 13:38

非常感谢Daniel!

一周热门 更多>