set strictdate to  0
select tmpperf
SCAN
   store 0 to stand1, sample1, stdm, smpm,stdy,smpy
   select CUSTWAIT
   LOCATE FOR 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)
   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,"??????")
endscan