lorislc
Nuova versione di Readypro si blocca
Salve ho un problema enorme dopo l' upgrade alla nuova versione il programma si blocca o diventa lentissimo se utilizzo una ricerca articoli con una visualizzazione che contiene uno script specifico
Questo script mi è stato fornito da voi e prima del nuovo aggiornamento funzionava benissimo
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 1, 2, 3 ' DDT, 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)
|
