PLSQLEtamedia

VIEW
  CREATE OR REPLACE VIEW VISTAETAMEDIA AS
  SELECT  u.IDUtente, tc.idtariffa, tc.campoestivo, TRUNC(((SYSDATE - u.DATANASCITA)/365),0) as eta
                            FROM Utenti u, Utenticampiestivi uc , utentipagamenti up, Pagamenticampiestivi pce , TariffeCampiestivi tc
                            WHERE
                            uc.IDUTENTE = up.IDUTENTE AND
                            up.IDPAGAMENTO = pce.IDPAGAMENTO AND
                            pce.TARIFFA = tc.IDTARIFFA AND
                            u.IDUTENTE = uc.IDUTENTE;
------------------------------------------------------------------------------------------------------------------------------------------
Procedura
procedure etamediatariffe(
   sessionID IN number default 0,
   CampoestivoId IN CAMPIESTIVI.IDCAMPIESTIVI%TYPE
)IS
Cursor tarif_cursor IS
    Select tce.IDTARIFFA, trunc(avg(etam.eta),0) as etamedia
    from vistaetamedia etam, tariffecampiestivi tce
    WHERE CampoestivoId = tce.campoestivo AND tce.idtariffa = etam.idtariffa
    group by tce.IDTARIFFA;
    val_tarif tarif_cursor%RowType;
begin
    MODGUI1.ApriPagina('Eta Media Tariffe Campi Estivi');
    MODGUI1.HEADER();
htp.br;htp.br;htp.br;htp.br;
htp.prn('<h1 align="center">Tariffe Campo estivo </h1>');
modgui1.apridiv('class="w3-modal-content w3-card-4 w3-animate-zoom" style="max-width:600px; margin-top:110px"');

HTP.TABLEOPEN(CALIGN  => 'center' );
      HTP.TableRowOpen;
      HTP.TableData('id tariffa',CATTRIBUTES  =>'style="font-weight:bold"');
      HTP.TableData('Età Media',CATTRIBUTES  =>'style="font-weight:bold"');
      HTP.TableRowClose;

FOR val_tarif in tarif_cursor
loop
   HTP.TableRowOpen;
   HTP.TableData(val_tarif.IDTARIFFA,'center');
   HTP.TableData(val_tarif.etamedia,'center');
   HTP.TableRowClose;
end loop;
HTP.TableClose;
modGUI1.ChiudiDiv();
htp.bodyClose;
end etamediatariffe;