Click or drag to resize

ITravellersGetNext Method

Return next traveller Returns the next object in a SOTravelInfo collection

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
SOTravelInfo GetNext()

Return Value

Type: SOTravelInfo
SOTravelInfo – the next travelinfo object in the iteration
Examples

GetNext

This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.

VB
Dim objSO
Dim Travellers
Dim Traveller
Set objSO = CreateObject("SuperOfficeDB.Database")
If not (objSO is nothing) Then
    a = objSO.Login("<userID>", "<password>")
    set Travellers = objSO.TravelInterface.GetTravellers
    msgbox travellers.trlogmax, vbInformation + vbOkOnly, "TrLogMax"
    Set traveller = travellers.GetFirst   
    while not travellers.EOF
        msgbox traveller.AreaId, vbinformation + vbOkOnly, "AreaID"
        msgbox traveller.AreaName, vbinformation + vbOkOnly, "AreaName"
        msgbox traveller.AsyncEnabled, vbinformation + vbOkOnly, "AsyncEnabled"
        msgbox traveller.DBVariant, vbinformation + vbOkOnly, "DBVariant"
        msgbox traveller.EncryptionVariant, vbinformation + vbOkOnly, "EncryptionVariant"
        msgbox traveller.ID, vbinformation + vbOkOnly, "ID"
        msgbox traveller.LastReceivedDate, vbinformation + vbOkOnly, "LastReceivedDate"
        msgbox traveller.LastReceivedLog, vbinformation + vbOkOnly, "LastReceivedLog"
        msgbox traveller.LastReceivedNum, vbinformation + vbOkOnly, "LastReceivedNum"
        msgbox traveller.LastSentDate, vbinformation + vbOkOnly, "LastSentDate"
        msgbox traveller.LastSentLog, vbinformation + vbOkOnly, "LastSentLog"
        msgbox traveller.LastSentNum, vbinformation + vbOkOnly, "LastSentNum"
        msgbox traveller.Name, vbinformation + vbOkOnly, "Name"
        set Traveller =travellers.getNext
    wend
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also