cmd="select date,vou_no,vou_type from vouchers where date>?Thisform.text3.Value and vou_type='CP' group by date,vou_no,vou_type order by date,vou_no"
	if sqlexec(con,cmd,'nav')<0
		aerror(laerror)
		messagebox(laerror[1,2])
		return
	endif