LOCAL lcSeleRepo
lcSeleRepo = "REPORTS\" + ALLTRIM(repoList.cdosname) + ".FRX"
IF NOT FILE(lcSeleRepo)
=MESSAGEBOX(REPORTNOTFOUND_LOC, MB_ICONEXCLAMATION)
RETURN
ENDIF
DO CASE
CASE thisform.opgOutput.optScreen.Value = 1 && To screen
REPORT FORM (lcSeleRepo) PREVIEW
CASE thisform.opgOutput.optPrinter.Value = 1 && To printer
IF PRINTSTATUS()
REPORT FORM (lcSeleRepo) ;
TO PRINTER NOCONSOLE
ELSE
=MESSAGEBOX(PRINTERNOTREADY_LOC, MB_ICONEXCLAMATION)
ENDIF
CASE thisform.opgOutput.optFile.Value = 1 && To file
lcTextFile = ALLTRIM(Repolist.cDosName)+".TXT"
REPORT FORM (lcSeleRepo) TO FILE (lcTextFile) ASCII
=MESSAGEBOX(FILESAVEDAS_LOC + FULLPATH(lcTextFile), ;
MB_ICONINFORMATION, ;
TASTRADE_LOC)
ENDCASE