Trigger Oracle : la fonction renvoie NULL

J'ai eu un peu de mal à saisir ce qu'était une SP au départ; puis j'ai essayé une variante de ce que vous proposez; mais ça ne marche pas mieux.
Promis : demain je fais une SP qui appelera ma fonction (mais j'ai quand même des doutes)
Question subsidiaire : DBMS_OUTPUT.put_line s'affiche où ? J'ai beau mettre SET SERVEROUTPUT ON ou dbms_output.enable(buffer_size => NULL); il ne se passe rien...


CREATE OR REPLACE TRIGGER ETHIC.GRESSET_STOCKMATIERES_FR_PMP
AFTER INSERT or UPDATE or DELETE ON ETHIC.MVTSPHYSSTOCKMATIERES FOR EACH ROW
WHEN (NEW.TYPEMVT='ER') -- Si mvt de type Réception Automatique d'une Commande Fournisseur => 'ER'

Declare
val_pmp NUMBER;
fr_pmp NUMBER := 41023; --Id du fournisseur "PMP"
unite_prix_achat VARCHAR2(3) := '';
val_pmp_rc sys_refcursor;
---------------------------------------------------------------------------------------------

-- AJ 2008-07-29 : A chaque réception de commande d'achat (Mvt Physique de matière de type 'ER')
-- Création / màj d'une ligne dans le fichier des fournisseurs de l'article,
-- avec prix = PMP (calculé dans l'unité d'achat de l'article)

BEGIN
BEGIN
OPEN val_pmp_rc FOR
SELECT ETHIC.PKG1.PMP(:NEW.CODESOCIETE,:NEW.IDREFSTOCK) FROM Dual;
END;
LOOP
FETCH val_pmp_rc INTO val_pmp;
EXIT WHEN val_pmp_rc%NOTFOUND;
DBMS_OUTPUT.put_line ('val_pmp=' || val_pmp);
END LOOP;

Insert into ETHIC.w_PSTOCKMATIERESFOURNISSEURS values(:NEW.CODESOCIETE, 'GRE', :NEW.IDREFSTOCK, :NEW.CODECLASSE, 0, 0, 'F', fr_pmp,
'pmp', 0,val_pmp, unite_prix_achat, 'Valeur du PMP au ' || to_char(sysdate,'dd/mm/yyyy')) ;
END;

demain je fais une SP qui appelera ma fonction <== je crois su'il est possible de retourner le sys_refcursor par une fonction, cf. la 2ème page du lien:

CREATE OR REPLACE FUNCTION get_emp_by_dept (i_deptno emp.deptno%TYPE)
RETURN SYS_REFCURSOR
IS
    emp_refcur      SYS_REFCURSOR;
BEGIN
    OPEN emp_refcur FOR SELECT empno, ename FROM emp WHERE deptno = i_deptno;
    RETURN emp_refcur;
END;

 

The following PL/SQL statement is used to harness the above Oracle function

DECLARE
  deptno        emp.deptno%TYPE;
  empno         emp.empno%TYPE;
  ename         emp.ename%TYPE;
  emp_refcur    SYS_REFCURSOR;
BEGIN
    emp_refcur := get_emp_by_dept(deptno);
    DBMS_OUTPUT.PUT_LINE('EMPNO    ENAME');
    DBMS_OUTPUT.PUT_LINE('-----    -------');
    LOOP
        FETCH emp_refcur INTO empno, ename;
        EXIT WHEN emp_refcur%NOTFOUND;
        DBMS_OUTPUT.PUT_LINE(empno || '     ' || ename);
    END LOOP;
    CLOSE emp_refcur;
END;

Du coup, si tu as fait ta modif dans la fonction (n'oublie pas de rajouter le return du curseur), il faudra changer cette ligne:

SELECT ETHIC.PKG1.PMP(:NEW.CODESOCIETE,:NEW.IDREFSTOCK) FROM Dual; 

en:

val_pmp_rc := ETHIC.PKG1.PMP(:NEW.CODESOCIETE,:NEW.IDREFSTOCK) FROM Dual; 

...

DBMS_OUTPUT.put_line s'affiche où ? J'ai beau mettre SET SERVEROUTPUT ON ==> probablement il ne passe pas par là... Enfin, sous Toad je vois l'output dans un onglet après avoir fait un enable de l'output qui correspond en gros à un SET SERVEROUTPUT ON

++

Oups, erreur:

Pas de "FROM Dual" dans l'appel de la fonction ;-)
Malheureux copier-coller, damn...

Merci Sandul !!

Là, je vais rentrer dans mon home-sweet-home et je ne sais pas si j'aurai le temps de revenir sur le forum.
... sinon à lunid, peut-être ?