Earning - changing this affects Amount and EarningPercent
The profit on a sale, the amount left after the total cost of the sale is deducted
Namespace:
SuperOffice.COM.SuperOfficeDB
Assembly:
SuperOfficeDB.Interop (in SuperOfficeDB.Interop.dll) Version: 8.0.0.0
Syntaxint Earning { get; set; }
Property Earning As Integer
Get
Set
Dim instance As ISale
Dim value As Integer
value = instance.Earning
instance.Earning = value
property int Earning {
int get ();
void set (int value);
}
Property Value
Type:
Int32Long – the total earning amount.
ExamplesEarning
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
Dim objSO
Set objSO = CreateObject("SuperOffice.Application")
If not (objSO is nothing) Then
MsgBox "The earning on this sale: " & objSO.CurrentSale.Earning, vbInformation + vbOKOnly, "SuperCOM"vbOKOnly, "SuperCOM"
else
MsgBox "Unable to connect to database"
end if
Set objSO = Nothing
See Also