Thank you again.
Okay, this is the function:
FUNCTION customers
( cgetID IN VARCHAR2 ) RETURN SYS_REFCURSOR
IS
vcli SYS_REFCURSOR;
vClt varchar2(150);
BEGIN
BEGIN
SELECT des.Dm
INTO vClt
FROM p1 z1 ,ps p ,ct c ,tdo t ,mn des ,rr o
WHERE p1.igo = cgetID
AND p1.ps = BO.ps AND p1.code2 = BO.code2
AND p1.code = BO.code AND p1.mp = BO.mp
AND p1.code2 = des.code2 AND p1.code = des.code
AND p1.mp = des.mp AND p1.ps = c.ps AND p1.ps = t.ps;
END;
OPEN vcli FOR
SELECT DISTINCT o.cbb ,o.dbr ,des.mp ,des.Dm ,c.code ,t.code2
FROM p1 ZP ,ps p ,ct c ,tdo t ,mn des ,rr o
WHERE p1.igo = cgetID
AND p1.ps = c.ps AND p1.code2 = c.code2
AND p1.code = c.code AND p1.ps = t.ps
AND p1.code2 = t.code2;
RETURN vcli;
END customers;