香港服务器_怎么在云服务器上搭建网站_稳定性好

产品 虚拟云 浏览

小编:你好Stefan, 我一直在不同的网站上关注你的例子,对SAP GUI脚本的可能性很感兴趣。我有一个SAP GUI脚本在SAP上运行事务的用例,其函数如下: function ProcessRow() Dim W\u transaction,W\u

香港服务器_怎么在云服务器上搭建网站_稳定性好

你好Stefan,

我一直在不同的网站上关注你的例子,云服务器存储,对SAP GUI脚本的可能性很感兴趣。我有一个SAP GUI脚本在SAP上运行事务的用例,其函数如下:

function ProcessRow()

Dim W\u transaction,W\u Variant

W\u Transaction="/nPC00\u M16\u CALC\u SIMU"

W\u Variant="DEMO1"

对象.findById("wnd[0]"),最大化

对象.findById("wnd[0]/tbar[0]/okcd").Text=W\u事务

对象.findById("wnd[0]")。sendVKey 0

对象.findById("wnd[0]/tbar[1]/btn[17]"),按

对象.findById("wnd[1]/usr/txtV LOW")。文本=W\ U变型

对象.findById("wnd[1]/usr/txtENAME LOW").Text="

对象.findById("wnd[1]/usr/txtENAME LOW").SetFocus

对象.findById("wnd[1]/usr/txtENAME LOW").caretPosition=0

对象.findById("wnd[1]")。sendVKey 8

对象.findById("wnd[0]/tbar[1]/btn[8]"),按

End Function

键,查淘客助手,我像你一样把它存储在include中上面是这个例子,但是当我在ABAP中用'AddCode'的call方法执行这个时,淘客宝下载,我得到了返回代码2-如何调试我的脚本和/或你有这个用例的工作示例(用脚本从SAP调用SAP事务)?

提前谢谢!

你好,简,

这是可能的。您必须完全从SAP后端上下文之外开发脚本,只有这样您才能使用。无法在SAP后端上下文中调试脚本。

这里是一个有效的示例脚本:

这里是ABAP报告:

我检查了它,它可以工作。

但是您必须非常小心地从另一个SAP会话控制一个SAP会话。您必须非常确定您要用脚本控制的会话不是执行报告的会话。

干杯

Stefan

谢谢Stefan,广西云服务器,非常感谢!

您好,Stefan,

我面临的问题是,在VBA编辑器中运行良好的代码,在执行ScriptCtrl'AddCode'Exporting#1=InclCode的调用方法时,有时会给出subrc=2。你知道我如何用语法检查这一点吗?或者在使用这样的代码时,我需要知道一些明显的东西:

函数启动处理(可选mysystem作为字符串)

Dim SapGuiAuto,WScript,msgcol

Dim objGui作为GuiApplication

Dim objConn作为GuiConnection

Dim objSess作为GuiSession

Dim objSBar作为GuiStatusbar

Dim W\u System

DimiCtr为整数

Dim W\ U Obj1,W\ U Obj2,W\ U Obj3,W\ U Obj4,iRow

Dim W\ U Func

Dim W\ U Src\ U Ord

Dim W\ U Ret为布尔值

Dim il,it

Dim W\ U conn,W\ U Sess

Dim W\ U事务,W\u Variant

Dim lineitems As Long

如果mysystem=""则

W\u System="ELS010"

否则

W\u System=mysystem

结束如果

如果W\u System=""则

退出功能

结束如果

如果非objSess为Nothing则

如果objSess.Info.system名称& objSess.Info.Client客户端=W\u系统则

退出功能

结束如果

结束如果

如果objGui为空则

设置SapGuiAuto=GetObject("SAPGUI")

设置objGui=SapGuiAuto.GetScriptingEngine

结束如果

对于il=0到objGui.Children.Count-1

设置W\u连接=孩子们(il+0)

对于it=0到W_连接儿童计数-1

设置W\u Sess=W_康涅狄格州儿童(it+0)

如果W_Sess.Info.SystemName系统名称&W型_Sess.Info.Client客户端=W\U系统和W_销售信息交易"SE38"则

设置对象=孩子们(il+0)

设置对象=目标儿童(it+0)

退出

结束如果

下一步

下一步

如果objSess为空则

MsgBox"没有到系统的活动会话"+W\u system+",或脚本未启用。",vbCritical+vbOKOnly

GoTo myerr

结束如果

如果IsObject(WScript)则

WScript.ConnectObject很明显,"开"

WScript.ConnectObject奥比吉,如果

设置对象栏=对象.findById("wnd[0]/sbar")

对象.findById("wnd[0]")。最大化

错误转到myerr

W\u Transaction="/nPC00\u M16\u CALC\u SIMU"

W\u Variant="DEMO1"

对象.findById("wnd[0]"),最大化

对象.findById("wnd[0]/tbar[0]/okcd").Text=W\u事务

对象.findById("wnd[0]")。sendVKey0

对象.findById("wnd[0]/tbar[1]/btn[17]"),按

对象.findById("wnd[1]/usr/txtV LOW").Text=W\u变量

对象.findById("wnd[1]/usr/txtENAME LOW").Text="

对象.findById("wnd[1]/usr/txtENAME LOW").SetFocus

对象.findById("wnd[1]/usr/txtENAME LOW").caretPosition=0

对象.findById("wnd[1]")。sendVKey8

对象.findById("wnd[0]/tbar[1]/btn[8]"),按

退出功能

myerr:

结束功能

Hello Jan,

此方法无法使用VBA代码。只能使用VBScript。例如,带有类型规范的Dim声明会生成错误。

,下载云服务器

文章来源:www.vmchk.com

 
你可能喜欢的: