PARAMETERS pcclient_no

PRIVATE lcalias,lnClient_rec,lnin_rate
STORE 00000000.00 TO lnin_rate
lcalias = ALIAS()
IF ! SEEK(pcclient_no,'SALEMAST','CLIENT_NO')
	DO ERR_MSG WITH 'BILL HAS NOT BEEN PREPARED FOR THIS CUSTOMER' + CHR(13) + 'ENTRY TAX CAN NOT BE PRINTED'
	RETURN 	
ENDIF 
= SEEK(pcclient_no,'CLIENT','CLIENT_NO')
IF SEEK(SALEMAST.REF_NO,'VEHICLE','REF_NO')
	lnin_rate = vehicle.in_rate
ENDIF 
= get_pnam('ENTRY TAX / DECLARATION / PURCHASE INVOICE')
do prinrepo with 'WPUR_DECLARATION','','','',1

