raf64
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, peṛ 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
|