Get Commands Count

int CmdCount = 0 // Numero di comandi del Command Set
// 
CmdCount := CommandSet.GetCommandsCount()

// *****************************************************************
// Nell'evento di OnOpenPopup mostro un comando per ogni categoria
// trovata sul database, nascondendo gli eventuali comandi rimanenti
// *****************************************************************
event Prodotti.Impostacategoria.OnOpenPopup(
  inout int Direction  // Indicates where to show the popup...
  inout boolean Cancel // When set to TRUE, the popup menu is not shown
)
{
  int Idx = 0 // Indice del comando correntemente in valutazione
  // 
  // Per ogni categoria presente nel sistema imposto un comando
  for each row
  {
    select
      IdcategoriaCategorie := Idcategoria
      NomeCategoriaCategorie := NomeCategoria
    from
      Categorie // Master Table
    // 
    record Categorie
      int Idcategoria      // 
      string NomeCategoria // 
    // 
    Impostacategoria.SetCommandVisible(Idx, True)
    Impostacategoria.SetCommandEnabled(Idx, True)
    // 
    Impostacategoria.SetCommandCode(Idx, ToString(Categorie.Idcategoria))
    Impostacategoria.SetCommandCaption(Idx, ToString(Categorie.NomeCategoria))
    Impostacategoria.SetCommandIcon(Idx, Convert(ToImage(Categoria)))
    // 
    Idx := Idx + ONE
    // 
    // Se il command set è già pieno mi fermo
    if Idx = Impostacategoria.GetCommandsCount()
    {
      break
    }
  }
  // 
  // Se non tutti i comandi sono stati impostati rendo invisibili i rimanenti
  while Idx < Impostacategoria.GetCommandsCount()
  {
    Impostacategoria.SetCommandVisible(Idx, False)
    Impostacategoria.SetCommandEnabled(Idx, False)
    // 
    Idx := Idx + ONE
  }
}