Sistemare uno script

Buongiorno , tempo fa mi avevate fatto questo script

Option Explicit

Dim TotMovimenti
Dim DataInizioStatistica
Dim DataFineStatistica
Dim rigaDoc
Dim RigheMovimenti

TotMovimenti = 0
DataInizioStatistica = DateAdd("d",-120,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)

mi serviva per una visualizzazione su anagrafica articoli per fare delle statistiche di vendita , ma non mi torna una cosa , ho un articolo comprato per la prima volta , ne comprai 180 pz , e me ne rimangono in giacenza 16 pezzi

come è possibile che sul campo dove esiste lo script mi dice che ne ho venduti 274 pz in 4 mesi (120 gg) ,se ne avevo solo 180?
possiamo controllare questo script in teleassistenza ?