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;