Click or drag to resize

ITravelInfoLastSentDate Property

LastSentDate Returns either the date/time a normal travel user left the central database (took a local update) or the last time a up/down file was sent to the central / async travel database or satellite database.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
DateTime LastSentDate { get; }

Property Value

Type: DateTime
Date - formatted as short date format and time format, from the control panel.
Examples

LastSentDate

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