请问在Powerbuilder中如何调用SAP函数

请问在Powerbuilder中如何调用SAP函数

Powerbuilder connect to sap Integer Destination_System,sapok String ?compcode long ? ?l_rowcnt OleObject objBAPIControl ?//Function Control (Collective object) OleObject sapConnection ? //Connection object OleObject objUserList OleObject st_rtn objBAPIControl = Create OleObject sapok =objBAPIControl.ConnectToNewObject( "SAP.Functions" ) objBAPIControl.Connection.Destination = "CQA" objBAPIControl.Connection.Client = "604" objBAPIControl.Connection.Language = "EN" objBAPIControl.Connection.System = "R/3" objBAPIControl.Connection.SystemNumber = "00" objBAPIControl.Connection.Applicati objBAPIControl.Connection.User = "88888" objBAPIControl.Connection.Password = "88888" objBAPIControl.Connection.AutoLogon = True //Set sapConnection = objBAPIControl.Connection // // Logon with initial values // ActiveSheet is the sheet calling the Macro / Cells(x, y) refers to the row, column in the spreadsheet // If objBAPIControl.Connection.Logon(0, True) True Then ? MessageBox ("Cannot logon!","Logon Failed!") Else MessageBox ("Logon!","Logon Successful!") End If objUserList = objBAPIControl.Add("RFC_READ_TABLE") //objUserList.exports.USERNAME = "xlfan" objUserList.Exports("QUERY_TABLE","T001") ? //objUserList.Exports.item[1] = "MAKT" IF objUserList.Call() = True Then MessageBox ("Call RFC","Call RFC Successful!") st_rtn = objUserList.tables("DATA") l_rowcnt = st_rtn.rowcount() compcode = st_rtn.Value(1,1) MessageBox("@@@@",compcode) Else MessageBox ("Cannot Call RFC!","Call RFC Failed!") End if //Set objUserDetail = objBAPIControl.Add("BAPI_USER_GET_DETAIL") PB 传Table参数给SAP oleObject ?in_para objUserList = objBAPIControl.Add("RFC_READ_TABLE") objUserList.Exports("QUERY_TABLE","T001") ? //传Table 参数 Start in_para = objUserList.tables("OPTIONS") in_para.AppendRow() in_para.Value(1,1," BUKRS = 'HU99'") in_para.AppendRow() in_para.Value(2,1," OR BUKRS = 'CNFT'") //传Table 参数 End IF objUserList.Call() = True Then MessageBox ("Call RFC","Call RFC Successful!") st_rtn = objUserList.tables("DATA") l_rowcnt = st_rtn.rowcount() compcode = st_rtn.Value(2,1) MessageBox(string(l_rowcnt),mid(compcode,4,4)) Else MessageBox ("Cannot Call RFC!","Call RFC Failed!") End if