Règle objet non supprimable (rule)
De Wiki1000
(Différences entre les versions)
(Nouvelle page : ===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 cla...) |
|||
| (Une révision intermédiaire par un utilisateur est masquée) | |||
| Ligne 10 : | Ligne 10 : | ||
*Une tentative de suppression d'un objet de la classe va générer un message d'erreur. | *Une tentative de suppression d'un objet de la classe va générer un message d'erreur. | ||
| + | ===Exemple=== | ||
| + | <source lang='delphi'> | ||
| + | {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; | ||
| + | </source> | ||
| + | |||
| + | {{Footer|Moteur de règle}} | ||
[[category:Règles]] | [[category:Règles]] | ||
Version actuelle en date du 16 juillet 2009 à 11:41
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;
