Select RZSTOP Set Order To RGDSNum && RTE_NO + RTE_LET + DIRECTN + STR(SEQNO,4) + STR(NUMBER,3) Select * From RZStop ; where RZStop.SeqNo = 1 ; and EMPTY( RZStop.Time) ; into CURSOR csrSubjRZStop ; Order by Rte_No, Rte_Let, Directn, Number lnNoRecs = _TALLY Select csrSubjRZStop lnInterval = INT( lnNoRecs / 100) If lnInterval < 1 lnInterval = 1 EndIf lnDone = 0 Thisform.barProgressBar.Reset( lnNoRecs) Thisform.barProgressBar.Visible = .T. SCAN lcRteNo = PADR( RTE_NO, 6) lcDirectn = DIRECTN lcSeqNo = STR( SEQNO, 4) lcNumber = STR( NUMBER, 3) lcStopNo = PADR( STOP, 8) lcCounty = PADR( COUNTY, 2) Select DISTINCT TIME from RZStop ; where PADR( RZStop.RTE_NO, 6) = lcRteNo ; and RZStop.RTE_LET = "A" ; and RZStop.DIRECTN = lcDirectn ; and STR( RZStop.SeqNo, 4) = lcSeqNo ; and STR( RZStop.Number, 3) = lcNumber ; and PADR( RZStop.Stop, 8) = lcStopNo ; and PADR( RZStop.County, 2) = lcCounty ; and not EMPTY( RZStop.TIME) ; to SCREEN NOCONSOLE If _TALLY = 0 && no hits on this stop # - i.e. all Time values empty ...