Implement as in Apps USER form

Question

Hi all,
I am required to change the password like in oracle apps Sysadmin>user
with same as username and password text items only.
In password text item
When -validate- item trigger I wrote
PACKAGE BODY change_pwd IS
first_entry varchar2(30);
procedure Init_Password_Field is
begin
first_entry := NULL;
-- Set required status of user_password field. Pwd is required
-- if new record
if (:system.record_status in ('NEW', 'INSERT')) then
-- New record, required and enabled.
set_item_property('GP_USERs.NEW_PWD',
                    REQUIRED, PROPERTY_ON);
set_item_property('GP_USERs.NEW_PWD',
                    ENABLED, PROPERTY_ON);
else
-- Query record. Never required, enabled only if not
-- not an externally managed user.
set_item_property('GP_USERs.NEW_PWD',
REQUIRED, PROPERTY_OFF);
/*if (fnd_user_pkg.isPasswordChangeable(:user.user_name)) then
App_Item_Property.set_property('USER.USER_PASSWORD',
ENABLED, PROPERTY_ON);
else
App_Item_Property.set_property('USER.USER_PASSWORD',
ENABLED, PROPERTY_OFF);
     end if;*/
end if;
end Init_Password_Field;
Procedure change_password is
pwdlen number;
begin
-- If nothing entered, do nothing
if (:gp_users.new_pwd is NULL) then
     return;
end if;
-- Force re-entry first time password is entered
if (first_entry is NULL) then
-- Call custom package to do any custom password inspection.
copy('', 'GLOBAL.USER_NAME');
copy(:gp_users.new_pwd, 'GLOBAL.USER_PASSWORD');
begin
null;
exception
when form_trigger_failure then
-- Some error raised. Clear password and fail validation.
erase('GLOBAL.USER_NAME');
erase('GLOBAL.USER_PASSWORD');
:gp_users.new_pwd := '';
when others then
-- Some error raised. Clear password and fail validation.
erase('GLOBAL.USER_NAME');
erase('GLOBAL.USER_PASSWORD');
:gp_users.new_pwd := '';
raise form_trigger_failure;
end;
erase('GLOBAL.USER_NAME');
erase('GLOBAL.USER_PASSWORD');
     Message('Re-enter Your Password to verify');
     first_entry := :gp_users.new_pwd;
     :gp_users.new_pwd := NULL;
set_item_property('gp_users.new_pwd',
               REQUIRED, PROPERTY_ON);
     raise Form_Trigger_Failure;
end if;
-- Second entry differs from first - error out
if (first_entry != :gp_users.new_pwd) then
Message('Please reenter correct password');
Message(' ');
          :gp_users.new_pwd := NULL;
     Init_Password_Field;
raise Form_Trigger_Failure;
end if;
-- Two entries match - encrypt new password
--IF :system.record_status = 'CHANGED' THEN
FORMS_DDL('ALTER USER ' ||:gp_users.username|| ' IDENTIFIED BY ' ||:gp_users.new_pwd);
if (not Form_Success) then
     :gp_users.new_pwd := NULL;
Init_Password_Field;
     raise Form_Trigger_Failure;
end if;
-- Clear entries and turn off required if valid pwd found
:gp_users.new_pwd := NULL;
set_item_property('gp_users.new_pwd',
               REQUIRED, PROPERTY_OFF);
-- Reset password_date field to null to force password
-- expiration the next time user logs on.
end;
end;
When I write this code user password is changed because of alter command with out Save.
Requirement is
Save new password when ever i saved.
I implement forms_ddl inseveral ways ( key-commit and on-update) but password not altered.
But when i implement forms_ddl like above it altered,but alter only when ever saved
Thanks,
Bhujendra

Answer 1

Hi Guys!
if anyone can help me with this problem, I would be really grateful.
When I first used the "Disabled" Property, I saw that my data fields were being Nulled (that is, when I refresh the page, all the input-data disappears, and I am left with an EMPTY FORM)
So, I tried to use the "ReadOnly" property.
However, it did not work for me! Instead, I got the following Java Error : *"Couldn't find method setReadOnly(java.lang.String)..........NoSuchMethodException.............Select.setReadOnly....."*
I know it should work, because other people have used it successfully. So, why is it not working for me??
Is it because my IDM Version is 8.1 ?
Please, help.
Thanks