Règle objet non supprimable (rule)

Version actuelle en date du 16 juillet 2009 à 12:41

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;