调用事务码

最新推荐文章于 2023-05-25 08:15:40 发布

gydzhengzhuo

最新推荐文章于 2023-05-25 08:15:40 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

文章标签： application session

本文链接：https://blog.youkuaiyun.com/gydzhengzhuo/article/details/4601185

If Wscript.Arguments.Count = 1 Then

Dim i_pernr
i_pernr = Wscript.Arguments(0)

WScript.Echo i_pernr

     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 = "/nzhrphoto"
     session.findById("wnd[0]").sendVKey 0
     session.findById("wnd[0]/usr/ctxtP_PERNR").text = i_pernr
     session.findById("wnd[0]/usr/ctxtP_PERNR").caretPosition = 0
     session.findById("wnd[0]/tbar[1]/btn[8]").press
     session.findById("wnd[0]/usr/lbl[0,2]").setFocus
     session.findById("wnd[0]/usr/lbl[0,2]").caretPosition = 0

     Dim msg01

     msg01 = session.findById("wnd[0]/sbar").text

     If msg01 = "OK" Then
      WScript.Quit 1
     End if

     If msg01 = "!" Then
      WScript.Quit 0
     End If
Else
         Rem 没有输入参数
         WScript.Quit 2
End If