#DEFINE C_TASTRADEDIR_LOC "Samples\Tastrade\" && Location of Tastrade, off of HOME()
#INCLUDE "INCLUDE\TASTRADE.H"
LOCAL loGetInvoice, ;
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\getinv") NAME loGetInvoice LINKED
ELSE
DO FORM forms\getinv NAME loGetInvoice LINKED
ENDIF
llContinue = loGetInvoice.lRetVal
IF llContinue
dDateFrom = loGetInvoice.dDateFrom
dDateTo = loGetInvoice.dDateTo
this.OpenTables()
llContinue = !(_tally = 0)
IF !llContinue
=MESSAGEBOX(NOTHINGTOPRINT_LOC, ;
MB_ICONEXCLAMATION, ;
TASTRADE_LOC)
this.CloseTables()
ENDIF
ENDIF
RELEASE loGetInvoice
RETURN llContinue