Questo script consente di visualizzare la disponibilita' degli articoli composizione (normalmente a 0) calcolandola in base alla disponibilita' dei componenti:
Option Explicit
Dim componente
Dim Qdisp
Dim QDispComponente
Qdisp=10000000
For Each componente In Product.KitComponents
QDispComponente=componente.Product.QtyAvailable
If QDispComponente<0 Then
QDispComponente=0
End If
If componente.Quantity>0 Then
QDispComponente = Int(QDispComponente/componente.Quantity)
End If
If QDispComponente<QDisp Then
QDisp=QDispComponente
End If
Next
If Qdisp=10000000 Then
' Articolo non composizione
Qdisp=Product.QtyAvailable
If Qdisp<0 Then
Qdisp=0
End If
End If
Response.Write(QDisp)
