https://kb.sagedev.it/index.php?action=history&feed=atom&title=NumeratoreNumeratore - Revision history2026-04-30T16:07:58ZRevision history for this page on the wikiMediaWiki 1.35.1https://kb.sagedev.it/index.php?title=Numeratore&diff=75&oldid=prevMwadmin: Created page with " Da menu '''''Parametrizzazione → Parametri generali → Contatori → Strutture''''' (da F7 '''GESANM''') si possono creare e modificare i contatori. Se a livell..."2019-05-31T08:47:09Z<p>Created page with " Da menu '''''Parametrizzazione → Parametri generali → Contatori → Strutture''''' (da F7 '''GESANM''') si possono creare e modificare i contatori. Se a livell..."</p>
<p><b>New page</b></p><div><br />
<br />
Da menu '''''Parametrizzazione &rarr; Parametri generali &rarr; Contatori &rarr; Strutture''''' (da F7 '''GESANM''') si possono creare e modificare i contatori.<br />
<br />
Se a livello di definizione c'è la società, tale campo sarà poi obbligatorio inserirlo tra i componenti (vedi YSOH come esempio).<br />
<br />
Il tipo di sequenza in genere è "Normale", il riquadro "Reset" serve per indicare quando il contatore riparte da 0; il "Reset" nel riquadro "Diversi" serve per indicare se il contatore va resettato in caso di reset del dossier.<br />
<br />
Il complemento è un pezzo del contatore che in genere viene associato da programma.<br />
<br />
Esempio di programmazione per la generazione di un codice da numeratore:<br />
<pre><br />
$INICRE<br />
# Generazione codice dell'ordine<br />
Local Integer YSTAT<br />
# |Contat.| Sito | Data |Complemento | Cod.generato | Errore<br />
Call NUMERO("YO0",[M:YO01]YFCY,[M:YO01]YORDDAT,"" ,[M:YO00]YORDNUM ,YSTAT) From SUBANM<br />
If GOK<0<br />
Return<br />
Elsif GOK<1 | YSTAT<>0<br />
GOK=0 : GERR=1 : GMESSAGE="YO0"-mess(60,199,1)<br />
Return<br />
Endif<br />
<br />
[F:YH0]YORDNUM = [M:YO00]YORDNUM <br />
Affzo [M:YO00]YORDNUM <br />
<br />
Return<br />
</pre><br />
<br />
E' sconsigliato andare a modificare da programma il comportamento di contatori predefiniti di Sage; in caso di import l'eventuale chiave importata inserirla in un campo secondario.<br />
<br />
C'è un entry point NUMERO del programma SUBANM che permette di intervenire (per esempio per modificare il complemento) in base alle necessità. Utile anche in fase di debug.<br />
Il programma di questo entry point sarà nella forma tipo<br />
<pre><br />
####################################################################<br />
$ACTION<br />
Case ACTION<br />
When "NUMERO" Gosub NUMERO<br />
When Default<br />
Endcase<br />
Return<br />
####################################################################<br />
$NUMERO<br />
...<br />
Return<br />
####################################################################<br />
</pre></div>Mwadmin