Get Command Enabled

boolean CommandEnabled = 0 // 
// 
CommandEnabled := CommandSet.GetCommandEnabled(index)

// ****************************************************************************
// Utilizzo l'evento di OnCommand del CommandSet per impostare il valore
// IDCategoria del prodotto corrente come il Code del Command eseguito.
// Nell'evento di OnOpenPopup i comandi sono stati modificati per contenere
// nella caption il nome di una categoria e nel code il relativo ID.
// ****************************************************************************
event Prodotti.CommandSet.OnCommand(
  int CommandNumber    // 
  int Index            // 
  inout boolean Cancel // 
)
{
  // Se il comando è abilitato e visibile
  if CommandSet.GetCommandEnabled(Index) AND CommandSet.GetCommandVisible(
    Index)
  {
    // Metto nel campo idcategoria il code del comando
    // cliccato dall'utente, identificato tramite l'argomento Index
    Prodotti.IdCategoria := ToInteger(CommandSet.GetCommandCode(Index))
  }
  // 
  // Scrivo nel Debug il percorso del file icona rappresentante il comando
  EsempiGL.DTTLogMessage(FormatMessage(Icona del comando: |1, CommandSet.
    GetCommandIcon(Index), ??, ??, ??, ??), ??, ??)
  // 
  // Mostro il messaggio dell'operazione eseguita
  EsempiGL.MessageBox(FormatMessage(Impostata categoria |1, CommandSet.
    GetCommandCaption(Index), ??, ??, ??, ??))
}