Finestre di dialogo - Revision history

217.194.179.250: /* Note */

2023-05-25T07:54:48Z

Note

217.194.179.250: /* Input da utente */

2019-11-14T16:43:10Z

Input da utente

217.194.179.250: /* Input da utente */

2019-09-30T13:20:37Z

Input da utente

217.194.179.250: /* Messaggio semplice */

2019-07-10T11:31:20Z

Messaggio semplice

Mwadmin: /* Input da utente */

2019-06-17T21:30:11Z

Input da utente

217.194.179.250: /* Messaggio semplice */

2019-06-10T16:03:59Z

Messaggio semplice

New page

Dettagli da pag.67 di Linguaggio.pdf.
=== Messaggio semplice ===
<code>call MESSAGE("Ciao") from GESECRAN </code>

che si appoggia su <code>Infbox</code> ma scrive il messaggio nella traccia se eseguito in modalità batch.

Oppure (deprecato)

<code>Infbox "Ciao" </code>

=== Input da utente ===

<pre>Local Integer OK
Local Char YINPUT(250)
Local Char YTIT(30) : YTIT='Inserisci tipo proposta'
Local Char YTITCAMPO(30): YTITCAMPO='Nuovo tipo proposta'
Local Char YOBJ(30) : YOBJ = 'BPC'
Call SAICAR (YINPUT, YTIT, YTITCAMPO, YOBJ,0,0,"",OK) From GESECRAN
Infbox YINPUT</pre>

Esempio veloce che ho trovato provando (non ho il sorgente GESECRAN...) con menu
<pre>Local Integer OK
Local Char YINPUT(250)
Local Char YTIT(30) : YTIT='Inserisci tipo proposta'
Local Char YTITCAMPO(30): YTITCAMPO='Nuovo tipo proposta'
Local Char YOBJ(30) : YOBJ = 'M'
Call SAICAR (YINPUT, YTIT, YTITCAMPO, YOBJ,250,0,"",OK) From GESECRAN
Infbox YINPUT</pre>

=== Yes/No boxes ===
<pre>
Local Integer YN : YN = 2 :# By default points on Yes
Call OUINON("Attention:\Do you want to continue?", YN) From GESECRAN
If YN=1 : Infbox "HAI CLICCATO NO" : Endif
If YN=2 : Infbox "HAI CLICCATO SI" : Endif
</pre>
che internamente fa (non usare e notare i codici 1/2 invertiti)

<pre>
Local Libelle REP
Qstbox mess(2, 5, 1) - nomap Using [L]REP
Case [L]REP
When 1: Infbox "HAI CLICCATO SI"
When 2: Infbox "HAI CLICCATO NO"
Endcase
</pre>

=== Ok/Cancel boxes ===
<pre>
Local Integer OKCAN : OKCAN = 2:# Ok
Call AVERTIR(“Warning:\All records will be deleted”, OKCAN) From GESECRAN
</pre>

oppure (deprecato)
<pre>
Local Libelle REP
Wrnbox "Attenzione: proseguire?" Using [L]REP
Case [L]REP
When 1: Infbox "HAI CLICCATO Ok"
When 2: Infbox "HAI CLICCATO Annulla"
Endcase
</pre>

=== Messaggio di attesa ===
Per aprire un messaggio di attesa all'inizio di una serie di azioni:

<code>Call TEMPON ("Azione in corso...") From GESECRAN</code>

per chiudere il messaggio

<code>Call TEMPOFF From GESECRAN</code>

=== Error / warning ===
<pre>Call ERREUR(MESSAGGIO) From GESECRAN
Call ERREURT(MESSAGGIO, TIPO) From GESECRAN #con temporizzazione
Call ERRTIT(MESSAGGIO, TITOLO) From GESECRAN
Call ERRTITT(MESSAGGIO, TITOLO) From GESECRAN #con temporizzazione
Call ERREND (MESSAGGIO) From GESECRAN #per errori gravi</pre>

* TIPO può essere 0 (Informazione) o 1 (Errore)
* '''Attenzione''': se il parametro MESSAGGIO è vuoto, l’avviso di errore non compare.

<pre>GTIMOUT=15 # timeout di 15 secondi
Call ERRTITT("Errore", "Mio titolo") From GESECRAN</pre>

Deprecati:<br />
<code>Errbox "Error message"</code><br /> messaggio di errore
<code>Endbox "Error end message"</code> da usare solo in casi gravi in cui va interrotto il programma (vedere help nel file chm)<br />

=== Note ===
* La variabile [[GTIMOUT]] si può utilizzare per temporizzare il messaggio.
* Per mettere il testo su più righe come separatore utilizzare <code>\</code>.
* per andare a capo: <code>"testo"+chr$(13)+chr$(10)</code>
* per aggiungere una barra inversa (<code>\</code> backslash) a doppi apici, barra inversa, tab o Carriage Return: <code>escJson(STRINGA)</code>; il contrario con <code>unescjson</code>
* per sostituire caratteri da codifica 8 byte a 7 byte (senza caratteri con accenti particolari): <code>ctrans(STRINGA)</code>
**esempio <code>ctrans("èéìàùò") #"eeiauo"</code>
* per sostituire dei caratteri con quelli specificati: <code>ctrans(STRINGA, caratteri_da_togliere, caratteri_da_mettere)</code>
**esempio per sostituire le vocali con un numero corrispondente <code>ctrans("facciamo un test di sostituzione","aeiou","12345") #ritorna: "f.cc..m.w.nwt.stwd.ws.st.t.z..n."</code>

@@ Line 120: / Line 120: @@
 * per sostituire caratteri da codifica 8 byte a 7 byte (senza caratteri con accenti particolari): <code>ctrans(STRINGA)</code>
 **esempio <code>ctrans("èéìàùò")   #"eeiauo"</code>
-* per sostituire dei caratteri con quelli specificati: <code>ctrans(STRINGA, caratteri_da_togliere, caratteri_da_mettere)</code>
+* per sostituire dei caratteri con quelli specificati: <code>ctrans(STRINGA, caratteri_da_togliere, caratteri_da_mettere)</code>  (vedi anche [[Funzione_replace|replace]])
 **esempio per sostituire le vocali con un numero corrispondente  <code>ctrans("facciamo un test di sostituzione","aeiou","12345")     #ritorna: "f.cc..m.w.nwt.stwd.ws.st.t.z..n."</code>

@@ Line 44: / Line 44: @@
 Call SAICAR (YINPUT, YTIT, YTITCAMPO, YOBJ,250,0,"",OK) From GESECRAN
 Infbox YINPUT</pre>
 === Yes/No boxes ===

@@ Line 14: / Line 14: @@
 === Input da utente ===
 <pre>Local Integer OK
 Local Char YINPUT(250)

@@ Line 3: / Line 3: @@
 === Messaggio semplice ===
 <code>call MESSAGE("Ciao") from GESECRAN </code>
 che si appoggia su <code>Infbox</code> ma scrive il messaggio nella traccia se eseguito in modalità batch.

@@ Line 14: / Line 14: @@
 <pre>Local Integer OK
 Local Char YINPUT(250)
-Local Char YTIT(30) : YTIT='Inserisci tipo proposta'
+Local Char YTIT(30) : YTIT='Inserisci valore'
-Local Char YTITCAMPO(30): YTITCAMPO='Nuovo tipo proposta'
+Local Char YTITCAMPO(30): YTITCAMPO='Nuovo valore'
 Local Char YOBJ(30) : YOBJ = 'BPC'
 Call SAICAR (YINPUT, YTIT, YTITCAMPO, YOBJ,0,0,"",OK) From GESECRAN