Questo script, utilizzabile con gli ordini clienti, visualizza un SI di fianco agli ordini che contengono articoli tutti disponibili a magazzino:
Option Explicit
Dim Riga
Dim dispo
dispo=True
For Each Riga In Doc.DocRows
If Riga.CustomField(23)="NO" Then
dispo=False
Exit For
End If
Next
If dispo Then
Response.Write("SI")
Else
Response.Write("NO")
End If