www.pudn.com > jq_caiwu.ARJ > JQBB.PRG
SET PATH TO C:\
IF .NOT. FILE('pzk.dbf') .OR. .NOT. FILE('mxk.dbf') .OR. .NOT. FILE('zzk.dbf')
?? CHR(7)
SET COLOR TO
@ 8, 22 CLEAR TO 11, 62
SET COLOR TO RB+/B
@ 7, 20 CLEAR TO 10, 60
@ 8, 29 SAY '当前月工作区没有数据!'
i = INKEY(0)
SET PATH TO \cw
RETU
ENDI
SET PATH TO \cw
DO WHILE .T.
pd = 1
SET COLOR TO
@ 3, 40 CLEAR TO 13, 58
SET COLOR TO N/BG
@ 2, 37 CLEAR TO 11, 52
SET COLOR TO W/BG
x1 = 2
x2 = 11
y1 = 37
y2 = 53
DO box-1
SET COLOR TO W/B, W+/R
@ 3, 40 PROMPT '返 回'
@ 4, 40 PROMPT '报表自动生成'
@ 5, 40 PROMPT '报表打印输出'
@ 6, 40 PROMPT '系统报表查询'
@ 7, 40 PROMPT '删除无效报表'
MENU TO pd
SET COLOR TO
DO CASE
CASE pd=1 .OR. pd=0
EXIT
CASE pd=2
DO WHILE .T.
SET COLOR TO
@ 5, 42 CLEAR TO 15, 60
SET COLOR TO W/G
@ 4, 40 CLEAR TO 14, 58
x1 = 4
x2 = 14
y1 = 42
y2 = 56
DO box-1
pd = 1
SET COLOR TO GR+/G
@ 5, 45 SAY '报表生成器'
SET COLOR TO W/B, W+/R
@ 7, 45 PROMPT '返 回'
@ 8, 45 PROMPT '资产负债表'
@ 9, 45 PROMPT '损 益 表'
@ 10, 45 PROMPT '补充资料表'
@ 11, 45 PROMPT '应交款项表'
@ 12, 45 PROMPT '增值税报表'
MENU TO pd
DO CASE
CASE pd=1 .OR. pd=0
SET COLOR TO N/W
@ 5, 40 CLEAR TO 15, 60
EXIT
CASE pd=2
SET PATH TO C:\
IF FILE('fzb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '资产负债表已经存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
ELSE
SET PATH TO \cw
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '正在生成资产负债表!'
@ 7, 13 SAY '请稍候......'
RUN copy \cw\fzb.dbf>nul
DO fzb
ENDI
CASE pd=3
SET PATH TO C:\
IF FILE('syb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '损 益 表已经存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
ELSE
SET PATH TO \cw
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '正在生成损 益 表!'
@ 7, 13 SAY '请稍候......'
RUN copy \cw\syb.dbf>nul
DO syb
ENDI
CASE pd=4
SET PATH TO C:\
IF FILE('bcmxb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '补充资料表已经存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
ELSE
SET PATH TO \cw
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '正在生成补充资料表!'
@ 7, 13 SAY '请稍候......'
RUN copy \cw\bcmxb.dbf>nul
DO bcmxb
ENDI
CASE pd=5
SET PATH TO C:\
IF FILE('yjkb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '应交款项表已经存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
ELSE
SET PATH TO \cw
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '正在生成应交款项表!'
@ 7, 13 SAY '请稍候......'
RUN copy \cw\yjkb.dbf>nul
DO yjkb
ENDI
CASE pd=6
SET PATH TO C:\
IF FILE('zzsb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '增值税报表已经存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
ELSE
SET PATH TO \cw
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '正在生成增值税报表!'
@ 7, 13 SAY '请稍候......'
RUN copy \cw\zzsb.dbf>nul
DO zzsb
ENDI
ENDC
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ENDD
CASE pd=3
DO WHILE .T.
SET COLOR TO
@ 5, 42 CLEAR TO 15, 60
SET COLOR TO W/G
@ 4, 40 CLEAR TO 14, 58
x1 = 4
x2 = 14
y1 = 42
y2 = 56
DO box-1
pd = 1
SET COLOR TO GR+/G
@ 5, 46 SAY '报表打印'
SET COLOR TO W/B, W+/R
@ 7, 45 PROMPT '返 回'
@ 8, 45 PROMPT '资产负债表'
@ 9, 45 PROMPT '损 益 表'
@ 10, 45 PROMPT '补充资料表'
@ 11, 45 PROMPT '应交款项表'
MENU TO pd
DO CASE
CASE pd=1 .OR. pd=0
SET COLOR TO N/W
@ 5, 40 CLEAR TO 15, 60
EXIT
CASE pd=2
SET PATH TO C:\
IF .NOT. FILE('fzb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '资产负债表不存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ELSE
SET PATH TO \cw
USE fzb
DO fzbdy
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ENDI
CASE pd=3
SET PATH TO C:\
IF .NOT. FILE('syb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '损 益 表不存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ELSE
SET PATH TO \cw
USE syb
DO sybdy
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ENDI
CASE pd=4
SET PATH TO C:\
IF .NOT. FILE('bcmxb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 9 SAY '补充资料表不存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ELSE
SET PATH TO \cw
USE bcmxb
DO bcmxbdy
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ENDI
CASE pd=5
SET PATH TO C:\
IF .NOT. FILE('yjkb.dbf') .OR. .NOT. FILE('zzsb.dbf')
?? CHR(7)
SET COLOR TO
@ 5, 8 CLEAR TO 10, 35
SET COLOR TO W+/B
@ 4, 5 CLEAR TO 9, 33
x1 = 4
x2 = 9
y1 = 5
y2 = 31
DO box-1
@ 6, 7 SAY '应交款或增值税表不存在!'
@ 7, 9 SAY '按任意键继续......'
i = INKEY(0)
SET PATH TO \cw
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ELSE
SET PATH TO \cw
wj1 = 'yjkb'
wj2 = 'zzsb'
DO yjkbdy
SET COLOR TO N/W
@ 3, 3 CLEAR TO 10, 35
ENDI
ENDC
USE
ENDD
CASE pd=4
DO WHILE .T.
SET COLOR TO
@ 5, 42 CLEAR TO 15, 60
SET COLOR TO W/G
@ 4, 40 CLEAR TO 14, 58
x1 = 4
x2 = 14
y1 = 42
y2 = 56
DO box-1
pd = 1
SET COLOR TO GR+/G
@ 5, 46 SAY '报表查询'
SET COLOR TO W/B, W+/R
@ 7, 45 PROMPT '返 回'
@ 8, 45 PROMPT '资产负债表'
@ 9, 45 PROMPT '损 益 表'
@ 10, 45 PROMPT '补充资料表'
@ 11, 45 PROMPT '应交款项表'
@ 12, 45 PROMPT '增值税报表'
MENU TO pd
DO CASE
CASE pd=1
SET COLOR TO N/W
@ 4, 38 CLEAR TO 15, 60
EXIT
CASE pd=2
USE fzb
DO fzbcx
USE
DO zcd
CASE pd=3
USE syb
DO sybcx
USE
DO zcd
CASE pd=4
USE bcmxb
DO bcmxbcx
USE
DO zcd
CASE pd=5
USE yjkb
DO yjkbcx
USE
DO zcd
CASE pd=6
USE zzsb
DO zzsbcx
USE
DO zcd
ENDC
SET COLOR TO
@ 3, 40 CLEAR TO 13, 58
SET COLOR TO N/BG
@ 2, 37 CLEAR TO 11, 52
SET COLOR TO W/BG
x1 = 2
x2 = 11
y1 = 37
y2 = 53
DO box-1
SET COLOR TO W/B, W+/R
@ 3, 40 SAY '返 回'
@ 4, 40 SAY '报表自动生成'
@ 5, 40 SAY '报表打印输出'
@ 6, 40 SAY '系统报表查询'
@ 7, 40 SAY '删除无效报表'
ENDD
CASE pd=5
DO scbb
CASE pd=6
DO zcd
ENDC
ENDD
RETU
*