Script per filtrare solo le anagrafiche che hanno acquistato prodotti di una specifica marca ed in uno specifico periodo

Option Explicit
 
Dim DataInizio
Dim DataFine
Dim MarcaDaCercare
Dim Documento
Dim RigaDocumento
Dim VisualizzaAnagrafica
 
 
MarcaDaCercare = "CANON"
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 Trim(Ucase(RigaDocumento.Product.Manufacturer.Name))=Trim(Ucase(MarcaDaCercare)) Then
                VisualizzaAnagrafica = True
                Exit For
            End If
        Next
    End If
Next
If VisualizzaAnagrafica Then
    Response.Write("SHOW")
Else
    Response.Write("HIDE")
End If