企业管理

开发平台：

VFP

CSHJS.PRG：源码内容

							 CLOS DATABASES
 SET COLOR TO
 CLEA
 SET COLOR TO BG+/G
 @ 9, 18 CLEAR TO 14, 60
 @ 11, 30 SAY '正在进行数据整理,'
 @ 13, 33 SAY '请稍候......'
 USE pzk
 SORT ON kmdm TO pzk%.dbf
 USE
 ERAS pzk.dbf
 RENA pzk%.dbf TO pzk.dbf
 RUN copy pzk.dbf zzk.dbf >nul
 USE zzk
 DELE ALL FOR LEN(LTRIM(TRIM(kmdm)))=7
 PACK
 GOTO TOP
 DO WHILE .T.
      IF EOF()
           EXIT
      ENDI
      pd = LTRIM(TRIM(kmdm))
      pd = SUBSTR(pd, 1, 7)
      REPL kmdm WITH pd
      SKIP
 ENDD
 USE
 USE zzk
 TOTA ON kmdm TO zzk%.dbf FIELDS jje, dje, ye, ssl, fsl, ysl, njye, ndye
 USE
 RUN copy zzk%.dbf zzk.dbf>nul
 ERAS zzk%.dbf
 RUN copy pzk.dbf pzkk.dbf >nul
 USE pzkk
 USE pzkk
 PACK
 GOTO TOP
 DO WHILE .T.
      IF EOF()
           EXIT
      ENDI
      pd = LTRIM(TRIM(kmdm))
      pd = SUBSTR(pd, 1, 3)
      REPL kmdm WITH pd
      SKIP
 ENDD
 TOTA ON kmdm TO pzk-1%.dbf FIELDS jje, dje, ye, ssl, fsl, ysl, njye, ndye
 USE zzk
 APPE FROM pzk-1%.dbf
 USE zzk
 REPL zy WITH '期初余额' ALL
 SORT ON kmdm TO zzk%.dbf
 USE
 ERAS zzk.dbf
 RUN ren zzk%.dbf zzk.dbf
 SELE 2
 USE
 ERAS pzk-1%.dbf
 ERAS pzkk.dbf
 SET COLOR TO
 RETU
*

						