function CF_RATE_TYPEFormula return Char is
 V_RTYPE VARCHAR2(100) := '';
begin
	IF SALES.CHECK_PARENT_QUALITY(:QTY_CODE) = 9 THEN
		V_RTYPE := 'PER 100 MTR';
	ELSIF	SALES.CHECK_PARENT_QUALITY(:QTY_CODE) = 10 THEN
		V_RTYPE := 'PER 100 PCS';
	ELSE
		V_RTYPE := 'PER MT';
	END IF;	
  RETURN V_RTYPE;
end;