行业应用

开发平台：
VFP

ZZSBDY.PRG：源码内容
							set colo to 6+
*h='19  年   月   日  (      )    '
@ 3,9 say '请输入报表日期'
set colo to
do whil .t.
@ 6,1 clea to 9,35 
@ 7,1 get bbh
read
pd='N'
set colo to 5+
@ 8,4 say '确认了吗? Y=是,其他=否' get pd
read
if pd='Y' .or. pd='y'
   exit
endif
?? chr(7)
* 8,4 say '                          '
enddo
set colo to /w
@ 3,0 clea to 9,35
set colo to 
@ 5,8 clea to 10,35
set colo to w+/1
@ 4,5 clea to 9,33
x1=4
x2=9
y1=5
y2=31
do box-1
@ 6,9 say '正在打印应交款项表!'
@ 7,13 say '请稍候......'
do whil .t.
if sys(13)<>'READY'
?? chr(7)
set colo to 
@ 5,8 clea to 10,35
set colo to w+/1
@ 4,5 clea to 9,33
x1=4
x2=9
y1=5
y2=31
do box-1
@ 6,9 say '打印机尚未准备好!'
@ 7,9 say '准备好后按任意键......'
i=inkey(0)
if i=27
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
retu
endif
else
set colo to w+/1
@ 6,8 clea to 8,30
@6,9 say '正在打印增值税报表!'
@ 7,13 say '请稍候......'
EXIT
endif
enddo
set devi to print
set print on
set cons off
?? "`@D`"
? '  '
?  '  '
?  '                  应 交 增 值 税 明 细 表'
?? "`@A`"
? '    '
? '  '
@ prow()+1,1 say '编制单位:'+Rdwmc
@ prow(),40 say bbh
@ prow(), 80 say '会商01表附表1   单位:元'
?? '`&0`'
? '┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┯━━┭━━━━━━━━━━━━┭━━━━━━━━━━━━━┓'
? '┃                   项                       目                      │ 行 │     本    月    数     │     累    计    数       ┃'
? '┠──────────────────────────────────┼──┼────────────┼─────────────┨'
use &wj1
do whil .t.
@ prow()+1,0 say '┃'
@ prow(), 4 say xm
@ prow(),70 say '│'
@ prow(),73 say h
@ prow(),76 SAY '│'
if bys<>0
@ prow(),82 say bys pict'99,999,999,999.99'
endif
@ prow(),102 say '│'
if ljs<>0
@ prow(),110 say ljs pict'99,999,999,999.99'
endif
@ prow(),130 say '┃' 
pd=recn()
if pd<22
? '┠──────────────────────────────────┼──┼────────────┼─────────────┨'
else
? '┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┷━━┷━━━━━━━━━━━━┷━━━━━━━━━━━━━┛'
endif
skip
if eof()
exit
endif
enddo
*endif
? '  企业主管:                      会计主管:                    复核:                       制表:  '+czy                   
? '   '
set devi to screen
set print off 
set cons on
rest screen from zpm
retu

						