Data dell'ultimo documento di vendita emesso verso un cliente

Questo script e' utilizzabile per visualizzare sulla lista clienti la data dell'ultimo documento con causale vendita, emesso verso un cliente:

Option Explicit
 
Dim LastDate
Dim Documento
Dim DocumentiEmessi
 
LastDate=""
Set DocumentiEmessi = Anag.Docs
For Each Documento In DocumentiEmessi
    If (Documento.DocCause.IsSelling) Then
        If LastDate="" Then
            LastDate=Documento.DocDate
        ElseIf Documento.DocDate>LastDate Then
            LastDate=Documento.DocDate
        End If
    End If
Next
Response.Write(LastDate)