do set_menu
= Wget_pdt('INTER GODOWN VEHICLE TRANSFER REGISTER')
wait wind '!!! WAIT !!! Gathering Data Uing SQL...' nowa
do wait_msg

*do attention with 'This Report is based on ACTUAL DC DATE'
sele vehicletrnmast.transferno, vehicletrnmast.transferdt, vehicletrnmast.transport, ;
	vehicletrnmast.truck_no, vehicletrnmast.remark, vehicletrnbody.ref_no, ;
	vehicle.engine_no, vehicle.chasis_no, modelcol.modelcolno, modelcol.colour, ;
	model.model, godown.godown as FromGodown,to_godown.godown as toGodown ;
	 from  vehicletrnmast, vehicletrnbody, vehicle, modelcol, model, godown,godown to_godown ;
		 where vehicletrnmast.transferno = vehicletrnbody.transferno ;
			 and vehicletrnbody.ref_no = vehicle.ref_no ;
			 and vehicle.modelcolno = modelcol.modelcolno ;
			 and modelcol.model_no = model.model_no ;
			 and vehicletrnmast.frm_godown = godown.godown_no ;
			 and vehicletrnmast.to_godown = to_godown.godown_no ;
            AND BETWEEN (vehicletrnmast.transferdt,DATE1,DATE2) ; 
	 orde by vehicletrnmast.transferno, vehicletrnbody.ref_no ;
	 into curs query1

*!*				 and vehicletrnmast.transferno = thisform.txttransferNO.Value 

if _tally > 0
	wait wind '!!! WAIT !!! Generating Reprort ...' nowa
	do prinrepo with '','INTVEHTR','','',0,.F.
*	repo form dt_deli to (out_file) noco
	deac wind wait
*	do out_repo
else
	do alert with 'NO VEHICLE TRANFER  FOUND FOR GIVEN PERIOD.'
endif
deac wind wait
