do set_menu
=get_pdt("SCHEME WISE DETAILS")
wait wind "!!! WAIT !!! Gathering Report ...;" nowa
sele schememast.scheme,salemast.bill_no,salemast.bill_dt,;
    client.client,client.modelcolno,client.chasis_no,;
    schememast.disc_amt;
	from salemast,client,schememast ;
	where schememast.scheme_no = salemast.scheme_no ;
	and salemast.client_no = client.client_no ;
	order by schememast.scheme,salemast.bill_dt,salemast.bill_no;
	into cursor query
if _tally > 0
	do prinrepo with 'Wschedet','SCHEDETL','','',''
else
	deac wind wait
	do alert with "No Data Found for given Condition"	
endif
use in query	
do cls_menu
	