行业应用

开发平台：
VFP

BDBDY.PRG：源码内容
							* &wj1
set colo to 6+
*h='19  年   月   日  (      )      '
@ 3,9 say '请输入报表日期'
set colo to
do whil .t.
@ 6,1 clea to 9,35 
@ 7,1 say '' 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 'Esc=退出,其他键继续...'
i=inkey(0)
if i=27
retu
endif
else
set colo to w+/1
@ 6,8 clea to 8,30
@ 6,9 say '正在打印现金流量表!'
@ 7,13 say '请稍候......'
EXIT
endif
enddo
set print on
set device to print
set cons off
? '   '
? '   '
? '   '
*use fzb
?? "`@D`"
? '                   现    金    流    量    表'
? '  '
?? "`@A`" 
@ prow(),2 say '编制单位:'+Rdwmc
@ prow(),50 say bbh
@ prow(),90 say '会商03表 单位:元'
?? "`&0`"
? '┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
? '┃             项              目               │行│    金     额     │        补  充  资  料  项  目              │行│    金      额    ┃'             
? '┠───────────────────────┼─┼─────────┼──────────────────────┼─┼─────────┨'
*use bdb1
1
do whil .t.
? '┃'
@ prow(),3 say sm1
@ prow(),48 say '│'
@ prow(),50 say h1 
@ prow(),52 say '│'
@ prow(),54 say je1 pict'@z999999999.99'
@ prow(),72 say '│'
@ prow(),74 say sm2
@ prow(),118 say '│'
@ prow(),120 say h2 
@ prow(),122 say '│'
@ prow(),124 say je2 pict'@z999999999.99'
@ prow(),142 say '┃'             
pd=recn()
   if pd=46  
 exit
   endif
? '┠───────────────────────┼─┼─────────┼──────────────────────┼─┼─────────┨'
skip
enddo
? '┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛'
? '           企业主管:                              财务主管:            复核:                               制表: '+czy
? ' '
set device to screen
set cons on
set print off
rest screen from zpm
retu

						