UltimoMovimento Then UltimoMovimento = DataMovimento End If End Select Next Response.Write(UltimoMovimento)[/codevb]" name="description" />
 

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

Creato il: 11.05.2020
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)

Login