Calcolo dell'importo totale delle linee libere di un documento

Questo script scorre tutte le linee di un documento e somma l'importo delle sole linee libere:

Option Explicit
 
Dim Totale
Dim RigaDoc
Totale = 0
 
For Each RigaDoc In Doc.DocRows
 If RigaDoc.RowType = 3 Then
   Totale = Totale + Rdy.toDouble(RigaDoc.CustomField(61))
 End If
Next
 
Response.Write(Rdy.FormatCurrency(Totale))