Visualizzare la data dell'ultimo movimento (in carico o scarico) di un articolo

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

Ad esempio il seguente script determina la data dell'ultimo scarico effettuato con DDT, Fatture accompagnatorie, Documenti non fiscali e ricevute di cassa per un determinato articolo.

Option Explicit
 
Dim UltimoMovimento
Dim RigaMovimento
Dim Documento
Dim DataMovimento
 
UltimoMovimento=""
For Each RigaMovimento In Product.SearchDocRows
    Set Documento=RigaMovimento.ParentDoc
    Select Case Documento.DocType
        Case 1, 2, 3, 14, 5, 13
            ' 1 = DDT
            ' 2 = Fatture accompagnatorie
            ' 3 = Documenti non fiscali
            ' 14 = Ricevute di cassa
            ' 5 = DDT di carico
            ' 13 = Fattura accompagnatoria fornitori
            DataMovimento = Documento.DocDate
            If UltimoMovimento="" Then
                UltimoMovimento = DataMovimento
            ElseIf DataMovimento > UltimoMovimento Then
                UltimoMovimento = DataMovimento
            End If
    End Select
Next
Response.Write(UltimoMovimento)