alba12
Script Statistiche Vendite
Buongiorno, io utilizzo il seguente script per le statistiche di vendita di un prodotto degli ultimi 30 giorni:
Option Explicit
Dim TotMovimenti
Dim DataInizioStatistica
Dim DataFineStatistica
Dim rigaDoc
Dim RigheMovimenti
TotMovimenti = 0
DataInizioStatistica = DateAdd("d",-30,Rdy.Today())
DataFineStatistica = Rdy.Today()
Set RigheMovimenti = Product.SearchDocRows(DataInizioStatistica, DataFineStatistica)
For Each rigaDoc In RigheMovimenti
If rigaDoc.Doc.DocCause.IsSelling Then ' Considera solo causali di tipo VENDITA
TotMovimenti = TotMovimenti + rigaDoc.Quantity ' Somma la quantita'
End If
Next
Set RigheMovimenti = Nothing
Response.Write("" & TotMovimenti)
Volevo sapere se è possibile in qualche modo filtrare questa statistica per un singolo magazzino standard.
Grazie
|
