https://kb.sagedev.it/index.php?action=history&feed=atom&title=Esempi_di_programmazione
Esempi di programmazione - Revision history
2026-04-29T22:06:16Z
Revision history for this page on the wiki
MediaWiki 1.35.1
https://kb.sagedev.it/index.php?title=Esempi_di_programmazione&diff=1127&oldid=prev
217.194.179.250 at 09:47, 28 April 2026
2026-04-28T09:47:46Z
<p></p>
<table class="diff diff-contentalign-left diff-editfont-monospace" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 09:47, 28 April 2026</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l60" >Line 60:</td>
<td colspan="2" class="diff-lineno">Line 60:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Commit </div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div> Commit </div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Return</div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>Return</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></pre></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">Lancio di una consultazione</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"><pre></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">Local Char PARAM(20)(1..4)</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">PARAM(1) = ""</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">PARAM(2) = ""</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">PARAM(3) = ""</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">PARAM(4) = ""</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">Call GCONSULT("YYY","",PARAM) From GCONSULT</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">End</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></pre></div></td><td class='diff-marker'> </td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></pre></div></td></tr>
</table>
217.194.179.250
https://kb.sagedev.it/index.php?title=Esempi_di_programmazione&diff=64&oldid=prev
Mwadmin: Created page with " == Calcolo del massimo in una tabella == <pre> Filter [F:YCE] # Azzero eventuale filtro precedente Filter [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR Order By YSEQMAR Desc..."
2019-05-31T08:30:58Z
<p>Created page with " == Calcolo del massimo in una tabella == <pre> Filter [F:YCE] # Azzero eventuale filtro precedente Filter [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR Order By YSEQMAR Desc..."</p>
<p><b>New page</b></p><div><br />
== Calcolo del massimo in una tabella ==<br />
<pre><br />
Filter [F:YCE] # Azzero eventuale filtro precedente<br />
Filter [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR Order By YSEQMAR Desc # filtro<br />
For [F:YCE] <br />
MASSIMO = [F:YCE]YSEQMAR<br />
Break<br />
Next<br />
Filter [F:YCE] # tolgo filtro<br />
</pre><br />
<br />
<br />
<br />
== Utilizzo ''nolign'' ==<br />
Questo esempio carica in un riquadro di una scheda dell'articolo una lista di documenti presenti in una apposita tabella tramite transclass. <br />
<br />
NBDOC è la variabile di linea del riquadro (colonna ''PARAMETRO'' nella scheda Generale della videata)<br />
<br />
<pre><br />
$LIENS<br />
Filter [F:YDO] Where YDOCITMREF=[M:ITM0]ITMREF<br />
nolign=0<br />
For [F:YDO] <br />
nolign +=1<br />
[M:YT9] = [F:YDO] #ATTENZIONE per la transclass nolign parte da 1<br />
[M:YT9]CAMPOXXX(nolign-1) = [F:YDO]CAMPOXXX #ATTENZIONE per vettori usare nolign-1 (parte da zero)<br />
Next<br />
[M:YT9]NBDOC=nolign<br />
Return<br />
</pre><br />
<br />
Questo esempio scrive tutte le righe di un riquadro in una tabella (in questo caso non viene gestita la modifica di una riga già esistente, <br />
bisogna cancellare tutto e poi qui vengono riscritte tutte le righe)<br />
<pre><br />
######################################################################################<br />
$WRITEDOC<br />
Trbegin [F:YDO] <br />
For nolign=1 To [M:YT9]NBDOC <br />
[F:YDO] = [M:YT9] <br />
[F:YDO]YDOCITMREF = [M:ITM0]ITMREF #NB: questa riga va messa DOPO la transclass, altrimenti i campi non corrispondenti vengono sbiancati<br />
Write [F:YDO]<br />
If fstat Then<br />
GMESSAGE= "Errore in scrittura dei documenti"<br />
Break<br />
Endif<br />
Next<br />
If GMESSAGE <> ""<br />
Rollback<br />
Else<br />
Commit<br />
Endif<br />
Return<br />
######################################################################################<br />
$DELETEDOC<br />
Trbegin [F:YDO]<br />
Filter [F:YDO] Where [F:YDO]YDOCITMREF=[M:ITM0]ITMREF<br />
Delete [F:YDO] Where 1=1<br />
Filter [F:YDO]<br />
Commit <br />
Return<br />
</pre></div>
Mwadmin