raddoppio delle quantità acquistate tramite script

Salve, nella lista articoli ho inserito il seguente script
Option Explicit

Dim TotMovimenti
Dim DataInizioStatistica
Dim DataFineStatistica
Dim RigheMovimenti
Dim rigaDoc

TotMovimenti = 0
DataInizioStatistica = "01/01/2017"
DataFineStatistica = "31/12/2017"
Set RigheMovimenti = Product.SearchDocRows(Rdy.toDate(DataInizioStatistica), Rdy.toDate(DataFineStatistica))
For Each rigaDoc In RigheMovimenti
    If rigaDoc.Doc.DocCause.IsPurchase Then ' Considera solo causali di tipo ACQUISTO
        TotMovimenti = TotMovimenti + rigaDoc.Quantity ' Somma la quantita'
    End If
Next
Set RigheMovimenti = Nothing
Response.Write("" & TotMovimenti)


per poter avere la quantità acquistata di un articolo nel periodo 2017, però quando mi dà il risultato mi raddoppia sempre la quantità, per esempio se io ho acquistato 24 pezzi di un articolo nell'anno 2017 e il documento di carico è un ddt nel risultato dello script ne mette 48
cosi pure nelle vendite
Grazie