https://kb.sagedev.it/api.php?action=feedcontributions&feedformat=atom&user=93.150.227.55SageDev KB - User contributions [en]2026-05-30T23:30:46ZUser contributionsMediaWiki 1.35.1https://kb.sagedev.it/index.php?title=Gestione_videate_e_campi&diff=1122Gestione videate e campi2026-01-21T14:27:27Z<p>93.150.227.55: /* Aggiornare una finestra */</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><br />
<br />
<br />
== Aggiornare una finestra ==<br />
<br />
Fonte:https://communityhub.sage.com/us/sage_x3/f/general-discussion/103996/hot-to-invoke-refresh-button<br />
<br />
<br />
Per aggiornare una finestra va eseguita la chiamata<br />
<pre>Gosub RELIT From GOBJSUB</pre><br />
<br />
ma prima vanno recuperate alcune variabili, in base alla situazione possono essere nessuna o solo alcune.<br />
Qui il codice per recuperale tutte all'apertura della finestra e poi la chiamata di aggiornamento:<br />
<br />
<pre><br />
$OUVRE<br />
# Global Char YFILRAP(30) : YFILRAP = FILRAP<br />
# Global Integer YIFILRAP : YIFILRAP = IFILRAP<br />
# Global Integer YSAIRAP : YSAIRAP = 0 #: Infbox 'dim_SAIRAP='-num$(dim(SAIRAP))<br />
# Global Char YBOXCURR(30) : YBOXCURR=BOXCURR #: Infbox 'FILRAP='-num$(FILRAP)-'IFILRAP='-num$(IFILRAP)-'BOXCURR='-num$(BOXCURR)<br />
#Global Integer YCHGLIS(0..10) : YCHGLIS=CHGLIS<br />
# Global Char YREP(1) : YREP= REP<br />
<br />
Global Integer YCLECUR : YCLECUR = CLECUR<br />
Global Char YCLECUR1(30) : YCLECUR1 = CLECUR1<br />
Global Char YCLECUR2(30) : YCLECUR1 = CLECUR2<br />
Global Integer YTYPGES : YTYPGES = TYPGES<br />
Global Char YABFIC(30) : YABFIC = ABFIC<br />
Global Char YCLEPRIM(30) : YCLEPRIM = CLEPRIM<br />
Global Char YPROGOBJ(30) : YPROGOBJ = PROGOBJ<br />
Global Integer YVERROU : YVERROU = VERROU<br />
Global Integer YOVERROU : YOVERROU = OVERROU<br />
Global Char YSYMBOLE(30) : YSYMBOLE = SYMBOLE<br />
Global Integer YNBMASK : YNBMASK = NBMASK<br />
Global Char YWINPROG(30) : YWINPROG = WINPROG<br />
Global Integer YAMA(dim(AMA)) : YAMA = AMA<br />
Global Integer AMAINDX : AMAINDX = dim(AMA)<br />
Global Integer YAIMGLCK : YAIMGLCK = AIMGLCK<br />
Return<br />
</pre><br />
<br />
<pre><br />
Subprog REFRESH_SCREEN()<br />
<br />
# FILRAP = YFILRAP<br />
# IFILRAP = YIFILRAP<br />
# SAIRAP = YSAIRAP<br />
# BOXCURR = YBOXCURR<br />
# Global Integer CHGLIS(0..10)<br />
# #CHGLIS = YCHGLIS<br />
# REP = YREP<br />
<br />
Local Integer AMA(AMAINDX)<br />
TYPGES = YTYPGES<br />
CLECUR = YCLECUR<br />
CLECUR1 = YCLECUR1<br />
CLECUR2 = YCLECUR2<br />
ABFIC = YABFIC<br />
CLEPRIM = YCLEPRIM<br />
PROGOBJ = YPROGOBJ<br />
VERROU = YVERROU<br />
OVERROU = YOVERROU<br />
SYMBOLE = YSYMBOLE<br />
NBMASK = YNBMASK<br />
WINPROG = YWINPROG<br />
AMA = YAMA<br />
AIMGLCK = YAIMGLCK<br />
<br />
#Gosub RAFFRAICHIR From GOBJSUB<br />
Gosub RELIT From GOBJSUB<br />
End<br />
</pre></div>93.150.227.55