PROCEDURE prineform

IF BOF() OR EOF()
	DO err_beep
	DO alert WITH '!!! ERROR !!!;No receipt found for printing;;Pressed key has no menaning here'
	RETU
ENDIF

PRIVATE lcchasisno,lneform_rec
lcchasisno = ''
lneform_rec = RECN('BOOKING')
= get_oprin('E Form Printing')
SELE booking
IF SEEK(ALLTRIM(booking.client_no),'SALEMAST','CLIENT_NO')
	IF SEEK(SALEMAST.REF_NO,'VEHICLE','REF_NO')
	   lcchasisno =vehicle.chasis_no
	ENDIF 
ENDIF 
IF SEEK(client.client_no,'SALEMAST','CLIENT_NO')
ENDIF


DO prinrepo WITH '','EFORM','','',1

GO (lneform_rec) IN booking

