Init Method
Object: Dataenvironment
Expand/Collapse source code of procedure Init Source Code
#DEFINE C_TASTRADEDIR_LOC	"Samples\Tastrade\"		&& Location of Tastrade, off of HOME()

LOCAL llContinue

IF WEXIST("Project Manager")
	*- assume that TasTrade isn't running, since it closes the Project Manager window
	DO FORM (HOME() + C_TASTRADEDIR_LOC + "forms\gettitle") TO cTitle
ELSE
	DO FORM forms\gettitle TO cTitle
ENDIf
IF EMPTY(cTitle)
  RETURN .F.
ENDIF

IF UPPER(cTitle) = "ALL"
  cTitle = ""
ENDIF

this.OpenTables()
llContinue = !(_tally = 0)
IF !llContinue
  =MESSAGEBOX(NOTHINGTOPRINT_LOC, ;
              MB_ICONEXCLAMATION, ;
              TASTRADE_LOC)
  this.CloseTables()
ENDIF

*=REQUERY()
RETURN llContinue