English
ZBDY-1.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：6k
源码类别：
企业管理
开发平台：
VFP
- USE A%
- km = zzkm
- km1 = mxkm
- my = 2
- yc = 1
- SET COLOR TO GR+/BG, W+/GR
- @ 9, 20 CLEAR TO 13, 60
- sxh = 1
- ?? CHR(7)
- @ 11, 27 SAY '请问开始打印行次和页次?'
- @ 12, 27 SAY '请输入行次:' GET sxh PICTURE '99' VALID sxh>0 .AND. sxh<31
- READ
- @ 12, 43 SAY '页次:' GET yc PICTURE '999'
- READ
- @ 9, 20 CLEAR TO 13, 60
- @ 11, 30 SAY '正在进行打印帐本...... '
- @ 12, 30 SAY ' 请稍候...... '
- x = 0
- gcy_jf = 0
- gcy_df = 0
- DO WHILE .T.
- DO WHILE .T.
- IF SYS(13)<>'READY'
- SET CONSOLE ON
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- ?? CHR(7)
- @ 11, 30 SAY '打印机未准备好,准备好后'
- @ 12, 30 SAY ' 按任意键继续 ......'
- x2 = INKEY(0)
- IF x2=27
- SET COLOR TO W+/N
- @ 2, 1, 20, 78 BOX '鞍鞍鞍鞍鞍鞍'
- USE
- RETU
- ENDI
- @ 11, 30 SAY '正在进行打印帐本...... '
- @ 12, 30 SAY ' 请稍候...... '
- ELSE
- EXIT
- ENDI
- ENDD
- SET CONSOLE OFF
- SET DEVICE TO PRINTER
- SET PRINTER ON
- ?? '`&2`'
- IF sxh=1
- DO zbbtdy-1
- s = 1
- h = 9
- ELSE
- h = 9
- x = 1
- DO WHILE x<sxh+9
- ? ' '
- x = x+1
- ENDD
- s = 1
- ENDI
- DO WHILE sxh<=30
- IF s=1
- @ PROW()+1, 1 SAY sxh
- ELSE
- @ h+sxh, 1 SAY sxh
- ENDI
- IF (gcy_jf<>0 .OR. gcy_df<>0) .AND. sxh=1 .AND. zy<>'本月合计' .AND. yc<>1
- @ PROW(), 11 SAY '│'
- @ PROW(), 23 SAY '│'
- @ PROW(), 31 SAY '│'
- @ PROW(), 33 SAY '承前页'
- @ PROW(), 73 SAY '│'
- IF gcy_jf<>0
- @ PROW(), 78 SAY gcy_jf
- ENDI
- @ PROW(), 93 SAY '│'
- IF gcy_df<>0
- @ PROW(), 98 SAY gcy_df
- ENDI
- @ PROW(), 113 SAY '│'
- @ PROW(), 117 SAY '│'
- @ PROW(), 137 SAY '│'
- ELSE
- @ PROW(), 11 SAY '│'
- @ PROW(), 13 SAY rq
- @ PROW(), 23 SAY '│'
- IF pzh<>0
- @ PROW(), 25 SAY pzh
- ENDI
- @ PROW(), 31 SAY '│'
- IF sy=1 .AND. zy='期初余额' .AND. s=1
- @ PROW(), 33 SAY '上年结转'
- ELSE
- @ PROW(), 33 SAY zy
- ENDI
- @ PROW(), 73 SAY '│'
- IF jje<>0
- @ PROW(), 78 SAY jje
- ENDI
- @ PROW(), 93 SAY '│'
- IF dje<>0
- @ PROW(), 98 SAY dje
- ENDI
- @ PROW(), 113 SAY '│'
- IF ye<>0
- IF jhd='+' .AND. ye>0 .OR. jhd='-' .AND. ye<0
- @ PROW(), 115 SAY '借'
- @ PROW(), 117 SAY '│'
- IF ye<0
- ye1 = -ye
- ELSE
- ye1 = ye
- ENDI
- @ PROW(), 121 SAY ye1
- ELSE
- @ PROW(), 115 SAY '贷'
- @ PROW(), 117 SAY '│'
- IF ye<0
- ye1 = -ye
- ELSE
- ye1 = ye
- ENDI
- @ PROW(), 121 SAY ye1
- ENDI
- ELSE
- @ PROW(), 117 SAY '│'
- ENDI
- @ PROW(), 137 SAY '│'
- IF zy='本月合计' .OR. zy='期末及累计'
- gcy_jf = 0
- gcy_df = 0
- ELSE
- gcy_jf = gcy_jf+jje
- gcy_df = gcy_df+dje
- ENDI
- SKIP
- ENDI
- IF EOF()
- IF sxh=30
- sxh = 31
- ENDI
- x = 27
- EXIT
- ENDI
- sxh = sxh+1
- ENDD
- IF gcy_jf<>0 .OR. gcy_df<>0
- @ PROW()+1, 1 SAY sxh
- @ PROW(), 11 SAY '│'
- @ PROW(), 23 SAY '│'
- @ PROW(), 31 SAY '│'
- @ PROW(), 33 SAY '过次页'
- @ PROW(), 73 SAY '│'
- IF gcy_jf<>0
- @ PROW(), 78 SAY gcy_jf
- ENDI
- @ PROW(), 93 SAY '│'
- IF gcy_df<>0
- @ PROW(), 98 SAY gcy_df
- ENDI
- @ PROW(), 113 SAY '│'
- @ PROW(), 117 SAY '│'
- @ PROW(), 137 SAY '│'
- ENDI
- yc = yc+1
- IF sxh=31 .OR. my=12 .OR. x=27
- @ PROW()+1, 7 SAY '━━┿━━━━━┿━━━┿━━━━━━━━━━━━━━━━━━━━┿━━━━━━━━━┿━━━━━━━━━┿━┿━━━━━━━━━┿━'
- ENDI
- ? ' '
- sxh = 1
- IF x=27
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- SET CONSOLE ON
- ?? CHR(7)
- SET COLOR TO GR+/BG
- @ 9, 20 CLEAR TO 13, 60
- @ 11, 30 SAY '打 印 完 毕 !'
- @ 12, 30 SAY '按任意键继续......'
- SET COLOR TO
- x1 = INKEY(0)
- @ 0, 0 SAY ' '
- EXIT
- ELSE
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- SET CONSOLE ON
- ?? CHR(7)
- @ 11, 30 SAY '换页,按ESC键退出! '
- @ 12, 30 SAY '按其他键继续打印......'
- x = INKEY(0)
- IF x=27
- SET COLOR TO W+/N
- @ 2, 1, 20, 78 BOX '鞍鞍鞍鞍鞍鞍'
- USE
- RETU
- ELSE
- @ 11, 30 SAY '正在进行打印帐本...... '
- @ 12, 30 SAY ' 请稍候...... '
- ENDI
- ENDI
- ENDD
- RETU
- *
