« Règle objet non supprimable (rule) » : différence 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...) |
Aucun résumé des modifications |
||
| (Une version intermédiaire par le même utilisateur non affiché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]] | ||
Dernière version du 16 juillet 2009 à 10: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
<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>
{{#if:Moteur de règle|
{{#if:Moteur de règle|— Moteur de règle |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}