Click or drag to resize

ISaleReasonLost Property

The reason why the sale was lost Reason is a list defined by the database administrator. It may be used to define different reasons for losing a sale the field only appears when the status is changed to "lost". For example, "our price was too high". New in Seven.

Namespace:  SuperOffice.COM.SuperOfficeDB
Assembly:  SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntax
IListTextItem ReasonLost { get; set; }

Property Value

Type: IListTextItem
IListTextItem - A reference to the iListtextitem object
Examples

Reason

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

VB
Dim objSO
Dim result
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
    MsgBox "Current sale reason: " & objSO.CurrentSale.reason.text, vbInformation + vbOKOnly, "SuperCOM"
else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing

VB
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then

        mySale = objSO.CurrentSale
        msg = msg & "ActiveLinks:" & mySale.ActiveLinks & vbCrLf
        msg = msg & "CanBeCompleted:" & mySale.CanBeCompleted & vbCrLf
        msg = msg & "ExternalFieldChanged:" & mySale.ExternalFieldChanged & vbCrLf
        'fails if sale is not guided
        msg = msg & "GetSuggestedAppointments:" & mySale.GetSuggestedAppointments(mySale.Identity).Item(0).Text & vbCrLf
        'fails if sale is not guided
        msg = msg & "GetSuggestedDocuments:" & mySale.GetSuggestedDocuments(mySale.Identity).Item(0).Text & vbCrLf
        msg = msg & "NextDueDate:" & mySale.NextDueDate & vbCrLf
        msg = msg & "PostItText:" & mySale.PostItText & vbCrLf
        msg = msg & "ReasonLost:" & mySale.ReasonLost.Text & vbCrLf
        msg = msg & "ReasonSold:" & mySale.ReasonSold.Text & vbCrLf
        msg = msg & "ReasonStalled:" & mySale.ReasonStalled.Text & vbCrLf
        msg = msg & "ReopenDate:" & mySale.ReopenDate & vbCrLf
        msg = msg & "SaleType:" & mySale.SaleType.Text & vbCrLf
        msg = msg & "Stage:" & mySale.Stage.Text & vbCrLf
        msg = msg & "ValidationMessage:" & mySale.ValidationMessage & vbCrLf
        MsgBox msg, vbInformation + vbOKOnly, "SuperCOM"

else
    MsgBox "Unable to connect to database"
end if
Set objSO = Nothing
See Also