CREATE OR REPLACE
FUNCTION RESPONSAVEL_POR_SISTEMA
   (P_CDPRODCOMP PRODUTO.CDPRODUTO%TYPE)
RETURN OPERADOR.CDOPERADOR%TYPE AS 
V_CDOPERRESP OPERADOR.CDOPERADOR%TYPE;
BEGIN
   V_CDOPERRESP := '000000000991'; /* ESTUDO INICIAL */
   IF NOT (P_CDPRODCOMP IS NULL) THEN
      SELECT MAX(EQ.CDOPERRESP)
        INTO V_CDOPERRESP
        FROM PRODUTO PR
             LEFT JOIN
             EQUIPETRAB EQ
             ON EQ.CDEQUIPETRAB = PR.CDEQUIPERESP 
       WHERE PR.CDPRODUTO = P_CDPRODCOMP;
      IF V_CDOPERRESP IS NULL THEN
         V_CDOPERRESP := '000000000991';
      END IF;
   END IF;
   RETURN (V_CDOPERRESP);
END;
/

-- VERSAO --
BEGIN ATUVEROBJ('RESPONSAVEL_POR_SISTEMA','4.11.046'); END;
/
