Click Method
Object:frmreports.cmdRun
Expand/Collapse source code of procedure cmdRun.Click Source Code
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