DO set_menu

=get_pdt("FORM C. R. TERM")
wait wind "!!! WAIT !!! Gathering Report ...;" nowa
sele model.manuf_name,model.model,client.chasis_no,client.engine_no,;
     booking.client,booking.add1,booking.add2,;
     booking.add3,booking.hpa_name;
    from model,client,booking;
    where booking.client_no = client.client_no ;
    and client.model_no = model.model_no;
    into cursor query
if _tally > 0
	do prinrepo with 'WFORMCRTERM','','','',''
else
	deac wind wait
	do alert with "No Data Found for given Condition"	
endif
use in query	
do cls_menu