ISaleCost Property |
Namespace: SuperOffice.COM.SuperOfficeDB
Cost
This text may be copied to the notepad, and saved as a *.vbs file. Remember to change the login information.
set app = CreateObject("Superoffice.application") set sale = app.Database.CreateSale sale.AmountAsFloat = 100.57 sale.cost = 10.57 msg = msg & "Amount = " & sale.AmountAsFloat & ". sale cost = " & sale.cost & vbCRLF msg = msg & "Earning = " & sale.Earning & ". Sale earning percent = " & sale.earningpercent msgbox msg ,, "Sale"