Questo script calcola il totale NON SCONTATO e SENZA IMPOSTE per un documento (vengono escluse le linee con totale negativo, ovvero le linee di sconto e vengono sommati i totali non scontati delle singole righe):
Option Explicit
Dim TotaleNonScontato
Dim RigaDoc
Dim TotRiga
TotaleNonScontato = 0
For Each RigaDoc In Doc.DocRows
TotRiga = Rdy.toDouble(RigaDoc.CustomField(72))
If TotRiga>0 Then
TotaleNonScontato = TotaleNonScontato + TotRiga
End If
Next
Response.Write(Rdy.FormatCurrency(TotaleNonScontato))