Vérification de l’état d'un compte

Version imprimable

Bonjour je voudrais de l'aide avec mon code.
je veux mettre une couleur en fonction du statut du compte d'un utilisateur sélectionné.(OPEN ou LOCKED).

j'ai écris une fonction pour récupérer le statut du compte de l'utilisateur.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
FUNCTION get_status (comptea in varchar2) RETURN varchar2 IS
v_cmpt varchar2(100);
 
BEGIN
  select account_status into v_cmpt from  dba_users
  where username= comptea;
  return (v_cmpt);
 
  Exception
	when no_data_found or too_many_rows then
  	v_cmpt :='status du compte indisponible';
END;

enuite derrière le bouton de selection du contribuable j'ai écris ce code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
declare 
status varchar2(50);
begin
	status := get_status(:drop_l.login);
 
		if :DROP_L.coche =1 and status ='OPEN' then
			Set_Item_Instance_Property( 'DROP_L.COMPTE_CONTRIB',current_record,visual_attribute,'BLACK_ERROR');          
			Set_Item_Instance_Property( 'DROP_L.RAISON_SOCIALE',current_record,visual_attribute,'BLACK_ERROR');   
			Set_Item_Instance_Property( 'DROP_L.LOGIN',current_record,visual_attribute,'BLACK_ERROR');   
			Set_Item_Instance_Property( 'DROP_L.COCHE',current_record,visual_attribute,'BLACK_ERROR'); 
		end if;
end ;

mon attribut visuel appliqué ne fonctionne pas. Je voudrais de l'aide
Merci.

Qu'est ce qui ne fonctionne pas ?

Première chose qu'on fait en débug, c'est de savoir si on passe ou pas à un endroit, et quelles sont les valeurs des variables

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
declare 
status varchar2(50);
begin
	status := get_status(:drop_l.login);
 message('Status:'|| status ||' coche:'|| :drop_l.coche); message(' ');
 
		if :DROP_L.coche =1 and status ='OPEN' then
 
			Set_Item_Instance_Property( 'DROP_L.COMPTE_CONTRIB',current_record,visual_attribute,'BLACK_ERROR');          
			Set_Item_Instance_Property( 'DROP_L.RAISON_SOCIALE',current_record,visual_attribute,'BLACK_ERROR');   
			Set_Item_Instance_Property( 'DROP_L.LOGIN',current_record,visual_attribute,'BLACK_ERROR');   
			Set_Item_Instance_Property( 'DROP_L.COCHE',current_record,visual_attribute,'BLACK_ERROR'); 
 message('Modif Visual Attribute'); message(' ');
end if;

Ou alors de supprimer tout le code conditionnel et de ne mettre que peu de ligne

Code:

1
2
3
Begin
Set_Item_Instance_Property( 'DROP_L.RAISON_SOCIALE',current_record,visual_attribute,'BLACK_ERROR');   
end;

20/04/2018, 17h41
franckmichael

Merci MCM pour votre intervention. le code est bon mais le problème se posait au niveau au niveau du status des utilisateurs. tout fonctionne comme je le souhaites.