time.prg

来自「2仍然」· PRG 代码 · 共 32 行

DO FORM TIME
CLOSE DATABASE

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

PUBLIC RQ1,RQ2,TIMEBZ,TIMEBZ1
TIMEBZ=1 && 应收、行业表用菜单跳过标志
TIMEBZ1=1 && 回收、调整电费用菜单跳过标志

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日之前可修改数据，否则数据定型不能修改。
	    CLOSE DATABASE
		TIMEBZ=0
	ENDIF
ENDIF

RETURN