Script non funzionante

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
    Select Case rigaDoc.ParentDoc.DocType
        Case 14, 2, 3 ' Ricevute di cassa, fatture accompagnatorie e documenti non fiscali
            If rigaDoc.ParentDoc.DocCause.IsSelling Then ' Considera solo causali di tipo VENDITA
                TotMovimenti = TotMovimenti + rigaDoc.Quantity ' Somma la quantita'
            End If
    End Select
Next
Set RigheMovimenti = Nothing
Response.Write("" & TotMovimenti)

Quale versione di Ready Pro stai utilizzando?

Sulla versione 18.6.22 della scorsa settimana, c'era un problema sul metodo SearchDocRows che vedo essere utilizzato qui, ma e' stato rilasciato subito, dopo poche ore, un aggiornamento .23 con una correzione. Prima cosa che verificherei quindi e' che Ready Pro sia aggiornato all'ultima release