set strictdate to 0 >select tmpperf >go top >do while !eof() > select CUSTWAIT > go top > store 0 to stand1, sample1, stdm, smpm,stdy,smpy > do while !eof() > if airport=tmpperf.airport and carrier=tmpperf.carrier and loc_code = alltrim(tmpperf.cfield1) > stand1=stand1+iif(m_stand='P'and event_date >=m.from,1,0) > sample1=sample1+iif(m_stand#'-' and event_date >=m.from,1,0) > stdm=stdm+iif(m_stand='P' and event_date >= m.prev_month,1,0) > smpm=smpm+iif(m_stand#'-' and event_date >= m.prev_month,1,0) > stdy=stdy+iif(m_stand='P' and event_date >= m.prev_year,1,0) > smpy=smpy+iif(m_stand#'-' and event_date >= m.prev_year,1,0) > endif > skip > enddo > select tmpperf > replace cfield2 with allt(str(sample1)),cfield3 with pct(stand1,sample1),; > cfield4 with pct(stdm,smpm),cfield5 with pct(stdy,smpy),; > cfield1 with iif(seek(allt(tmpperf.cfield1),"QTLOCAT"),QTLOCAT.NAME,"??????") > skip >enddo