Numero di pezzi venduti di uno specifico articolo ad uno specifico cliente

Creato il: 21.01.2019
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:
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.

Login