CREATE OR REPLACE FUNCTION CUSTO_PROD_CARDTRAB
(
   P_NRCARDAPIOTRAB IN NUMBER,
   P_CDPRODUTO IN VARCHAR2
) RETURN FLOAT
AS
   V_VRCUSTO FLOAT := 0;
BEGIN
   SELECT MAX(VRCUSTO)
     INTO V_VRCUSTO
     FROM PRODUTOCARDTRAB
    WHERE NRCARDAPIOTRAB = P_NRCARDAPIOTRAB
      AND CDPRODUTO = P_CDPRODUTO;

   RETURN ROUND(NVL(V_VRCUSTO, 0.00), 5);
END;
/