pkjqj.prg

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

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


 = PUSE('kuser')
 PUBLIC BSYSYEAR , BSYSMON , BDQQ , BKJQJ , BKSQ
 BCOMPANY = ALLTRIM(FNAME)
 BDQQ = FDQQ
 BKSQ = FKSQ
 DO WHILE DAY(BDQQ) > 1
    BDQQ = BDQQ - 1
 ENDDO 
 BSYSYEAR = YEAR(FDQQ)
 BSYSMON = MONTH(FDQQ)
 IF BSYSMON < 10
    BKJQJ = STR(BSYSYEAR,4,0) + '0' + STR(BSYSMON,1,0)
 ELSE 
    BKJQJ = STR(BSYSYEAR,4,0) + STR(BSYSMON,2,0)
 ENDIF 
 USE 
 RETURN 
*