Evidenziare gli ordini clienti dove gli articoli sono tutti disponibili

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