plxjs.prg

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

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


 GO TOP
 BRQ = FRQ
 BYE = 0
 BLL = FLL
 BYSLX = 0
 BJS = 0
 BLXYE = 0
 DO WHILE  .NOT. EOF()
    BJS = BJS + BYE * (FRQ - BRQ)
    BYSLX = BYSLX + BYE * BLL * (FRQ - BRQ) / 36000
    BYE = IIF(BJK = 'D',BYE + FRJE - FCJE,BYE + FCJE - FRJE)
    BRQ = FRQ
    BLL = FLL
    IF FJD
       REPLACE FJS WITH BJS , FYSLX WITH BYSLX
       BJS = 0
       BYSLX = 0
    ENDIF 
    BLXYE = BLXYE + FYSLX - FHX
    REPLACE FYE WITH BYE , FLXYE WITH BLXYE
    REPLACE FHJ WITH FYE + FLXYE
    SKIP 
 ENDDO 
*