PROCEDURE RisultatiRicercaTipo(SessionID VARCHAR2 DEFAULT '', Contesto VARCHAR2 DEFAULT '', txtTipologiaDiMacchinario IN TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, txtModello IN TipiMacchinari.Modello%TYPE DEFAULT NULL, msg VARCHAR2 DEFAULT '') AS
  IlTipo TipiMacchinari%ROWTYPE;
  BEGIN
    emgui.CreaVista('Ricerca Tipo di Macchinario - Risultati Ricerca', Prefix || 'RisultatiRicercaTipo', msg, '', Contesto, SessionID);
      [...]
      FOR IlTipo IN(
        SELECT *
        FROM TipiMacchinari
        WHERE ((txtTipologiaDiMacchinario IS NULL) OR (UPPER(RTRIM(txtTipologiaDiMacchinario))) LIKE UPPER(RTRIM(TipologiaMacchinario)))
              AND ((txtModello IS NULL) OR (UPPER(RTRIM(txtModello))) LIKE UPPER(RTRIM(Modello)))
       ) LOOP
        emgui.CreaElemento();
          emgui.CreaCampoElemento();
            emgui.Checkbox('', IlTipo.idTipoMacchinario, 'idTipo');
          emgui.ChiudiCampoElemento();
          emgui.CreaCampoElemento();
            emgui.TextBox('', IlTipo.TipologiaMacchinario, 'LaTipologia');
          emgui.ChiudiCampoElemento();
          emgui.CreaCampoElemento();
            emgui.TextBox('', IlTipo.Modello, 'IlModello');
          emgui.ChiudiCampoElemento();
          emgui.CreaCampoElemento();

          emgui.CreaApriEEliminaElemento(emgui.CambioDiContesto(Prefix || 'VisualizzaTipoDiMacchinario', '"txtTipologiaDiMacchinario", "txtModello"', msg, '"idTipo='|| IlTipo.idTipoMacchinario || '"'), emgui.CambioDiContesto(Prefix || 'EliminaSingoloElemento', '"txtTipologiaDiMacchinario", "txtModello"', msg, '"idTipo='|| IlTipo.idTipoMacchinario || '"'));
          emgui.ChiudiCampoElemento();
        emgui.ChiudiElemento();
      END LOOP;
      [...]
    emgui.ChiudiVista();
  END RisultatiRicercaTipo;


  PROCEDURE EliminaSingoloElemento(SessionID VARCHAR2 DEFAULT '', Contesto VARCHAR2 DEFAULT '', idTipo IN TipiMacchinari.idTipoMacchinario%TYPE DEFAULT NULL) AS
    IlTipo TipiMacchinari%ROWTYPE;
    message VARCHAR2(32767);
  BEGIN
    emgui.CreaStatoInterno();

    DELETE FROM TipiMacchinari
    WHERE idTipo=idTipoMacchinario;
    IF sql%found THEN --controlla se l'eliminazione è andata a buon
      emgui.CreaValoreStatoInterno('msg', '1:Eliminazione avvenuta con successo');
    ELSE
      emgui.CreaValoreStatoInterno('msg', '0:Errore interno nell''eliminazione');
    END IF;
    emgui.ChiudiStatoInterno();
    message := '1:Eliminazione OK';
    --emgui.EseguiAzione(emgui.RitornaAChiamante()); così dà l'alert di nessuna operazione chiamante
    --emgui.EseguiAzione(emgui.RitornaAChiamante('getValue("message")'));  così mi si ferma in una pagina bianca con URL: http://oracle1.cli.di.unipi.it/apex/gaiaadami.tipimacchinari_53.EliminaSingoloElemento?Contesto=gaiaadami.tipimacchinari_53.RisultatiRicercaTipo%7C%7CContesto%253D%2526SessionID%253D%2526%7C%7C%7C%7C&idTipo=17 (partivo da RisultatiRicercaTipo senza parametri)
    --ho anche provato a usare msg che per fare un po' di prove ho creato sopra (con 'getValue("msg")'), ma mi dà l'alert

  END EliminaSingoloElemento;


  --qui mi sa che sbaglio a chiamare da tutte le parti la roba txtTipologiaDiMacchinario e txtModello (sia nelle textbox che nei parametri), ignora pure :D
  PROCEDURE VisualizzaTipoDiMacchinario(SessionID VARCHAR2 DEFAULT '', Contesto VARCHAR2 DEFAULT '', idTipo IN TipiMacchinari.idTipoMacchinario%TYPE DEFAULT NULL, msg VARCHAR2 DEFAULT '') AS
  IlTipo TipiMacchinari%ROWTYPE;
  txtTipologiaDiMacchinario TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL;
  txtModello TipiMacchinari.Modello%TYPE DEFAULT NULL;
  BEGIN
    emgui.CreaVista('Dettaglio Tipo di Macchinario', Prefix || 'VisualizzaTipoDiMacchinario', msg, '', Contesto, SessionID);
      emgui.CreaMenu();
        emgui.CreaVoceMenu('Creazione Tipo di Macchinario', emgui.CambioDiContesto(Prefix || 'CreazioneTipoDiMacchinario'));
        emgui.CreaVoceMenu('Ricerca Tipo Di Macchinario', emgui.CambioDiContesto(Prefix || 'RicercaTipoDiMacchinario'), TRUE);
      emgui.ChiudiMenu();
      emgui.CreaContenuto();
        emgui.CreaDisposizione('30');
          emgui.NuovaRiga();
            emgui.NuovaCella('25%'); --celle fittizie per centrare quelle con le textbox
            emgui.ChiudiCella();
            emgui.NuovaCella('50%');
              SELECT TipologiaMacchinario INTO txtTipologiaDiMacchinario
              FROM TipiMacchinari
              WHERE idTipo=idTipoMacchinario;
              emgui.TextBox('Tipologia di Macchinario', txtTipologiaDiMacchinario, 'txtTipologiaDiMacchinario');
            emgui.ChiudiCella();
            emgui.NuovaCella('25%');
            emgui.ChiudiCella();
          emgui.ChiudiRiga();
          emgui.NuovaRiga();
            emgui.NuovaCella('25%');
            emgui.ChiudiCella();
            emgui.NuovaCella('50%');
              SELECT Modello INTO txtModello
              FROM TipiMacchinari
              WHERE idTipo=idTipoMacchinario;
              emgui.TextBox('Modello', txtModello, 'txtModello');
            emgui.ChiudiCella();
            emgui.NuovaCella('25%');
            emgui.ChiudiCella();
          emgui.ChiudiRiga();
        emgui.ChiudiDisposizione();
        emgui.CreaDisposizione();
          emgui.NuovaRiga();
            emgui.NuovaCella('29%');
            emgui.ChiudiCella();
            emgui.NuovaCella('15%');
              emgui.Button('Indietro', emgui.RitornaAChiamante(), 'abl.png', '80');
            emgui.ChiudiCella();
            emgui.NuovaCella('15%');
              emgui.Button('Elimina', emgui.Submit(Prefix || 'EliminaSingoloElemento'), 'delete.ico', '80');
            emgui.ChiudiCella();
            emgui.NuovaCella('15%');
              emgui.CreaValoreStatoInterno('idTipo', idTipo);
              emgui.SaveButton('Salva', emgui.Submit(Prefix || 'SalvaModifiche'));
              --emgui.Button('Salva', '', 'saveimg.png', '80');
            emgui.ChiudiCella();
            emgui.NuovaCella('26%');
            emgui.ChiudiCella();
          emgui.ChiudiRiga();
        emgui.ChiudiDisposizione();
        /*emgui.CreaBarraComandi();
          emgui.Button('Indietro', emgui.RitornaAChiamante(), 'abl.png', '80');
          emgui.Button('Elimina', emgui.Submit(Prefix || 'EliminaSingoloElemento'), 'delete.ico', '80');
          emgui.Button('Salva', '', 'saveimg.png', '80');
        emgui.ChiudiBarraComandi();*/
      emgui.ChiudiContenuto();
    emgui.ChiudiVista;
  END VisualizzaTipoDiMacchinario;