www.pudn.com > jq_caiwu.ARJ > 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 
*