Evidenziare gli ordini clienti per i quali esiste almeno un altro ordine per lo stesso cliente, negli ultimi 3 giorni

Questo script, utilizzabile sulla lista ordini clienti, visualizza una X di fianco agli ordini se esiste almeno un altro ordine, evaso o meno, intestato allo stesso cliente, nell'arco di +/- 3 giorni

Option Explicit
 
Dim Documento
Dim DataInizio
Dim DataFine
 
DataInizio = DateAdd("d", -3, Doc.DocDate)
DataFine = DateAdd("d", 3, Doc.DocDate)
 
For Each Documento In Anag.Docs(DataInizio, DataFine)
    If Documento.Id<>Doc.Id Then ' esclude dalla ricerca l'ordine corrente
        If Documento.DocType=6 Then ' solo ordini clienti
            Response.Write("X")
            Exit For
        End If
    End If
Next