pcxzl.prg

一个非常好用的财务软件源程序

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: PCXZL.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 USE EXCLUSIVE kpz
 REPLACE FBZ WITH ('M')
 INDEX ON FBSH TAG FBSH
 INDEX ON FPZH TAG FPZH
 SET ORDER TO fpzh
 GO BOTTOM
 DO WHILE  .NOT. BOF()
    IF FBZ = 'M'
       BREC = RECNO()
       BJC = 1
       BFPZH = ALLTRIM(FPZH)
       BB = 1
       BSJBM = ''
       DO WHILE BB < LEN(BFPZH)
          BPZH = SUBSTR(BFPZH,1,BB)
          SEEK BPZH
          IF  .NOT. EOF()
             REPLACE FJC WITH BJC , FBZ WITH 'H' , FSJBM WITH BSJBM
             BJC = BJC + 1
             BSJBM = FPZH
          ENDIF 
          BB = BB + 1
       ENDDO 
       GO BREC
       REPLACE FJC WITH BJC , FSJBM WITH BSJBM
    ENDIF 
    SKIP -1
 ENDDO 
 GO TOP
 DO WHILE  .NOT. EOF()
    IF FJC <> 1
       BREC = RECNO()
       BSJBM = ALLTRIM(FSJBM)
       SEEK BSJBM
       BMC = IIF(FOUND(),ALLTRIM(FMC),'')
       GO BREC
       IF  .NOT. EMPTY(BMC)
          IF  .NOT. (BMC $ FMC)
             REPLACE FMC WITH BMC + '-' + FMC
          ENDIF 
       ENDIF 
    ENDIF 
    SKIP 
 ENDDO 
 USE 
 USE EXCLUSIVE kdj
 INDEX ON FDJH TAG FDJH
 USE EXCLUSIVE kcr
 INDEX ON FBSH TAG FBSH
 INDEX ON FDJH TAG FDJH
 USE 
 DO PKJQJ
 BYEAR = YEAR(BKSQ)
 DO WHILE BYEAR <= BSYSYEAR
    BZC = 'kzc' + STR(BYEAR,4)
    USE EXCLUSIVE (BZC)
    INDEX ON FBSH TAG FBSH
    USE 
    DELETE FROM (BZC) WHERE FBSH IN(SELECT FBSH FROM kpz WHERE FBZ = 'H')
    BYEAR = BYEAR + 1
 ENDDO 
 CLOSE DATABASES ALL
 = MESSAGEBOX('数据整理完毕',64,'提示信息')
*