行业应用

开发平台：
VFP

XSMXBDY.PRG：源码内容
							*use xsmxb
*set talk off
set colo to 6+
ah='19   年度      (      ) '
@ 3,9 say '请输入报表日期'
set colo to
do whil .t.
@ 6,1 clea to 9,35 
@ 7,1 get ah 
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 print on
*set printer to fzb.txt
*set device to fzb.txt
set device to print
set cons off
? '   '
? '   '
? '   '
*use fzb
?? "`@D`"
? '                         商品销售利润明细表'
? '    '
?? "`@A`" 
@ prow(),1 say '编制单位:' &&+Rdwmc
@ prow(),50 say ah
@ prow(),90 say '会商02表附表2 单位:元'
?? "`&0"
? '┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
? '┃     项       目        │行│单位│  销售数量    │ 商品销售净收入 │  商品销售成本  │    经营费用    │ 销售税金及附加 │ 商品销售利润   ┃'             
? '┠────────────┼─┼──┼───────┼────────┼────────┼────────┼────────┼────────┨'
1
do whil .t.
?'┃'
@ prow(),2 say trim(sm) 
@ prow(),26 say'│'
@ prow(),28 say h 
*pict'@99'
@ prow(),30 say '│'
@ prow(),32 say jldw
@ prow(),36 say'│'
@ prow(),38 say xssl pict'@z9999999.99'
@ prow(),52 say '│'
@ prow(),54 say xsjsr pict'@z999999999.99'
@ prow(),70 say '│'
@ prow(),72 say xscb pict'@z999999999.99' 
@ prow(),88 say '│'
@ prow(),90 say jyfy pict'@z999999999.99'
@ prow(),106 say '│'
@ prow(),108 say sjjfj pict'@z999999999.99'
@ prow(),124 say '│'
@ prow(),126 say xslr pict'@z999999999.99'
@ prow(),142 say '┃'             
pd=recn()
   if pd=13  
 exit
   endif
? '┠────────────┼─┼──┼───────┼────────┼────────┼────────┼────────┼────────┨'
skip
enddo
? '┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛'
? '           企业主管:                          财务主管:            复核:                               制表: ' &&+czy
? ' '
set device to screen
set cons on
set print off
rest screen from zpm
retu

						