SHOW:
|
|
- or go back to the newest paste.
| 1 | [...] | |
| 2 | emgui.CreaApriEEliminaElemento(emgui.CambioDiContesto(Prefix || 'VisualizzaTipoDiMacchinario', '"txtTipologiaDiMacchinario", "txtModello"', '', '"txtTipologiaDiMacchinario="+getObjectState("txtTipologiaDiMacchinario"), "txtModello="+getObjectState("txtModello")', false), emgui.Submit(Prefix || 'EliminaSingoloElemento'));
| |
| 3 | [...] | |
| 4 | ||
| 5 | ||
| 6 | ||
| 7 | /*la parte dell'eliminazione funziona*/ | |
| 8 | ||
| 9 | procedure VisualizzaTipoDiMacchinario(Contesto varchar2 default '', SessionID varchar2 default '', | |
| 10 | txtTipologiaDiMacchinario in TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, | |
| 11 | txtModello in TipiMacchinari.Modello%TYPE DEFAULT NULL) AS | |
| 12 | IlTipo TipiMacchinari%ROWTYPE; | |
| 13 | BEGIN | |
| 14 | [...] | |
| 15 | emgui.NuovaCella('50%');
| |
| 16 | emgui.TextBox('Tipologia di Macchinario', txtTipologiaDiMacchinario, 'txtTipologiaDiMacchinario');
| |
| 17 | emgui.ChiudiCella(); | |
| 18 | [...] | |
| 19 | emgui.NuovaCella('50%');
| |
| 20 | emgui.TextBox('Modello', txtModello, 'txtModello');
| |
| 21 | emgui.ChiudiCella(); | |
| 22 | [...] | |
| 23 | END VisualizzaTipoDiMacchinario; | |
| 24 | ||
| 25 | ||
| 26 | procedure VisualizzaTipoDiMacchinario(Contesto varchar2 default '', SessionID varchar2 default '', | |
| 27 | txtTipologiaDiMacchinario in TipiMacchinari.TipologiaMacchinario%TYPE DEFAULT NULL, | |
| 28 | txtModello in TipiMacchinari.Modello%TYPE DEFAULT NULL) AS | |
| 29 | IlTipo TipiMacchinari%ROWTYPE; | |
| 30 | BEGIN | |
| 31 | [...] | |
| 32 | emegui.CreaCella(); | |
| 33 | emgui.TextBox('Tipologia di Macchinario', txtTipologiaDiMacchinario, 'txtTipologiaDiMacchinario');
| |
| 34 | emgui.ChiudiCella(); | |
| 35 | emgui.NuovaCella('50%');
| |
| 36 | emgui.TextBox('Modello', txtModello, 'txtModello');
| |
| 37 | emgui.ChiudiCella(); | |
| 38 | [...] | |
| 39 | END VisualizzaTipoDiMacchinario; |
