SET DEFAULT TO E:\HOC TAP\THUD
SET DEFAULT TO E:\BAI TAP

SET DEFAULT TO E:\BAI TAP
SET DEFAULT TO E:\
CREATE TABLE SUDUNGDIEN.DBF (HO TEN C(30)
CREATE TABLE SUDUNGDIEN.DBF (HO TEN C(30))
CREATE TABLE SUDUNGDIEN.DBF (HO TEN C(30)),MACT C(10)
CREATE TABLE SUDUNGDIEN.DBF (HO TEN C(30)),MACT C(10),
CREATE TABLE SUDUNGDIEN.DBF (HO TEN C(30)),MACT C(10).
CREATE TABLE SUDUNGDIEN.DBF (HO TEN C(30)),MACT C(10))
CREATE TABLE SUDUNGDIEN.DBF HO TEN C(30),MACT C(10)
CREATE TABLE SUDUNGDIEN.DBF HOTEN C(30),MACT C(10)
CREATE TABLE SUDUNGDIEN.DBF HOTENC(30),MACTC(10)
CREATE TABLE SUDUNGDIEN.DBF HOTENC(30),MACTCC(10)
CREATE TABLE SUDUNGDIEN.DBF hoten c(30).mact c(30)
CREATE TABLE SUDUNGDIEN.DBF hoten c(30), mact c(30)
CREATE TABLE SUDUNGDIEN.DBF (hoten c(30), mact c(30))
BROWSE
CREATE TABLE SUDUNGDIEN.DBF hoten c(30), mact c(30)
BROWSE
CLEAR
SHOW
BROWSE
CREATE TABLE SUDUNGDIEN.DBF (HOTEN C(30),MACT C(10) MACN C(10) THANG N(2) NAM N(4) CSD N(5) CSC N(5) SSD N(3) STPT N(7))
CREATE TABLE SUDUNGDIEN.DBF (HOTEN C(30),MACT C(10),MACN C(10),THANG N(2),NAM N(4),CSD N(5),CSC N(5),SSD N(3),STPT N(7))
BROWSE

BROWSE
CREATE TABLE SUDUNGDIEN.DBF (HOTEN C(30),MACT C(10),MACN C(10),THANG N(2),NAM N(4),CSD N(5),CSC N(5),SSD N(3),STPT N(7))
BROWSE
APPEND
REPLACE hoten
BROWSE
APPEND
BROWSE
DELETE FOR 1
DELETE FOR "1"
DELETE FOR (1)
DELETE FOR 2
DELETE FOR "2"
PACK
BROWSE
DELETE FOR
DELETE FOR HOTEN="1"
DELETE FOR HOTEN="2"
PACK
BROWSE
APPEND
BROWSE
APPEND
BROWSE
APPEND
BROWSE
PACK
BROWSE
APPEND
BROWSE
APPEND
CREATE TABLE SUDUNGDIEN.DBF (HOTEN C(30),MACT C(10),MACN C(10),THANG N(2),NAM N(4),CSD N(5),CSC N(5),SSD N(3),STPT N(7))
BROWSE
APPEND
BROWSE
APPEND
BROWSE
APPEND
BROWSE
APPEND
BROWSE
APPEND
CLEAR
BROWSE
APPEND
BROWSE
MODIFY STRUCTURE
BROWSE
MODIFY STRUCTURE
BROWSE
APPEND
BROWSE
DELETE FOR
BROWSE
APPEND
BROWSE
DELETE FOR Hoten="N,B,V"
DELETE FOR Hoten="N"
DELETE FOR Hoten="B"
PACK
BROWSE
REPLACE ALL ssd WITH csd-csc
REPLACE ALL ssd WITH -csd-csc
REPLACE ALL ssd WITH -csd+csc
REPLACE ALL dm 50
REPLACE ALL dm=50
REPLACE ALL dm="50"
REPLACE ALL dm WITH "50"
REPLACE ALL dm WITH 50
REPLACE ALL ssd WITH -csd+csc
REPLACE ALL stpt  WITH (iif ssd<dm,ssd*500,o)
REPLACE ALL stpt  WITH (iif ssd<dm,ssd*500,0)
REPLACE ALL stpt  WITH iif ssd<dm,ssd*500,0
REPLACE ALL stpt  WITH iif ssd<dm,ssd*500,0)
REPLACE ALL stpt  WITH iif ssd < dm,ssd*500,0)
REPLACE ALL stpt  WITH iif ssd<dm ssd*500 0)
REPLACE ALL stpt  WITH ssd*500
REPLACE ALL stpt  WITH iif ssd<dm,ssd*500,0
REPLACE ALL stpt  WITH iif ssd<dm,ssd*500,0)
REPLACE ALL stpt  WITH (iif ssd<dm,ssd*500,0))

REPLACE ALL stpt  WITH (iif ssd<dm,ssd*500,0)
REPLACE ALL stpt  WITH iif ssd<dm,ssd*500,0)
LIST record 5
^w
EDIT stpt FOR hoten="GD4"
CLEAR
BROWSE
CLEAR ALL stpt
BROWSE
CLEAR ALL stpt with 0
BROWSE
APPEND
BROWSE
dsdfffvd
BROWSE
REPLACE ALL stpt WITH 0
iif ssd>dm,stpt=1,0
IIF(ssd>dm,stpt=1,0)
IIF (ssd>dm,stpt=1,0)
BROWSE
IIF (ssd>dm,stpt="1",0)
BROWSE
IIF (Ssd>Dm,Stpt=1,0)
BROWSE
REPLACE ALL stpt WITH 123
REPLACE ALL stpt WITH 0
DELETE FOR stpt=1
PACK

PACK
IIF(ssd>dm,2,1)
BROWSE
IIF(ssd>dm, 2, 1)
BROWSE
IIF(ssd>dm, stpt=2, stpt=1)
IIF(ssd>dm,stpt=2,stpt=1)
BROWSE
REPLACE ALL stpt WITH IIF(ssd>dm,stpt=2,stpt=1)
REPLACE ALL stpt WITH IIF(ssd>dm,2,1)
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,(IIF(ssd-dm)<100)
REPLACE ALL ssd WITH -csd+csc
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,(IIF(ssd-dm)<100,dm*500+(ssd-dm)*700,dm*500+100*700+(ssd-100)*1000)
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,(IIF(ssd-dm)<100,dm*500+(ssd-dm)*700,dm*500+100*700+(ssd-100)*1000))
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,0
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,0)
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,iif dm<ssd<dm+100),dm*100+(100-dm)*700,dm*500+100*700+(ssd-100-dm)*1000)
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(dm<ssd<dm+100),dm*100+(100-dm)*700,dm*500+100*700+(ssd-100-dm)*1000))
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(dm<ssd<dm-100,dm*500+(ssd-dm)*700,0
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd<dm-100,dm*500+(ssd-dm)*700,0
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd<dm+100,dm*500+(ssd-dm)*700,0
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd>dm,dm*500+(ssd-dm)*700,0
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd>dm,dm*500+(ssd-dm)*700,0)
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd>dm,dm*500+(ssd-dm)*700,0))
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd>dm,dm*500+(ssd-dm)*700,0)))
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,IIF(ssd>dm,dm*500+(ssd-dm)*700,0),0)
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,(IIF(ssd>dm,dm*500+(ssd-dm)*700,0)))
)

)
REPLACE ALL stpt WITH IIF((ssd<dm,500*ssd,2)
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,2)
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,replace ALL stpt WITH 2)
REPLACE ALL stpt WITH IIF(ssd<dm,500*ssd,)

BROWSE
CLEAR
BROWSE
LIST for thang=2
BROWSE
USE cn01.dbf
BROWSE
USE sudungdien.dbf
BROWSE
COPY TO cn02 FOR thang=2
USE cn02
BROWSE
LIST for thang=2
CLEAR
USE sudungdien.dbf
LIST resord 5
LIST resord5
GOTO 5
BROWSE
GOTO 3
BROWSE
GOTO 5
BROWSE
GOTO 5 top
GOTO TOP list next 5 fields ssd,stpt
GOTO TOP 5 for fields ssd,stpt
GOTO TOP 5 fields ssd,stpt
GOTO TOP 5

GOTO TOP 5
GOTO TOP
BROWSE
GOTO TOP
LIST FILES
BROWSE
LIST FILES ssd
LIST FILES
CLEAR
LIST FILES
LIST next5
LIST next
CLEAR
BROWSE
REPLACE stpt WITH 500*ssd FOR (csc-csd)<dm
REPLACE ALL stpt WITH 0
REPLACE stpt WITH 500*ssd FOR (csc-csd)<dm
REPLACE stpt WITH 500*dm+(ssd-dm)*700 FOR dm<=ssd<=dm+100
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd<(dm+100)
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR ssd<(dm+100)
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd<(dm+100)
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd.and.<(dm+100)
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd.and.ssd<(dm+100)
REPLACE stpt WITH 500*ssd FOR (csc-csd)<dm
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd.and.ssd<(dm+100)
REPLACE stpt WITH (500*dm+100*700+(ssd-dm-100)*1000) FOR ssd>(dm+100)
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd.and.ssd=<(dm+100)
REPLACE stpt WITH 500*ssd FOR (csc-csd)=<dm
REPLACE stpt WITH (500*dm+(ssd-dm)*700) FOR dm<ssd.and.ssd=<(dm+100)
REPLACE stpt WITH (500*dm+100*700+(ssd-dm-100)*1000) FOR ssd>(dm+100)
BROWSE
LIST
BROWSE
EDIT
BROWSE
REPLACE ALL ssd WITH -csd+csc
REPLACE stpt WITH (500*dm+100*700+(ssd-dm-100)*1000) FOR ssd>(dm+100)
PACK
BROWSE
EDIT
CLEAR
BROWSE
RECALL
BROWSE
INDEX on csd.idx FOR cs
BROWSE
USE default to E:\HOCTAP\FOXPRO
USE default to E:\ HOCTAP\ FOXPRO
USE default to E:\ HOCTAP
USE default to E:\HOCTAP
USE default to E:\FOXPRO
BROWSE
USE default to E:\
BROWSE
USE default to E:\
USE default to E:\FOXPRO
USE
USE sudungdien
BROWSE
CREATE TABLE QLLCB.dbf (STT N(2),HODEM C(25),TEN C(8),MPCT C(10),MACV C(10),NS D(8),NAM L(1),HSL N(4,2),NLL D(8),PCAN N(6),BHXH N(6),BHYT N(6),TSTDL N(7))
BROWSE
APPEND
BROWSE
REPLACE ALL FOR NS WITH NLL
REPLACE ALL NLL FOR NS
REPLACE ALL NLL WITH NS
REPLACE ALL NLL WITH (NS+3)
USE
BROWSE
USE QLLCB.DBF
BROWSE
LIST STRUCTURE
CLEAR
LIST STRUCTURE
BROWSE FIELDS HODEM,TEN,MACT FOR NAM
BROWSE FIELDS HODEM,TEN,MPCT FOR NAM
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR MPCT="01"
BROWSE FIELDS HODEM,TEN,MPCT FOR YEAR(NS)=1980
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR YEAR NS=1980
BROWSE FIELDS HODEM,TEN,MPCT FOR YEAR (NS)=1980
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR YEAR (NS)=1980
BROWSE FIELDS HODEM,TEN,MPCT FOR NAM=.F. AND YEAR (NS)>1980
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR MONTH (NS)=3
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR (NAM AND 2005-YEAR(NS)=60) OR (NAM=.F. AND 2005-YEAR(NS)=55)
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR (NAM AND 2005-YEAR(NS)=60) OR (NAM=.F. AND 2005-YEAR(NS)=55)
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR (NAM AND 2005-YEAR(NS)=60) OR (NAM=.F. AND 2005-YEAR(NS)=55)
BROWSE
GOTO TOP NEXT 3
CLEAR
GOTO TOP ' NEXT 3
GOTO TOP | NEXT 3
RECORD 3
RECORD3
RECORD
GOTO LIST NEXT 3
GOTO LIST NEXT3
LIST NEXT 3
LIST .NOT. NEXT 3
LIST (NEXT 3)=.F.
CLEAR
BROWSE
REPLACE ALL NLL WITH YEAR(NLL)+60
REPLACE ALL NLL WITH (YEAR(NLL)+60)
REPLACE ALL NLL WITH (YEAR(NLL)
REPLACE ALL NLL WITH YEAR(NLL)
REPLACE ALL NLL WITH 2005
REPLACE ALL NLL WITH 02/01/2005
REPLACE ALL NLL FOR 02/01/2005
LIST NLL WITH YEAR(NLL)=2005
LIST ALL NLL WITH YEAR(NLL)=2005
LIST FIELDS NLL WITH YEAR(NLL)=2005
LIST ALL NLL WITH YEAR(NLL)=2005 NLL WITH YEAR(NLL)=2005
BROWSE ALL NLL WITH YEAR(NLL)=2005
BROWSE RECORD 5
list RECORD 5
BROWSE RECORD 5
CLEAR
USE
LIST STRUCTURE
USE
BROWSE
BROWSE FIELDS HODEM,TEN,MPCT FOR (NAM AND 2005-YEAR(NS)=60) OR (NAM=F AND 2005-YEAR(NS)=55)
BROWSE FIELDS HODEM,TEN,MPCT FOR (NAM AND 2005-YEAR(NS)=60) OR (NAM=.F AND 2005-YEAR(NS)=55)
BROWSE FIELDS HODEM,TEN,MPCT FOR (NAM AND 2005-YEAR(NS)=60) OR (NAM=.F. AND 2005-YEAR(NS)=55)
BROWSE
LIST .NOT. NEXT 3
BROWSE FIELDS HODEM,TEN,MPCT FOR NAM=.F. AND YEAR (NS)>1980
BROWSE
GOTO TOP "LIST NEXT 3"
BROWSE LIST RECORD5
BROWSE LIST RECORD 5
GOTO RECORD 5
LIST
CLEAR
GOTO RECORD 5
LIST RECORD
GOTO 5
BROWSE RECORD 5
BROWSE RECORD NEXT 3
BROWSE NEXT 3
BROWSE RECORD 5
BROWSE
REPLACE RECORD 3 MPCT WITH "P01"
REPLACE STT=3 MPCT WITH "P01"
REPLACE STT="3" MPCT WITH "P01"
REPLACE STT="3" FOR MPCT WITH "P01"
REPLACE FOR STT="3" MPCT WITH "P01"

REPLACE FOR STT="3" MPCT WITH "P01"
REPLACE RECORD 3 MPCT WITH "P01"
REPLACE ALL PCAN WITH 200000
REPLACE ALL bhxh WITH 5%*290000
REPLACE ALL bhxh WITH 5/100*290000
REPLACE ALL bhxh WITH 5/100*290000*hsl
REPLACE ALL bhyt WITH 1/100*290000
REPLACE ALL bhyt WITH 1/100*290000*hsl
REPLACE ALL tstdl WITH 290000*hsl+pcan-bhxh-bhyt
COPY TO QLLCBX.dbf
COPY TO QLLCBX.dbf FOR nam=.t.
COPY TO QLLCBn.dbf FOR nam=.t.
BROWSE qllcbn
BROWSE qllcbn.dbf
USE cbn.dbf
USE qllcbn
BROWSE
USE qllcbx
BROWSE
USE qllcb
BROWSE
APPEND
BROWSE
APPEND
BROWSE
DELETE record 11
PACK
BROWSE
GOTO BOTTOM .skip-2. list rest
GOTO BOTTOM .skip-2. delete rest
GOTO BOTTOM ,kip-2,delete rest
GOTO BOTTOM
SKIP -2
LIST rest
SKIP -2
BROWSE
GOTO BOTTOM
SKIP -2
DELETE REST
DELETE record 3
RECALL RECORD 3
RECALL all
USE qllcbx
BROWSE
GOTO BOTTOM
SKIP -2
DELETE REST
DELETE record 3
RECALL RECORD 3
PACK
BROWSE
ZAP
BROWSE
USE qllcb
BROWSE
CLEAR
BROWSE
SORT TO tstdl ON tstdl/a
USE tstdl
BROWSE
USE qllcb
BROWSE
INDEX ON HSL TO HSL.IDX FOR MPCT="P01"
USE HSL.IDX
LIST
BROWSE HSL.IDX
USE qllcb
BROWSE
SORT TO P01 ON hsl/d FOR mpct="p01"
BROWSE
USE p01
BROWSE
USE qllcb
BROWSE
SORT TO P01 ON hsl/d FOR mpct="P01"
USE P01
BROWSE
SORT TO P01 ON hsl/dc FOR mpct="P01"
USE P01
BROWSE
USE qllcb
SORT ON mpct/A,HSL/A TO mpctALPHABET
USE mpctALPHABET
BROWSE
SORT TO NGAYSINH ON MPCT/D,NS/D
BROWSE
USE NGAYSINH
BROWSE
SORT TO NGAYSINH ON MPCT/A,NS/A
USE NGAYSINH
BROWSE
USE mpctALPHABET
USE qllcb
SORT TO NGAYSINH ON MPCT/A,NS/A
USE NGAYSINH
BROWSE
USE qllcb
BROWSE
INDEX on mpct/a,ns/a TO mpct.idx
INDEX on hsl TO hsl.idx
BROWSE hsl.idx
use hsl.idx
BROWSE
SORT ON hsl TO hsl
USE hsl
BROWSE
GOTO RECORD 5
BROWSE
SKIP -4
LIST rest
BROWSE
GOTO top
BROWSE
GOTO BOTTOM
skip-4
LIST rest
BROWSE
USE qllcb
BROWSE
COUNT TO socanbop02 FOR mpct="P02"
?"can bo phong P02 la: " ,socanbop02
?"can bo phong P02 la: " socanbop02
?can bo phong P02 la: , socanbop02
?"can bo phong P02 la": , socanbop02
?"can bo phong P02 la: ", socanbop02
?"so can bo phong P02 la: ", socanbop02
COUNT TO c37 FOR mpct="P01" AND (2010-YEAR(ns))<25
?"so can bo duoi 25 tuoi cua phong 01 la: ",c37
BROWSE
COUNT TO c37 FOR mpct="P01" AND (2010-YEAR(ns))<25
?"so can bo duoi 25 tuoi cua phong 01 la: ",c37
COUNT TO nam FOR nam=t
COUNT TO nam FOR nam=.T.
COUNT TO nam FOR nam=.f.
COUNT TO nam FOR nam=.T.
COUNT TO nu FOR nam=.f.
?"tong so nam la: " ,nam
BROWSE
COUNT TO nam FOR nam=T
COUNT TO nam FOR nam="T"
COUNT TO nam FOR nam=.t.
?"tong so nam la: ", nam
COUNT TO nam FOR nam
?"tong so nam la: ", nam
COUNT TO nam FOR nam
?"tong so nam la: ", nam
?"tong so nam la: ", .not.nam
BROWSE
COUNT TO tongnam FOR nam
?"tong so nam la: ", tongnam
COUNT TO tongnu FOR .not.nam
?"tong so nu la: ", tongnu
BROWSE
?"chenh lenh nam nu la: "tongnam-tongnu
?"chenh lenh nam nu la: ",tongnam-tongnu
BROWSE
SUM tstdl TO tienluong
?"tien luong la",tienluong
SUM tstdl
SUM tstdl,pcat
CLEAR
BROWSE
SUM tstdl,pcan,bhxh,bhyt
SUM tstdl,pcan,bhxh,bhyt FOR mpct="P02"
BROWSE SUM tstdl,pcan,bhxh,bhyt FOR mpct="P02"
list SUM tstdl,pcan,bhxh,bhyt FOR mpct="P02"
SUM tstdl,pcan,bhxh,bhyt FOR mpct="P02"
AVERAGE tstdl
AVERAGE tstdl TO trbluong
?"trbluong cua toan don vi la: ",trbluong
AVERAGE tstdl TO trbluongp01 FOR mpct="P01"
?"trbluong cua phong P01 la: ",trbluongp01
AVERAGE tstdl TO trbluongduoi25tuoi FOR 2010-YEAR(ns)<25
BROWSE tstdl FOR 2010-YEAR(ns)<25
LIST tstdl FOR 2010-YEAR(ns)<25
SUM tstdl FOR mpct="P01,P02,P03,P04"
INDEX mpct
INDEX on mpct
INDEX on mpct TO 42
TOTAL TO 42 ON mpct FOR tstdl
TOTAL TO 42 ON mpct tstdl
TOTAL ON mpct TO 42 tstdl
INDEX on mpct TO kq42
TOTAL ON mpct TO kq42 tstdl
TOTAL ON mpct TO kq42 FOR fields tstdl
TOTAL ON mpct TO kq42 fields tstdl
USE kq42
BROWSE
LIST qllcb
LIST qllcb.dbf
LIST
use qllcb
BROWSE
INDEX mpct to kq24

INDEX on mpct to kq24
use qllcb
INDEX on mpct to kq24
TOTAL ON mpct TO kq24 FIELDS tstdl
USE kq24
LIST FIELDS tstdl
USE
TOTAL ON mpct TO kq24
use qllcb
TOTAL ON mpct TO kq24
USE kq24
LIST
LIST FIELDS tstdl
USE kq24
LIST FIELDS tstdl
use qllcb
INDEX on mpct TO kq42
TOTAL ON mpct TO kq24 FIELDS tstdl
LIST FIELDS tstdl
USE kq24
LIST FIELDS tstdl
use qllcb
TOTAL ON mpct TO kq24 FIELDS tstdl
INDEX on mpct TO kq42
INDEX on mpct TO kq45
TOTAL TO kq451 ON mpct FIELDS tstdl
USE kq451
BROWSE
INDEX on tstdl TO kq452
LIST record 1
use qllcb
BROWSE
CLEAR
CREATE TABLE phieuxuatnhap.dbf (SP C(8), TENVATTU C(15), MAVT C(7), NXN D(8), LNV L(1), MK C(7), KL N(8,1), DVT C(7), DG N(8,0), TT N(10,0)
CREATE TABLE phieuxuatnhap.dbf (SP C(8), TENVATTU C(15), MAVT C(7), NXN D(8), LNV L(1), MK C(7), KL N(8,1), DVT C(7), DG N(8,0), TT N(10,0))
BROWSE
CREATE TABLE phieuxuatnhap.dbf (SP C(8), TENVT C(15), MAVT C(7), NXN D(8), LNV L(1), MK C(7), KL N(8,1), DVT C(7), DG N(8,0), TT N(10,0))
BROWSE
APPEND
BROWSE
DELETE RECORD 6
PACK
BROWSE
REPLACE ALL TT WITH DG*KL*1.1
LIST NXN="10/15/2004"
LIST NXN=10/15/2004
LIST FOR NXN=10/15/2004
BROWSE  FOR NXN=10/15/2004
LIST FOR LNV=.T. AND DAY(NXN)=15 AND MONTH(NXN)=10 AND YEAR(NXN)=2004
BROWSE LNV=.T. AND DAY(NXN)=15 AND MONTH(NXN)=10 AND YEAR(NXN)=2004
BROWSE FOR LNV=.T. AND DAY(NXN)=15 AND MONTH(NXN)=10 AND YEAR(NXN)=2004
BROWSE
REPLACE dg WITH DG*1.1 FOR MAVT="S10" AND LNV=.F. AND DAY(NXN)=20 AND MONTH(NXN)=10 AND YEAR(NXN)=2004
REPLACE dVT,DG FOR DVT="TAN" WITH DVT="KG",DG=DG*1000
REPLACE dVT,DG FOR DVT="TAN" WITH DVT="KG"
REPLACE dVT FOR DVT="TAN" WITH "KG"
REPLACE dVT FOR DVT="TAN" WITH KG
REPLACE DVT FOR DVT="TAN" WITH KG
REPLACE DVT WITH KG FOR DVT="TAN"
REPLACE DVT WITH "KG" FOR DVT="TAN"
REPLACE DVT,DG WITH "KG",DG*1000 FOR DVT="TAN"
REPLACE DVT,DG WITH "KG","DG*1000" FOR DVT="TAN"
REPLACE DVT WITH "KG",DG WITH DG*1000 FOR DVT="TAN"
REPLACE DVT WITH "KG" FOR DVT="TAN"
REPLACE DVT WITH "KG",DG WITH DG*1000 FOR DVT="TAN"
SUM TT FOR LNV=.F. AND DAY(NXN)=10 AND MONTH(NXN)=10 AND YEAR(NXN)=2004
SUM TT FOR LNV=.F. AND DAY(NXN)=15 AND MONTH(NXN)=10 AND YEAR(NXN)=2004
AVERAGE DG FOR MAVT="S15" AND LNV=.T.
AVERAGE DG TO DGTBS15 FOR MAVT="S15" AND LNV=.T.
USE DGTBS15
?"DON GIA TRUNG BINH CUA S15 LA: ",DGTBS15
INDEX TO LNV.IDX ON LNV
USE PHIEUXUANHAP
USE PHIEUXUATNHAP
INDEX TO LNV.IDX ON LNV
TOTAL TO TONGTIENCUAXUAVATNHAP ON LNV FOR TT
TOTAL TO TONGTIENCUAXUAVATNHAP ON LNV
USE TONGTIENCUAXUAVATNHAP
LIST TT
INDEX TO KHO.IDX ON MA
USE PHIEUXUATNHAP
BROWSE
INDEX TO KHO.IDX ON MA
INDEX TO KHO.IDX ON MK
LIST
SUE
USE

USE
INDEX TO KHO.IDX ON MK
USE PHIEUXUATNHAP
INDEX TO KHO.IDX ON MK
TOTAL TO TONGTIENXUATMOIKHO.DBF ON MK FOR LNV=.T.
BROWSE
USE TONGTIENXUATMOIKHO.DBF
BROWSE
USE PHIEUXUATNHAP
BROWSE
USE TONGTIENXUATMOIKHO.DBF
BROWSE
USE PHIEUXUATNHAP
BROWSE
USE TONGTIENXUATMOIKHO.DBF
BROWSE
USE PHIEUXUATNHAP
USE TONGTIENXUATMOIKHO.DBF
USE PHIEUXUATNHAP
BROWSE
USE TONGTIENXUATMOIKHO.DBF
BROWSE
USE PHIEUXUATNHAP
BROWSE
INDEX TO TUNGNGAYNAM2004.IDX ON NXN FOR LNV=.F. AND YEAR(NXN)=2004
USE TUNGNGAYNAM2004.IDX
BROWSE TUNGNGAYNAM2004.IDX
LIST TUNGNGAYNAM2004.IDX
LIST
INDEX TO TUNGNGAYNAM2004.IDX ON NXN FOR LNV=.F. AND YEAR(NXN)=2004
USE PHIEUXUATNHAP
INDEX TO TUNGNGAYNAM2004.IDX ON NXN FOR LNV=.F. AND YEAR(NXN)=2004
LIST
USE PHIEUXUATNHAP
BROWSE
INDEX TO TUNGNGAYNAM2004.IDX ON NXN FOR LNV=.F. AND YEAR(NXN)=2004
TOTAL TO TUNGNGAYNAM2004.DBF ON NXN
USE TUNGNGAYNAM2004.DBF
BROWSE
USE PHIEUXUATNHAP
BROWSE
USE TUNGNGAYNAM2004.DBF
LIST FIELDS TT
CREATE TABLE dautunuocngoai.dbf (stt n(5), tct c(15), mact c(10), maqg n(5), malv c(5), stdt n(10), ltt c(3), sndt n(3), lsn n(5), stcgddt n(15))
BROWSE
MODIFY STRUCTURE
BROWSE
REPLACE ALL stcgddt WITH stdt*(1+sndt)
MODIFY STRUCTURE
BROWSE
REPLACE ALL maqg WITH UPPER(maqg)
SUM stdt FOR maqg="sin" AND ltt="USD"
SUM stdt TO kq1 FOR maqg="sin" AND ltt="USD"
SUM stdt TO kq1 FOR maqg="SIN" AND ltt="USD"
SUM stdt FOR maqg="SIN" AND ltt="USD"
? "tong so tien dau tu cua singapor la: ",kq1
INDEX on stdt to kq2.idx FOR ltt="USD" AND malv="CBTP"
GOTO top
LIST next 3 tct,maqg
USE dautunuocngoai
BROWSE
CREATE TABLE danhsachhocbong.dbf (masv c(10),hovaten c(10), ns d(8), gt c(3), lop c(10), dtb n(2,1), hocbong n(10))
BROWSE
MODIFY STRUCTURE
BROWSE
REPLACE ALL lop WITH masv
MODIFY STRUCTURE
BROWSE
REPLACE ALL lop WITH masv
MODIFY STRUCTURE
BROWSE
REPLACE ALL hocbong WITH IIF(dtb>=9.0,240000, iff(dtb>=8.0,180000,iff(dtb>=7.0,120000,0)))
REPLACE ALL hocbong WITH IIF(dtb>=9.0,240000, iif(dtb>=8.0,180000,iif(dtb>=7.0,120000,0)))
REPLACE ALL hocbong WITH IIF(dtb>=9.0,240000,iif(dtb>=8.0,180000,iif(dtb>=7.0,120000,0)))
record 3
GOTO record 3
BROWSE hovaten,lop FOR record 3
list hovaten,lop FOR record 3
list record 3 for hovaten
LIST record 3 hovaten,lop
BROWSE  record 3 hovaten,lop
LIST record 3 with hovaten,lop
LIST record 3 hovaten,lop
INDEX on lop,dtb TO kq61
INDEX on lop TO kq61
SORT TO kq62 ON lop/a,dtb/a
LIST
BROWSE
USE kq62

BROWSE
SUM hocbong FOR LEFT(lop,2)="37"
BROWSE
INDEX to kq63 on lop
TOTAL ON lop TO kq64 FIELDS hocbong
USE kq64
LIST lop,hocbong
BROWSE
SUM hocbong FOR LEFT(lop,2)="37"
BROWSE
INDEX on tt to tongtien.idx
BROWSE
GOTO RECORD 3
GOTO RECORD 4
BROWSE
GOTO top
BROWSE
GOTO top
BROWSE
SKIP 3
LIST reset field mavt
LIST reset
LIST rest field mavt
GOTO top
SKIP 2
LIST rest field mavt
GOTO top
BROWSE
LIST next 2 field mavt
LIST next 3 field mavt
GOTO top
BROWSE
LIST next 3 field mavt
INDEX on tt/c to tongtien.idx
BROWSE
INDEX on tt to tongtien.idx
BROWSE
GOTO BOTTOM
LIST next -4
BROWSE
GOTO BOTTOM
BROWSE
LIST next -3
CLEAR
BROWSE
LIST next -3
BROWSE
LIST next 3
BROWSE
GOTO BOTTOM
LIST next 3 for mavt
GOTO BOTTOM
skip-2
LIST rest
LIST rest for mavt
CLEAR
GOTO BOTTOM
skip-2
LIST rest fields tenvt,mavt
AVERAGE sp FOR mavt="XM15"
AVERAGE kl FOR mavt="XM15"
INDEX on mavt TO mavt.idx
BROWSE
TOTAL TO tongtiencuamavt ON manv FIELDS tt
TOTAL TO tongtiencuamavt ON mavt FIELDS tt
USE tongtiencuamavt
BROWSE
USE phieuxuatnhap.dbf
BROWSE
INDEX on mavt TO mavt.idx
TOTAL TO tongtiencuamavt ON mavt
USE tongtiencuamavt
LIST FIELDS tt
LIST FIELDS mavt,tt
USE phieuxuatnhap.dbf
BROWSE
SUM tt FOR YEAR(nxn)=2004 AND MONTH(nxn)<=6
INDEX on mavt TO mavt.idx
TOTAL TO mavt.dbf tongtiencuamavt
TOTAL ON mavt TO mavt.dbf
USE mavt.dbf
LIST FIELDS mavt,tt
BROWSE
USE phieuxuatnhap.dbf
BROWSE
APPEND BLANK
BROWSE
SORT TO  phieuxuatnhapb ON tt
USE phieuxuatnhapb
BROWSE
GOTO RECORD 2
BROWSE
CREATE TABLE baitap.dbf (kytu, c(20), ngay D(8), so n(7))
CREATE TABLE baitap.dbf (kytu c(20), ngay D(8), so n(7))
BROWSE
REPLACE ALL kytu WITH STR(so)
USE phieuxuatnhap.dbf
LIST for nxn={10/20/2004}
LIST for nxn={2004/10/20}
LIST for nxn=ctod{2004/10/20}
LIST for nxn=ctod{10/20/2004}
LIST for nxn={10/20/2004}

LIST for nxn={10/20/2004}
LIST for nxn={^2004-10-20}
LIST for nxn=ctod{^2004-10-20}
LIST for tenvt="SAT10" AND "SAT15"
CLEAR
LIST for tenvt="SAT10" AND "SAT15"
BROWSE
LIST for tenvt="SAT10" AND "SAT15"
SELECT RECORD 1
GOTO TOP
BROWSE
DELETE
PACK
BROWSE
LIST for tenvt="SAT10" AND "SAT15"
LIST for tenvt="SAT10" OR MK="K03"
LIST for tenvt="SAT10" AND MK="K03"
CLEAR
LIST for tenvt="SAT10" AND MK="K03"
LIST for Mavt="S10" or MK="K03"
LIST for Mavt="S10" or "S15"

LIST for Mavt="S10" or "S15"
LIST for Mavt="S10" or Mavt="S15"
CLEAR
LIST for Mavt="S10" or Mavt="S15"
SORT TO s10 ON mavt,tt/d FOR mavt="S10"
USE s10
BROWSE
SORT TO s10 ON sp FOR mavt="S10"
USE phieuxuatnhap.dbf
BROWSE
USE phieuxuatnhap.dbf
BROWSE
USE phieuxuatnhap.dbf
BROWSE
USE phieuxuatnhap.dbf
USE TONGTIENXUATMOIKHO.DBF
BROWSE
USE phieuxuatnhap.dbf
BROWSE
GOTO bottom
DELETE
PACK
BROWSE
USE phieuxuatnhap.dbf
BROWSE
COUNT TO sonu FOR lnv=.f.
?"so nu cong nhan la: ",sonu
COUNT TO sonu FOR lnv=f
COUNT TO sonu FOR lnv="f"
COUNT TO sonu FOR lnv=.f.
?"so nu cong nhan la: ",sonu
COUNT TO sonu FOR lnv=.t.
?"so nu cong nhan la: ",sonu
COUNT TO tcn
?"tong cong nhan la: ",tcn
LIST dg/tt
LIST (sum mk="K01")/(sum mk="K02)
LIST (sum mk for mk="K01")/(sum mk for mk="K02)
sum mk for mk="K01"
sum kl for mk="K01"
LIST (sum kl for mk="K01")/(sum kl for mk="K02)
LIST ((sum mk for mk="K01")/(sum mk for mk="K02))
sum mk for mk="K01" TO t1
sum mk TO t1 for mk="K01"
sum mk TO T1 for mk="K01"
sum kl TO T1 for mk="K01"
sum kl TO t1 for mk="K01"
sum kl TO k01 for mk="K01"
sum kl TO k02 for mk="K02"
LIST k01/k02
CLEAR
LIST k01/k02
?"ti le giua kho 1 va kho 2 la: ",k01/k02
COUNT TO copc FOR dg>0
?"co phuu cap: ",copc
AVERAGE dg TO gtb FOR mk="K03"
?"don gia trung binh cua kho03 la: ",gtb
USE phieuxuatnhap.dbf
LIST for nxn={^2004-10}
BROWSE
DELETE record 6
PACK
BROWSE
lt
LIST FIELDS tenvt,dg,tt FOR lnv=.t. AND MONTH(nxn)=10 AND YEAR(nxn)=2004
SUM TO tongxuat on tt FOR lnv=.t.
SUM on tt TO tongxuat FOR lnv=.t.
SUM on tt FOR lnv=.t.
SUM tt FOR lnv=.t.
SUM tt TO tongxuat FOR lnv=.t.
SUM tt TO tongnhap FOR lnv=.f.
?"ti le xuat nhap la: " tongxuat/tongnhap
?"ti le xuat nhap la: ",tongxuat/tongnhap
INDEX on tenvt TO tenhang,idx FOR lnv=.f.
INDEX on tenvt TO tenhang.idx FOR lnv=.f.
TOTAL ON tenvt TO tenhang.dbf
USE tenhang.dbf
LIST FIELDS tenvt,tt
USE phieuxuatnhap.dbf
LIST FIELDS tenvt,tt FOR !lnv
BROWSE
DELETE FOR (lnv AND YEAR(nxn)<=1938) OR (!lnv AND YEAR(nxn)<=1943)
BROWSE
DELETE FOR lnv AND YEAR(nxn)<=1938 OR !lnv AND YEAR(nxn)<=1943
DELETE ALL FOR (lnv AND YEAR(nxn)<=1938) OR (!lnv AND YEAR(nxn)<=1943)
BROWSE
DELETE ALL FOR (lnv AND YEAR(nxn)<=1938) OR (!lnv AND YEAR(nxn)<=1943)
USE phieuxuatnhap.dbf
BROWSE
CLEAR
LIST FIELDS sp,nxn FOR nhap AND YEAR(nxn)=2004
LIST FIELDS sp,nxn FOR lnv AND YEAR(nxn)=2004
INDEX on mavt,mk TO kq123
INDEX on mavt + mk TO kq123
BROWSE
TOTAL ON MAVT AND MK TO KQ124
TOTAL ON MAVT + MK TO KQ124.DBF
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,MK
BROWSE
TOTAL ON MAVT + MK TO KQ124.DBF
USE phieuxuatnhap.dbf
BROWSE
INDEX on mavt + mk TO kq123
TOTAL ON MAVT + MK TO KQ124.DBF
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,MK
USE phieuxuatnhap.dbf
BROWSE
INDEX on mavt + mk TO kq123
TOTAL ON MAVT + MK TO KQ124.DBF
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,MK
USE phieuxuatnhap.dbf
BROWSE
INDEX on mavt + mk TO kq123
TOTAL ON MAVT + MK TO KQ124.DBF
LIST FIELDS TENVT,MAVT,MK
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,MK
USE phieuxuatnhap.dbf
BROWSE
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,MK,TT
USE phieuxuatnhap.dbf
BROWSE
INDEX on mavt + mk TO kq123 FOR YEAR(NXN)=2004
TOTAL ON MAVT + MK TO KQ124.DBF
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,MK,TT
USE phieuxuatnhap.dbf
BROWSE
LIST FIELDS TENVT,MAVT,NXN,MK,TT
USE KQ124.DBF
LIST FIELDS TENVT,MAVT,NXN,MK,TT
LIST FIELDS MAVT,NXN,MK,TT
USE phieuxuatnhap.dbf
BROWSE
USE phieuxuatnhap.dbf
LIST FIELDS TENVT,MAVT,NXN,MK,TT FOR MONTH(NXN)<=10
BROWSE
CLEAR
LIST FIELDS TENVT,MAVT,NXN,MK,TT FOR MONTH(NXN)<=10
CLEAR
SUM TT TO KQ05 FOR 10<=MONTH(NXN)<=12 AND YEAR(NXN)=2004
SUM TT TO KQ05 FOR MONTH(NXN)<=12 AND MONTH(NXN)>=10 AND YEAR(NXN)=2004

USE phieuxuatnhap.dbf
BROWSE
USE phieuxuatnhap.dbf
BROWSE
LIST tenvt for mavt="S15"
INDEX on mavt TO mavts10
INDEX on mavt TO mavt
TOTAL ON mavt TO tongmavt
USE tongmavt
LIST FIELDS stpt
BROWSE
LIST FIELDS tt
SORT TO tngqg ON
USE
USE phieuxuatnhap
BROWSE
REPLACE ALL tt WITH DG*KL*1.1
LIST FOR NXN={^2004,10,15}
LIST FOR NXN={^2004-10-15}
LIST FOR LNV AND NXN={^2004-10-15}
LIST FOR .NOT.LNV AND NXN={^2004-10-15}
CLEAR
LIST FOR .NOT.LNV AND NXN={^2004-10-15}
LIST FOR LNV AND NXN={^2004-10-15}
REPLACE ALL DG WITH DG*1.1 FOR LNV AND MAVT="S10"
REPLACE ALL DG WITH DG*1.1 FOR .NOT.LNV AND MAVT="S10" AND NXN={^2004-10-15}

REPLACE ALL DG WITH DG*1.1 FOR .NOT.LNV AND MAVT="S10" AND NXN={^2004-10-15}
REPLACE dg WITH DG/1000 FOR DVT="TAN"
REPLACE DVT WITH KG FOR DVT="TAN"
REPLACE DVT WITH DVT="KG" FOR DVT="TAN"
REPLACE DVT WITH "KG" FOR DVT="TAN"
REPLACE ALL tt WITH DG*KL*1.1
SUM TT TO EQ7 FOR NXN={^2004-10-25}
SUM TT TO EQ7 FOR NXN={^2004-10-15}
SUM TT TO EQ7 FOR NXN={^2004-10-15} AND .NOT.LNV
SUM TT TO EQ7 FOR NXN={^2004-10-15} AND .NOT. LNV
SUM TT TO EQ7 FOR  .NOT.LNV AND NXN={^2004-10-15}
SUM TT TO EQ7 FOR LNV AND NXN={^2004-10-15}

LIST kl*dg for mk="k01"
claer
CLEAR
LIST kl*dg for mk="k01"
LIST kl*dg for mk="K01"
SUM KL TO KLN FOR .NOT.LNV AND NXN={^2004-10-15} AND MAVT="XM15"
SUM KL TO KLN FOR .NOT.LNV AND NXN<={^2004-10-15} AND MAVT="XM15"
SUM KL TO KLX FOR LNV AND NXN<={^2004-10-15} AND MAVT="XM15"
?"KHOI LUONG VAT TU DU TRUOC NGAY 2004-10-15 LA: ",KLN-KLX
AVERAGE DG FOR MAVT="S15"
INDEX ON MAVT TO LOAIVT FOR MONTH(NXN)=9
TOTAL ON MAVT TO LOAIVT
USE LOAIVT
LIST FIELDS MAVT,TT
BROWSE
USE phieuxuatnhap
BROWSE
INDEX ON MAVT TO LOAIVT FOR MONTH(NXN)=9
TOTAL ON MAVT TO LOAIVT
BROWSE
USE LOAIVT
BROWSE
LIST FIELDS MAVT,TT
USE phieuxuatnhap
REPLACE ALL tt WITH DG*KL*1.1
SUM TT TO EQ7 FOR NXN={^2004-10-15} AND LNV
LIST FOR LNV AND NXN={^2004-10-15}
USE phieuxuatnhap
REPLACE ALL tt WITH DG*KL*1.1
LIST FOR LNV AND NXN={^2004-10-15}
REPLACE ALL DG WITH DG*1.1 FOR .NOT.LNV AND MAVT="S10" AND NXN={^2004-10-15}
REPLACE kl WITH KL*1000 FOR DVT="TAN"
REPLACE dg WITH DG/1000 FOR DVT="TAN"
REPLACE dvt WITH "KG" FOR DVT="TAN"
REPLACE tt WITH DG*KL*1.1
SUM TT FOR .NOT.LNV AND NXN={^2004-10-15}
SUM KL TO KLN FOR .NOT.LNV AND NXN<={^2004-10-15} AND MAVT="XM15"
SUM KL TO KLX FOR LNV AND NXN<={^2004-10-15} AND MAVT="XM15"
?"KHOI LUONG VAT TU DU TRUOC NGAY 2004-10-15 LA: ",KLN-KLX
AVERAGE DG FOR MAVT="S15"
INDEX ON MAVT TO LOAIVATTU FOR LNV AND MONTH(NXN)=9
TOTAL ON MAVT TO LOAIVATTU.DBF
USE LOAIVATTU.DBF
LIST FIELDS TENVT,MAVT,TT
USE qllcb.dbf
BROWSE
QUIT
USE qllcb.dbf
BROWSE
EXIT
exit qllcb.dbf
BROWSE
LIST STRUCTURE
LIST FIELDS hodem,ten,mpct FOR nam
CLEAR
LIST STRUCTURE
LIST FIELDS hodem,ten,mpct FOR nam AND MPCT="P01"
LIST FIELDS hodem,ten,mpct FOR .NOT.nam AND YEAR(NS)>=1980
LIST FIELDS hodem,ten,mpct FOR .NOT.nam AND MONTH(NS)=3
LIST FIELDS hodem,ten,mpct FOR AND MONTH(NS)=3
LIST FIELDS hodem,ten,mpct FOR MONTH(NS)=3
LIST FIELDS hodem,ten,mpct FOR (2005-YEAR(NS))>=60 AND NAM OR (2005-YEAR(NS))>=55 AND .NOT.NAM
GOTO TOP
LIST NEXT 3
CLEAR
GOTO TOP
LIST NEXT 3
GOTO BOTTOM
SKIP -2
LIST REST
GOTO RECORD 3
LIST RECORD 3
LIST RECORD 10
SORT ON HSL TO HESOLUONG.DBF
USE HESOLUONG.DBF
BROWSE
USE "c:\documents and settings\lam\my documents\visual foxpro projects\qllcb.dbf"
BROWSE
REPLACE MPCT WITH P01 FOR RECORD 3
REPLACE MPCT WITH "P01" FOR RECORD 3
GOTO RECORD3
GOTO RECORD 3
REPLACE MPCT WITH "P01"
MODIFY STRUCTURE
BROWSE
REPLACE ALL PCAT WITH 200000
REPLACE ALL BHXH WITH 5%*290000*HSL
REPLACE ALL BHXH WITH 0.05*290000*HSL
REPLACE ALL BHYT WITH 0.01*290000*HSL
REPLACE ALL 290000*HSL+PCAT-BHXH-BHYT
REPLACE ALL WITH 290000*HSL+PCAT-BHXH-BHYT
REPLACE ALL TSTDL WITH 290000*HSL+PCAT-BHXH-BHYT
COPY TO QLLCBX.DBF
APPEND
BROWSE
APPEND
BROWSE
QUIT