Count

n := Collection.Count()

// *******************************
// Aggiunge l'articolo al carrello
// *******************************
public void Prodotti.AggiungiAlCarrello()
{
  if Prodotto.Status() = DATA AND NOT(Prodotto.Document IS Null Object)
  {
    Prodotto prod = null    // Prodotto corrente del pannello
    boolean GiàPresente = 0 // Già presente nel carrello
    int i = 0               // Contatore
    // 
    prod := Prodotto.Document
    // 
    // Scorro i prodotti del carrello
    while i < EsempiMS.ProdottiAcquistati.Count()
    {
      Prodotto ActProd = null // Prodotto corrente della collection
      int scorte = 0          // Scorte del prodotto corrente
      string nome = ""        // Nome del prodotto corrente
      // 
      // Recupero i valori correnti delle collection
      ActProd := EsempiMS.ProdottiAcquistati.Get(i)
      nome := EsempiMS.NomiProdottiAcquistati.GetString(i)
      scorte := EsempiMS.ScorteProdottiAcquistati.GetInteger(i)
      // 
      if prod IS ActProd
      {
         GiàPresente := True
      }
      i := i + ONE
    }
    // 
    // Se non è già presente nel carrello lo aggiungo
    if NOT(GiàPresente)
    {
      EsempiMS.ProdottiAcquistati.Add(prod)
      EsempiMS.NomiProdottiAcquistati.AddString(prod.NomeProdotto)
      EsempiMS.ScorteProdottiAcquistati.AddInteger(prod.Scorte)
    }
  }
}