
= get_pdt('** EXPENSE BILL **')

SELECT ledger.Party_no,exp_bill.Bill_no,exp_bill.SERVETAX ;
FROM ledger,exp_bill ;
WHERE ledger.account_no=exp_bill.supplierno ;
		AND exp_bill.SERVETAX !=0 AND ;
		BETWEEN(Entereddt,Date1,date2) ;
INTO CURSOR query_expbill

SELECT query_expbill

if _tally > 0
	 wait wind "!!! WAIT !!! Generating Report .... " nowa
	 REPORT FORM EXP_BILL (out_file)
	 *REPORT FORM EXP_BILL preview
	 do out_repo
ELSE
	 do alert with "No Record found "	
ENDIF 
 