Questo script esegue il calcolo del totale delle fatture accompagnatorie fornitori e delle fatture differite fornitori su tutto lo storico dei documenti del fornitore:
totale=0
' Scorre i documenti collegati all'anagrafica corrente
For Each myDoc In Anag.Docs
Select Case myDoc.DocType
Case 11, 13
' 11 = fatture differite fornitori
' 13 = fatture accompagnatorie fornitori
' somma l'importo totale di ogni documento al totale progressivo
totale= totale + myDoc.TotalAmount
End Select
Next
Response.Write(Rdy.FormatCurrency(totale))