pb 与SAP的连接

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