https://kb.sagedev.it/api.php?action=feedcontributions&feedformat=atom&user=SageDevSageDev KB - User contributions [en]2026-07-26T08:54:30ZUser contributionsMediaWiki 1.35.1https://kb.sagedev.it/index.php?title=Data_ora&diff=282Data ora2019-07-16T06:38:15Z<p>SageDev: </p>
<hr />
<div>Per ottenere la data corrente in una variabile Date si usa la funzione <code>date$</code>.<br />
<br />
Allo stesso modo per avere data e ora correnti in una variabile Datetime si usa la funzione <code>datetime$</code> (solo dalla V7).<br />
<br />
La forma canonica per rappresentare data e ora con una stringa è:<br />
<br />
<pre>YYYY-MM-DDThh:mm:ssZ #attenzione alle lettere "in più" T e Z</pre><br />
<br />
Data e ora hanno formato "YYYY-MM-DDThh:mm:ss"<br />
<br />
Attenzione: la variabile <code>adxdcs</code> contiene l'anno pivot, usato per capire a quale secolo fare riferimento (anno 41- > 1941 o 2041?)<br />
<br />
<pre><br />
num$(date$) #Per ottenere come stringa la data odierna<br />
num$(time$) #Per ottenere come stringa l'ora corrente<br />
num$(datetime$) #Per ottenere come stringa canonica la data e ora odierna<br />
gdat$(DAY,MONTH,YEAR) #Per ottenere una data dati giorno, mese e anno<br />
gdatetime$(str) #Per ottenere una variabile Datetime da una stringa in forma canonica<br />
year(data) #Per ottenere l'anno di una data<br />
month(data) #Per ottenere il numero del mese di una data<br />
month$(data) #Per ottenere il nome del mese di una data nella lingua corrente<br />
day(data) #Per ottenere il numero del giorno del mese (1-31)<br />
day$(data) #Per ottenere il nome del giorno della settimana<br />
dayn(data) #Per ottenere il numero del giorno della settimana (1=lunedì, 7=domenica)<br />
week(data) #Per ottenere il numero della settimana (1-53)<br />
aweek(settimana,anno) #Per ottenere il primo giorno (lunedì) della settimana specificata<br />
nday(data) #Per ottenere il numero di giorni passati dal 1 gennaio 1600<br />
nday$(NUM) #Per ottenere una data successiva di NUM giorni dal 1 gennaio 1600<br />
eomonth(data) #Per ottenere l'ultimo giorno del mese di una data<br />
addmonth(data,mesi) #Per ottenere una data sommando n mesi alla data specificata<br />
</pre><br />
<br />
<br />
<br />
Ottenere come stringa con formato a piacere: <br />
<br />
<code>format$("D:YYYYMMDD[_]hhmmss",date$)</code><br />
<br />
Il 31 dicembre 2018 alle 12.30 e 56 secondi corrisponderà a “20181231_123056”.<br />
<br />
Notare che per inserire uno spazio o altri elementi costanti si usano le parentesi quadre:<br />
<br />
<code>FORMATO = "DD[ ]MM[ ]YY"</code><br />
<br />
=== Esempi ===<br />
Eseguire anche delle semplici operazioni:<br />
<br />
<pre><br />
Local Date DATA,DATA1<br />
DATA=[1/2/2015]+5 #DATA conterrà [06/02/2015]<br />
DATA1=[1/2/2015]-1 #DATA conterrà [31/01/2015]<br />
NUMGIORNI=DATA-DATA1 #giorni di differenza tra due date<br />
</pre><br />
<br />
Fare una conversione implicita da data a testo:<br />
<br />
<pre><br />
Local Char DATA_STR(30) # dichiaro una stringa<br />
Local Date DATA # dichiaro una data<br />
DATA=[31/12/2019] # imposto una data iniziale<br />
DATA_STR = DATA # conversione implicita: DATA_STR = "20191231"<br />
</pre><br />
<br />
Ottenere ultimo giorno di un mese: <br />
<pre><br />
Local date LASTDATE<br />
LASTDATE = eomonth([1/2/2015])<br />
Infbox num$(LASTDATE)<br />
</pre><br />
<br />
Ottenere come stringa formattata: usare AFNC.FDH, per esempio <code>func AFNC.FDH(date$,"121531")</code> restituirà, il primo giugno 2018: <code>01/06/18 12:15:31</code><br />
<br />
== Variabili globali contenenti stringhe di formattazione ==<br />
Sono preimpostate in base alle varie parametrizzazioni predefinite.<br />
Sono utili per mantenere uno standard che si adatta in base ai vari utenti, siti, ecc.<br />
<br />
L’ordine giorno-mese-anno di queste formattazioni dipende appunto dalla localizzazione e dalle impostazioni utente.<br />
<br />
Le variabili sono queste:<br />
<pre><br />
GFMDAT = data standard, con 2 caratteri per giorno, 2 per il mese , 2 per l’anno<br />
GFMDAT4 = data con l’anno a 4 cifre<br />
GFMDAT3 = data con il mese espresso con tre lettere<br />
GFMDAT9 = data con il mese scritto in lettere<br />
GFMMOI = mese-anno<br />
GFMMOI4 = mese-anno con anno a 4 cifre<br />
GFMJOU = giorno-mese<br />
</pre><br />
<br />
(per maggiori info dall'help di Sage, Riquadro sviluppo->sottoprogrammi ->Modulo Supervisore)<br />
<br />
== Videate ==<br />
Per visualizzare un campo che in tabella è di tipo ADATIM (per esempio UPDDATTIM), in maschera utilizzare tipo dato "A" con lunghezza 19.</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_videate_e_campi&diff=281Gestione videate e campi2019-07-15T15:33:07Z<p>SageDev: </p>
<hr />
<div><br />
<br />
#<code>Grizo</code> per disabilitare un campo di una videata; <br />un altro modo è <code> Chgfmt [M:YPE0]YMESSAGE With "KP:10"</code><br /><code>Grizo rank</code> per disabilitare un blocco: ''rank'' deve essere il valore della colonna ''Numero'' della sezione Blocchi della scheda Generale in gestione maschera (GESAMK)<br />
#<code>Diszo</code> per disabilitare (rendere solo visualizzato) un campo di una videata; <br />
#<code>Actzo</code> istruzione per abilitare un campo di una videata; <br />
#<code>Effzo</code> per sbiancare un campo di una videata; mette spazi bianchi indipendentemente dal tipo dato; le variabili corrispondenti della videata vengono resettate (vedi Raz); (la videata deve essere visualizzata, altrimenti usare Raz)<br />
#<code>Raz</code>: per resettare una variabile; in pratica mette una stringa vuota, il valore 0 o la data nulla in base al tipo dato; se la variabile è multidimensionale e non viene indicato un indice, viene resettata completamente<br />
#Per aggiornare in visualizzazione un campo di una videata: usare la funzione <code>Affzo</code>; <br /> Attenzione: Effzo + Grizo è diverso che fare Raz + Affzo<br />
#<code>Envzo</code>: forza la visualizzazione di un campo (l'istruzione Affzo viene bufferizzata e ottimizzata, Envzo forza l'esecuzione)<br />
#Per nascondere/fa riapparire un campo di una videata utilizzare ''Chgfmt'', per esempio <br /><code> Chgfmt [M:YPE0]YMESSAGE With "-K:10" #nascondo il campo</code><br /><code> Chgfmt [M:YPE0]YMESSAGE With "K:10" #visualizzo il campo</code><br />
#chgtzn per titolo campi in lista <code>Chgtzn[M:TXM1]AMTVAL1 With "new text"</code><br />
# <code>onkey</code> permette di eseguire un programma partendo dal clic del tasto destro in un campo (anche per help)<br />
# setmok<br />
<br />
<br />
# <code>enable</code> e <code>disable</code> per abilitare/disabilitare pulsanti, bottoni o menu della barra dei menu; in genere da usare nella azione SETBOUT (vedi anche variabili GSTABOU, ETABOU, CHMEN, CHAINE).<br />
#* per vedere le variabili dei vari bottoni: cercare alla voce [[GESAGB|Sviluppo - Dizionario dati - Apertura alla parametrizzazione - Variabili globali]], o nel sorgente WWAGLOBADX, GSTA*: <br />GSTAOK, GSTARET, GSTAENR...,GSPE*, GCHAN, GCHAINE, GETABOU, GETAMEN...<br />
<br />
Esempi<br />
<br />
<pre>#Esempio in cui si disattiva il bottone Nuovo in fase di modifica<br />
If REP <> "" Then<br />
Disable GSTANEW <br />
Else<br />
Enable GSTANEW<br />
Endif</pre><br />
<br />
<code>ETABOU(GSPE1)=0 #disattivo pulsante</code></div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Blocco_Riquadro&diff=280Gestione Blocco Riquadro2019-07-15T15:29:49Z<p>SageDev: </p>
<hr />
<div>Gestione di un blocco riquadro di una videata<br />
<br />
__TOC__<br />
<br />
<br />
Numeratore di riga NBLIG di tipo ABS, "Inserito"; se viene messo "nascosto" anche il riquadro sarà nascosto.<br />
<br />
== Gestione Inserimento/Modifica/Cancellazione righe ==<br />
Per fare dei controlli alla cancellazione di una linea tramite pulsante contestuale, prima del registra (evitando così di dover usare VERIF_CRE della gestione oggetto)<br />
<br />
<pre>Subprog C_NBLIG<br />
If status=65<br />
mkstat=2 #per impedire la cancellazione della riga<br />
Endif<br />
End</pre><br />
<br />
Vedi l'help dell'istruzione [[status]] per tutti i codici possibili che può avere.<br />
<br />
Per il blocco riquadro possono servire:<br />
* 65 cancellazione di una riga<br />
* 68 cancellazione di più righe<br />
* 71 cambio di riga (da capire differenza con 75)<br />
* 73 inserimento di una riga<br />
* 75 modifica di una riga (da capire differenza con 71)<br />
<br />
== Gestione pulsanti riquadro standard Cancella/Annulla/Copia... ==<br />
Questi pulsanti si attivano/disattivano tramite il campo "Opzioni" della sezione blocco (gestione Videata).<br />
<br />
In genere viene preimpostato "KARID", che significa Prec/Succ, Cancellazione di una riga, Ripresa,Inserisci e cancellazione multipla attive<br />
<br />
Questi i codici (dall'help):<br />
<pre>K : Previous & next line in entry mode<br />
K: Riga precedente & successiva in modalità inserimento<br />
A: Eliminare una riga<br />
D: Eliminare un intervallo di righe<br />
R: Aggiunta di righe a fine riquadro<br />
I: Inserimento di righe<br />
S: Taglia<br />
B: Copia<br />
C: Incolla<br />
T: Caricamento di tutte le righe del riquadro (Visualizzazione completa)<br />
? : Ricerca<br />
+ : Giustificazione colonna<br />
= : Modalità scheda automatica<br />
1-9 : Numero di colonne fisse (a partire dalla 1a colonna)</pre><br />
<br />
[[File:Gestione videate Opzioni blocco riquadro.png|none]]<br />
<br />
== Aggiungere un riga ad un riquadro ==<br />
Esempio:<br />
<pre>[M:YXX]CAMPO(NBLIG-1)='valore' #inserisco i valori alla riga con indice NBLIG-1<br />
[M:YXX]NBLIG+=1 #aumento il valore del numero di righe del riquadro<br />
Affzo [M:YXX] #aggiorno la visualizzazione del riquadro</pre><br />
<br />
== Altro ==<br />
* Se l'oggetto è combinato, ad ogni modifica il sistema cancella tutte le righe e le riscrive<br />
* [S]adxgtb: stato in un riquadro (entrata o uscita)</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Blocco_Riquadro&diff=279Gestione Blocco Riquadro2019-07-15T15:28:52Z<p>SageDev: </p>
<hr />
<div>Gestione di un blocco riquadro di una videata<br />
<br />
__TOC__<br />
<br />
<br />
Numeratore di riga NBLIG di tipo ABS, "Inserito"; se viene messo "nascosto" anche il riquadro sarà nascosto.<br />
<br />
== Gestione Inserimento/Modifica/Cancellazione righe ==<br />
Per fare dei controlli alla cancellazione di una linea tramite pulsante contestuale, prima del registra (evitando così di dover usare VERIF_CRE della gestione oggetto)<br />
<br />
<pre>Subprog C_NBLIG<br />
If status=65<br />
mkstat=2 #per impedire la cancellazione della riga<br />
Endif<br />
End</pre><br />
<br />
Vedi l'help dell'istruzione [[status]] per tutti i codici possibili che può avere.<br />
<br />
Per il blocco riquadro possono servire:<br />
* 65 cancellazione di una riga<br />
* 68 cancellazione di più righe<br />
* 71 cambio di riga (da capire differenza con 75)<br />
* 73 inserimento di una riga<br />
* 75 modifica di una riga (da capire differenza con 71)<br />
<br />
== Gestione pulsanti riquadro standard Cancella/Annulla/Copia... ==<br />
Questi pulsanti si attivano/disattivano tramite il campo "Opzioni" della sezione blocco (gestione Videata).<br />
<br />
In genere viene preimpostato "KARID", che significa Prec/Succ, Cancellazione di una riga, Ripresa,Inserisci e cancellazione multipla attive<br />
<br />
Questi i codici (dall'help):<br />
<pre>K : Previous & next line in entry mode<br />
K: Riga precedente & successiva in modalità inserimento<br />
A: Eliminare una riga<br />
D: Eliminare un intervallo di righe<br />
R: Aggiunta di righe a fine riquadro<br />
I: Inserimento di righe<br />
S: Taglia<br />
B: Copia<br />
C: Incolla<br />
T: Caricamento di tutte le righe del riquadro (Visualizzazione completa)<br />
? : Ricerca<br />
+ : Giustificazione colonna<br />
= : Modalità scheda automatica<br />
1-9 : Numero di colonne fisse (a partire dalla 1a colonna)</pre><br />
<br />
[[File:Gestione videate Opzioni blocco riquadro.png|none]]<br />
<br />
== Aggiungere un riga ad un riquadro ==<br />
Esempio:<br />
<pre>[M:YXX]CAMPO(NBLIG-1)='valore' #inserisco i valori alla riga con indice NBLIG-1<br />
[M:YXX]NBLIG+=1 #aumento il valore del numero di righe del riquadro<br />
Affzo [M:YXX] #aggiorno la visualizzazione del riquadro</pre><br />
<br />
== Altro ==<br />
* [S]adxgtb: stato in un riquadro (entrata o uscita)</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Blocco_Riquadro&diff=278Gestione Blocco Riquadro2019-07-15T15:06:36Z<p>SageDev: </p>
<hr />
<div>Gestione di un blocco riquadro di una videata<br />
<br />
__TOC__<br />
<br />
<br />
Numeratore di riga NBLIG di tipo ABS, "Inserito"; se viene messo "nascosto" anche il riquadro sarà nascosto.<br />
<br />
== Gestione Inserimento/Modifica/Cancellazione righe ==<br />
Per fare dei controlli alla cancellazione di una linea tramite pulsante contestuale, prima del registra (evitando così di dover usare VERIF_CRE della gestione oggetto)<br />
<br />
<pre>Subprog C_NBLIG<br />
If status=65<br />
mkstat=2 #per impedire la cancellazione della riga<br />
Endif<br />
End</pre><br />
<br />
Vedi l'help dell'istruzione [[status]] per tutti i codici possibili che può avere.<br />
<br />
Per il blocco riquadro possono servire:<br />
* 65 cancellazione di una riga<br />
* 68 cancellazione di più righe<br />
* 71 cambio di riga (da capire differenza con 75)<br />
* 73 inserimento di una riga<br />
* 75 modifica di una riga (da capire differenza con 71)<br />
<br />
== Gestione pulsanti riquadro standard Cancella/Annulla/Copia... ==<br />
Questi pulsanti si attivano/disattivano tramite il campo "Opzioni" della sezione blocco (gestione Videata).<br />
<br />
In genere viene preimpostato "KARID", che significa Prec/Succ, Cancellazione di una riga, Ripresa,Inserisci e cancellazione multipla attive<br />
<br />
Questi i codici (dall'help):<br />
<pre>K : Previous & next line in entry mode<br />
K: Riga precedente & successiva in modalità inserimento<br />
A: Eliminare una riga<br />
D: Eliminare un intervallo di righe<br />
R: Aggiunta di righe a fine riquadro<br />
I: Inserimento di righe<br />
S: Taglia<br />
B: Copia<br />
C: Incolla<br />
T: Caricamento di tutte le righe del riquadro (Visualizzazione completa)<br />
? : Ricerca<br />
+ : Giustificazione colonna<br />
= : Modalità scheda automatica<br />
1-9 : Numero di colonne fisse (a partire dalla 1a colonna)</pre><br />
<br />
[[File:Gestione videate Opzioni blocco riquadro.png|none]]<br />
<br />
== Aggiungere un riga ad un riquadro ==<br />
Esempio:<br />
<pre>[M:YXX]CAMPO(NBLIG-1)='valore' #inserisco i valori alla riga con indice NBLIG-1<br />
[M:YXX]NBLIG+=1 #aumento il valore del numero di righe del riquadro<br />
Affzo [M:YXX] #aggiorno la visualizzazione del riquadro</pre><br />
<br />
== Altro ==<br />
* ad ogni modifica il sistema cancella tutte le righe e le riscrive<br />
* [S]adxgtb: stato in un riquadro (entrata o uscita)</div>SageDevhttps://kb.sagedev.it/index.php?title=Web_Services&diff=258Web Services2019-07-08T14:11:53Z<p>SageDev: /* Risorse */</p>
<hr />
<div>=== Risorse ===<br />
* [http://www.messengerproducts.com/X3_Web_Services_v6.ppt Slide Sage in Inglese V6.2]<br />
* [https://slideplayer.fr/slide/1865350/ Slide in francese, V6]<br />
* https://github.com/oliviermantel/sample-sage-ws-excel-tools-x3-l4g<br />
<br />
* pubblicare un programma come ws: https://www.rklesolutions.com/blog/integration-options-with-sage-x3</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=257Variabili globali2019-07-05T15:53:59Z<p>SageDev: </p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo (vedi [[Gestione tracce]])<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
* '''GOBJET''': flag gestione oggetto; usato per capire all'interno di alcune chiamate (vedi per esempio file W1ITM0.src) se si è in [[GESAOB|gestione oggetto]] o meno<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)<br />
* '''mkstat''' stato quando si esce da un campo<br />
* '''fstat''' stato dopo un'operazione su una tabella</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=256Variabili globali2019-07-05T15:53:22Z<p>SageDev: /* Variabili globali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo (vedi [[Gestione tracce]])<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
* '''GOBJET''': flag gestione oggetto; usato per capire all'interno di alcune chiamate (vedi per esempio file W1ITM0.src) se si è in gestione oggetto o meno<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)<br />
* '''mkstat''' stato quando si esce da un campo<br />
* '''fstat''' stato dopo un'operazione su una tabella</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=255Gestione Bottoni2019-07-04T16:05:32Z<p>SageDev: /* Azioni campo */</p>
<hr />
<div>...appunti...<br />
<br />
= Nelle Finestre =<br />
* BOTTONI<br />
** SETBOUT refresh dei bottoni<br />
** AP_CHOIX dopo clic su bottone<br />
** AVANT_BOUTON: prima dell'esecuzione bottone specifico<br />
** AVANT_XXX: prima dell'esecuzione bottone standard<br />
** BOUTON: dopo esecuzione bottone specifico<br />
** XXX: dopo esecuzione bottone standard<br />
<br />
* Menu<br />
** AVANT_MEN prima dell'esecuzione<br />
** MEN: dopo l'esecuzione<br />
<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
= In azioni oggetto =<br />
<br />
Per bottoni: SETBOUT(per disattivarli, CHAINE), AVANTBOUT (prime dell'esecuzione, variabile BOUT), EXEBOUT (dopo l'esecuzione, variabile BOUT)<br />
<br />
Per menu: SETBOUT(per disattivarli, CHMEN), AVANTBOUT (prime dell'esecuzione, variabile BOUT), STATUT(dopo l'esecuzione, variabile BOUT)<br />
<br />
Per pulsanti standard: <br />
* AVANT_XXX (AVANT_NEW, AVANT_END, XXX è il codice standard)<br />
* XXX dopo l'esecuzione (NEW, END, S, C,...)<br />
<br />
Per pulsanti specifici: <br />
* AVANTBOUT (dove la variabile BOUT contiene il codice) <br />
* EXEBOUT dopo l'esecuzione (dove la variabile BOUT contiene il codice) <br />
<br />
<br />
<br />
Per togliere un pulsante da programma specifico:<br />
<br />
<pre>Call VIREBOUT (CHAINE, LISTA) From GOBJET</pre> <br />
* CHAINE : variable char, lista di bottoni disponibili (viene definita nel programma GOBJET)<br />
* LISTA : value char, lista di bottoni da cancellare <br />
<br />
Questi i valori dei bottoni: <br />
* C - Crea <br />
* D – Duplica <br />
* M - Salva <br />
* A - Elimina<br />
* F - FINE <br />
* H – CAMBIAMENTO CODICE lettere aggiornate: bottoni standard <br />
* J – Allegati<br />
* K - Commenti <br />
* E - Stampa<br />
* L – Lista<br />
* R - Selezione<br />
* 0 - PRIMO <br />
* 9 - ULTIMO <br />
* da 1 a 8 : bottoni standard <br />
* da a a z : bottoni specifici<br />
* @ - PROPRIETA’ <br />
* > - Successivo <br />
* < - Precedente<br />
<br />
Esempio: togliere il bottone Crea e attivare il pulsante registrare<br />
<pre>$SETBOUT<br />
Call VIREBOUT (CHAINE, "C") From GOBJET #togliere il bottone Crea<br />
REP = "M" : # attivazione del bottone REGISTRARE<br />
# attivazione di una riga menu con codice i (di default le sottorighe dei menu NON sono attive)<br />
CHMEN += "i"<br />
Return</pre><br />
<br />
= Azioni campo =<br />
Variabili coinvolte<br />
<br />
GREP, GBOUT1..20, GBOUTS, GBOUTA, GBOUTI<br />
<br />
GREP:<br />
* vuoto: nessun bottone selezionato <br />
* A : annulla<br />
* C : creazione <br />
* D : duplicazione <br />
* M : modifica<br />
<br />
== Bx_ZONE ==<br />
<br />
Esecuzione del bottone x <br />
* mkstat = 4, per attivare il bottone registra. <br />
* mkstat = 99, per posizionare il cursore sul campo successivo<br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=254Variabili globali2019-07-03T13:06:10Z<p>SageDev: /* Variabili speciali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo (vedi [[Gestione tracce]])<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)<br />
* '''mkstat''' stato quando si esce da un campo<br />
* '''fstat''' stato dopo un'operazione su una tabella</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=253Variabili globali2019-07-03T13:05:38Z<p>SageDev: /* Variabili speciali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo (vedi [[Gestione tracce]])<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)<br />
* '''mkstat''' stato quando si esce da un campo</div>SageDevhttps://kb.sagedev.it/index.php?title=Forzare_la_rilettura_di_un_record_visualizzato&diff=252Forzare la rilettura di un record visualizzato2019-07-03T13:05:03Z<p>SageDev: </p>
<hr />
<div>Se si modifica dei valori di un record già aperto va ricaricato in schermata (spesso si fa tramite delle azioni scatenate da menu/pulsanti).<br />
<br />
Nel caso non lo si faccia si può verificare o la perdita della modifica (perché viene riscritto il dato vecchio ancora presente in videata)<br />
<br />
o esce il messaggio di errore "Obsolete record" (nel caso si cerchi di fare delle modifiche ed il sistema si accorge dell'incongruenza).<br />
<br />
<br />
Esiste una [[Variabili globali|variabile globale]] apposita: GSTALIT.<br />
<br />
Eccone alcuni esempi d'uso:<br />
<br />
<pre>$FIN_ACTION<br />
Case REPONSE<br />
When GSTALIT : Gosub RELIT From GOBJSUB : SUIZON="CODACE"<br />
Endcase</pre><br />
<br />
Dentro $FERME o $FIN<br />
<pre><br />
#Se si arriva da un tunnel si imposta mkstat in modo che forzi la rilettura al ritorno dal tunnel stesso<br />
If GFONC1 = "GESSQH" <br />
mkstat=GSTALIT <br />
Endif<br />
</pre><br />
<br />
<br />
<pre>Subprog CL_BTN(VALEUR)<br />
Variable Char VALEUR()<br />
# Per forzare la rilettura dopo l'esecuzione dell'azione Click<br />
mkstat = GSTALIT<br />
End</pre><br />
<br />
<br />
<br />
<br />
Un modo artigianale per ricaricare il record dopo un'azione ad esempio di un bottone è questo:<br />
<br />
# inizializzare una variabile globale in coda all'azione: <code>Global Char YGRELIT</code><br />
# nell'azione AVANT_CHOI, testare la presenza della variabile ed eseguire <code>Gosub RELIT from GOBJSUB</code><br />
<br />
<pre>$AVANT_CHOI<br />
#Rilettura del record<br />
If dim(YGRELIT) > 0 Then<br />
Kill YGRELIT<br />
Gosub RELIT From GOBJSUB<br />
Endif<br />
Return</pre></div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=251Gestione tracce2019-07-03T12:59:42Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#scrivere un messaggio informativo<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Call SUP_TRACE FROM LECFIC #cancello la traccia <br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0 = nero<br />
* 1 = rosso<br />
* -1 = verde<br />
* -2 = blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=250Gestione tracce2019-07-03T12:57:58Z<p>SageDev: Undo revision 249 by SageDev (talk)</p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#e modi per scrivere un messaggio informativo<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
Call MESSAGE ("log"-num$(date$)-time$) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Call SUP_TRACE FROM LECFIC #cancello la traccia <br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0 = nero<br />
* 1 = rosso<br />
* -1 = verde<br />
* -2 = blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=249Gestione tracce2019-07-03T12:50:30Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#2 modi per scrivere un messaggio informativo<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
Call MESSAGE ("log"-num$(date$)-time$) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Call SUP_TRACE FROM LECFIC #cancello la traccia <br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0 = nero<br />
* 1 = rosso<br />
* -1 = verde<br />
* -2 = blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=248Gestione tracce2019-07-03T12:49:22Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#e modi per scrivere un messaggio informativo<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
Call MESSAGE ("log"-num$(date$)-time$) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Call SUP_TRACE FROM LECFIC #cancello la traccia <br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0 = nero<br />
* 1 = rosso<br />
* -1 = verde<br />
* -2 = blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=247Gestione tracce2019-07-03T12:48:07Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#Scrittura traccia<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Call SUP_TRACE FROM LECFIC #cancello la traccia <br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0 = nero<br />
* 1 = rosso<br />
* -1 = verde<br />
* -2 = blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Lettura_tabelle&diff=245Lettura tabelle2019-07-03T09:14:49Z<p>SageDev: /* Procedura standard di lettura */</p>
<hr />
<div><br />
<br />
Gli esempi che seguono indicano con <code>[XXX]</code> l'identificativo di una tabella già aperta.<br />
<br />
Per limitare la lettura delle colonne vedi istruzione '''[[Columns]]'''.<br />
<br />
== Apertura tabella ==<br />
Apertura di una tabella:<br />
<pre>If clalev([F:ITM])=0: Local File ITMMASTER [F:ITM] : Endif</pre><br />
Apertura tabella di un dossier diverso dal corrente:<br />
<pre>If clalev([F:YFCT])=0: Local File 'X3.AFCTCUR' [F:YFCT] : Endif</pre><br />
<br />
== Procedura standard di lettura ==<br />
In generale, per leggere una tabella:<br />
#Si controlla che non sia già aperta con l'istruzione [[clalev]]<br />
#Se non è aperta si apre indicando un'etichetta con cui poi ci riferiremo alla tabella; in questo modo è possibile aprire due volte la stessa tabella.<br />
#Si legge<br />
#Si controlla che la lettura sia andata a buon fine attraverso la variabile <code>fstat</code><br />
<br />
Esempio:<br />
<pre><br />
If !clalev([F:YADI]) :# controllo che non sia aperta<br />
Local File ATABDIV [F:YADI] :# dichiarazione di apertura tabella con etichetta YADI<br />
Endif<br />
Read[F:YADI]CODE = 6052;ABFIC :# lettura da tabella (in questo caso specifico è una tabella diversa, capitolo 6052)<br />
If fstat :# controllo che la lettura sia andata a buon fine<br />
Infbox "Errore" <br />
Else<br />
InfBox "ok" :# se fstat=0 è tutto ok<br />
Endif<br />
</pre><br />
<br />
Forma breve:<br />
<pre><br />
If !clalev([F:YADI]) : Local File ATABDIV [F:YADI] : Endif : #commento<br />
</pre><br />
<br />
== Lettura puntuale di un record ==<br />
<code>Read [XXX]indice = KEY1;KEY2</code><br />
<br />
Per sapere come è definito l'indice andare a vedere la tabella da leggere in '''[[GESATB]]''', nella scheda indici.<br />
<br />
Esempio (attenzione ai doppi apici da mettere per ogni valore scritto direttamente come stringa)<br />
<pre><br />
Read [XXX]indice = "STR1";"STR2"<br />
</pre><br />
equivalente di<br />
<pre><br />
VARIABILE2="STR2"<br />
Read [XXX]indice = "VAL1";VARIABILE2<br />
</pre><br />
<br />
== Lettura sequenziale di record ==<br />
<br />
<pre> For [XXX] Where CAMPO = CONDIZIONE<br />
Next</pre><br />
<br />
Esempio:<br />
<pre> For [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR<br />
... <br />
NUMERO = [F:YCE]YSEQMAR<br />
Next</pre><br />
<br />
=== Stability ===<br />
Nel caso di tabelle che variano con grande frequenza e solo in caso di un SQL server, con l'istruzione <code>For</code> si può utilizzare l'istruzione <code>With Stability</code>, per esempio<br />
For [FAS] With Stability<br />
...<br />
Next<br />
<br />
In pratica fa in modo che il ciclo agisca solo sulle righe già presenti nel db quando il ciclo ha inizio.<br />
<br />
== Lettura con filtro ==<br />
<br />
<pre><br />
Filter [F:YCE] # Azzero eventuale filtro precedente<br />
Filter [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR Order By YSEQMAR Desc # applico filtro<br />
#oppure Where key NOMEINDICE=campo1;campo2;campo3<br />
# è possibile utilizzare Order by (staccato, non OrderBy), per es. Order By RANG Asc; NOM(1) Desc<br />
<br />
For [F:YCE] <br />
Break #istruzione non necessaria<br />
Next<br />
Filter [F:YCE] # tolgo filtro<br />
</pre><br />
<br />
Se la tabella è aperta con una condizione ''[[Where]]'', le condizioni di [[Filter]] vengono applicate ai record già selezionati (come fosse in "and").<br /><br />
Nel codice sorgente l'istruzione [[Link]] indica una join tra tabelle<br />
<br />
E' possibile utilizzare una variabile contenente un criterio:<br />
<pre><br />
Local Char CRIT(50)(3)<br />
CRIT(0)="ABREV='Orig' "<br />
CRIT(1)="And MOT>='A'"<br />
Filter [ABR] Where evalue(CRIT)<br />
</pre><br />
<br />
Si può fare anche <code>Local File AABREV[ABR] where evalue(CRIT)</code><br />
<br />
== Lettura metadati tabella ==<br />
Riporto un esempio in cui vengono visualizzate le caratteristiche di una tabella.<br />
<br />
<pre><br />
Call LEGGIDATI_TABELLA("YITMINF")<br />
End <br />
<br />
Subprog LEGGIDATI_TABELLA(TABELLA)<br />
Value Char TABELLA()<br />
File = TABELLA [YYLT]<br />
<br />
Infbox 'Ci sono '-num$([G:YYLT]nbzon)-' campi nella tabella CLIENTI:'<br />
For I = 0 To [G:YYLT]nbzon - 1<br />
Infbox [G:YYLT]adxfname(I)<br />
Next I<br />
<br />
Infbox 'Ci sono '-num$([G:YYLT]nbind)-'indici nella tabella CLIENTI:'<br />
For I = 0 To [G:YYLT]nbind - 1<br />
Infbox [G:YYLT]keyname(I)<br />
Case [G:YYLT]keyuniq(I)<br />
When 0 : Infbox ' (Con Omonimi) '<br />
When 1 : Infbox ' (Senza Omonimi) '<br />
When 2 : Infbox ' (Più omonimi) '<br />
Endcase<br />
Infbox 'Lunghezza = '-num$([G:YYLT]keylen(I))<br />
Infbox 'Dimensione totale record = '-num$([G:YYLT]tairec)<br />
Next I<br />
End<br />
</pre><br />
<br />
== Altro ==<br />
* rowcount() contiene il numero di record di un file appena aperto, e tiene conto dei filtri applicati; per esempio <code>rowcount([F:ITM])</code><br />
* nbrecord() returns the number of lines on a table opened by File or Trbegin.<br />
* adxdlrec contiene il numero di record cancellati con l'istruzione <code>Delete (classe)</code><br />
* nbrecord() dà il numero di record della tabella passata come parametro (la tabella deve essere aperta).</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=244Gestione tracce2019-07-03T07:14:25Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] '''GTRACE''' contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#Scrittura traccia<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0=nero<br />
* 1=rosso<br />
* 2=verde<br />
* 3=blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=243Gestione tracce2019-07-03T07:14:09Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [[Variabili globali|variabile globale]] GTRACE contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#Scrittura traccia<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0=nero<br />
* 1=rosso<br />
* 2=verde<br />
* 3=blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=242Gestione tracce2019-07-03T07:13:59Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
La [Variabili globali|variabile globale]] GTRACE contiene il nome della traccia corrente; se GTRACE="" vuol dire che non c'è traccia in corso.<br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#Scrittura traccia<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0=nero<br />
* 1=rosso<br />
* 2=verde<br />
* 3=blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=241Variabili globali2019-07-03T07:11:35Z<p>SageDev: </p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo (vedi [[Gestione tracce]])<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=240Variabili globali2019-07-03T07:11:21Z<p>SageDev: </p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo (vedi [[Gestione_tracce]])<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=239Gestione tracce2019-07-03T07:10:40Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#Scrittura traccia<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0=nero<br />
* 1=rosso<br />
* 2=verde<br />
* 3=blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_tracce&diff=238Gestione tracce2019-07-03T07:09:17Z<p>SageDev: </p>
<hr />
<div><br />
In Sage i file di log sono chiamati tracce, e sono ricercabili attraverso '''LECTRACE''' (all'apertura della finestra premere F12 per vedere l'elenco delle tracce).<br />
<br />
Nel creare un file di traccia da codice è possibile distinguere se il programma viene eseguito in modalità batch o in modalità interattiva (in genere in modalità batch si fa sempre un log per poter capire se succede qualcosa di anomalo).<br />
<br />
In genere in modalità interattiva al termine dell'esecuzione la traccia viene visualizzata automaticamente, altrimenti viene scritta ed è poi recuperabile con LECTRACE.<br />
Per capire in che modalità avviene l'esecuzione si utilizza GSERVEUR (vedi [[Sage:Variabili_globali|Variabili globali]]).<br />
<br />
Nel momento in cui c'è una traccia appena chiusa è possibile visualizzarla all'utente finale con questo comando:<br />
<code>Call LEC_TRACE FROM LECFIC</code><br />
<br />
Esempio:<br />
<br />
<pre> #Apertura traccia (in modalità interattiva) (GSERVEUR=0 modalità interattiva, =1 modalità batch)<br />
If !GSERVEUR <br />
Call OUVRE_TRACE("Inizio log" -num$(date$)-time$) From LECFIC<br />
Endif<br />
<br />
#Scrittura traccia<br />
Call ECR_TRACE("log"-num$(date$)-time$,0) FROM GESECRAN<br />
<br />
#Scrittura errore<br />
Call ECR_TRACE("log"-num$(date$)-time$,1) FROM GESECRAN<br />
<br />
#Chiusura e visualizzazione traccia <br />
Call ECR_TRACE("Fine log"-num$(date$)-time$,0) FROM GESECRAN<br />
If !GSERVEUR<br />
Call FERME_TRACE From LECFIC #chiudo traccia<br />
Call LEC_TRACE FROM LECFIC #visualizzo traccia<br />
Endif<br />
</pre><br />
<br />
=== Call ECR_TRACE("Testo",N) From GESECRAN ===<br />
Valori possibili di N:<br />
* 0=nero<br />
* 1=rosso<br />
* 2=verde<br />
* 3=blu</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=237Gestione Bottoni2019-07-02T16:10:51Z<p>SageDev: /* Finestre */</p>
<hr />
<div>...appunti...<br />
<br />
= Nelle Finestre =<br />
* BOTTONI<br />
** SETBOUT refresh dei bottoni<br />
** AP_CHOIX dopo clic su bottone<br />
** AVANT_BOUTON: prima dell'esecuzione bottone specifico<br />
** AVANT_XXX: prima dell'esecuzione bottone standard<br />
** BOUTON: dopo esecuzione bottone specifico<br />
** XXX: dopo esecuzione bottone standard<br />
<br />
* Menu<br />
** AVANT_MEN prima dell'esecuzione<br />
** MEN: dopo l'esecuzione<br />
<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
= In azioni oggetto =<br />
<br />
Per bottoni: SETBOUT(per disattivarli, CHAINE), AVANTBOUT (prime dell'esecuzione, variabile BOUT), EXEBOUT (dopo l'esecuzione, variabile BOUT)<br />
<br />
Per menu: SETBOUT(per disattivarli, CHMEN), AVANTBOUT (prime dell'esecuzione, variabile BOUT), STATUT(dopo l'esecuzione, variabile BOUT)<br />
<br />
Per pulsanti standard: <br />
* AVANT_XXX (AVANT_NEW, AVANT_END, XXX è il codice standard)<br />
* XXX dopo l'esecuzione (NEW, END, S, C,...)<br />
<br />
Per pulsanti specifici: <br />
* AVANTBOUT (dove la variabile BOUT contiene il codice) <br />
* EXEBOUT dopo l'esecuzione (dove la variabile BOUT contiene il codice) <br />
<br />
<br />
<br />
Per togliere un pulsante da programma specifico:<br />
<br />
<pre>Call VIREBOUT (CHAINE, LISTA) From GOBJET</pre> <br />
* CHAINE : variable char, lista di bottoni disponibili (viene definita nel programma GOBJET)<br />
* LISTA : value char, lista di bottoni da cancellare <br />
<br />
Questi i valori dei bottoni: <br />
* C - Crea <br />
* D – Duplica <br />
* M - Salva <br />
* A - Elimina<br />
* F - FINE <br />
* H – CAMBIAMENTO CODICE lettere aggiornate: bottoni standard <br />
* J – Allegati<br />
* K - Commenti <br />
* E - Stampa<br />
* L – Lista<br />
* R - Selezione<br />
* 0 - PRIMO <br />
* 9 - ULTIMO <br />
* da 1 a 8 : bottoni standard <br />
* da a a z : bottoni specifici<br />
* @ - PROPRIETA’ <br />
* > - Successivo <br />
* < - Precedente<br />
<br />
Esempio: togliere il bottone Crea e attivare il pulsante registrare<br />
<pre>$SETBOUT<br />
Call VIREBOUT (CHAINE, "C") From GOBJET #togliere il bottone Crea<br />
REP = "M" : # attivazione del bottone REGISTRARE<br />
# attivazione di una riga menu con codice i (di default le sottorighe dei menu NON sono attive)<br />
CHMEN += "i"<br />
Return</pre><br />
<br />
= Azioni campo =<br />
Variabili coinvolte<br />
<br />
GREP, GBOUT1..20, GBOUTS, GBOUTA, GBOUTI<br />
<br />
GREP:<br />
* vuoto: nessun bottone selezionato <br />
* A : annulla<br />
* C : creazione <br />
* D : duplicazione <br />
* M : modifica<br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=236Gestione Bottoni2019-07-02T16:06:42Z<p>SageDev: /* Da azioni campo */</p>
<hr />
<div>...appunti...<br />
<br />
= Finestre =<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
= In azioni oggetto =<br />
<br />
Per bottoni: SETBOUT(per disattivarli, CHAINE), AVANTBOUT (prime dell'esecuzione, variabile BOUT), EXEBOUT (dopo l'esecuzione, variabile BOUT)<br />
<br />
Per menu: SETBOUT(per disattivarli, CHMEN), AVANTBOUT (prime dell'esecuzione, variabile BOUT), STATUT(dopo l'esecuzione, variabile BOUT)<br />
<br />
Per pulsanti standard: <br />
* AVANT_XXX (AVANT_NEW, AVANT_END, XXX è il codice standard)<br />
* XXX dopo l'esecuzione (NEW, END, S, C,...)<br />
<br />
Per pulsanti specifici: <br />
* AVANTBOUT (dove la variabile BOUT contiene il codice) <br />
* EXEBOUT dopo l'esecuzione (dove la variabile BOUT contiene il codice) <br />
<br />
<br />
<br />
Per togliere un pulsante da programma specifico:<br />
<br />
<pre>Call VIREBOUT (CHAINE, LISTA) From GOBJET</pre> <br />
* CHAINE : variable char, lista di bottoni disponibili (viene definita nel programma GOBJET)<br />
* LISTA : value char, lista di bottoni da cancellare <br />
<br />
Questi i valori dei bottoni: <br />
* C - Crea <br />
* D – Duplica <br />
* M - Salva <br />
* A - Elimina<br />
* F - FINE <br />
* H – CAMBIAMENTO CODICE lettere aggiornate: bottoni standard <br />
* J – Allegati<br />
* K - Commenti <br />
* E - Stampa<br />
* L – Lista<br />
* R - Selezione<br />
* 0 - PRIMO <br />
* 9 - ULTIMO <br />
* da 1 a 8 : bottoni standard <br />
* da a a z : bottoni specifici<br />
* @ - PROPRIETA’ <br />
* > - Successivo <br />
* < - Precedente<br />
<br />
Esempio: togliere il bottone Crea e attivare il pulsante registrare<br />
<pre>$SETBOUT<br />
Call VIREBOUT (CHAINE, "C") From GOBJET #togliere il bottone Crea<br />
REP = "M" : # attivazione del bottone REGISTRARE<br />
# attivazione di una riga menu con codice i (di default le sottorighe dei menu NON sono attive)<br />
CHMEN += "i"<br />
Return</pre><br />
<br />
= Azioni campo =<br />
Variabili coinvolte<br />
<br />
GREP, GBOUT1..20, GBOUTS, GBOUTA, GBOUTI<br />
<br />
GREP:<br />
* vuoto: nessun bottone selezionato <br />
* A : annulla<br />
* C : creazione <br />
* D : duplicazione <br />
* M : modifica<br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=235Gestione Bottoni2019-07-02T16:06:22Z<p>SageDev: /* Da azioni oggetto */</p>
<hr />
<div>...appunti...<br />
<br />
= Finestre =<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
= In azioni oggetto =<br />
<br />
Per bottoni: SETBOUT(per disattivarli, CHAINE), AVANTBOUT (prime dell'esecuzione, variabile BOUT), EXEBOUT (dopo l'esecuzione, variabile BOUT)<br />
<br />
Per menu: SETBOUT(per disattivarli, CHMEN), AVANTBOUT (prime dell'esecuzione, variabile BOUT), STATUT(dopo l'esecuzione, variabile BOUT)<br />
<br />
Per pulsanti standard: <br />
* AVANT_XXX (AVANT_NEW, AVANT_END, XXX è il codice standard)<br />
* XXX dopo l'esecuzione (NEW, END, S, C,...)<br />
<br />
Per pulsanti specifici: <br />
* AVANTBOUT (dove la variabile BOUT contiene il codice) <br />
* EXEBOUT dopo l'esecuzione (dove la variabile BOUT contiene il codice) <br />
<br />
<br />
<br />
Per togliere un pulsante da programma specifico:<br />
<br />
<pre>Call VIREBOUT (CHAINE, LISTA) From GOBJET</pre> <br />
* CHAINE : variable char, lista di bottoni disponibili (viene definita nel programma GOBJET)<br />
* LISTA : value char, lista di bottoni da cancellare <br />
<br />
Questi i valori dei bottoni: <br />
* C - Crea <br />
* D – Duplica <br />
* M - Salva <br />
* A - Elimina<br />
* F - FINE <br />
* H – CAMBIAMENTO CODICE lettere aggiornate: bottoni standard <br />
* J – Allegati<br />
* K - Commenti <br />
* E - Stampa<br />
* L – Lista<br />
* R - Selezione<br />
* 0 - PRIMO <br />
* 9 - ULTIMO <br />
* da 1 a 8 : bottoni standard <br />
* da a a z : bottoni specifici<br />
* @ - PROPRIETA’ <br />
* > - Successivo <br />
* < - Precedente<br />
<br />
Esempio: togliere il bottone Crea e attivare il pulsante registrare<br />
<pre>$SETBOUT<br />
Call VIREBOUT (CHAINE, "C") From GOBJET #togliere il bottone Crea<br />
REP = "M" : # attivazione del bottone REGISTRARE<br />
# attivazione di una riga menu con codice i (di default le sottorighe dei menu NON sono attive)<br />
CHMEN += "i"<br />
Return</pre><br />
<br />
== Da azioni campo ==<br />
Variabili coinvolte<br />
<br />
GREP, GBOUT1..20, GBOUTS, GBOUTA, GBOUTI<br />
<br />
GREP:<br />
* vuoto: nessun bottone selezionato <br />
* A : annulla<br />
* C : creazione <br />
* D : duplicazione <br />
* M : modifica<br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=234Gestione Bottoni2019-07-02T16:06:01Z<p>SageDev: /* Da azioni oggetto */</p>
<hr />
<div>...appunti...<br />
<br />
= Finestre =<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
== Da azioni oggetto ==<br />
<br />
Per bottoni: SETBOUT(per disattivarli, CHAINE), AVANTBOUT (prime dell'esecuzione, variabile BOUT), EXEBOUT (dopo l'esecuzione, variabile BOUT)<br />
<br />
Per menu: SETBOUT(per disattivarli, CHMEN), AVANTBOUT (prime dell'esecuzione, variabile BOUT), STATUT(dopo l'esecuzione, variabile BOUT)<br />
<br />
Per pulsanti standard: <br />
* AVANT_XXX (AVANT_NEW, AVANT_END, XXX è il codice standard)<br />
* XXX dopo l'esecuzione (NEW, END, S, C,...)<br />
<br />
Per pulsanti specifici: <br />
* AVANTBOUT (dove la variabile BOUT contiene il codice) <br />
* EXEBOUT dopo l'esecuzione (dove la variabile BOUT contiene il codice) <br />
<br />
<br />
<br />
Per togliere un pulsante da programma specifico:<br />
<br />
<pre>Call VIREBOUT (CHAINE, LISTA) From GOBJET</pre> <br />
* CHAINE : variable char, lista di bottoni disponibili (viene definita nel programma GOBJET)<br />
* LISTA : value char, lista di bottoni da cancellare <br />
<br />
Questi i valori dei bottoni: <br />
* C - Crea <br />
* D – Duplica <br />
* M - Salva <br />
* A - Elimina<br />
* F - FINE <br />
* H – CAMBIAMENTO CODICE lettere aggiornate: bottoni standard <br />
* J – Allegati<br />
* K - Commenti <br />
* E - Stampa<br />
* L – Lista<br />
* R - Selezione<br />
* 0 - PRIMO <br />
* 9 - ULTIMO <br />
* da 1 a 8 : bottoni standard <br />
* da a a z : bottoni specifici<br />
* @ - PROPRIETA’ <br />
* > - Successivo <br />
* < - Precedente<br />
<br />
Esempio: togliere il bottone Crea e attivare il pulsante registrare<br />
<pre>$SETBOUT<br />
Call VIREBOUT (CHAINE, "C") From GOBJET #togliere il bottone Crea<br />
REP = "M" : # attivazione del bottone REGISTRARE<br />
# attivazione di una riga menu con codice i (di default le sottorighe dei menu NON sono attive)<br />
CHMEN += "i"<br />
Return</pre><br />
<br />
== Da azioni campo ==<br />
Variabili coinvolte<br />
<br />
GREP, GBOUT1..20, GBOUTS, GBOUTA, GBOUTI<br />
<br />
GREP:<br />
* vuoto: nessun bottone selezionato <br />
* A : annulla<br />
* C : creazione <br />
* D : duplicazione <br />
* M : modifica<br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=233Gestione Bottoni2019-07-02T16:00:50Z<p>SageDev: /* Da azioni oggetto */</p>
<hr />
<div>...appunti...<br />
<br />
= Finestre =<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
== Da azioni oggetto ==<br />
<br />
Per bottoni: SETBOUT(per disattivarli, CHAINE), AVANTBOUT (prime dell'esecuzione, variabile BOUT), EXEBOUT (dopo l'esecuzione, variabile BOUT)<br />
Per menu: SETBOUT(per disattivarli, CHMEN), AVANTBOUT (prime dell'esecuzione, variabile BOUT), STATUT(dopo l'esecuzione, variabile BOUT)<br />
<br />
<br />
Per togliere un pulsante da programma specifico:<br />
<br />
<pre>Call VIREBOUT (CHAINE, LISTA) From GOBJET</pre> <br />
* CHAINE : variable char, lista di bottoni disponibili (viene definita nel programma GOBJET)<br />
* LISTA : value char, lista di bottoni da cancellare <br />
<br />
Questi i valori dei bottoni: <br />
* C - Crea <br />
* D – Duplica <br />
* M - Salva <br />
* A - Elimina<br />
* F - FINE <br />
* H – CAMBIAMENTO CODICE lettere aggiornate: bottoni standard <br />
* J – Allegati<br />
* K - Commenti <br />
* E - Stampa<br />
* L – Lista<br />
* R - Selezione<br />
* 0 - PRIMO <br />
* 9 - ULTIMO <br />
* da 1 a 8 : bottoni standard <br />
* da a a z : bottoni specifici<br />
* @ - PROPRIETA’ <br />
* > - Successivo <br />
* < - Precedente<br />
<br />
Esempio: togliere il bottone Crea e attivare il pulsante registrare<br />
<pre>$SETBOUT<br />
Call VIREBOUT (CHAINE, "C") From GOBJET #togliere il bottone Crea<br />
REP = "M" : # attivazione del bottone REGISTRARE<br />
# attivazione di una riga menu con codice i (di default le sottorighe dei menu NON sono attive)<br />
CHMEN += "i"<br />
Return</pre><br />
<br />
== Da azioni campo ==<br />
Variabili coinvolte<br />
<br />
GREP, GBOUT1..20, GBOUTS, GBOUTA, GBOUTI<br />
<br />
GREP:<br />
* vuoto: nessun bottone selezionato <br />
* A : annulla<br />
* C : creazione <br />
* D : duplicazione <br />
* M : modifica<br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=229Gestione Bottoni2019-07-02T11:29:25Z<p>SageDev: /* Finestre */</p>
<hr />
<div>= Finestre =<br />
== Gestione tipica ==<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
<pre>$CHOIX<br />
Case REPONSE<br />
When GSTARET, GSTAOK : Gosub ENREG<br />
When GSTAEND, GSTAESC : FIN=1<br />
Endcase<br />
Return</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=228Variabili globali2019-07-02T11:27:19Z<p>SageDev: /* Gestione tipica */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=227Variabili globali2019-07-02T11:25:45Z<p>SageDev: </p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GSTAOK''': pulsante standard "Ok"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=226Variabili globali2019-07-02T11:18:45Z<p>SageDev: /* Gestione tipica */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra (sorgenti SUB*.src):<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
<br />
Altro esempio da qualche sorgente SUB*.src:<br />
<br />
Finestra<br />
<pre>$APRES_CHOI<br />
Case REPONSE <br />
When GSTACRE : Gosub CREATE : #Créer<br />
When GSTAANU : Gosub ANNUL : #Supprimer<br />
When GSTAENR : Gosub MODIF : #Enregistrer<br />
When GSTARET :<br />
If REP="C" | REP="D" : Gosub CREATE <br />
Elsif REP="M" : Gosub MODIF <br />
Endif <br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
oppure<br />
<br />
<pre>$APRES_CHOI<br />
Case REPONSE<br />
When GSTARET :<br />
Case GREP<br />
When "C", "D" : REPONSE = GSTACRE<br />
When "M" : REPONSE = GSTAENR<br />
Endcase<br />
Endcase<br />
#<br />
Case REPONSE<br />
...</pre><br />
<br />
Dialog box<br />
<pre>$AP_CHOIX<br />
Case REPONSE<br />
When GSTARET : Gosub VALID<br />
When GSTAEND, GSTAESC : Gosub CONFIRME<br />
When Default<br />
Endcase<br />
Return</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=225Variabili globali2019-07-02T10:58:09Z<p>SageDev: /* Variabili speciali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Gestione tipica ==<br />
<br />
Lo standard in generale fa queste due chiamate all'apertura e alla chiusura di una finestra:<br />
<br />
Dentro $OUVRE<br />
<pre>#Salva l'attuale situazione delle variabili globali<br />
Gosub SAUV_GLOB From TRTX3GLOB</pre><br />
<br />
Dentro $FERME<br />
<pre>#Ripristina le variabili globali<br />
Gosub REST_GLOB From TRTX3GLOB</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Forzare_la_rilettura_di_un_record_visualizzato&diff=224Forzare la rilettura di un record visualizzato2019-07-02T10:54:21Z<p>SageDev: </p>
<hr />
<div>Se si modifica dei valori di un record già aperto va ricaricato in schermata (spesso si fa tramite delle azioni scatenate da menu/pulsanti).<br />
<br />
Nel caso non lo si faccia si può verificare o la perdita della modifica (perché viene riscritto il dato vecchio ancora presente in videata)<br />
<br />
o esce il messaggio di errore "Obsolete record" (nel caso si cerchi di fare delle modifiche ed il sistema si accorge dell'incongruenza).<br />
<br />
<br />
Esiste una [[Variabili globali|variabile globale]] apposita: GSTALIT.<br />
<br />
Eccone alcuni esempi d'uso:<br />
<br />
<pre>$FIN_ACTION<br />
Case REPONSE<br />
When GSTALIT : Gosub RELIT From GOBJSUB : SUIZON="CODACE"<br />
Endcase</pre><br />
<br />
Dentro $FERME o $FIN<br />
<pre><br />
#Se si arriva da un tunnel si iposta mkstat in modo che forzi la rilettura al ritorno dal tunnel stesso<br />
If GFONC1 = "GESSQH" <br />
mkstat=GSTALIT <br />
Endif<br />
</pre><br />
<br />
<br />
<pre>Subprog CL_BTN(VALEUR)<br />
Variable Char VALEUR()<br />
# Per forzare la rilettura dopo l'esecuzione dell'azione Click<br />
mkstat = GSTALIT<br />
End</pre><br />
<br />
<br />
<br />
<br />
Un modo artigianale per ricaricare il record dopo un'azione ad esempio di un bottone è questo:<br />
<br />
# inizializzare una variabile globale in coda all'azione: <code>Global Char YGRELIT</code><br />
# nell'azione AVANT_CHOI, testare la presenza della variabile ed eseguire <code>Gosub RELIT from GOBJSUB</code><br />
<br />
<pre>$AVANT_CHOI<br />
#Rilettura del record<br />
If dim(YGRELIT) > 0 Then<br />
Kill YGRELIT<br />
Gosub RELIT From GOBJSUB<br />
Endif<br />
Return</pre></div>SageDevhttps://kb.sagedev.it/index.php?title=Forzare_la_rilettura_di_un_record_visualizzato&diff=223Forzare la rilettura di un record visualizzato2019-07-02T10:53:48Z<p>SageDev: </p>
<hr />
<div>Se si modifica dei valori di un record già aperto va ricaricato in schermata (spesso si fa tramite delle azioni scatenate da menu/pulsanti).<br />
<br />
Nel caso non lo si faccia si può verificare o la perdita della modifica (perché viene riscritto il dato vecchio ancora presente in videata)<br />
<br />
o esce il messaggio di errore "Obsolete record" (nel caso si cerchi di fare delle modifiche ed il sistema si accorge dell'incongruenza).<br />
<br />
<br />
<br />
Un modo casereccio per ricaricare il record dopo un'azione ad esempio di un bottone è questo:<br />
<br />
# inizializzare una variabile globale in coda all'azione: <code>Global Char YGRELIT</code><br />
# nell'azione AVANT_CHOI, testare la presenza della variabile ed eseguire <code>Gosub RELIT from GOBJSUB</code><br />
<br />
<pre>$AVANT_CHOI<br />
#Rilettura del record<br />
If dim(YGRELIT) > 0 Then<br />
Kill YGRELIT<br />
Gosub RELIT From GOBJSUB<br />
Endif<br />
Return</pre><br />
<br />
Esiste anche una [[Variabili globali|variabile globale]] apposita: GSTALIT.<br />
<br />
Eccone alcuni esempi d'uso:<br />
<br />
<pre>$FIN_ACTION<br />
Case REPONSE<br />
When GSTALIT : Gosub RELIT From GOBJSUB : SUIZON="CODACE"<br />
Endcase</pre><br />
<br />
Dentro $FERME o $FIN<br />
<pre><br />
#Se si arriva da un tunnel si iposta mkstat in modo che forzi la rilettura al ritorno dal tunnel stesso<br />
If GFONC1 = "GESSQH" <br />
mkstat=GSTALIT <br />
Endif<br />
</pre><br />
<br />
<br />
<pre>Subprog CL_BTN(VALEUR)<br />
Variable Char VALEUR()<br />
# Per forzare la rilettura dopo l'esecuzione dell'azione Click<br />
mkstat = GSTALIT<br />
End</pre></div>SageDevhttps://kb.sagedev.it/index.php?title=Forzare_la_rilettura_di_un_record_visualizzato&diff=222Forzare la rilettura di un record visualizzato2019-07-02T10:53:35Z<p>SageDev: Created page with "Se si modifica dei valori di un record già aperto va ricaricato in schermata (spesso si fa tramite delle azioni scatenate da menu/pulsanti). Nel caso non lo si faccia si pu..."</p>
<hr />
<div>Se si modifica dei valori di un record già aperto va ricaricato in schermata (spesso si fa tramite delle azioni scatenate da menu/pulsanti).<br />
<br />
Nel caso non lo si faccia si può verificare o la perdita della modifica (perché viene riscritto il dato vecchio ancora presente in videata)<br />
o esce il messaggio di errore "Obsolete record" (nel caso si cerchi di fare delle modifiche ed il sistema si accorge dell'incongruenza).<br />
<br />
<br />
<br />
Un modo casereccio per ricaricare il record dopo un'azione ad esempio di un bottone è questo:<br />
<br />
# inizializzare una variabile globale in coda all'azione: <code>Global Char YGRELIT</code><br />
# nell'azione AVANT_CHOI, testare la presenza della variabile ed eseguire <code>Gosub RELIT from GOBJSUB</code><br />
<br />
<pre>$AVANT_CHOI<br />
#Rilettura del record<br />
If dim(YGRELIT) > 0 Then<br />
Kill YGRELIT<br />
Gosub RELIT From GOBJSUB<br />
Endif<br />
Return</pre><br />
<br />
Esiste anche una [[Variabili globali|variabile globale]] apposita: GSTALIT.<br />
<br />
Eccone alcuni esempi d'uso:<br />
<br />
<pre>$FIN_ACTION<br />
Case REPONSE<br />
When GSTALIT : Gosub RELIT From GOBJSUB : SUIZON="CODACE"<br />
Endcase</pre><br />
<br />
Dentro $FERME o $FIN<br />
<pre><br />
#Se si arriva da un tunnel si iposta mkstat in modo che forzi la rilettura al ritorno dal tunnel stesso<br />
If GFONC1 = "GESSQH" <br />
mkstat=GSTALIT <br />
Endif<br />
</pre><br />
<br />
<br />
<pre>Subprog CL_BTN(VALEUR)<br />
Variable Char VALEUR()<br />
# Per forzare la rilettura dopo l'esecuzione dell'azione Click<br />
mkstat = GSTALIT<br />
End</pre></div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=221Variabili globali2019-07-02T10:41:55Z<p>SageDev: /* Variabili globali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GSTARET''': pulsante standard "return"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=220Variabili globali2019-07-02T10:40:12Z<p>SageDev: /* Variabili globali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTANEW''': pulsante standard "Nuovo"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=219Variabili globali2019-07-02T10:30:28Z<p>SageDev: /* Variabili globali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per [[forzare la rilettura di un record visualizzato]]<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Variabili_globali&diff=218Variabili globali2019-07-02T10:29:57Z<p>SageDev: /* Variabili globali */</p>
<hr />
<div><br />
== Variabili globali ==<br />
Ci sono delle variabili definite globalmente che permettono di gestire le diverse condizioni che sovvengono nelle varie fasi di esecuzione del codice.<br />
<br />
Per vederle tutte vai alla funzione [[GESAGB]].<br />
<br />
* '''GREP''': <br />
*# vuoto,"", quando l'utente sta visualizzando i dati<br />
*# vale "C" se siamo in creazione (quando viene premuto il pulsante <code>Crea</code>)<br />
*# vale "M" se siamo in visualizzazione/modifica (quando è attivo e viene premuto il pulsante <code>Registra</code>)<br />
*# vale "D" se siamo in duplicazione (quando viene premuto il pulsante <code>Duplica</code>)<br />
*# vale "A" se siamo in annullamento (quando viene premuto il pulsante <code>Annulla</code>)<br />
* '''GIMPORT''': variabile utilizzata per gestire la fase di [[ImportExport|importazione/esportazione]]; se vale 1 vuol dire che si è in fase di importazione/esportazione<br />
* '''GIMP()''': vedi [[ImportExport#Programmazione| Programmazione per Import/Export]]<br />
* '''GSILENCE''': se vale 0 indica che sono abilitati i messaggi popup; quando viene impostata a 1 l'utente non vedrà più tali messaggi; utile in programmi non interattivi, va poi rimessa a 0<br />
* '''GERR''': indica/imposta se c'è un messaggio d'errore<br />
*# 1: messaggio d'errore<br />
*# 2: messaggio informativo<br />
*# 3: messaggio di avviso<br />
*# 4: messaggio in fondo alla videata<br />
* '''GMESSAGE''': contiene un eventuale messaggio di errore<br />
* '''GSERVEUR''': indica se l'esecuzione è in modalità interattiva o batch (0 interattivo, 1 batch); se in batch non si creano file di log<br />
* '''GTRACE''': indica il nome del file traccia attivo, vuoto se non c'è un file di traccia attivo<br />
* '''GFONCTION''': indica la funzione corrente<br />
* '''GFONCTION1''': indica la funzione chiamante solo in caso di tunnel o chiamante da un oggetto all'altro, come la precedente (o vuota?) altrimenti<br />
* '''GFONC1''': indica sempre la funzione precedente, in ogni caso (quindi anche quando una funzione viene aperta tramite F7)<br />
* '''GLANGUE''': lingua della sessione corrente<br />
* '''GFLAG''': transazione corrente<br />
* PULSANTI<br />
** '''GSTACRE''': pulsante standard "Crea"<br />
** '''GSTAENR''': pulsante standard "Registra"<br />
** '''GSTAANU''': pulsante standard "Elimina"<br />
** '''GSTAFIN''': pulsante standard "Annulla"<br />
** '''GBOUT1''','''GBOUT2''',...'''GBOUT20''': contengono le etichette dei pulsanti di riquadro di videata (vedi [[Gestione Bottoni]])<br />
* '''GREPORT1 e GREPORT2''': contengono il codice stampa scheda e il codice stampa liste, vedi Help funzione da GESAFC (campi Stampa RPT1 e Liste RPT2)<br />
* '''GSTALIT''': per forzare la rilettura di un record visualizzato<br />
<br />
Esempi:<br />
<pre>If GREP = "C" and !GIMPORT<br />
# azione da eseguire se siamo in fase di creazione ma non in fase di importazione<br />
Endif<br />
</pre><br />
<br />
<pre><br />
If !GSERVEUR <br />
#siamo in modalità interattiva: posso chiedere conferma all'utente<br />
Local Integer YESNO : Raz YESNO<br />
Call OUINON('Import ODA/ODV da AS400?',YESNO) From GESECRAN<br />
If YESNO=1 : Infbox 'Elaborazione bloccata!' : Return : Endif <br />
Endif<br />
</pre><br />
<br />
<pre><br />
# Far eseguire in modalità batch del codice (e non generare log)<br />
GSERVEUR = 1<br />
Call ...<br />
Call ...<br />
Call ...<br />
GSERVEUR = 0<br />
</pre><br />
<br />
== Variabili speciali ==<br />
<br />
* '''zc''' contiene il valore del campo corrente, o il valore di una formula corrente o altro in base al contesto <br />da non confondere con <br />
** CZ, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
* '''zoncou''' contiene il nome del campo corrente in inserimento nella videata <br />da non confondere con <br />
** COUZON, variabile attiva in base all'azione, per es. in APRES_MODIF<br />
** ZONSUI, variabile che permette di indicare il prossimo campo su cui mettere il focus (per es.:<code>zonsui = "[M:PTH1]YNUMPEZZI("+num$(nolign-1)+")"</code>)<br />
* '''zonsor''' è una variabile alfanumerica in cui si trova il nome dell'ultimo campo in inserimento nella videata<br />
* '''maskcou''' contiene il nome della videata corrente<br />
* '''trtcou''' contiene il nome del programma corrente<br />
* '''adxpno''' restituisce i nomi dei programmi accodati (il livello 0 è il livello corrente, il livello 1 è quello del programma chiamante, ecc)<br />
* '''datesyst''' data di sistema (pag.30 di Linguaggio.pdf)</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Blocco_Riquadro&diff=217Gestione Blocco Riquadro2019-06-27T15:46:30Z<p>SageDev: /* Gestione Inserimento/Modifica/Cancellazione righe */</p>
<hr />
<div>Gestione di un blocco riquadro di una videata<br />
<br />
__TOC__<br />
<br />
<br />
Numeratore di riga NBLIG<br />
<br />
== Gestione Inserimento/Modifica/Cancellazione righe ==<br />
Per fare dei controlli alla cancellazione di una linea tramite pulsante contestuale, prima del registra (evitando così di dover usare VERIF_CRE della gestione oggetto)<br />
<br />
<pre>Subprog C_NBLIG<br />
If status=65<br />
mkstat=2 #per impedire la cancellazione della riga<br />
Endif<br />
End</pre><br />
<br />
Vedi l'help dell'istruzione [[status]] per tutti i codici possibili che può avere.<br />
<br />
Per il blocco riquadro possono servire:<br />
* 65 cancellazione di una riga<br />
* 68 cancellazione di più righe<br />
* 71 cambio di riga (da capire differenza con 75)<br />
* 73 inserimento di una riga<br />
* 75 modifica di una riga (da capire differenza con 71)<br />
<br />
== Gestione pulsanti riquadro standard Cancella/Annulla/Copia... ==<br />
Questi pulsanti si attivano/disattivano tramite il campo "Opzioni" della sezione blocco (gestione Videata).<br />
<br />
In genere viene preimpostato "KARID", che significa Prec/Succ, Cancellazione di una riga, Ripresa,Inserisci e cancellazione multipla attive<br />
<br />
Questi i codici (dall'help):<br />
<pre>K : Previous & next line in entry mode<br />
K: Riga precedente & successiva in modalità inserimento<br />
A: Eliminare una riga<br />
D: Eliminare un intervallo di righe<br />
R: Aggiunta di righe a fine riquadro<br />
I: Inserimento di righe<br />
S: Taglia<br />
B: Copia<br />
C: Incolla<br />
T: Caricamento di tutte le righe del riquadro<br />
? : Ricerca<br />
+ : Giustificazione colonna<br />
= : Modalità scheda automatica<br />
1-9 : Numero di colonne fisse (a partire dalla 1a colonna)</pre><br />
<br />
[[File:Gestione videate Opzioni blocco riquadro.png|none]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=216Gestione Bottoni2019-06-27T15:45:33Z<p>SageDev: /* Altro */</p>
<hr />
<div>= Finestre =<br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che apre un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Status&diff=215Status2019-06-27T15:44:02Z<p>SageDev: </p>
<hr />
<div>Dall'help:<br />
<br />
{| class="wikitable"<br />
|-<br />
!valore status !! [[variabili globali]] !! Descrizione !! Indice<br>GETABOU <br />
|-<br />
| 1 || || Tab positioning <br />
|-<br />
| 2 || &nbsp; || Selection window on a field <br />
|-<br />
| 4 || GSTARET || Exit by return <br />
|-<br />
| 5 || || Shift+tab positioning <br />
|-<br />
| 7 || GSTAESC || Closing the box <br />
|-<br />
| 20 || GSTATIR || Positioning via mouse click to a field <br />
|-<br />
| 21 || || Positioning via mouse click to a grid <br />
|-<br />
| 26 || || Entry in a grid by double-click on a cell <br />
|-<br />
| 27 || GSTALFT || Click on left list <br />
|-<br />
| 28 || GSTALF2 || Double-click on left list <br />
|-<br />
| 36 || GSTALF3 || Click on hierarchized list <br />
|-<br />
| 37 || GSTALF4 || Double-click on hierarchized list <br />
|-<br />
| 41 || || De-selection in the picking box <br />
|-<br />
| 42 || GSTAPIC || Event on picking box <br />
|-<br />
| 43 || || De-selection in hierarchized picking box <br />
|-<br />
| 44 || GSTAPKF || Closing a picking box <br />
|-<br />
| 45 || GSTASRA || Quick selection <br />
|-<br />
| 46 || &nbsp; || activation of the &quot;VERIFIER&quot; button in the formula editor <br />
|-<br />
| 47 || &nbsp; || Selection of a parent element without a child element in the formula editor <br />
|-<br />
| 48 || GSTAPRG || Previous page for the left list <br />
|-<br />
| 49 || GSTASVG || Next page for the left list <br />
|-<br />
| 55 || GSTABOI || Left list end <br />
|-<br />
| 65 || || Cancellation of a line <br />
|-<br />
| 68 || || Cancellation of a group of lines <br />
|-<br />
| 71 || || Line change <br />
|-<br />
| 73 || || Line insert <br />
|-<br />
| 75 || || Line modification <br />
|-<br />
| 82 || || Summary <br />
|-<br />
| 83 || || Delete a group of lines <br />
|-<br />
| 91 || GSTANEW || File/New || GNOUV <br />
|-<br />
| 92 || GSTAENR || File/Save || GENRE <br />
|-<br />
| 93 || GSTACRE || File/Create || GCREE <br />
|-<br />
| 94 || GSTAANU || File/Delete || GSUPP <br />
|-<br />
| 95 || GSTASEL || File/Select || GSELE <br />
|-<br />
| 96 || GSTAFIR || File/First || GPREM <br />
|-<br />
| 97 || GSTALAS || File/Last || GDERN <br />
|-<br />
| 98 || GSTASUI || File/Next || GSUIV <br />
|-<br />
| 99 || GSTAPRE || File/Previous || GPREC <br />
|-<br />
| 129-136 || GBOUT1..8 || Contextual menus <br />
|-<br />
| 145 || GSTAEUR || Display/Euro <br />
|-<br />
| 147 || GSTAMHL || Help modification <br />
|-<br />
| 148 || GSTAHLP || Field information <br />
|-<br />
| 1029 || GSTAOK || OK button || GVALI <br />
|-<br />
| 1100-1119 || GSTASPE1..6 || Application buttons preceded by controls (GSTABOU+I) || GSPE1..6 <br />
|-<br />
| 1200-1219 || || Application menus preceded by controls <br />
|-<br />
| 1220-1239 || || Statuses for the specific/custom developments preceded by controls <br />
|-<br />
| 1792 || GSTAFIN || Abort button || GABAN <br />
|-<br />
| 1793 || GSTACHG || File/Code change || GCHAN <br />
|-<br />
| 1794 || GSTAJOI || File/Attachments || GJOIN <br />
|-<br />
| 1795 || GSTACOM || File/Comments || GCOMM <br />
|-<br />
| 1796 || GSTAEDI || File/Print || GEDIT <br />
|-<br />
| 1797 || GSTALIS || File/List || GLIST <br />
|-<br />
| 1798 || GSTADAT || File/Properties || GDATC <br />
|-<br />
| 1799 || GSTARAF || Display/Refresh || GRAFF <br />
|-<br />
| 1800-1819 || || Application buttons without controls (GSTABOU2+I) <br />
|-<br />
| 1820 || GSTATRN || Transaction button || GTRAN <br />
|-<br />
| 1821 || GSTAFIN || End button || &nbsp; <br />
|-<br />
| 1822 || GSTAHLO || OBjet on Parameter help <br />
|-<br />
| 1823 || GSTASTA || Statistics <br />
|-<br />
| 1824 || GSTAWOR || Workflow <br />
|-<br />
| 1825 || GSTALNK || Link browser <br />
|-<br />
| 1826 || GSTAUNL || web service site: unlock and abort current record <br />
|-<br />
| 1827 || GSTAMOT || Key-word selection <br />
|-<br />
| 1828 || GSTALIT || forcing the read <br />
|-<br />
| 1829 || GSTANBR || Number of records in an OBject (GEODE) <br />
|-<br />
| 1830 || GSTAPCK || Selection on a picking browser ( GEODE ) <br />
|-<br />
| 1831 || GSTAENV || Changing environment ( GEODE ) <br />
|-<br />
| 1832 || GSTAPCK1 || Check all on a picking browser ( GEODE ) <br />
|-<br />
| 1833 || GSTAPCK2 || Uncheck all on a picking browser ( GEODE ) <br />
|-<br />
| 2000-2019 || || Application menus without controls <br />
|-<br />
| 2020-2029 || || Statuses for the specific/custom developments without controls |}</div>SageDevhttps://kb.sagedev.it/index.php?title=Status&diff=214Status2019-06-27T15:43:15Z<p>SageDev: Created page with "Dall'help: {| class="wikitable" |- !Statuses !! Associated variables !! Description !! Index<br>GETABOU |- | 1 || || Tab positioning |- | 2 || &nbsp; || Selection window o..."</p>
<hr />
<div>Dall'help:<br />
<br />
{| class="wikitable"<br />
|-<br />
!Statuses !! Associated variables !! Description !! Index<br>GETABOU <br />
|-<br />
| 1 || || Tab positioning <br />
|-<br />
| 2 || &nbsp; || Selection window on a field <br />
|-<br />
| 4 || GSTARET || Exit by return <br />
|-<br />
| 5 || || Shift+tab positioning <br />
|-<br />
| 7 || GSTAESC || Closing the box <br />
|-<br />
| 20 || GSTATIR || Positioning via mouse click to a field <br />
|-<br />
| 21 || || Positioning via mouse click to a grid <br />
|-<br />
| 26 || || Entry in a grid by double-click on a cell <br />
|-<br />
| 27 || GSTALFT || Click on left list <br />
|-<br />
| 28 || GSTALF2 || Double-click on left list <br />
|-<br />
| 36 || GSTALF3 || Click on hierarchized list <br />
|-<br />
| 37 || GSTALF4 || Double-click on hierarchized list <br />
|-<br />
| 41 || || De-selection in the picking box <br />
|-<br />
| 42 || GSTAPIC || Event on picking box <br />
|-<br />
| 43 || || De-selection in hierarchized picking box <br />
|-<br />
| 44 || GSTAPKF || Closing a picking box <br />
|-<br />
| 45 || GSTASRA || Quick selection <br />
|-<br />
| 46 || &nbsp; || activation of the &quot;VERIFIER&quot; button in the formula editor <br />
|-<br />
| 47 || &nbsp; || Selection of a parent element without a child element in the formula editor <br />
|-<br />
| 48 || GSTAPRG || Previous page for the left list <br />
|-<br />
| 49 || GSTASVG || Next page for the left list <br />
|-<br />
| 55 || GSTABOI || Left list end <br />
|-<br />
| 65 || || Cancellation of a line <br />
|-<br />
| 68 || || Cancellation of a group of lines <br />
|-<br />
| 71 || || Line change <br />
|-<br />
| 73 || || Line insert <br />
|-<br />
| 75 || || Line modification <br />
|-<br />
| 82 || || Summary <br />
|-<br />
| 83 || || Delete a group of lines <br />
|-<br />
| 91 || GSTANEW || File/New || GNOUV <br />
|-<br />
| 92 || GSTAENR || File/Save || GENRE <br />
|-<br />
| 93 || GSTACRE || File/Create || GCREE <br />
|-<br />
| 94 || GSTAANU || File/Delete || GSUPP <br />
|-<br />
| 95 || GSTASEL || File/Select || GSELE <br />
|-<br />
| 96 || GSTAFIR || File/First || GPREM <br />
|-<br />
| 97 || GSTALAS || File/Last || GDERN <br />
|-<br />
| 98 || GSTASUI || File/Next || GSUIV <br />
|-<br />
| 99 || GSTAPRE || File/Previous || GPREC <br />
|-<br />
| 129-136 || GBOUT1..8 || Contextual menus <br />
|-<br />
| 145 || GSTAEUR || Display/Euro <br />
|-<br />
| 147 || GSTAMHL || Help modification <br />
|-<br />
| 148 || GSTAHLP || Field information <br />
|-<br />
| 1029 || GSTAOK || OK button || GVALI <br />
|-<br />
| 1100-1119 || GSTASPE1..6 || Application buttons preceded by controls (GSTABOU+I) || GSPE1..6 <br />
|-<br />
| 1200-1219 || || Application menus preceded by controls <br />
|-<br />
| 1220-1239 || || Statuses for the specific/custom developments preceded by controls <br />
|-<br />
| 1792 || GSTAFIN || Abort button || GABAN <br />
|-<br />
| 1793 || GSTACHG || File/Code change || GCHAN <br />
|-<br />
| 1794 || GSTAJOI || File/Attachments || GJOIN <br />
|-<br />
| 1795 || GSTACOM || File/Comments || GCOMM <br />
|-<br />
| 1796 || GSTAEDI || File/Print || GEDIT <br />
|-<br />
| 1797 || GSTALIS || File/List || GLIST <br />
|-<br />
| 1798 || GSTADAT || File/Properties || GDATC <br />
|-<br />
| 1799 || GSTARAF || Display/Refresh || GRAFF <br />
|-<br />
| 1800-1819 || || Application buttons without controls (GSTABOU2+I) <br />
|-<br />
| 1820 || GSTATRN || Transaction button || GTRAN <br />
|-<br />
| 1821 || GSTAFIN || End button || &nbsp; <br />
|-<br />
| 1822 || GSTAHLO || OBjet on Parameter help <br />
|-<br />
| 1823 || GSTASTA || Statistics <br />
|-<br />
| 1824 || GSTAWOR || Workflow <br />
|-<br />
| 1825 || GSTALNK || Link browser <br />
|-<br />
| 1826 || GSTAUNL || web service site: unlock and abort current record <br />
|-<br />
| 1827 || GSTAMOT || Key-word selection <br />
|-<br />
| 1828 || GSTALIT || forcing the read <br />
|-<br />
| 1829 || GSTANBR || Number of records in an OBject (GEODE) <br />
|-<br />
| 1830 || GSTAPCK || Selection on a picking browser ( GEODE ) <br />
|-<br />
| 1831 || GSTAENV || Changing environment ( GEODE ) <br />
|-<br />
| 1832 || GSTAPCK1 || Check all on a picking browser ( GEODE ) <br />
|-<br />
| 1833 || GSTAPCK2 || Uncheck all on a picking browser ( GEODE ) <br />
|-<br />
| 2000-2019 || || Application menus without controls <br />
|-<br />
| 2020-2029 || || Statuses for the specific/custom developments without controls |}</div>SageDevhttps://kb.sagedev.it/index.php?title=Choose&diff=213Choose2019-06-27T15:33:46Z<p>SageDev: </p>
<hr />
<div><br />
<code>Choose</code> è un comando che permette di visualizzare una finestra di selezione personalizzata.<br />
<br />
Ecco un esempio che recupera da tabella un elenco di record e poi in base alla scelta popola i campi della videata.<br />
Va notato che il carattere <code>&</code> deve essere ''il primo della riga''.<br />
<br />
<pre><br />
Subprog S_YCODMAR(VALEUR)<br />
Variable Char VALEUR()<br />
<br />
Choose [F:YCE] Order By [F:YCE]YCODMAR Asc; [F:YCE]YSEQMAR Asc Using<br />
& [F:YCE]YCODMAR Titled "Cod.Marchio",<br />
& [F:YCE]YSEQMAR Titled "Sequenza",<br />
& [F:YCE]YNUMFILE Titled "NumFile",<br />
& [F:YCE]YTXTETI Titled "TestoEti",<br />
& [F:YCE]YGRPCERT Titled "GrpCert"<br />
& Sized(120,360)<br />
& Titled "Seleziona certificazione "<br />
<br />
# Lo status a 28 indica che un record è stato scelto ed è come se fosse stata fatta una READ puntuale sul record selezionato<br />
If [S]status = 28 Then<br />
#[M:YCC1]YCODMAR(nolign-1)=[F:YCE]YCODMAR<br />
VALEUR =[F:YCE]YCODMAR<br />
[M:YCC1]YSEQMAR(nolign-1)=[F:YCE]YSEQMAR<br />
[M:YCC1]YNUMFILE(nolign-1)=[F:YCE]YNUMFILE <br />
[M:YCC1]YTXTETI(nolign-1)=[F:YCE]YTXTETI <br />
[M:YCC1]YGRPCERT(nolign-1)=[F:YCE]YGRPCERT <br />
Endif<br />
<br />
End<br />
</pre><br />
<br />
Vedi help istruzione [[status]]:<br />
<br />
* 27 GSTALFT Click on left list <br />
* 28 GSTALF2 Double-click on left list</div>SageDevhttps://kb.sagedev.it/index.php?title=GESAOB&diff=212GESAOB2019-06-27T15:30:41Z<p>SageDev: Created page with "Gestione oggetto Appunti * Esempio Oggetto semplice ITM Articoli * Esempio Oggetto combinato QLC Schede qualità o AYP [GESAYP|Stli personalizzati]]..."</p>
<hr />
<div>Gestione oggetto<br />
<br />
<br />
Appunti<br />
<br />
* Esempio Oggetto semplice ITM [[GESITM| Articoli]]<br />
* Esempio Oggetto combinato QLC [[GESQLC|Schede qualità]] o AYP [GESAYP|Stli personalizzati]]<br />
* Esempio Oggetto browser SO2 selezione ordini<br />
* Esempio Oggetto in riquadro APE [[GESAPE| Entry point]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Blocco_Riquadro&diff=211Gestione Blocco Riquadro2019-06-27T15:10:24Z<p>SageDev: /* Gestione pulsanti riquadro standard Cancella/Annulla/Copia... */</p>
<hr />
<div>Gestione di un blocco riquadro di una videata<br />
<br />
__TOC__<br />
<br />
<br />
Numeratore di riga NBLIG<br />
<br />
== Gestione Inserimento/Modifica/Cancellazione righe ==<br />
Per fare dei controlli alla cancellazione di una linea tramite pulsante contestuale, prima del registra<br />
<br />
<pre>Subprog C_NBLIG<br />
If status=65<br />
mkstat=2 #per impedire la cancellazione della riga<br />
Endif<br />
End</pre><br />
<br />
Vedi l'help dell'istruzione [[status]] per tutti i codici possibili che può avere.<br />
<br />
Per il blocco riquadro possono servire:<br />
* 65 cancellazione di una riga<br />
* 68 cancellazione di più righe<br />
* 71 cambio di riga (da capire differenza con 75)<br />
* 73 inserimento di una riga<br />
* 75 modifica di una riga (da capire differenza con 71)<br />
<br />
== Gestione pulsanti riquadro standard Cancella/Annulla/Copia... ==<br />
Questi pulsanti si attivano/disattivano tramite il campo "Opzioni" della sezione blocco (gestione Videata).<br />
<br />
In genere viene preimpostato "KARID", che significa Prec/Succ, Cancellazione di una riga, Ripresa,Inserisci e cancellazione multipla attive<br />
<br />
Questi i codici (dall'help):<br />
<pre>K : Previous & next line in entry mode<br />
K: Riga precedente & successiva in modalità inserimento<br />
A: Eliminare una riga<br />
D: Eliminare un intervallo di righe<br />
R: Aggiunta di righe a fine riquadro<br />
I: Inserimento di righe<br />
S: Taglia<br />
B: Copia<br />
C: Incolla<br />
T: Caricamento di tutte le righe del riquadro<br />
? : Ricerca<br />
+ : Giustificazione colonna<br />
= : Modalità scheda automatica<br />
1-9 : Numero di colonne fisse (a partire dalla 1a colonna)</pre><br />
<br />
[[File:Gestione videate Opzioni blocco riquadro.png|none]]</div>SageDevhttps://kb.sagedev.it/index.php?title=Gestione_Bottoni&diff=210Gestione Bottoni2019-06-27T15:09:12Z<p>SageDev: /* Pulsanti standard blocco riquadro */</p>
<hr />
<div>= Finestre =<br />
== Pulsanti standard ==<br />
<br />
Talvolta ci sono dei problemi con l'attivazione/disattivazione dei pulsanti standard.<br />
<br />
Con le istruzioni [[enable]] e [[disable]] seguite dal codice del pulsante possiamo gestire la cosa mano.<br />
<br />
I codici sono memorizzati in alcune [[variabili globali]].<br />
<br />
<pre><br />
Enable GSTACRE #abilito il pulsante Crea<br />
Disable GSTAENR #disabilito il pulsante Registra<br />
</pre><br />
<br />
== Altro ==<br />
vedi anche [[Finestre#Aggiungere_un_bottone.2Fmen.C3.B9_contestuale_che_apre_un_oggetto| Aggiungere un bottone che un oggetto]]<br />
<br />
= Videate =<br />
<br />
== Pulsante contestuale su riga di un riquadro ==<br />
<br />
I pulsanti di riquadro possibili sono 20, la cui etichetta è contenuta nelle [[variabili globali]] GBOUT1, GBOUT2 ...GBOUT20<br />
<br />
Per aggiungere un pulsante contestuale su riga di un riquadro:<br />
<br />
* selezionare tra i campi della videata il campo numeratore di riga, spesso NBLIG<br />
* impostare un'azione Bottone (dalla 2 in poi, la prima libera); l'azione può essere sia SPE che un'azione vera e propria<br />
* validare la videata<br />
* aprire il sorgente corrispondente: se è di tipo SPE troverai aggiunto un <code>Subprog B2_NBLIG</code> dove scrivere il codice da eseguire alla selezione del menu appena creato<br />
<br />
=== Disattivazione ===<br />
<br />
Attivare l'evento di riga "Init Bottone" sempre sul campo numeratore di riga (NBLIG).<br />
<br />
Dentro il Subprog IB_NBLIG che verrà creato nel sorgente azzerare la variabile corrispondente<br />
<br />
<pre>Subprog IB_NBLIG <br />
Raz GBOUT2 #disattivo il pulsante 2<br />
GBOUT3='bla bla' # attivo il pulsante 3 con eticheta 'bla bla'<br />
end<br />
</pre><br />
<br />
== Pulsanti standard blocco riquadro ==<br />
Vedi [[Gestione_Blocco_Riquadro#Gestione_pulsanti_riquadro_standard_Cancella.2FAnnulla.2FCopia...|Gestione Blocco Riquadro]]</div>SageDev