oleObject i_ole_Conn,i_ole_FxnCtrl //用OLE定义对象
long ll_status //通过OLE建立的SAP函数成功或失败 (0-成功,否则失败)
boolean lb_logon //判断登录SAP成功或失败 (true - 成功,false - 失败)
i_ole_FxnCtrl = create oleobject
ll_status = i_ole_FxnCtrl.ConnectToNewObject ("sap.functions") //建立SAP连接对象
IF ll_status <> 0 THEN
gf_errmsg('创建SAP连接OLE出错!错误代码:'+string(ll_status))
destroy i_ole_FxnCtrl //释放资源
return -1
End if
//设置连接参数
i_ole_Conn = i_ole_FxnCtrl.Connection()
i_ole_Conn.applicationserver = is_ipaddress //SAP服务器IP地址
i_ole_Conn.SYSTEMNUMBER = is_systemnumber //系统编号
i_ole_Conn.codepage = is_codepage //编码
i_ole_Conn.client = is_client //集团
i_ole_Conn.user = is_userid //登录帐号
i_ole_C