Visualizzare il nome del fornitore da cui e' stato effettuato l'ultimo acquisto di un articolo

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

Ad esempio il seguente script ricava il nome dell'ultimo fornitore da cui e' stato effettuato un acquisto

Option Explicit
 
Dim UltimoAcquisto
Dim NomeFornitore
Dim RigaMovimento
Dim Documento
Dim DataDocumento
 
UltimoAcquisto=""
NomeFornitore = ""
For Each RigaMovimento In Product.SearchDocRows
    Set Documento=RigaMovimento.ParentDoc
    If Documento.DocCause.IsPurchase Then
        DataDocumento = Documento.DocDate
        If UltimoAcquisto="" Then
            UltimoAcquisto = DataDocumento
            NomeFornitore = Documento.Anag.Name
        ElseIf DataDocumento > UltimoAcquisto Then
            UltimoAcquisto = DataDocumento
            NomeFornitore =Documento.Anag.Name
        End If
    End If
    Set Documento=Nothing
Next
Response.Write(NomeFornitore)