close all
SET TALK OFF
set date to british
select 4
*use tax3 excl
USE TAX1 EXCL
zap
select 1
use mstr
m.no=no
m.nam=nam
m.nam2=nam2
m.nam3=nam3
m.nam4=nam4
M.DAT=DAT
do while .t.
M.DAT=DAT
select 2
use month12004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (1)ßÇäæä ËÇäí "
replace montNO with 1
endif

select 2
use month22004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (2)     ÔÈÇØ "
replace montNO with 2
endif
replace DAT with m.DAT

select 3
use month32004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (3)     ÇÐÇÑ "
replace montNO with 3
endif

select 5
use month42004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (4)    äíÓÇä "
replace montNO with 4
endif

select 6
use month52004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (5)     ÇíÇÑ "
replace montNO with 5
replace no with m.no
endif



select 7
use month62004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (6)   ÍÒíÑÇä "
replace montNO with 6
endif

select 8
use month72004
locate for no=m.no
if found()
DO APP1

replace monthnam with " (7)      ÊãæÒ "
replace montNO with 7
endif

select 2
use month82004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (8)       ÇÈ "
replace montNO with 8
endif



select 2
use month92004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (9)     Çíáæá "
replace montNO with 9
endif


select 2
use month102004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (10) ÊÔÑíä Ãæá "
replace montNO with 10
endif


select 2
use month112004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (11) ÊÔÑíä ËÇäí "
replace montNO with 11
endif

select 2
use month122004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (12)  ßÇäæä Ãæá "
replace montNO with 12
endif

select 2
use month132004
locate for no=m.no
if found()
DO APP1
replace monthnam with " (13)  ÑÇÊÈ ËÇáË ÚÔÑ"
replace montNO with 13
endif

select 2
use month142004
locate for no=m.no
if found()
DO APP1
replace monthnam with "   ÑÇÊÈ ãÎÇáÕÉ"
replace montNO with 14
endif

select 2
use leftwork
m.dat=year(date())-1
locate for no=m.no .and. year(dat1) =m.dat
M.EERR=VDISC1
if found()
DO APP1
replace monthnam with "   ÑÇÊÈ ãÎÇáÕÉ"
replace montNO with 15
replace VDISC with M.EERR
? M.EERR

*replace setsal with msal
*+totaladd

endif
select 1


skip
m.no=no
m.nam=nam
m.nam2=nam2
m.nam3=nam3
m.nam4=nam4
M.DAT=DAT
if eof()
exit
endif
SELECT 1
LOCATE FOR NO=M.NO
M.DAT=DAT
SELECT 4
replace DAT with m.DAT FOR NO=M.NO

enddo

PROCEDURE APP1
scatter memvar



*? no,nettot
select 4
append blank

gather memvar