PZDY.PRG
资源名称:jq_caiwu.ARJ [点击查看]
上传用户:hbmaozhan
上传日期:2013-01-31
资源大小:1007k
文件大小:8k
源码类别:
企业管理
开发平台:
VFP
- ON KEY
- SET COLOR TO W/N
- CLOS DATABASES
- USE pzk
- @ 5, 42 CLEAR TO 11, 72
- SET COLOR TO W+/BG
- @ 4, 40 CLEAR TO 10, 70
- x1 = 4
- x2 = 10
- y1 = 41
- y2 = 69
- DO box-1
- pd = 1
- @ 6, 48 SAY '从哪一张凭证开始打印?'
- SET COLOR TO W/N, BG+/R
- @ 8, 51 GET pd PICTURE '999999'
- READ
- LOCA ALL FOR pd=pzh
- pz = pd
- IF EOF()
- ?? CHR(7)
- SET COLOR TO W+/BG
- @ 5, 44 CLEAR TO 9, 68
- @ 6, 46 SAY '指定凭证未找到!'
- @ 8, 46 SAY '按任意键返回......'
- i = INKEY(0)
- CLOS DATABASES
- SET COLOR TO W+/B
- @ 0, 0, 23, 79 BOX '北北北北'
- SET COLOR TO W+/N
- @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
- @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG
- @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0) 黄朝生研制 版权所有 南宁市建政路51号 邮编:530023 ' COLOR R/W
- ON KEY LABEL Escape do Rquit
- SET CLOCK TO 23, 69
- RETU
- ENDI
- DO WHILE .T.
- sl1 = RECNO()
- LOCA ALL FOR pz+1=pzh
- IF EOF()
- GOTO BOTTOM
- ml1 = RECNO()
- ELSE
- SKIP -1
- ml1 = RECNO()
- ENDI
- GOTO sl1
- pd1 = pds
- lr = lry
- sh = shy
- ys = INT(ml1+1-sl1)/8
- IF INT((ml1+1-sl1)/8)=(ml1+1-sl1)/8
- ys = INT(ys+0)
- ELSE
- ys = INT(ys+1)
- ENDI
- DO WHILE .T.
- IF SYS(13)<>'READY'
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- SET CONSOLE ON
- ?? CHR(7)
- SET COLOR TO W+/BG
- @ 5, 43 CLEAR TO 9, 68
- @ 6, 46 SAY '打印机尚未准备好!'
- @ 8, 46 SAY 'Esc=退出,其他键重试...'
- i = INKEY(0)
- IF i=27
- CLOS DATABASES
- SET COLOR TO W+/B
- @ 0, 0, 23, 79 BOX '北北北北'
- SET COLOR TO W+/N
- @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
- @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG
- @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0) 黄朝生研制 版权所有 南宁市建政路51号 邮编:530023 ' COLOR R/W
- ON KEY LABEL Escape do Rquit
- SET CLOCK TO 23, 69
- RETU
- ENDI
- ELSE
- @ 5, 43 CLEAR TO 9, 68
- @ 6, 48 SAY '正在进行凭证打印!'
- @ 8, 51 SAY '请稍候......'
- SET PRINTER ON
- SET DEVICE TO PRINTER
- SET CONSOLE OFF
- EXIT
- ENDI
- ENDD
- y1 = 1
- DO WHILE y1<=ys
- ?? '`@B`'
- ? ' '
- ? ' 记 帐 凭 证 '
- ? ' '
- ?? '`@A`'
- ? ' 广西盐业公司 '
- @ PROW(), 54 SAY rq
- @ PROW(), 85 SAY '总字第'
- @ PROW(), 95 SAY pzh PICTURE '9999'
- IF ys<>1
- @ PROW(), 101 SAY y1 PICTURE '99'
- @ PROW(), 104 SAY '/'
- @ PROW(), 105 SAY ys PICTURE '99'
- ENDI
- @ PROW(), 108 SAY '号'
- ? '┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
- ? '┃ 摘 要 │ 总 帐 科 目 │ 明 细 科 目 │ 借 方 金 额 │ 贷 方 金 额 ┃ | '
- ? '┠────────────────────┼──────────┼──────────┼───────┼───────┨'
- pd = 1
- DO WHILE .T.
- IF EOF() .OR. RECNO()>ml1
- a1 = 0
- a2 = 0
- zz = ' '
- mx = ' '
- zy1 = ' '
- ELSE
- zz = zzkm
- mx = mxkm
- a1 = jje
- a2 = dje
- zy1 = zy
- ENDI
- ? '┃'
- @ PROW(), 2 SAY zy1
- @ PROW(), 42 SAY '│'
- @ PROW(), 44 SAY zz
- @ PROW(), 64 SAY '│'
- @ PROW(), 66 SAY mx
- @ PROW(), 86 SAY '│'
- IF a1<>0
- @ PROW(), 88 SAY a1
- ENDI
- @ PROW(), 102 SAY '│'
- IF a2<>0
- @ PROW(), 104 SAY a2
- ENDI
- @ PROW(), 118 SAY '┃'
- IF INT(pd/2)<>pd/2
- ENDI
- IF pd=2
- @ PROW(), 120 SAY '附'
- ENDI
- IF pd=3
- @ PROW(), 120 SAY '件' PICTURE 'xx'
- ENDI
- IF pd=5
- @ PROW(), 120 SAY pd1 PICTURE '999'
- ENDI
- IF pd=7
- @ PROW(), 120 SAY '张' PICTURE 'xx'
- ENDI
- IF RECNO()<ml1 .OR. .NOT. EOF()
- SKIP
- ENDI
- IF pd=8
- EXIT
- ENDI
- pd = pd+1
- ENDD
- ? '┠────────────────────┼──────────┼──────────┼───────┼───────┨ |'
- ? '┃ 合 计 │ │ │'
- x = RECNO()
- IF y1=ys .OR. ys=1
- GOTO sl1
- SUM ALL FOR pzh=pz jje TO a1
- SUM ALL FOR pzh=pz dje TO a2
- ELSE
- GOTO sl1+(y1-1)*8
- SUM NEXT 8 jje TO a1
- SKIP -7
- SUM NEXT 8 dje TO a2
- ENDI
- IF EOF()
- GOTO x-1
- ELSE
- GOTO x
- ENDI
- @ PROW(), 88 SAY a1
- @ PROW(), 102 SAY '│'
- @ PROW(), 104 SAY a2
- @ PROW(), 118 SAY '┃'
- ? '┗━━━━━━━━━━━━━━━━━━━━┷━━━━━━━━━━┷━━━━━━━━━━┷━━━━━━━┷━━━━━━━┛'
- ? ' 会计主管:'
- @ PROW(), 58 SAY ' 复 核:'
- @ PROW(), 68 SAY sh
- @ PROW(), 85 SAY '制 单:'
- @ PROW(), 95 SAY lr
- ? ' '
- ? ' '
- ? ' '
- ? '┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈'
- ? ' '
- IF y1>=ys
- EXIT
- ELSE
- y1 = y1+1
- ENDI
- ENDD
- SET PRINTER OFF
- SET DEVICE TO SCREEN
- SET CONSOLE ON
- ?? CHR(7)
- @ 5, 43 CLEAR TO 9, 68
- @ 6, 46 SAY '按 Esc 键退出打印,'
- @ 8, 46 SAY '按其他键打印下一张凭证!'
- i = INKEY(0)
- IF i=27
- EXIT
- ENDI
- pz = pz+1
- LOCA ALL FOR pz=pzh
- IF EOF()
- ?? CHR(7)
- @ 5, 42 CLEAR TO 9, 68
- @ 6, 46 SAY '最末一张凭证已经打印,'
- @ 8, 46 SAY '按任意键返回......'
- i = INKEY(0)
- EXIT
- ENDI
- ENDD
- CLOS DATABASES
- SET COLOR TO W+/B
- @ 0, 0, 23, 79 BOX '北北北北'
- SET COLOR TO W+/N
- @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
- @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG
- @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0) 黄朝生研制 版权所有 南宁市建政路51号 邮编:530023 ' COLOR R/W
- ON KEY LABEL Escape do Rquit
- SET CLOCK TO 23, 69
- RETU
- *