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