Function cf2_ViewUnload(ref Cancel)
	if record <> 1
		Cancel = True
	end if
	message "ViewUnload, Cancel = " | str(Cancel)
End Function