Numerazione righe documenti

N.B. Nelle versioni piu' recenti di Ready Pro sulle visualizzazioni esiste uno specifico campo contatore righe che funziona meglio e piu' velocemente dello script presentato qui sotto
Uno script come il seguente puo' pero' ancora avere una sua utilita', se utilizzato ad esempio sui filtri di esportazione del corpo documenti

Questo script per ogni riga di un documento scorre le righe del documento padre per identificare il numero di riga su cui ci si trova

Importante : lo script funziona solamente se nel corpo del documento vengono visualizzati/stampate tutte le righe (quindi senza escludere il corpo delle composizioni, o righe di spese, ecc.), se la vista non e' raggruppata e se non viene modificato l'ordinamento delle righe.

conta = 0 ' inizializzazione variabile che conta il numero di righe
For Each Riga In RowItem.ParentDoc.DocRows ' scorre tutte le righe del documento
 conta = conta + 1
 If RowItem.id = Riga.Id Then ' quando arriva all'ID della riga corrente, interrompe il conteggio ed esce dal ciclo
   Exit For
 End If
Next
Response.Write(conta) ' stampa il risultato

Il risultato a schermo potrebbe essere simile al seguente:

Una variante puo' essere ad esempio quella di inserire un contatore solo per le righe che contengono articoli (ignorando quindi linee libere e linee descrittive)

 
Option Explicit
Dim conta
Dim Riga
If DocRow.Product.Id>0 Then
  conta = 0 ' inizializzazione variabile che conta il numero di righe
  For Each Riga In RowItem.ParentDoc.DocRows ' scorre tutte le righe del documento
    If Riga.Product.Id>0 Then
       conta = conta + 1
       If RowItem.id = Riga.Id Then 
         Exit For
       End If
    End If
  Next
  Response.Write(conta) ' stampa il risultato
End If