aaaaaaaaa

CREATE OR REPLACE TYPE BODY STORICO AS
CONSTRUCTOR FUNCTION STORICO ( NTESS  CHAR, FOTO BLOB,INDIRIZZO_I INDIRIZZO_II,PREMIO_IN_DENARO  NUMBER,MERITI CLOB,PRESENZE IMPIEGATO_DEL_MESE)RETURN SELF AS RESULT
IS
BEGIN
SELF.NTESS:= NTESS;
SELF.FOTO:= NULL;
SELF.INDIRIZZO_I:= NULL;
SELF.MERITI:=NULL;
--SELF.PRESENZE:= NULL;
DECLARE
imp_del_mese IMPIEGATO_DEL_MESE;
BEGIN
    SELECT CAST(COLLECT(PRESENZA.DATA_PRESENZA) AS IMPIEGATO_DEL_MESE) INTO imp_del_mese
        FROM presenza
        WHERE ntess=presenza.ntess;
SELF.PRESENZE:=imp_del_mese;
END;
RETURN;
END;
MEMBER PROCEDURE CALCOLA_PREMIO(PREMIO_IN_DENARO NUMBER)IS
GUADAGNO NUMBER;
TEMPO    NUMBER;
NUMP     NUMBER;
MEAN     NUMBER;
BEGIN
SELECT TOTALE INTO GUADAGNO FROM STIPENDIO  WHERE NTESS=SELF.NTESS;
SELECT  SUM(PRESENZA.DURATA) INTO TEMPO FROM PRESENZA WHERE NTESS = SELF.NTESS;
SELECT  NUMERO_PRESENZA INTO NUMP FROM PRESENZA WHERE  NTESS=SELF.NTESS;

GUADAGNO:= GUADAGNO *0.10;
MEAN:= (TEMPO/NUMP)*0.05;

SELF.PREMIO_IN_DENARO:=GUADAGNO+MEAN;
END;
END;