> ldSEODBeginDate = Thisform.p_seodbegindate > lcSEODBeginTime = Thisform.p_seodbegintime > ldSEODEndDate = Thisform.p_seodenddate > lcSEODEndtime = Thisform.p_seodendtime > > ltSEODBeginDate = DATETIME(YEAR(ldSEODBeginDate),MONTH(ldSEODBeginDate),DAY(ldSEODBeginDate), ; > VAL(LEFT(lcSEODBeginTime,2)),VAL(RIGHT(lcSEODBeginTime,2)),0) > ltSEODEndDate = DATETIME(YEAR(ldSEODEndDate),MONTH(ldSEODEndDate),DAY(ldSEODEndDate), ; > VAL(LEFT(lcSEODEndTime,2)),VAL(RIGHT(lcSEODEndTime,2)),0) > lcRRevenueFilter = " (DATETIME(YEAR(summdate),MONTH(summdate),DAY(summdate),VAL(LEFT(summtime,2)),VAL(RIGHT(summtime,2))) > ltSEODBeginDate) AND " + ; > "(DATETIME(YEAR(summdate),MONTH(summdate),DAY(summdate),VAL(LEFT(summtime,2)),VAL(RIGHT(summtime,2))) <= ltSEODEndDate)" > DO CASE > CASE NOT EMPTY(ldSEODBeginDate) AND NOT EMPTY(lcSEODBeginTime) AND NOT EMPTY(ldSEODEndDate) AND NOT EMPTY(lcSEODEndTime) > IF ldSEODBeginDate = CTOD('01/01/2010') AND lcSEODBeginTime = '00:01' > lcDateRange = DTOC(ldSEODEndDate) + ' - ' + lcSEODEndTime > ELSE > lcDateRange = DTOC(ldSEODBeginDate) + ' - ' + lcSEODBeginTime + ' Thru ' + DTOC(ldSEODEndDate) + ' - ' + lcSEODEndTime > ENDIF > CASE EMPTY(ldSEODBeginDate) AND EMPTY(lcSEODBeginTime) AND NOT EMPTY(ldSEODEndDate) AND NOT EMPTY(lcSEODEndTime) > lcDateRange = DTOC(ldSEODEndDate) + ' - ' + lcSEODEndTime > ENDCASE >ENDIF > > >*Here I am just putting a test filter in .... normally it would be >*SET FILTER TO &lcRRevenueFilter > >SET FILTER TO DATETIME(YEAR(summdate),MONTH(summdate),DAY(summdate),VAL(LEFT(summtime,2)),VAL(RIGHT(summtime,2)),0) > ltSEODBeginDate >GO TOP >>