企业管理

开发平台：
VFP

ZZKMDY.PRG：源码内容
							 SELE 4
 USE zzk
 SORT ON kmdm TO zzk%.dbf
 USE
 SELE 2
 USE zzk%
 GOTO TOP
 qc = 0
 jf = 0
 df = 0
 ye1 = 0
 esc = 0
 SET COLOR TO N/G
 @ 2, 0 CLEAR TO 11, 45
 SET COLOR TO GR+/N
 h = '  19  年   月   日                '
 @ 3, 9 SAY '请输入日期'
 SET COLOR TO
 DO WHILE .T.
      @ 6, 1 CLEAR TO 9, 35
      @ 7, 1 SAY '' GET h
      READ
      i = 'N'
      SET COLOR TO RB+/N
      @ 8, 4 SAY '确认了吗? Y=是,其他=否' GET i
      READ
      IF i='Y' .OR. i='y'
           EXIT
      ENDI
      ?? CHR(7)
      @ 8, 4 SAY '                          '
 ENDD
 SET COLOR TO N/G
 @ 3, 0 CLEAR TO 9, 35
 SET COLOR TO
 @ 5, 8 CLEAR TO 10, 35
 SET COLOR TO GR+/B
 @ 4, 5 CLEAR TO 9, 33
 x1 = 4
 x2 = 9
 y1 = 5
 y2 = 31
 DO box-1
 ?? CHR(7)
 @ 6, 9 SAY '请使用8开纸,竖放!'
 @ 7, 9 SAY '准备好后按任意键......'
 i = INKEY(0)
 SET COLOR TO N/G
 @ 3, 0 CLEAR TO 9, 35
 SET COLOR TO
 @ 5, 8 CLEAR TO 10, 35
 SET COLOR TO W+/B
 @ 4, 5 CLEAR TO 9, 33
 x1 = 4
 x2 = 9
 y1 = 5
 y2 = 31
 DO box-1
 @ 6, 7 SAY '正在打印科目余额对照表!'
 @ 7, 13 SAY '请稍候......'
 DO WHILE .T.
      IF SYS(13)<>'READY'
           ?? CHR(7)
           SET COLOR TO
           @ 5, 8 CLEAR TO 10, 35
           SET COLOR TO W+/B
           @ 4, 5 CLEAR TO 9, 33
           x1 = 4
           x2 = 9
           y1 = 5
           y2 = 31
           DO box-1
           @ 6, 9 SAY '打印机尚未准备好!'
           @ 7, 9 SAY '准备好后按任意键......'
           i = INKEY(0)
      ELSE
           SET COLOR TO W+/B
           @ 6, 8 CLEAR TO 8, 30
           @ 6, 7 SAY '正在打印科目余额对照表!'
           @ 7, 13 SAY '请稍候......'
           EXIT
      ENDI
 ENDD
 SET PRINTER ON
 SET DEVICE TO PRINTER
 SET CONSOLE OFF
 ? '   '
 ? '   '
 ? '   '
 ? '                                                         科 目 余 额 对 照 表 '
 ? '    '
 ? '   '
 ? '      广西盐业公司                                       '+h+'   单位:元   '
 ? '      ------------------------------------------------------------------------------------------------------------------------------'
 ? '             科目代码         总帐科目                借/贷    期初余额      借方发生额       贷方发生额     借/贷    期末余额'
 ? '      ------------------------------------------------------------------------------------------------------------------------------'
 DO WHILE  .NOT. EOF()
      qc = 0
      jf = 0
      df = 0
      ye1 = 0
      kmdm1 = kmdm
      zzkm1 = zzkm
      jhd1 = jhd
      DO CASE
           CASE zy='期初余额'
                qc = ye
           CASE zy='本月合计'
                jf = jje
                df = dje
           CASE zy='期末及累计'
                ye1 = ye
      ENDC
      DO WHILE .T.
           SKIP
           IF EOF()
                esc = 1234
                EXIT
           ENDI
           IF kmdm=kmdm1
                DO CASE
                     CASE zy='期初余额'
                          qc = ye
                     CASE zy='本月合计'
                          jf = jje
                          df = dje
                     CASE zy='期末及累计'
                          ye1 = ye
                ENDC
           ELSE
                EXIT
           ENDI
      ENDD
      IF esc=1234
           EXIT
      ENDI
      ? '              '+kmdm1
      @ PROW(), 30 SAY zzkm1
      DO CASE
           CASE qc=0
                @ PROW(), 55 SAY '平'
           CASE qc>0 .AND. jhd1='+'
                @ PROW(), 55 SAY '借'
           CASE qc<0 .AND. jhd1='+'
                @ PROW(), 55 SAY '贷'
                qc = -qc
           CASE qc>0 .AND. jhd1='-'
                @ PROW(), 55 SAY '贷'
           CASE qc<0 .AND. jhd1='-'
                @ PROW(), 55 SAY '借'
                qc = -qc
      ENDC
      @ PROW(), 60 SAY qc
      @ PROW(), 76 SAY jf
      @ PROW(), 94 SAY df
      DO CASE
           CASE ye1=0
                @ PROW(), 111 SAY '平'
           CASE ye1>0 .AND. jhd1='+'
                @ PROW(), 111 SAY '借'
           CASE ye1<0 .AND. jhd1='+'
                @ PROW(), 111 SAY '贷'
                ye1 = -ye1
           CASE ye1>0 .AND. jhd1='-'
                @ PROW(), 111 SAY '贷'
           CASE ye1<0 .AND. jhd1='-'
                @ PROW(), 111 SAY '借'
                ye1 = -ye1
      ENDC
      @ PROW(), 115 SAY ye1
 ENDD
 USE
 ERAS zzk%.dbf
 ? '        ----------------------------------------------------------------------------------------------------------------------------'
 ? ' '
 SET PRINTER OFF
 SET DEVICE TO SCREEN
 SET CONSOLE ON
 SELE 3
 RETU
*

						