oReport=NEW("SY_ReportEngine",%SYS_SS)
retval=oReport'OpenReport(%SYS_SS'PathRoot$+"REPORTS\"+"SO_Sales_Order_CUSTOM.rpt")
MSGBOX ("open report: "+str(retval))
!
retval=oReport'SetFormula("fSalesOrderNo", "'0000111'")
MSGBOX ("formula: "+str(retval))
!
retval=oReport'SetSelectionFormula("{SO_SalesOrderHeader.SalesOrderNo} = '0000103'")
MSGBOX ("Selection: "+str(retval))
!
LET retVal=oReport'Preview()
msgbox "done"