PROCEDURE prininspolicy

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

= get_oprin('Insurance Policy Printing')
SELECT client.client,client.add1,client.add2,client.add3,;
    client.phone_o,client.phone_r,client.mobile ;
	FROM CLIENT,MODEL,MODELCOL ;    
    where  modelcol.modelcolno = client.modelcolno ;
      AND model.modelcolno = modelcol.modelcolno ;
      and booking.client_no = client.client_no ;
    INTO CURSOR query  
DO prinrepo WITH '','insform','','',1

GO (lneform_rec) IN booking

