&& Function to calculate 

FUNCTION calRto2PayInSales

PARAMETERS pnBasic,pcClientType

IF pcClientType <> 'COMPANY'		&& Individual
	&&  6 % of basic + 60 Rs. Registration + 100 Rs.CRTM
	RETURN pnBasic*.06 + 60 + 100
ELSE
	&&  Double of (6 % of basic)  + 60 Rs. Registration + 100 Rs.CRTM
	RETURN (pnBasic*.06)*2 + 60 + 100
ENDIF