|
U0
E' uno script che abbiamo creato noi con l'aiuto dei vostri esempi del manuale, gli script sono due, ma l'errore sembra lo stesso, sono i seguenti:
TotMovimenti = 0 DataInizioStatistica = "01/01/2011" DataFineStatistica = "31/12/2020" IdAnag = 12
For Each rigaDoc In RowItem.SearchDocRows(Rdy.toDate(DataInizioStatistica), Rdy.toDate(DataFineStatistica), IdAnag) If rigaDoc.Doc.DocType = 6 Then 'Solo Ordini Clienti
TotMovimenti = TotMovimenti + Rdy.toDouble(rigaDoc.CustomField(34)) End If Next Rdy.ResponseWrite("" & TotMovimenti)
_________________________________________
TotMovimenti = 0
DataInizioStatistica = "01/06/2013"
DataFineStatistica = "30/06/2013"
Set RigheMovimenti = RowItem.SearchDocRows(Rdy.toDate(DataInizioStatistica), Rdy.toDate(DataFineStatistica))
For Each rigaDoc In RigheMovimenti
Select Case rigaDoc.ParentDoc.DocType
Case 6, 7 ' Ordini cliente
TotMovimenti = TotMovimenti + Rdy.toDouble(rigaDoc.CustomField(34)) ' Somma la quantita'
End Select
Next
Rdy.ResponseWrite("" & TotMovimenti)
Saluti Daniela
|