/**
* method Delete()
* Delete a record
*/
function Delete($param)
{
try {
// get the parameter $key
$key = $param['key'];
// open a transaction with database 'permission'
TTransaction::open('lacenrh');
// instantiates object SystemProgram
$object = new Servidor($key);
// deletes the object from the database
$object->delete();
// close the transaction
TTransaction::close();
// reload the listing
$this->onReload($param);
// shows the success message
new TMessage('info', TAdiantiCoreTranslator::translate('Record deleted'));
} catch (Exception $e) {
// shows the exception error message
new TMessage('error', '<b>Error</b> ' . $e->getMessage());
// undo all pending operations
TTransaction::rollback();
}
}