Script per filtrare solo le anagrafiche che hanno acquistato uno specifico prodotto in uno specifico periodo

Option Explicit
 
Dim DataInizio
Dim DataFine
Dim IdArticoloDaCercare
Dim Documento
Dim RigaDocumento
Dim VisualizzaAnagrafica
 
IdArticoloDaCercare = 1234
DataInizio = Dateserial(2022,1,1)
DataFine = Dateserial(2022,12,31)
 
VisualizzaAnagrafica = False
For Each Documento In Anag.Docs(DataInizio,DataFine)
    If Documento.DocCause.IsSelling Then
        For Each RigaDocumento In Documento.DocRows
            If RigaDocumento.Product.Id = IdArticoloDaCercare Then
                VisualizzaAnagrafica = True
                Exit For
            End If
        Next
    End If
Next
If VisualizzaAnagrafica Then
    Response.Write("SHOW")
Else
    Response.Write("HIDE")
End If