gistfile1.sql

/**
  *										TRATAR BOTON
  *
  * @PARAM item IN VARCHAR2 --Item a tratar
  * @PARAM accion IN VARCHAR2 --acción a realizar {ocultar | mostrar | habilitar | deshabilitar}
  *
  */
  PROCEDURE TratarBoton(item IN VARCHAR2, accion IN VARCHAR2)
  IS
  BEGIN
  	
  	CASE Upper(accion)
  		WHEN 'OCULTAR' THEN
				Set_Item_Property('item',VISIBLE,PROPERTY_FALSE);
  		WHEN 'MOSTRAR' THEN
  			Set_Item_Property('item',VISIBLE,PROPERTY_TRUE);
  			TratarBoton(item, 'HABILITAR');
  		WHEN 'HABLITAR' THEN
  			Set_Item_Property('item',ENABLED,PROPERTY_TRUE);
  			TratarBoton(item, 'NAVIGABLE');
  		WHEN 'DESHABILITAR' THEN
  			Set_Item_Property('item',ENABLED,PROPERTY_FALSE);
  		WHEN 'NAVIGABLE' THEN
  			Set_Item_Property('item',NAVIGABLE,PROPERTY_TRUE);
	  END CASE;
  	
  EXCEPTION
		WHEN OTHERS THEN
			Mensaje_Aviso('Ha ocurrido un error en: UTIL.TratarBoton');
  END;