do set_menu
= wget_pdt('VEHICLE DELIVERED REPORT')
do wait_msg
wait wind '!!! WAIT !!! Gathering Data using SQL ...' nowa
sele salemast.dc_no,salemast.dc_dt,salemast.expecteddt,salemast.deliremark,;
	vehicle.chasis_no,vehicle.modelcolno, ;
	booking.client ;
	from salemast,vehicle,booking,client ;
	WHERE betw(salemast.DC_dt,date1,date2) ;
	and SALEMAST.CLIENT_NO=CLIENT.CLIENT_NO ;
	AND CLIENT.CLIENT_NO=BOOKING.CLIENT_NO ;
	AND BOOKING.CLIENT_NO=VEHICLE.REF_NO ;
	orde by expecteddt.dc_no ;	
	into cursor query
if _TALLY > 0
	wait wind '!!! WAIT !!! Generating Report ...' nowa
do prinrepo with 'wvehicletobedelivered','','','','' 
else
	deac wind wait
	do alert with '!!! ATTENTION !!!;No data Found between Given Job cards ..'
endif
use in query
do cls_menu
