Parti di ricambio utilizzate in una riparazione

Option Explicit
 
Dim DettaglioRiparazione
Dim Articolo
Dim Quantita
 
For Each DettaglioRiparazione In Repair.DetailsUsedParts
    Quantita=Rdy.toDouble(DettaglioRiparazione.CustomField(100))
 
    Set Articolo=DettaglioRiparazione.Product
    If Articolo.Id>0 Then
        Response.Write(Quantita & " X " & Articolo.Code & " - " & Articolo.Name & vbCrLf)
    End If
Next