USE c:\pcthcs\data\hdb01.dbf EXCLUSIVE do c:\pcthcs\prog\chuanhoa repl all mh with 'TC' brow for (len(allt(tntieuhoc))<4 and len(allt(tntieuhoc))>0) or (len(allt(tnthcs))<4 and len(allt(tnthcs))>0) brow for !empty(tnthcs) and empty(tntieuhoc) repl all dhlop0506 with dhlop 0607-1 for !empty(nambo) and empty(bo2006) and dhlop0607>0 and dhlop0506=0 repl all dhlop0506 with dhlop0607-1 for !empty(nambo) and empty(bo2006) and dhlop0607>0 and dhlop0506=0 repl all dhlop0405 with dhlop0506-1 for !empty(nambo) and empty(bo2006) and dhlop0506>0 and dhlop0405=0 repl all dhlop0304 with dhlop0405-1 for !empty(nambo) and empty(bo2006) and dhlop0405>0 and dhlop0304=0 repl all dhlop0203 with dhlop0304-1 for !empty(nambo) and empty(bo2006) and dhlop0304>0 and dhlop0203=0 repl all dhlop0102 with dhlop0203-1 for !empty(nambo) and empty(bo2006) and dhlop0203>0 and dhlop0102=0 repl all dhlop0001 with dhlop0102-1 for !empty(nambo) and empty(bo2006) and dhlop0102>0 and dhlop0001=0 REPL bo2001 with '6' ALL for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) and empty(bo2006) AND val(allt(allt(tmtieuhoc)))>1900 AND val(allt(allt(tmtieuhoc)))<2001 repl all dhlop0001 with 6 for dhlop0607=0 and val(allt(tntieuhoc))=2000 and empty(tnthcs) and empty(bo2006) repl all dhlop0001 with 6 for val(allt(tntieuhoc))<2001 and val(allt(tntieuhoc))>1980 do c:\pcthcs\prog\chuanhoa brow for val(allt(nambo))<2001 and empty(bo2001) and val(allt(nambo))>0 brow for tnthcs='2006' and dhlop0506<>9 brow for dhlop0607=0 and empty(tnthcs) and empty(tntieuhoc) and dhlop0506>5 brow for dhlop0607>0 and empty(he) brow for dhlop0607>5 and empty(tntieuhoc) brow for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) and empty(bo2006) brow for dhlop0607=0 and val(allt(tntieuhoc))>=2000 and empty(tnthcs) and empty(bo2006) brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs) brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs) brow for year(ngaysinh)=1994 and allt(hcdb)<>'KT' and dhlop0506=5 and val(tntieuhoc)<=2005 and val(tntieuhoc)>0 modi comm c:\pcthcs\prog\chuanhoa do c:\pcthcs\prog\chuanhoa brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs) do c:\pcthcs\prog\bieu1 brow for dhlop0607=0 and empty(bo2006) and !empty(tntieuhoc) and empty(tnthcs) brow for !empty(tntieuhoc) and empty(he) brow for !empty(tnthcs) and empty(he) brow for dhlop0607>0 and empty(he) brow for !empty(bo2006) and empty(he) brow for dhlop0506>0 and empty(he) brow for dhlop0405>0 and empty(he) brow for dhlop0304>0 and empty(he) brow for dhlop0203>0 and empty(he) brow for dhlop0607=0 and !empty(tntieuhoc) brow for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) brow for dhlop0607=0 and !empty(tntieuhoc) and empty(tnthcs) and empty(bo2006) brow for allt(hcdb)<>'KT' and !empty(tntieuhoc) and dhlop0607=0 and val(bo2006)>=0 and val(bo2006)<=5 and empty(tnthcs) brow for !inlist(allt(he),'PT','BT') brow for val(tnthcs)-val(tntieuhoc)>0 and val(tnthcs)-val(tntieuhoc)<4 and he='PT' brow for val(tnthcs)-val(tntieuhoc)>5 and val(tnthcs)-val(tntieuhoc)<14 and he='PT' brow for val(tnthcs)-val(tntieuhoc)=3 brow for val(tnthcs)-val(tntieuhoc)=1 brow for val(tnthcs)-val(tntieuhoc)=4 brow for val(tnthcs)-val(tntieuhoc)=3 and he='BT' brow for val(tnthcs)-val(tntieuhoc)=2 and he='BT' brow for val(tnthcs)-val(tntieuhoc)=1 and he='BT' brow for val(tnthcs)-val(tntieuhoc)=4 and he='BT' delete all for year(ngaysinh)=1987 and maxa='MTH' (xãa ®é tuæi) pack count to ts for maxa='NK' (tæng sè d©n theo x·)