PZDY.PRG
上传用户:hbmaozhan
上传日期:2013-01-31
资源大小:1007k
文件大小:8k
源码类别:

企业管理

开发平台:

VFP

  1.  ON KEY
  2.  SET COLOR TO W/N
  3.  CLOS DATABASES
  4.  USE pzk
  5.  @ 5, 42 CLEAR TO 11, 72
  6.  SET COLOR TO W+/BG
  7.  @ 4, 40 CLEAR TO 10, 70
  8.  x1 = 4
  9.  x2 = 10
  10.  y1 = 41
  11.  y2 = 69
  12.  DO box-1
  13.  pd = 1
  14.  @ 6, 48 SAY '从哪一张凭证开始打印?'
  15.  SET COLOR TO W/N, BG+/R
  16.  @ 8, 51 GET pd PICTURE '999999'
  17.  READ
  18.  LOCA ALL FOR pd=pzh
  19.  pz = pd
  20.  IF EOF()
  21.       ?? CHR(7)
  22.       SET COLOR TO W+/BG
  23.       @ 5, 44 CLEAR TO 9, 68
  24.       @ 6, 46 SAY '指定凭证未找到!'
  25.       @ 8, 46 SAY '按任意键返回......'
  26.       i = INKEY(0)
  27.       CLOS DATABASES
  28.       SET COLOR TO W+/B
  29.       @ 0, 0, 23, 79 BOX '北北北北'
  30.       SET COLOR TO W+/N
  31.       @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  32.       @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  33.       @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  34.       ON KEY LABEL Escape do Rquit
  35.       SET CLOCK TO 23, 69
  36.       RETU
  37.  ENDI
  38.  DO WHILE .T.
  39.       sl1 = RECNO()
  40.       LOCA ALL FOR pz+1=pzh
  41.       IF EOF()
  42.            GOTO BOTTOM
  43.            ml1 = RECNO()
  44.       ELSE
  45.            SKIP -1
  46.            ml1 = RECNO()
  47.       ENDI
  48.       GOTO sl1
  49.       pd1 = pds
  50.       lr = lry
  51.       sh = shy
  52.       ys = INT(ml1+1-sl1)/8
  53.       IF INT((ml1+1-sl1)/8)=(ml1+1-sl1)/8
  54.            ys = INT(ys+0)
  55.       ELSE
  56.            ys = INT(ys+1)
  57.       ENDI
  58.       DO WHILE .T.
  59.            IF SYS(13)<>'READY'
  60.                 SET PRINTER OFF
  61.                 SET DEVICE TO SCREEN
  62.                 SET CONSOLE ON
  63.                 ?? CHR(7)
  64.                 SET COLOR TO W+/BG
  65.                 @ 5, 43 CLEAR TO 9, 68
  66.                 @ 6, 46 SAY '打印机尚未准备好!'
  67.                 @ 8, 46 SAY 'Esc=退出,其他键重试...'
  68.                 i = INKEY(0)
  69.                 IF i=27
  70.                      CLOS DATABASES
  71.                      SET COLOR TO W+/B
  72.                      @ 0, 0, 23, 79 BOX '北北北北'
  73.                      SET COLOR TO W+/N
  74.                      @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  75.                      @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  76.                      @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  77.                      ON KEY LABEL Escape do Rquit
  78.                      SET CLOCK TO 23, 69
  79.                      RETU
  80.                 ENDI
  81.            ELSE
  82.                 @ 5, 43 CLEAR TO 9, 68
  83.                 @ 6, 48 SAY '正在进行凭证打印!'
  84.                 @ 8, 51 SAY '请稍候......'
  85.                 SET PRINTER ON
  86.                 SET DEVICE TO PRINTER
  87.                 SET CONSOLE OFF
  88.                 EXIT
  89.            ENDI
  90.       ENDD
  91.       y1 = 1
  92.       DO WHILE y1<=ys
  93.            ?? '`@B`'
  94.            ? '    '
  95.            ? '                      记  帐  凭  证  '
  96.            ? '     '
  97.            ?? '`@A`'
  98.            ? ' 广西盐业公司 '
  99.            @ PROW(), 54 SAY rq
  100.            @ PROW(), 85 SAY '总字第'
  101.            @ PROW(), 95 SAY pzh PICTURE '9999'
  102.            IF ys<>1
  103.                 @ PROW(), 101 SAY y1 PICTURE '99'
  104.                 @ PROW(), 104 SAY '/'
  105.                 @ PROW(), 105 SAY ys PICTURE '99'
  106.            ENDI
  107.            @ PROW(), 108 SAY '号'
  108.            ? '┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓'
  109.            ? '┃           摘             要            │   总  帐  科  目   │  明  细   科  目   │ 借 方 金 额  │ 贷 方 金 额  ┃        | '
  110.            ? '┠────────────────────┼──────────┼──────────┼───────┼───────┨'
  111.            pd = 1
  112.            DO WHILE .T.
  113.                 IF EOF() .OR. RECNO()>ml1
  114.                      a1 = 0
  115.                      a2 = 0
  116.                      zz = '      '
  117.                      mx = '      '
  118.                      zy1 = '     '
  119.                 ELSE
  120.                      zz = zzkm
  121.                      mx = mxkm
  122.                      a1 = jje
  123.                      a2 = dje
  124.                      zy1 = zy
  125.                 ENDI
  126.                 ? '┃'
  127.                 @ PROW(), 2 SAY zy1
  128.                 @ PROW(), 42 SAY '│'
  129.                 @ PROW(), 44 SAY zz
  130.                 @ PROW(), 64 SAY '│'
  131.                 @ PROW(), 66 SAY mx
  132.                 @ PROW(), 86 SAY '│'
  133.                 IF a1<>0
  134.                      @ PROW(), 88 SAY a1
  135.                 ENDI
  136.                 @ PROW(), 102 SAY '│'
  137.                 IF a2<>0
  138.                      @ PROW(), 104 SAY a2
  139.                 ENDI
  140.                 @ PROW(), 118 SAY '┃'
  141.                 IF INT(pd/2)<>pd/2
  142.                 ENDI
  143.                 IF pd=2
  144.                      @ PROW(), 120 SAY '附'
  145.                 ENDI
  146.                 IF pd=3
  147.                      @ PROW(), 120 SAY '件' PICTURE 'xx'
  148.                 ENDI
  149.                 IF pd=5
  150.                      @ PROW(), 120 SAY pd1 PICTURE '999'
  151.                 ENDI
  152.                 IF pd=7
  153.                      @ PROW(), 120 SAY '张' PICTURE 'xx'
  154.                 ENDI
  155.                 IF RECNO()<ml1 .OR.  .NOT. EOF()
  156.                      SKIP
  157.                 ENDI
  158.                 IF pd=8
  159.                      EXIT
  160.                 ENDI
  161.                 pd = pd+1
  162.            ENDD
  163.            ? '┠────────────────────┼──────────┼──────────┼───────┼───────┨       |'
  164.            ? '┃           合           计              │                    │                    │'
  165.            x = RECNO()
  166.            IF y1=ys .OR. ys=1
  167.                 GOTO sl1
  168.                 SUM ALL FOR pzh=pz jje TO a1
  169.                 SUM ALL FOR pzh=pz dje TO a2
  170.            ELSE
  171.                 GOTO sl1+(y1-1)*8
  172.                 SUM NEXT 8 jje TO a1
  173.                 SKIP -7
  174.                 SUM NEXT 8 dje TO a2
  175.            ENDI
  176.            IF EOF()
  177.                 GOTO x-1
  178.            ELSE
  179.                 GOTO x
  180.            ENDI
  181.            @ PROW(), 88 SAY a1
  182.            @ PROW(), 102 SAY '│'
  183.            @ PROW(), 104 SAY a2
  184.            @ PROW(), 118 SAY '┃'
  185.            ? '┗━━━━━━━━━━━━━━━━━━━━┷━━━━━━━━━━┷━━━━━━━━━━┷━━━━━━━┷━━━━━━━┛'
  186.            ? '                       会计主管:'
  187.            @ PROW(), 58 SAY ' 复  核:'
  188.            @ PROW(), 68 SAY sh
  189.            @ PROW(), 85 SAY '制  单:'
  190.            @ PROW(), 95 SAY lr
  191.            ? '     '
  192.            ? '     '
  193.            ? '    '
  194.            ? '┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈'
  195.            ? '    '
  196.            IF y1>=ys
  197.                 EXIT
  198.            ELSE
  199.                 y1 = y1+1
  200.            ENDI
  201.       ENDD
  202.       SET PRINTER OFF
  203.       SET DEVICE TO SCREEN
  204.       SET CONSOLE ON
  205.       ?? CHR(7)
  206.       @ 5, 43 CLEAR TO 9, 68
  207.       @ 6, 46 SAY '按 Esc 键退出打印,'
  208.       @ 8, 46 SAY '按其他键打印下一张凭证!'
  209.       i = INKEY(0)
  210.       IF i=27
  211.            EXIT
  212.       ENDI
  213.       pz = pz+1
  214.       LOCA ALL FOR pz=pzh
  215.       IF EOF()
  216.            ?? CHR(7)
  217.            @ 5, 42 CLEAR TO 9, 68
  218.            @ 6, 46 SAY '最末一张凭证已经打印,'
  219.            @ 8, 46 SAY '按任意键返回......'
  220.            i = INKEY(0)
  221.            EXIT
  222.       ENDI
  223.  ENDD
  224.  CLOS DATABASES
  225.  SET COLOR TO W+/B
  226.  @ 0, 0, 23, 79 BOX '北北北北'
  227.  SET COLOR TO W+/N
  228.  @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍'
  229.  @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG 
  230.  @ 24, 0 SAY ' JQ001财务管理系统(Ver3.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
  231.  ON KEY LABEL Escape do Rquit
  232.  SET CLOCK TO 23, 69
  233.  RETU
  234. *