企业管理

开发平台：
VFP

PZHZB.PRG：源码内容
							 SET PATH TO C: 
 pd = 1
 IF FILE('pzhzb.dbf')
      @ 10, 30 SAY '   科目汇总表已经存在!   '
      @ 11, 30 SAY '是否重新生成,Y=是,其他=否'
      i = 'N'
      @ 12, 43 GET i
      READ
      IF i='Y' .OR. i='y'
           pd = 0
      ENDI
 ELSE
      pd = 0
 ENDI
 SET PATH TO cw
 @ 8, 30 SAY '正在处理数据 ......'
 IF pd=0
      RUN copy cwpzhzb.dbf >nul
      SET COLOR TO W/N
      USE pzk
      SORT ON kmdm TO B%.dbf
      USE B%
      REPL kmdm WITH SUBSTR(kmdm, 1, 3) ALL
      TOTA ON kmdm TO A%.dbf FIELDS jje, dje
      SELE 1
      USE a%
      SELE 2
      USE pzhzb
      pd = '101'
      DO pzhzb_1
      pd = '102'
      DO pzhzb_1
      pd = '109'
      DO pzhzb_1
      pd = '111'
      DO pzhzb_1
      pd = '121'
      DO pzhzb_1
      pd = '122'
      DO pzhzb_1
      pd = '125'
      DO pzhzb_1
      pd = '126'
      DO pzhzb_1
      pd = '129'
      DO pzhzb_1
      pd = '131'
      DO pzhzb_1
      pd = '135'
      DO pzhzb_1
      pd = '143'
      DO pzhzb_1
      pd = '144'
      DO pzhzb_1
      pd = '145'
      DO pzhzb_1
      pd = 'qwe'
      DO pzhzb_1
      pd = '149'
      DO pzhzb_1
      pd = '151'
      DO pzhzb_1
      pd = '155'
      DO pzhzb_1
      pd = '157'
      DO pzhzb_1
      pd = '159'
      DO pzhzb_1
      pd = '161'
      DO pzhzb_1
      pd = '165'
      DO pzhzb_1
      pd = '171'
      DO pzhzb_1
      pd = '175'
      DO pzhzb_1
      pd = '176'
      DO pzhzb_1
      pd = '179'
      DO pzhzb_1
      pd = '181'
      DO pzhzb_1
      pd = '185'
      DO pzhzb_1
      pd = '191'
      DO pzhzb_1
      SELE 2
      GOTO 32
      pd = '201'
      DO pzhzb_1
      pd = '203'
      DO pzhzb_1
      pd = '204'
      DO pzhzb_1
      pd = '206'
      DO pzhzb_1
      pd = '211'
      DO pzhzb_1
      pd = '215'
      DO pzhzb_1
      pd = '216'
      DO pzhzb_1
      pd = '221'
      DO pzhzb_1
      pd = '225'
      DO pzhzb_1
      pd = '229'
      DO pzhzb_1
      pd = '231'
      DO pzhzb_1
      pd = '245'
      DO pzhzb_1
      pd = '251'
      DO pzhzb_1
      pd = '261'
      DO pzhzb_1
      pd = '271'
      DO pzhzb_1
      pd = '281'
      DO pzhzb_1
      pd = '301'
      DO pzhzb_1
      pd = '311'
      DO pzhzb_1
      pd = '313'
      DO pzhzb_1
      pd = '321'
      DO pzhzb_1
      pd = '322'
      DO pzhzb_1
      pd = '585'
      DO pzhzb_1
      pd = '501'
      DO pzhzb_1
      pd = '507'
      DO pzhzb_1
      pd = '511'
      DO pzhzb_1
      pd = '517'
      DO pzhzb_1
      pd = '521'
      DO pzhzb_1
      pd = '541'
      DO pzhzb_1
      pd = '545'
      DO pzhzb_1
      pd = '551'
      DO pzhzb_1
      pd = '555'
      DO pzhzb_1
      pd = '550'
      DO pzhzb_1
      pd = '561'
      DO pzhzb_1
      pd = '560'
      DO pzhzb_1
      pd = '565'
      DO pzhzb_1
      pd = '571'
      DO pzhzb_1
      pd = '575'
      DO pzhzb_1
      CLOS DATABASES
      SET COLOR TO W/N
      USE mxk
      DELE ALL FOR zy<>'期初余额'
      SORT ON kmdm TO B%.dbf
      RECA ALL
      USE B%
      REPL kmdm WITH SUBSTR(kmdm, 1, 3) ALL
      TOTA ON kmdm TO A%.dbf FIELDS ye
      SELE 1
      USE a%
      SELE 2
      USE pzhzb
      pd = '101'
      DO pzhzb_2
      pd = '102'
      DO pzhzb_2
      pd = '109'
      DO pzhzb_2
      pd = '111'
      DO pzhzb_2
      pd = '121'
      DO pzhzb_2
      pd = '122'
      DO pzhzb_2
      pd = '125'
      DO pzhzb_2
      pd = '126'
      DO pzhzb_2
      pd = '129'
      DO pzhzb_2
      pd = '131'
      DO pzhzb_2
      pd = '135'
      DO pzhzb_2
      pd = '143'
      DO pzhzb_2
      pd = '144'
      DO pzhzb_2
      pd = '145'
      DO pzhzb_2
      pd = 'qwe'
      DO pzhzb_2
      pd = '149'
      DO pzhzb_2
      pd = '151'
      DO pzhzb_2
      pd = '155'
      DO pzhzb_2
      pd = '157'
      DO pzhzb_2
      pd = '159'
      DO pzhzb_2
      pd = '161'
      DO pzhzb_2
      pd = '165'
      DO pzhzb_2
      pd = '171'
      DO pzhzb_2
      pd = '175'
      DO pzhzb_2
      pd = '176'
      DO pzhzb_2
      pd = '179'
      DO pzhzb_2
      pd = '181'
      DO pzhzb_2
      pd = '185'
      DO pzhzb_2
      pd = '191'
      DO pzhzb_2
      SELE 2
      GOTO 32
      pd = '201'
      DO pzhzb_2
      pd = '203'
      DO pzhzb_2
      pd = '204'
      DO pzhzb_2
      pd = '206'
      DO pzhzb_2
      pd = '211'
      DO pzhzb_2
      pd = '215'
      DO pzhzb_2
      pd = '216'
      DO pzhzb_2
      pd = '221'
      DO pzhzb_2
      pd = '225'
      DO pzhzb_2
      pd = '229'
      DO pzhzb_2
      pd = '231'
      DO pzhzb_2
      pd = '245'
      DO pzhzb_2
      pd = '251'
      DO pzhzb_2
      pd = '261'
      DO pzhzb_2
      pd = '271'
      DO pzhzb_2
      pd = '281'
      DO pzhzb_2
      pd = '301'
      DO pzhzb_2
      pd = '311'
      DO pzhzb_2
      pd = '313'
      DO pzhzb_2
      pd = '321'
      DO pzhzb_2
      pd = '322'
      DO pzhzb_2
      pd = '585'
      DO pzhzb_2
      pd = '501'
      DO pzhzb_2
      pd = '507'
      DO pzhzb_2
      pd = '511'
      DO pzhzb_2
      pd = '517'
      DO pzhzb_2
      pd = '521'
      DO pzhzb_2
      pd = '541'
      DO pzhzb_2
      pd = '545'
      DO pzhzb_2
      pd = '551'
      DO pzhzb_2
      pd = '555'
      DO pzhzb_2
      pd = '550'
      DO pzhzb_2
      pd = '561'
      DO pzhzb_2
      pd = '560'
      DO pzhzb_2
      pd = '565'
      DO pzhzb_2
      pd = '571'
      DO pzhzb_2
      pd = '575'
      DO pzhzb_2
      CLOS DATABASES
      ERAS B%.dbf
      USE mxk
      DELE ALL FOR zy<>'期末及累计'
      SORT ON kmdm TO B%.dbf
      RECA ALL
      USE B%
      REPL kmdm WITH SUBSTR(kmdm, 1, 3) ALL
      TOTA ON kmdm TO A%.dbf FIELDS ye
      SELE 1
      USE a%
      SELE 2
      USE pzhzb
      pd = '101'
      DO pzhzb_3
      pd = '102'
      DO pzhzb_3
      pd = '109'
      DO pzhzb_3
      pd = '111'
      DO pzhzb_3
      pd = '121'
      DO pzhzb_3
      pd = '122'
      DO pzhzb_3
      pd = '125'
      DO pzhzb_3
      pd = '126'
      DO pzhzb_3
      pd = '129'
      DO pzhzb_3
      pd = '131'
      DO pzhzb_3
      pd = '135'
      DO pzhzb_3
      pd = '143'
      DO pzhzb_3
      pd = '144'
      DO pzhzb_3
      pd = '145'
      DO pzhzb_3
      pd = 'qwe'
      DO pzhzb_3
      pd = '149'
      DO pzhzb_3
      pd = '151'
      DO pzhzb_3
      pd = '155'
      DO pzhzb_3
      pd = '157'
      DO pzhzb_3
      pd = '159'
      DO pzhzb_3
      pd = '161'
      DO pzhzb_3
      pd = '165'
      DO pzhzb_3
      pd = '171'
      DO pzhzb_3
      pd = '175'
      DO pzhzb_3
      pd = '176'
      DO pzhzb_3
      pd = '179'
      DO pzhzb_3
      pd = '181'
      DO pzhzb_3
      pd = '185'
      DO pzhzb_3
      pd = '191'
      DO pzhzb_3
      SELE 2
      GOTO 32
      pd = '201'
      DO pzhzb_3
      pd = '203'
      DO pzhzb_3
      pd = '204'
      DO pzhzb_3
      pd = '206'
      DO pzhzb_3
      pd = '211'
      DO pzhzb_3
      pd = '215'
      DO pzhzb_3
      pd = '216'
      DO pzhzb_3
      pd = '221'
      DO pzhzb_3
      pd = '225'
      DO pzhzb_3
      pd = '229'
      DO pzhzb_3
      pd = '231'
      DO pzhzb_3
      pd = '245'
      DO pzhzb_3
      pd = '251'
      DO pzhzb_3
      pd = '261'
      DO pzhzb_3
      pd = '271'
      DO pzhzb_3
      pd = '281'
      DO pzhzb_3
      pd = '301'
      DO pzhzb_3
      pd = '311'
      DO pzhzb_3
      pd = '313'
      DO pzhzb_3
      pd = '321'
      DO pzhzb_3
      pd = '322'
      DO pzhzb_3
      pd = '585'
      DO pzhzb_3
      pd = '501'
      DO pzhzb_3
      pd = '507'
      DO pzhzb_3
      pd = '511'
      DO pzhzb_3
      pd = '517'
      DO pzhzb_3
      pd = '521'
      DO pzhzb_3
      pd = '541'
      DO pzhzb_3
      pd = '545'
      DO pzhzb_3
      pd = '551'
      DO pzhzb_3
      pd = '555'
      DO pzhzb_3
      pd = '550'
      DO pzhzb_3
      pd = '561'
      DO pzhzb_3
      pd = '560'
      DO pzhzb_3
      pd = '565'
      DO pzhzb_3
      pd = '571'
      DO pzhzb_3
      pd = '575'
      DO pzhzb_3
 ENDI
 CLOS DATABASES
 USE pzhzb
 IF jhd='+'
      REPL qmye WITH qcye+jxs+jzs+jxsx-dxs-dzs-dxsx
 ELSE
      REPL qmye WITH qcye-jxs-jzs-jxsx+dxs+dzs+dxsx
 ENDI
 recn = RECNO()
 LOCA ALL FOR '资产类合计'$kmmc
 pd = RECNO()
 x1 = 0
 x2 = 0
 x3 = 0
 x4 = 0
 x5 = 0
 x6 = 0
 x7 = 0
 x8 = 0
 x9 = 0
 x10 = 0
 SUM ALL FOR RECNO()<pd jxs, jzs, jxsx, dxs, dzs, dxsx TO x1, x2, x3, x4, x5, x6
 SUM ALL FOR jhd='+' .AND. RECNO()<pd qcye, qmye TO x7, x8
 SUM ALL FOR jhd='-' .AND. RECNO()<pd qcye, qmye TO x9, x10
 GOTO pd
 REPL qcye WITH x7-x9, qmye WITH x8-x10
 REPL jxs WITH x1, jzs WITH x2, jxsx WITH x3
 REPL dxs WITH x4, dzs WITH x5, dxsx WITH x6
 y1 = 0
 y2 = 0
 y3 = 0
 y4 = 0
 y5 = 0
 y6 = 0
 y7 = 0
 y8 = 0
 y9 = 0
 y10 = 0
 LOCA ALL FOR '负债及权益类合计'$kmmc
 pd1 = RECNO()
 SUM ALL FOR RECNO()>pd .AND. RECNO()<pd1 jxs, jzs, jxsx, dxs, dzs, dxsx TO y1, y2, y3, y4, y5, y6
 SUM ALL FOR jhd='+' .AND. RECNO()>pd .AND. RECNO()<pd1 qcye, qmye TO y7, y8
 SUM ALL FOR jhd='-' .AND. RECNO()>pd .AND. RECNO()<pd1 qcye, qmye TO y9, y10
 GOTO pd1
 REPL qcye WITH y9-y7, qmye WITH y10-y8
 REPL jxs WITH y1, jzs WITH y2, jxsx WITH y3
 REPL dxs WITH y4, dzs WITH y5, dxsx WITH y6
 GOTO BOTTOM
 REPL jxs WITH x1+y1, jzs WITH x2+y2, jxsx WITH x3+y3
 REPL dxs WITH x4+y4, dzs WITH x5+y5, dxsx WITH x6+y6
 GOTO TOP
 SET COLOR TO W/N
 CLEA
 p = 1
 HIDE POPUP pop2
 HIDE MENU mainmenu
 DEAC WINDOW win
 ON KEY
 SET SYSMENU OFF
 SET COLOR TO GR/N
 @ 0, 0 SAY '挚 诚 奉 献 !'
 @ 0, 67 SAY 'ＪＱ财务系统'
 SET COLOR TO G/N
 @ 0, 30 SAY '科目汇总表'
 @ 1, 0 SAY '==============================================================================='
 ? '   '
 ? '==============================================================================='
 @ 23, 0 SAY '==============================================================================='
 SET COLOR TO B/GR
 @ 24, 0 SAY '

						