Description
The following sample codes shows how to get a user codes list.
Public Sub TestMethod_GetUserList()
Dim vObj As SAPbobsCOM.SBObob
Dim rs As SAPbobsCOM.Recordset
Dim strResult As String
Dim errResult As String
Set vObj =m_company. GetBusinessObject(BoBridge)
Set rs =m_company. GetBusinessObject(BoRecordset)
Set rs = vObj.GetUserList()
strResult = RecorsetToText(rs)
errResult = GetLastErrorString()
OutputMessage(strResult, errResult)
End Sub
|
