vishal_singh
asked on
FRM 41032: cannot set enabled attribute of current item B00.CB_EMAIL
Hi Folks,
I am getting the error as shown below in the screenshot. I just changed the background of the form. It was dark in color, so I changed it to brighter colors and pasted everything inside the rectangular boxes. There was no change in the code.
Please could you let me know, what could be the reason for this error?
Thanks in advance,
Vishal
form5-screen1.JPG
I am getting the error as shown below in the screenshot. I just changed the background of the form. It was dark in color, so I changed it to brighter colors and pasted everything inside the rectangular boxes. There was no change in the code.
Please could you let me know, what could be the reason for this error?
Thanks in advance,
Vishal
form5-screen1.JPG
ASKER
Hi Jwahl,
I have found out that piece of code in a program unit. so, what's the next thing I have to do with it. Could you please explain where to navigate. I have also attached the code, in which I found it.
Please suggest me what to do next.
Thanks in advance,
Vishal
I have found out that piece of code in a program unit. so, what's the next thing I have to do with it. Could you please explain where to navigate. I have also attached the code, in which I found it.
Please suggest me what to do next.
Thanks in advance,
Vishal
PROCEDURE set_user_access IS
tcnt number;
rval number;
BEGIN
-- get username from application
:b00.user_login := get_application_property(username);
-- get access level from segment_user
select access_level
into :b00.acc_level
from segment_user
where user_login = :b00.user_login;
-- limit oc access
-- level 1 & 2 users have access to all OCs
if :b00.acc_level in ('1','2') then
:b00.user_oc := 'ALL';
elsif :b00.acc_level in ('3','4','5','6') then
-- all other users only have access to OCs specified in SEGMENT_USER_ATTRIB table
SELECT COUNT(*)
INTO TCNT
FROM SEGMENT_USER_ATTRIB
WHERE USER_LOGIN = :B00.USER_LOGIN
AND ATTRIB_ID = 'OC';
IF TCNT > 0 THEN
:b00.user_oc := 'SELECT';
ELSE
:B00.USER_OC := 'NONE';
END IF;
else
:B00.USER_OC := 'NONE';
end if;
--set the email feature
/* not yet! 8/11/03 */
/* TDK: Enabled 1/9/04 */
select COUNT(*)
into :b00.email_addr_cnt
from segment_user_email
where user_login = :b00.user_login;
if :b00.email_addr_cnt > 0 then
------------------
Begin
SET_ITEM_PROPERTY('b00.cb_email',ENABLED,PROPERTY_TRUE);
exception
when others then
null;
end;
----------------------------
if :b00.email_addr_cnt > 1 then
:b00.email_addr := 'choose...';
rval := populate_group('RG_USER_EMAIL_ADDR');
populate_list('B01.LI_EMAIL_ADDR', 'RG_USER_EMAIL_ADDR');
:b01.li_email_addr := get_list_element_value('b01.li_email_addr',1);
else
select email
into :b00.email_addr
from segment_user_email
where user_login = :b00.user_login;
end if;
else
SET_ITEM_PROPERTY('b00.cb_email',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('b00.cb_email',TOOLTIP_TEXT,'You do not have access to this feature, Please contact the system administrator to change your privileges.');
end if;
-- allow restricted rebate access?
select count(*)
into tcnt
from segment_user_attrib
where user_login = :b00.user_login
and attrib_id = 'RSTRREB'
and nvl(attrib_value,'N') = 'Y';
-- if have restricted access, show checkbox
if tcnt > 0 then
:b00.rstr_access := 'Y';
:b00.rstr_ok := 'Y';
else
:b00.rstr_access := 'N';
-- hide checkbox
set_item_property('b00.rstr_ok',visible,property_false);
:b00.rstr_ok := 'N';
end if;
END;
form5-cb-error.JPG
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
thank you very much
ASKER
Hey Jwahl,
This error again popped up when I moved to production data base.
Earlier I was working on TEST DB, and your solution worked perfectly fine.
Please let me know what to do..
This error again popped up when I moved to production data base.
Earlier I was working on TEST DB, and your solution worked perfectly fine.
Please let me know what to do..
hard to say ...
what's different to your production server?
what's different to your production server?
ASKER
I dont think there is much of a difference in prod server. I just ran it in TEST DB and it was working fine. And when I disconnected and connected to PROD DB it pops up this error again.
ASKER
How else do you think we can resolve it
Thanks in advance,
Vishal
Thanks in advance,
Vishal
the item B00.CB_EMAIL has the cursor focus when you try to enable. search your code for the SET_ITEM_PROPERTY('B00.CB_