Função Preço

CREATE OR REPLACE FUNCTION SNK_PRECO(P_CODTAB IN INTEGER, P_CODPROD IN INTEGER)

RETURN FLOAT

IS

  V_PRECO FLOAT;

  V_NUTAB INTEGER;

BEGIN

 BEGIN 

    SELECT T.NUTAB

      INTO V_NUTAB

      FROM TGFTAB T

     WHERE T.CODTAB = P_CODTAB

       AND T.DTVIGOR = (SELECT MAX (DTVIGOR)

                          FROM TGFTAB M

                         WHERE M.CODTAB = P_CODTAB

                           AND M.DTVIGOR <= SYSDATE);

    

 EXCEPTION WHEN NO_DATA_FOUND THEN

  V_NUTAB := 0;

 END;

  

 STP_OBTEM_PRECO2(V_NUTAB, P_CODPROD, SYSDATE, V_PRECO);

 RETURN (V_PRECO);

END;

/