Totale giornaliero dei soli documenti di tipo "ricevuta di cassa"

Questo script calcola l'importo totale delle ricevute di cassa presenti in una registrazione di cassa di uno specifico giorno (escludendo quindi DDT, fatture e altri tipi di documenti)

Option Explicit
 
Dim Documento
Dim totale
 
totale=0
For Each Documento In POSRecord.Docs
    If Documento.DocType=14 Then
        totale=totale+Documento.TotalAmount
    End If
Next
Response.Write(Rdy.FormatCurrency(totale))