Click or drag to resize

IRelationActiveText Property

ActiveText The text for the active side of the relation, e.g. SuperOffice ASA owns SuperOffice Sweden AB, then owns is the active text

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

Property Value

Type: String
String – the text for the active part of the relation.
Examples

ActiveText

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

VB
Dim objSO
Set objSO = CreateObject("SuperOffice.Application") 
If not (objSO is nothing) Then
    set relation = objSO.CurrentRelation          
    if relation.sourcetable = 5 then 'the source of the relation is a company
        set cont = relation.sourcerecord
        Source =  cont.name
    else 'the source of the relation is a person, and source record would be 6
        set pers = relation.sourcerecord
        Source = pers.firstname & " " & pers.lastname & " from company " & pers.contact.name
    end if
    if relation.targettable = 5 then
        cont = relation.targetrecord
        target =  cont.name
    else
        set pers = relation.targetrecord
        target = pers.firstname & " " & pers.lastname & " from company " & pers.contact.name
    end if
    msg = Source & " " & relation.ActiveText & " " & target & vbCrLf
    msg = msg & target & " " & relation.PassiveText & " " & source & vbCrLf & vbCrLf
    msg = msg & "Relation type = " & cstr(relation.type)  & vbCrLf
    msg = msg & "Relation comment = " & relation.comment & vbCrLf
    msgbox msg,,"The current relation:"
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

See Also