crea_new_mon.prg

物业收费管理软件

*******************
*模块名：创建新一轮的收费记录
*文件名：crea_new_mon.prg
*功能：创建新一轮的收费记录，并将水表的本月读数转入下一轮的上月读数
*******************
sele 1
use jfqk
sele 2
use sfxm
sele 3
use yzzl
sele 4
use fcxx
SELECT Yzzl
SET ORDER TO TAG 房号 OF fcxx.cdx IN Fcxx
SET RELATION TO 房号 INTO Fcxx ADDITIVE
sele jfqk
SET FILTER TO
REINDEX
GO BOTTOM
last_rq=收费日期
sele yzzl
go top
do while not eof()
	sele yzzl
	zybh=编号
	yz=业主姓名
	sele fcxx
	fc=房产编号
	fh=房号
	mj=建筑面积
	sele jfqk
	append blank
	replace 房产编号 with fc,业主编号 WITH zybh,业主姓名 with yz,交费情况 with .f.,收费日期 with rq,房号 with fh,建筑面积 with mj
	SELECT jfqk
	SKIP
	SELECT  yzzl	
	SKIP
ENDDO

IF !EMPTY(dtoc(last_rq))
	&&水表读数转移
	SELECT * from jfqk WHERE 收费日期=last_rq INTO CURSOR last_table
	SELECT jfqk
	SET FILTER TO 收费日期=rq
	DO WHILE NOT EOF()
		SELECT last_table
		byds=本月读数
		SKIP
		SELECT jfqk
		REPLACE 上月读数 WITH byds
		SELECT jfqk
		SKIP
	ENDDO
ENDIF
for i=1 to 4
	SELECT (i)
	use
ENDFOR