Calcolo del totale fatture accompagnatorie e fatture differite

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))