Lettura tabelle - Revision history

217.194.179.250: /* Altro */

2019-07-10T11:09:25Z

Altro

217.194.179.250: /* Altro */

2019-07-10T10:51:40Z

Altro

SageDev: /* Procedura standard di lettura */

2019-07-03T09:14:49Z

Procedura standard di lettura

Mwadmin at 09:46, 18 June 2019

2019-06-18T09:46:59Z

Mwadmin at 14:18, 4 June 2019

2019-06-04T14:18:48Z

New page

Gli esempi che seguono indicano con <code>[XXX]</code> l'identificativo di una tabella già aperta.

Per limitare la lettura delle colonne vedi istruzione '''[[Columns]]'''.

== Procedura standard di lettura ==
In generale, per leggere una tabella:
#Si controlla che non sia già aperta con l'istruzione [[clalev]]
#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.
#Si legge
#Si controlla che la lettura sia andata a buon fine attraverso la variabile <code>fstat</code>

Esempio:
<pre>
If !clalev([F:YADI]) :# controllo che non sia aperta
Local File ATABDIV [F:YADI] :# dichiarazione di apertura tabella con etichetta YADI
Endif
Read[F:YADI]CODE = 6052;ABFIC :# lettura da tabella (in questo caso specifico è una tabella diversa, capitolo 6052)
If fstat :# controllo che la lettura sia andata a buon fine
Infbox "Errore"
Else
InfBox "ok" :# se fstat=0 è tutto ok
Endif
</pre>

Forma breve:
<pre>
If !clalev([F:YADI]) : Local File ATABDIV [F:YADI] : Endif : #commento
</pre>

== Lettura puntuale di un record ==
<code>Read [XXX]indice = KEY1;KEY2</code>

Per sapere come è definito l'indice andare a vedere la tabella da leggere in '''[[GESATB]]''', nella scheda indici.

Esempio (attenzione ai doppi apici da mettere per ogni valore scritto direttamente come stringa)
<pre>
Read [XXX]indice = "STR1";"STR2"
</pre>
equivalente di
<pre>
VARIABILE2="STR2"
Read [XXX]indice = "VAL1";VARIABILE2
</pre>

== Lettura sequenziale di record ==

<pre> For [XXX] Where CAMPO = CONDIZIONE
Next</pre>

Esempio:
<pre> For [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR
...
NUMERO = [F:YCE]YSEQMAR
Next</pre>

== Lettura con filtro ==

<pre>
Filter [F:YCE] # Azzero eventuale filtro precedente
Filter [F:YCE] Where YCODMAR = [M:YCE0]YCODMAR Order By YSEQMAR Desc # applico filtro
#oppure Where key NOMEINDICE=campo1;campo2;campo3
# è possibile utilizzare Order by (staccato, non OrderBy), per es. Order By RANG Asc; NOM(1) Desc

For [F:YCE]
Break #istruzione non necessaria
Next
Filter [F:YCE] # tolgo filtro
</pre>

Se la tabella è aperta con una condizione ''[[Where]]'', le condizioni di [[Filter]] vengono applicate ai record già selezionati (come fosse in "and").<br />
Nel codice sorgente l'istruzione [[Link]] indica una join tra tabelle

E' possibile utilizzare una variabile contenente un criterio:
<pre>
Local Char CRIT(50)(3)
CRIT(0)="ABREV='Orig' "
CRIT(1)="And MOT>='A'"
Filter [ABR] Where evalue(CRIT)
</pre>

Si può fare anche <code>Local File AABREV[ABR] where evalue(CRIT)</code>

== Lettura metadati tabella ==
Riporto un esempio in cui vengono visualizzate le caratteristiche di una tabella.

<pre>
Call LEGGIDATI_TABELLA("YITMINF")
End

Subprog LEGGIDATI_TABELLA(TABELLA)
Value Char TABELLA()
File = TABELLA [YYLT]

Infbox 'Ci sono '-num$([G:YYLT]nbzon)-' campi nella tabella CLIENTI:'
For I = 0 To [G:YYLT]nbzon - 1
Infbox [G:YYLT]adxfname(I)
Next I

Infbox 'Ci sono '-num$([G:YYLT]nbind)-'indici nella tabella CLIENTI:'
For I = 0 To [G:YYLT]nbind - 1
Infbox [G:YYLT]keyname(I)
Case [G:YYLT]keyuniq(I)
When 0 : Infbox ' (Con Omonimi) '
When 1 : Infbox ' (Senza Omonimi) '
When 2 : Infbox ' (Più omonimi) '
Endcase
Infbox 'Lunghezza = '-num$([G:YYLT]keylen(I))
Infbox 'Dimensione totale record = '-num$([G:YYLT]tairec)
Next I
End
</pre>

== Altro ==
* rowcount() contiene il numero di record di un file appena aperto, e tiene conto dei filtri applicati; per esempio <code>rowcount([F:ITM])</code>
* nbrecord() returns the number of lines on a table opened by File or Trbegin.
* adxdlrec contiene il numero di record cancellati con l'istruzione <code>Delete (classe)</code>
* nbrecord() dà il numero di record della tabella passata come parametro (la tabella deve essere aperta).

← Older revision		Revision as of 09:14, 3 July 2019
Line 4:		Line 4:

	Per limitare la lettura delle colonne vedi istruzione '''[[Columns]]'''.		Per limitare la lettura delle colonne vedi istruzione '''[[Columns]]'''.
		+
		+	== Apertura tabella ==
		+	Apertura di una tabella:
		+	<pre>If clalev([F:ITM])=0: Local File ITMMASTER [F:ITM] : Endif</pre>
		+	Apertura tabella di un dossier diverso dal corrente:
		+	<pre>If clalev([F:YFCT])=0: Local File 'X3.AFCTCUR' [F:YFCT] : Endif</pre>

	== Procedura standard di lettura ==		== Procedura standard di lettura ==

@@ Line 132: / Line 132: @@
 * nbrecord() returns the number of lines on a table opened by File or Trbegin.
 * adxdlrec contiene il numero di record cancellati con l'istruzione <code>Delete (classe)</code>
-* nbrecord() dà il numero di record della tabella passata come parametro (la tabella deve essere aperta).
+* adxuprec contiene il numero di record modificati con l'istruzione <code>Update (classe)</code>
 === Classe [G:XXX] ===

@@ Line 55: / Line 55: @@
    NUMERO = [F:YCE]YSEQMAR
   Next</pre>
 == Lettura con filtro ==