select avlbook
seek thisform.text1.value
if !found()
	append blank
	replace date with thisform.text14.value
	replace gate_no with thisform.text1.value
endif

select avlbook
go top
append blank
delete
pack
flush force