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
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
' 1 = DDT
' 2 = Fatture accompagnatorie
' 3 = Documenti non fiscali
' 14 = Ricevute di cassa
DataMovimento = Documento.DocDate
If UltimoMovimento="" Then
UltimoMovimento = DataMovimento
ElseIf DataMovimento > UltimoMovimento Then
UltimoMovimento = DataMovimento
End If
End Select
Next
Response.Write(UltimoMovimento)