Discussion :

[Marcel Chabot]

Bonjour,

Sous Forms 10G, j'ai un bloc multi-row avec plusieurs lignes de données.
Dans une des colonnes il y a un champs statut.
Quand la valeur de ce champs est à 'A' alors la ligne ne doit pas etre modifiable, mais les autres lignes qui ont une valeurs différentes peuvent être modifiables.

J'essais d'utiliser un set_item_property dans un trigger when_new_record_instance du bloc pour mettre 'enabled' tout les champs de la ligne. Ca ne fonctionne pas, message frm-41032.

A quelle endroit faut-il mettre la validation?

J'ai essayé avec un go_item sur un autre champs, mais c'est toutes les lignes qui deviennent non modifiables?

Merci!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
if :pee.pee_statu <> 'P' then
   set_item_property('pee.an_exerc',enabled, property_false);
   go_item('pee.pee_statu');
   set_item_property('pee.PEE_DATE_DEBUT_APPLI',enabled, property_false); 
   go_item('pee.pee_statu');
   set_item_property('pee.PEE_DATE_FIN_APPLI',enabled, property_false); 
   go_item('pee.pee_statu');
   set_item_property('pee.PEE_DATE_MESUR_EXCEP',enabled,property_false); 
   go_item('pee.pee_statu');
end if;

[SheikYerbouti]

Si aucun champs ne peut être modifié, autant utiliser Set_Block_Property(UPDATE_ALLOWED) dans le When-New-Record-Instance trigger.

[Garuda]

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
r:=GET_BLOCK_PROPERTY('mon_bloc',CURRENT_RECORD);
-- ou :SYSTEM.TRIGGER_RECORD
SET_ITEM_INSTANCE_PR0PERTY('mon_bloc.mon_champ',r,UPDATE_ALLOWED,PROPERTY_FALSE);

[McM]

T'es compliqué Garuda, un simple current_record est valable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SET_ITEM_INSTANCE_PROPERTY('mon_bloc.mon_champ',CURRENT_RECORD,UPDATE_ALLOWED,PROPERTY_FALSE);

Mais bon, je préfère comme Sheik de passer le bloc en non updatable, c'est plus simple à coder.

[Marcel Chabot]

Je ne veux pas mettre non updatable sur tout le bloc.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Exercice   Date début      Date fin      Statut
  2012     2012-01-01     2012-05-05      P
  2012     2012-06-06     2012-07-08      A
  2012     2012-08-08     2012-08-05      N
 
Statut = :PEE.PEE_STATU

Dans ce cas je veux juste que les champs de la ligne avec le statut à 'A' soit non modifiable sois (Exercice, Date début, Date fin et Statut) de cette ligne seulement.
Les autres lignes avec le statut à 'P' et 'N' peuvent être modifiables.

Bizarre...
Dans Forms il ne reconnais pas le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SET_ITEM_INSTANCE_PR0PERTY('PEE.PEE_STATU',CURRENT_RECORD,UPDATE_ALLOWED,PROPERTY_FALSE);

J'ai un message qu'il doit être déclaré?
Je suis bien sous 10G.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
BEGIN
if :pee.pee_statu <> 'P' then
  SET_ITEM_INSTANCE_PR0PERTY('PEE.PEE_STATU',CURRENT_RECORD,UPDATE_ALLOWED,PROPERTY_FALSE);
end if;
Je fait de même pour les autres colonnes de la ligne.

Merci!

[McM]

Ca marche bien, faut juste remplacer le 0 par un O dans Pr0perty.. merci garuda

Sinon, le but de passer le block en mode update allowed YES/NO est que tu ne dois pas gérer tous les items.
Donc fais plutôt un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
When-New-Record-Instance 
IF :pee.pee_statu <> 'P' then
SET_BLOCK_PROPERTY('PEE', UPDATE_ALLOWED,PROPERTY_FALSE);
ELSE
SET_BLOCK_PROPERTY('PEE', UPDATE_ALLOWED,PROPERTY_TRUE);
end IF;