Règle objet non supprimable (rule)
De Wiki1000
Version du 15 juillet 2009 à 17:26 par Syfre (discuter | contributions)
Sommaire |
Usage
La règle objet non supprimable portant sur une classe empêche de supprimer des objets de cette classe.
Points de déclenchement
- Suppression d'un objet de la classe.
Action de cette règle
Si Result = True après le déclenchement de cette règle :
- Une tentative de suppression d'un objet de la classe va générer un message d'erreur.
Exemple
{TCompteGeneral.ObjetNonSupprimable_EstGroupe}
var
vParam : TParametreSociete;
begin
Result := False;
vParam := ClassManager.FindSingleton('TParametreSociete');
if Assigned(vParam) then
Result := EstGroupe and (vParam.controleComptesDupliques.Value = TypeControl_1_Blocage);
end;
| Whos here now: Members 0 Guests 0 Bots & Crawlers 1 |
