CREATE OR REPLACE PROCEDURE ARREDONDE(
  P_VALOR   IN NUMBER,
  P_DECIMAL IN INTEGER,
  VALOR     OUT NUMBER)
AS
BEGIN
   IF (P_VALOR > 0) AND (P_VALOR < 0.01) THEN
      VALOR := 0.01;
   ELSE
      VALOR := ROUND(P_VALOR, P_DECIMAL);
   END IF;
END;
/
