>lclocal = Justpath(_Screen.cSetupIniName) >lcassi = Forcepath("employsignature.htm", lclocal) >If File(lcdest) > Erase lcdest >Endif >lclib = "_reportlistener.vcx" >If Version(2)=2 > lclib = Forcepath("_reportlistener.vcx",Home()+"\FFc\") >Endif >oHTMLReport = Newobject("HtmlListener", lclib) >oHTMLReport.ListenerType = HTMLListener >oHTMLReport.TargetFileName = lcdest >IF pcalias="pedcompr" && a try to select to work around > SELECT copedite >ENDIF >SET COVERAGE TO log.txt > >*SET STEP ON >*WAIT WINDOW "I'm here 1" >Report Form (lcrepo) &options &forexpr; > TO Printer Prompt Noconsole Object oHTMLReport >*WAIT WINDOW "I'm here 2" >SET COVERAGE TO >>