DO FORM TIME
CLOSE DATABASE

_screen.caption=substr(_screen.caption,1,27)+space(2)+rq1+'年'+rq2+'月'

PUBLIC RQ1,RQ2,TIMEBZ,TIMEBZ1
TIMEBZ=1 && 應(yīng)收、行業(yè)表用菜單跳過標(biāo)志
TIMEBZ1=1 && 回收、調(diào)整電費(fèi)用菜單跳過標(biāo)志

SELE 0
USE TIME
TIME=TIME->rq
USE IN TIME

rq1=substr(time,1,4)
rq2=substr(time,5,2)

CE=INT(VAL(SYSTIME)-VAL(TIME))

IF CE<>0
    CLOSE DATABASE
	TIMEBZ=0
ELSE
	IF DAY(DATE())>20 &&　本月20日之前可修改數(shù)據(jù)，否則數(shù)據(jù)定型不能修改。
	    CLOSE DATABASE
		TIMEBZ=0
	ENDIF
ENDIF

RETURN