Numero di pezzi venduti di uno specifico articolo ad uno specifico cliente
In questo esempio vedremo come creare un report, sulla lista clienti, che consenta di vedere a colpo d'occhio il numero di pezzi acquistati per uno specifico articolo.
Per fare questo aggiungeremo sulla lista clienti una colonna specifica, di tipo script, dove visualizzare il valore, e lo script dovra' essere simile al seguente:
Per fare questo aggiungeremo sulla lista clienti una colonna specifica, di tipo script, dove visualizzare il valore, e lo script dovra' essere simile al seguente:
Option Explicit
' ==========================
' N.B. questo script non tiene conto di eventuali unita' di misura multiple, se l'articolo e' gestito con piu' unita' di misura
' ==========================
Dim IdArticolo
Dim DataInizio
Dim DataFine
DataInizio=DateSerial(2021,1,1) ' Data iniziale su cui effettuare il calcolo
DataFine=DateSerial(2021,12,31) ' Data finale su cui effettuare il calcolo
IdArticolo=2 ' Progressivo interno (ID) dell'articolo per cui effettuare il calcolo
Dim tot
Dim RigaDoc
Dim Documento
tot=0
For Each Documento In Anag.Docs(DataInizio,DataFine)
If Documento.DocCause.IsSelling Then ' solo documenti con causale di tipo "VENDITA"
For Each RigaDoc In Documento.DocRows
If RigaDoc.Product.Id=IdArticolo Then
tot=tot+RigaDoc.Quantity
End If
Next
End If
Next
Response.Write(tot)
Replicando lo script su piu' colonne, e modificando ogni volta il valore di IdArticolo per calcolare il totale su articoli diversi, e' quindi possibile creare un report per monitorare le quantita' vendute per specifici articoli.
