pzgs1.prg

来自「一个非常好用的财务软件源程序」· PRG 代码 · 共 69 行

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


 CREATE TABLE pztmp ( FDJH C ( 11 ) , FZH C ( 3 ) , FZS C ( 3 ) , FZY1 C ( 60 ) , FMC1 C  ;
      ( 50 ) , FRJE1 N ( 12 ) , FCJE1 N ( 12 ) , FZY2 C ( 60 ) , FMC2 C (  ;
      50 ) , FRJE2 N ( 12 ) , FCJE2 N ( 12 ) , FZY3 C ( 60 ) , FMC3 C ( 50 ) ,  ;
      FRJE3 N ( 12 ) , FCJE3 N ( 12 ) , FZY4 C ( 60 ) , FMC4 C ( 50 ) ,  ;
      FRJE4 N ( 12 ) , FCJE4 N ( 12 ) , FZY5 C ( 60 ) , FMC5 C ( 50 ) , FRJE5  ;
      N ( 12 ) , FCJE5 N ( 12 ) , FZY6 C ( 60 ) , FMC6 C ( 50 ) , FRJE6 N (  ;
      12 ) , FCJE6 N ( 12 ) , FZMC1 C ( 20 ) , FZMC2 C ( 20 ) , FZMC3 C ( 20  ;
      ) , FZMC4 C ( 20 ) , FZMC5 C ( 20 ) , FZMC6 C ( 20 ) , FMMC1 C ( 30 ) ,  ;
      FMMC2 C ( 30 ) , FMMC3 C ( 30 ) , FMMC4 C ( 30 ) , FMMC5 C ( 30 ) ,  ;
      FMMC6 C ( 30 ) )
 SELECT RKTMP
 BDJH = ''
 SCAN 
    BDJH0 = BDJH
    BDJH = FDJH
    IF BDJH <> BDJH0
       BFL = 1
    ENDIF 
    BZY = FZY
    BMC = FMC
    TT = AT('-',BMC)
    IF TT > 0
       BZMC = ALLTRIM(SUBSTR(BMC,1,10)) + SUBSTR(BMC,11,TT - 11)
       BMMC = SUBSTR(BMC,TT + 1,30)
    ELSE 
       BZMC = ALLTRIM(SUBSTR(BMC,1,10)) + SUBSTR(BMC,11,30)
       BMMC = ''
    ENDIF 
    BRJE = FRJE * 100
    BCJE = FCJE * 100
    DO CASE 
    CASE BFL = 1
       INSERT INTO pztmp ( FDJH , FZY1 , FMC1 , FRJE1 , FCJE1 , FZMC1 , FMMC1 ) VALUES ( BDJH ,  ;
            BZY , BMC , BRJE , BCJE , BZMC , BMMC )
       BFL = BFL + 1
    CASE BFL = 2
       SELECT PZTMP
       REPLACE FZY2 WITH BZY , FMC2 WITH BMC , FRJE2 WITH BRJE , FCJE2 WITH BCJE , FZMC2 WITH  ;
            BZMC , FMMC2 WITH BMMC
       BFL = BFL + 1
    CASE BFL = 3
       SELECT PZTMP
       REPLACE FZY3 WITH BZY , FMC3 WITH BMC , FRJE3 WITH BRJE , FCJE3 WITH BCJE , FZMC3 WITH  ;
            BZMC , FMMC3 WITH BMMC
       BFL = BFL + 1
    CASE BFL = 4
       SELECT PZTMP
       REPLACE FZY4 WITH BZY , FMC4 WITH BMC , FRJE4 WITH BRJE , FCJE4 WITH BCJE , FZMC4 WITH  ;
            BZMC , FMMC4 WITH BMMC
       BFL = BFL + 1
    CASE BFL = 5
       SELECT PZTMP
       REPLACE FZY5 WITH BZY , FMC5 WITH BMC , FRJE5 WITH BRJE , FCJE5 WITH BCJE , FZMC5 WITH  ;
            BZMC , FMMC5 WITH BMMC
       BFL = BFL + 1
    CASE BFL = 6
       SELECT PZTMP
       REPLACE FZY6 WITH BZY , FMC6 WITH BMC , FRJE6 WITH BRJE , FCJE6 WITH BCJE , FZMC6 WITH  ;
            BZMC , FMMC6 WITH BMMC
       BFL = 1
    ENDCASE 
 ENDSCAN 
*