API tools faq
paste
ushas

Untitled

ushas
May 4th, 2012
43
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PL/SQL 5.16 KB | None | 0 0
raw download clone embed print report
  1.  PROCEDURE RisultatiRicercaTipo(SessionID VARCHAR2 DEFAULT '', Contesto VARCHAR2 DEFAULT '', txtTipologiaDiMacchinario IN TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, txtModello IN TipiMacchinari.Modello%TYPE DEFAULT NULL) AS
  2.   IlTipo TipiMacchinari%ROWTYPE;
  3.   BEGIN
  4.         [...]
  5.           FOR IlTipo IN(
  6.         SELECT *
  7.         FROM TipiMacchinari
  8.         WHERE ((txtTipologiaDiMacchinario IS NULL) OR (UPPER(RTRIM(txtTipologiaDiMacchinario))) LIKE UPPER(RTRIM(TipologiaMacchinario)))
  9.               AND ((txtModello IS NULL) OR (UPPER(RTRIM(txtModello))) LIKE UPPER(RTRIM(Modello)))
  10.       ) LOOP
  11.         emgui.CreaValoreStatoInterno('idTipo', IlTipo.IdTipoMacchinario);
  12.         emgui.CreaElemento();
  13.           emgui.CreaCampoElemento();
  14.             emgui.Checkbox();
  15.           emgui.ChiudiCampoElemento();
  16.           emgui.CreaCampoElemento();
  17.             emgui.TextBox('', IlTipo.TipologiaMacchinario, 'txtTipologiaDiMacchinario');
  18.           emgui.ChiudiCampoElemento();
  19.           emgui.CreaCampoElemento();
  20.             emgui.TextBox('', IlTipo.Modello, 'txtModello');
  21.           emgui.ChiudiCampoElemento();
  22.           emgui.CreaCampoElemento();
  23.             emgui.CreaApriEEliminaElemento(emgui.CambioDiContesto(Prefix || 'VisualizzaTipoDiMacchinario', '"txtTipologiaDiMacchinario", "txtModello"', '', '"txtTipologiaDiMacchinario="+getValue("txtTipologiaDiMacchinario"), "txtModello="+getValue("txtModello")'), emgui.Submit(Prefix || 'EliminaSingoloElemento'));
  24.           emgui.ChiudiCampoElemento();
  25.         emgui.ChiudiElemento();
  26.       END LOOP;
  27.      [...]
  28.   END RisultatiRicercaTipo;
  29.  
  30.  
  31. PROCEDURE EliminaSingoloElemento(SessionID VARCHAR2 DEFAULT '', Contesto VARCHAR2 DEFAULT '',
  32.     txtTipologiaDiMacchinario       IN TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, --parametri
  33.     txtModello  IN TipiMacchinari.Modello%TYPE DEFAULT NULL,
  34.   idTipo NUMBER DEFAULT -1) AS
  35.     IlTipo TipiMacchinari%ROWTYPE;
  36.   BEGIN
  37.     emgui.CreaStatoInterno();
  38.     emgui.CreaValoreStatoInterno('txtTipologiaDiMacchinario', txtTipologiaDiMacchinario);
  39.     emgui.CreaValoreStatoInterno('txtModello', txtModello);
  40.     DELETE FROM TipiMacchinari
  41.     WHERE idTipo=idTipoMacchinario;
  42.     /*where ((upper(rtrim(txtTipologiaDiMacchinario))) like upper(rtrim(TipologiaMacchinario)))
  43.           and (upper(rtrim(txtModello))) like upper(rtrim(Modello));*/
  44.     emgui.ChiudiStatoInterno();
  45.     emgui.EseguiAzione(emgui.Submit(Prefix || 'RisultatiRicercaTipo'));
  46.     /*htp.print('<HTML>
  47. <HEAD>
  48.     <TITLE>EdilManager - </TITLE>
  49. </HEAD>
  50. <body onload=''' || 'alert("' || idTipo || '");' ||'''>
  51. </body>
  52. </HTML>');*/
  53.   END EliminaSingoloElemento;
  54.  
  55.  
  56.   PROCEDURE VisualizzaTipoDiMacchinario(SessionID VARCHAR2 DEFAULT '', Contesto VARCHAR2 DEFAULT '',
  57.     txtTipologiaDiMacchinario       IN TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, --parametri
  58.     txtModello  IN TipiMacchinari.Modello%TYPE DEFAULT NULL) AS
  59.   --procedure VisualizzaTipoDiMacchinario(Contesto varchar2 default '', SessionID varchar2 default '', idTipo number default null) AS
  60.   IlTipo TipiMacchinari%ROWTYPE;
  61.   BEGIN
  62.     emgui.CreaVista('Dettaglio Tipo di Macchinario', Prefix || 'VisualizzaTipoDiMacchinario', '', '', Contesto, SessionID);
  63.       emgui.CreaMenu();
  64.         emgui.CreaVoceMenu('Creazione Tipo di Macchinario', emgui.CambioDiContesto(Prefix || 'CreazioneTipoDiMacchinario'));
  65.         emgui.CreaVoceMenu('Ricerca Tipo Di Macchinario', emgui.CambioDiContesto(Prefix || 'RicercaTipoDiMacchinario'), TRUE);
  66.       emgui.ChiudiMenu();
  67.       emgui.CreaContenuto();
  68.         emgui.CreaDisposizione('30');
  69.           emgui.NuovaRiga();
  70.             emgui.NuovaCella('25%'); --celle fittizie per centrare quelle con le textbox
  71.             emgui.ChiudiCella();
  72.             emgui.NuovaCella('50%');
  73.               emgui.TextBox('Tipologia di Macchinario', txtTipologiaDiMacchinario, 'txtTipologiaDiMacchinario');
  74.             emgui.ChiudiCella();
  75.             emgui.NuovaCella('25%');
  76.             emgui.ChiudiCella();
  77.           emgui.ChiudiRiga();
  78.           emgui.NuovaRiga();
  79.             emgui.NuovaCella('25%');
  80.             emgui.ChiudiCella();
  81.             emgui.NuovaCella('50%');
  82.               emgui.TextBox('Modello', txtModello, 'txtModello');
  83.             emgui.ChiudiCella();
  84.             emgui.NuovaCella('25%');
  85.             emgui.ChiudiCella();
  86.           emgui.ChiudiRiga();
  87.         emgui.ChiudiDisposizione();
  88.         emgui.CreaDisposizione();
  89.           emgui.NuovaRiga();
  90.             emgui.NuovaCella('29%');
  91.             emgui.ChiudiCella();
  92.             emgui.NuovaCella('15%');
  93.               emgui.Button('Indietro', emgui.RitornaAChiamante(), 'abl.png', '80');
  94.             emgui.ChiudiCella();
  95.             emgui.NuovaCella('15%');
  96.               emgui.Button('Elimina', emgui.Submit(Prefix || 'EliminaSingoloElemento'), 'delete.ico', '80');
  97.             emgui.ChiudiCella();
  98.             emgui.NuovaCella('15%');
  99.               emgui.Button('Salva', '', 'saveimg.png', '80');
  100.             emgui.ChiudiCella();
  101.             emgui.NuovaCella('26%');
  102.             emgui.ChiudiCella();
  103.           emgui.ChiudiRiga();
  104.         emgui.ChiudiDisposizione();
  105.       emgui.ChiudiContenuto();
  106.     emgui.ChiudiVista;
  107.   END VisualizzaTipoDiMacchinario;
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!