Visualizzare il nome del cliente a cui e' stata effettuata l'ultima vendita di un articolo

Sfruttando il metodo SearchDocRows e' possibile creare report statistici anche complessi

Ad esempio il seguente script ricava il nome dell'ultimo cliente a cui e' stato scaricato un articolo con DDT, Fatture accompagnatorie, Documenti non fiscali e/o ricevute di cassa

Option Explicit
 
Dim UltimaVendita
Dim NomeCliente
Dim RigaMovimento
Dim Documento
Dim DataVendita
 
UltimaVendita=""
NomeCliente = ""
For Each RigaMovimento In Product.SearchDocRows
    Set Documento=RigaMovimento.ParentDoc
    If Documento.DocCause.IsSelling Then
        DataVendita = Documento.DocDate
        If UltimaVendita="" Then
            UltimaVendita = DataVendita
            NomeCliente = Documento.Anag.Name
        ElseIf DataVendita > UltimaVendita Then
            UltimaVendita = DataVendita
            NomeCliente =Documento.Anag.Name
        End If
    End If
    Set Documento=Nothing
Next
Response.Write(NomeCliente)

Volendo visualizzare la data dell'ultima vendita (e non il nome del cliente) si puo' modificare l'ultima riga

Response.Write(NomeCliente)

con

Response.Write(UltimaVendita)