FRM-18122: Forms Builder Debugger failed to initialize

FRM-18122: Forms Builder Debugger failed to initialize

• When you opening the Oracle Database 10g Forms Builder, suppose if you got an error like the following screenshot,
• The Error is “FRM-18122: Forms Builder Debugger failed to initialize”

 

Solution:

 

• First, Select My Computer then click Properties by the time you will see System Properties window like the following Screenshot,

 

• In that Properties window click the option “Advanced “. When you click that option then you will see like the following ,

• In the Advanced tag, click Environment Variables button and you will see one new window like the following screenshot,

 

 

• In that Environment Variables window, click the New button and you will see New User Variable window like the following,

 

• In that New User Variable then add the appropriate Variable name and Variable value.
• In Variable name box of the New User Variable window then type FORMS_BUILDER_CLASSPATH.
• In Variable value box of the New User Variable window then add the appropriate Oracle Database 10g Forms Class path like the following,

F:\DevSuiteHome_1\forms\java\frmwebutil.jar;F:\DevSuiteHome_1\forms\java\frmall.jar;F:\DevSuiteHome_1\forms\java\frmall_jinit.jar( This path is Based on  where you Installed Forms In your System)

• And again click New button, add one more Forms path like the following, in Variable name box type FORMS_PATH.

• And in Variable value box then add the respective jar files of the forms path like the following ,

F:\DevSuiteHome_1\forms\java\frmall.jar;F:\DevSuiteHome_1\forms\java\frmall_jinit.jar( This path is Based on where you Installed Forms In your System)

• Once finished these steps then click Apply and Ok.
• After that again add these jar file paths into default.env file. Then go to respective Forms builder of the default.env file. Example like the following,

F:\DevSuiteHome_1\forms\server, and also refer the following screen shot

 

• Click the default.env file.
• Add the appropriate jar files path in FORMS_PATH, like the following screenshot,

 

• Add the appropriate jar files path in CLASSPATH, like the following,

 

• Once You finished all these steps, and then opens the Forms Builder that error will not occur.

Form Personalization with Examples

Form Personalization:

 

1. Form Personalization is a feature in Oracle Apps that allows us to change the behavior of form based screens.
2. It can be moved easily through FNDLOAD from one instance to another, It can be restricted at   Site/User/Responsibility Level.

What can be done through Form Personalization?

1.        Zoom from One form to another.

2.        Pass data from one form to another through global variables.

3.        Enable/Disable/Hide fields dynamically.

4.        Launch URL directly from oracle form.

5.        Call PL/SQL procedure.

Components of Form Personalization:

 

 

How To make a Field Mandatory in the Form:

 

Go for Any Perticular Form If you want to personalize, Open that form

 

 

 

Go as specified Navigation in Help ->Diagnostics-> Custom Code -> Personalize

 

 

 

Once Open That let we create 10.1 Seq For Make Field Mandatory (Make sure that This should be Enabled). 

 

Condition->Trigger Event we are selection as WHEN-NEW-FORM-INSTANCE.

 

 

 

Object_type:Item(Column)

Target_Object :MTL_SYSTEM_ITEMS.LIST_PRICE_PER_UNIT_MIP(Which field you want to make it mandatory select that column as target Object).

Property_Name:Required

 

 

 

 

 How to perform calculations in the field:

 

 

 

 

Calculations will be done through per each Record so we selected as WHEN-NEW-RECORD-INSTANCE

 

Let we calculate this in attirbute_13 in PO_LINES

 

 

 

Meaning of Special fields in Form Personalization:

•      Menu(1-15) will be in tools

•       Populate tools menu (SPECIAL 1-15)

•       Populate reports menu (SPECIAL 16-30)

•       Populate actions menu (SPECIAL 31-45)

•       It is recommended to use Menu before Tools

Various components used In Form Personalization:

Trigger Event  - These are predefined event. Based on the value chosen the function will execute only when that particular event triggers on the form.

Processing Mode - Query mode or Not in Query mode or   Both

Context   - At what level like user or Responsibility level

Menu      -    this is used to call one form from another. it is used to implement the zoom functionality. There are 45 menu entries which are used to call                      one form from current form.

Built In    -   It allows you to call Oracle standard built-in and Functions

 

Launch a URL

 

 

How to hide a field

 

 

 

 

 

 

  

Create User In Oracle Apps Through Back End

Create User In Oracle Apps Through Back End


declare
l_user_name varchar2(30):='TESTUSER';
l_owner varchar2(30):='xxxxx'; -- Any existing user
l_unencrypted_password varchar2(240) :='welcome123';
l_session_number number :=userenv('sessionid');
l_start_date date :=sysdate-1;
l_end_date date := null;
l_last_logon_date date := null;
l_description varchar2(240) := 'FirstName, Lastname';
l_password_date date := SYSDATE;
l_password_accesses_left number := null;
l_password_lifespan_accesses number := null;
l_password_lifespan_days number := 90;
l_employee_id number := null;
l_email_address varchar2(240) := 'existing@email.com';
l_fax varchar2(30) := null;
l_customer_id number := null;
l_supplier_id number := null;


begin

fnd_user_pkg.CreateUser(
x_user_name => l_user_name,
x_owner => l_owner,
x_unencrypted_password => l_unencrypted_password,
x_session_number => l_session_number,
x_start_date => l_start_date,
x_end_date => l_end_date,
x_last_logon_date => l_last_logon_date,
x_description => l_description,
x_password_date => l_password_date,
x_password_accesses_left => l_password_accesses_left,
x_password_lifespan_accesses => l_password_lifespan_accesses,
x_password_lifespan_days => l_password_lifespan_days,
x_employee_id => l_employee_id,
x_email_address => l_email_address,
x_fax => l_fax,
x_customer_id => l_customer_id,
x_supplier_id => l_supplier_id);



fnd_user_pkg.addresp(l_user_name,'SYSADMIN','SYSTEM_ADMINISTRATOR','STANDARD',null,sysdate-1,sysdate+90);

DBMS_OUTPUT.PUT_LINE('User Created SuccessFully');

COMMIT;
end;

Query to find the Request Group Or a Concurrent Program Information

Query to find the Request Group Or a Concurrent Program Information

 
 SELECT DECODE(frgu.request_unit_type,
              'P','Program',
              'S','SET',
              'A','Application',
              'F','Set Function',
              NULL) REQUEST_TYPE,
      frg.request_group_name,
      fat.application_name,
      decode(frgu.request_unit_type,
      'P', fcpv.user_concurrent_program_name,
      'S',FRSV.user_request_set_name,
      'A', fat2.application_name,
      NULL)  CONC_PROGRAM_NAME         ,
      fatt.application_name CONC_APPLICATION_NAME
FROM FND_REQUEST_GROUP_UNITS frgu,
  fnd_application_tl fat            ,
  FND_REQUEST_GROUPS frg            ,
  FND_CONCURRENT_PROGRAMS_VL fcpv   ,
  fnd_application_tl fatt,
  FND_REQUEST_SETS_VL FRSV,
  fnd_application_tl fat2
  WHERE  frgu.application_id    =   fat.application_id(+)
AND frgu.request_group_id       =   frg.request_group_id(+)
AND frgu.request_unit_id        =   fcpv.concurrent_program_id(+)
AND frgu.unit_application_id    =   fatt.application_id(+)
AND frgu.request_unit_id        =   frsv.request_set_id(+)
and frgu.request_unit_id        =   fat2.application_id(+)
--and frg.request_group_name ='All Reports'
--and fat.application_name ='Payables'
and fcpv.user_concurrent_program_name='XX AP Supplier Site Conversion Loader Program'

Current Employee Validation Query in R12

Current Employee validation Query in R12


select distinct papf.person_id
  --into l_person_id
   from per_all_people_f papf ,
  per_all_assignments_f paa   ,
  per_assignment_status_types pas
  where papf.person_id            = paa.person_id
and paa.primary_flag              = 'Y'
and paa.assignment_type           = 'E'
and pas.user_status              IN ('Livex','Active Assignment','Active Contingent Assignment')
and paa.assignment_status_type_id =pas.assignment_status_type_id
and papf.current_employee_flag    ='Y'
and (papf.employee_number         =rec_key_members.employee_number
or papf.npw_number                =rec_key_members.employee_number)
and paa.primary_flag              = 'Y'
and paa.assignment_type          IN('E','C')
  --and     trunc(sysdate) between  papf.effective_start_date and papf.effective_end_date
  --and     trunc(sysdate) between  paa.effective_start_date and paa.effective_end_date
and trunc(:customer_start_date) between trunc(paa.effective_start_date) and trunc(paa.effective_end_date)
and paa.position_id is not null
and exisTS
  (select 'Y'
     from per_person_types ppt
    where ppt.person_type_id      = papf.person_type_id
  and ppt.active_flag             ='Y'
  and ppt.system_person_type NOT IN ('EX_EMP','EX_CWK','OTHER')
  );

VENDOR SITE UPDATE SCRIPT OR SUPPLIER SITE UPDATE SCRIPT IN R12

vendor site update script or supplier site update script in R12

procedure update_api
is
l_msg_data                   varchar2 (20000);
l_return_status              varchar2 (100);
l_msg_count                  number;
l_party_id  number;
l_vendor_rec                 ap_vendor_pub_pkg.r_vendor_site_rec_type;
vendor_site_id number         :=null;
cursor c_ven_l
is
/*
select av.vendor_id,avs.vendor_site_id, avs.org_id,bb.prepay_code_combination_id,av.segment1,avs.vendor_site_code from xxmb_ven_site_stg_bk2 aa,xxmb_ven_site_stg bb, gl_code_combinations_kfv cc,ap_suppliers av, ap_supplier_sites_all avs,hr_operating_units hou
where aa.vendor_number=bb.vendor_number
and aa.employee_number=bb.employee_number
and aa.error_code='processed'
and aa.vendor_site_code=bb.vendor_site_code
and aa.operating_unit_name=bb.operating_unit_name
and bb.prepay_code_combination=cc.concatenated_segments
and bb.prepay_code_combination_id=cc.code_combination_id
and bb.vendor_number=av.segment1
and bb.operating_unit_name= hou.name
and hou.organization_id= avs.org_id
and av.vendor_id=avs.vendor_id;
*/
select av.vendor_id,avs.vendor_site_id, aa.group_id,av.segment1,avs.vendor_site_code, avs.org_id,xvs.awt_group_name,avs.awt_group_id
from ap_awt_groups aa, xxmb_ven_site_stg_bk1 xvs,ap_suppliers av,ap_supplier_sites_all avs,hr_operating_units hou
where aa.name=xvs.awt_group_name
and xvs.operating_unit_name= hou.name
and avs.org_id= hou.organization_id
and xvs.awt_group_name is not null
and av.segment1=xvs.vendor_number
and av.vendor_id=avs.vendor_id
and avs.vendor_site_code=xvs.vendor_site_code
and error_code='processed'
--and a
and avs.awt_group_id is  null
--and avs.org_id=90
--and xvs.vendor_number=16810
order by 4;
/*
select av.vendor_id,avs.vendor_site_id, aa.group_id,av.segment1,avs.vendor_site_code, avs.org_id,xvs.awt_group_name,avs.awt_group_id
from ap_awt_groups aa,xxmb_ven_site_stg xvs,ap_suppliers av,ap_supplier_sites_all avs,hr_operating_units hou
where aa.name=xvs.awt_group_name
and xvs.operating_unit_name= hou.name
and avs.org_id= hou.organization_id
and xvs.awt_group_name is not null
and av.segment1=xvs.vendor_number
and av.vendor_id=avs.vendor_id
and avs.vendor_site_code=xvs.vendor_site_code
and error_code='processed'
--and avs.org_id=90
--and xvs.vendor_number=16810
order by 4;
--and avs.vendor_site_id=11600;
*/
begin

--mo_global.set_policy_context('s',90);

for cv_ven_l in c_ven_l
loop
l_return_status := null;
l_msg_count := null;
l_msg_data := null;
--  l_vendor_id := null;

l_party_id := null;
l_vendor_rec := null;
--dbms_output.put_line ('updating vendor  ' || cv_ven_l.segment1);
--dbms_output.put_line('updating vendor  ' || cv_ven_l.segment1||'cv_ven_l.org_id'||cv_ven_l.org_id||'cv_ven_l.vendor_site_code'||cv_ven_l.vendor_site_code);
--l_vendor_rec.vendor_id=cv_ven_l.vendor_id;
--l_vendor_rec.vendor_site_id=cv_ven_l.vendor_site_id;
--l_vendor_rec.segment1 := 23055--cv_ven_l.segment1;
--l_vendor_rec.vendor_name := cv_ven_l.vendor_name;
--l_vendor_rec.start_date_active := sysdate;
l_vendor_rec.vendor_id:=cv_ven_l.vendor_id;--3174;
l_vendor_rec.vendor_site_id:=cv_ven_l.vendor_site_id;--2762;
--l_vendor_rec.prepay_code_combination_id:=cv_ven_l.prepay_code_combination_id;
l_vendor_rec.awt_group_id:=cv_ven_l.group_id;
l_vendor_rec.allow_awt_flag:='y';
--l_vendor_rec.org_id:=88;--cv_ven_l.org_id;
--l_vendor_rec.vendor_site_code:=cv_ven_l.vendor_site_code;
--l_vendor_rec.phone:='9822310522';
vendor_site_id:=cv_ven_l.vendor_site_id;

fnd_global.apps_initialize(user_id => fnd_global.user_id,resp_id => fnd_global.resp_id,resp_appl_id => fnd_global.resp_appl_id);
fnd_msg_pub.initialize;
mo_global.init ('sqlap');

ap_vendor_pub_pkg.update_vendor_site
(p_api_version      => 1.0,
p_init_msg_list     => 'f',
p_commit            => 'f',
p_validation_level  => fnd_api.g_valid_level_full,
x_return_status     => l_return_status,
x_msg_count         => l_msg_count,
x_msg_data          => l_msg_data,
p_vendor_site_rec   => l_vendor_rec,
p_vendor_site_id    => vendor_site_id
--p_calling_prog    => l_party_id

);
--dbms_output.put_line ('c_ven_l'||cv_ven_l.segment1);
--dbms_output.put_line ('c_ven_l'||cv_ven_l.vendor_site_code);
--dbms_output.put_line ('c_ven_l'||cv_ven_l.org_id);
dbms_output.put_line ('c_ven_l'||cv_ven_l.vendor_site_id);
dbms_output.put_line ('x_msg_count'||l_msg_count);
dbms_output.put_line ('x_msg_data'||l_msg_data);
dbms_output.put_line ('l_return_status'||l_return_status);
commit;
end loop;
end update_api;


procedure update_main (
errbuf         out      varchar2,
retcode        out      varchar2
)
is
begin
update_api;
end update_main;

VENDOR OR SUPPLIER UPDATE SCRIPT IN R12

ap_suppliers update script :

procedure update_api
is
l_msg_data                   varchar2 (20000);
l_return_status              varchar2 (100);
l_msg_count                  number;
l_party_id  number;
l_vendor_rec                 ap_vendor_pub_pkg.r_vendor_rec_type;
cursor c_ven_l
is
select vendor_id from ap_suppliers where last_updated_by='-1';
/*
select av.vendor_id, aa.group_id,av.segment1 from ap_awt_groups aa,xxmb_ven_stg_bk1 xvs,ap_suppliers av
where aa.name=xvs.awt_group_name
and xvs.awt_group_name is not null
and av.segment1=xvs.vendor_number
and error_code='processed';
*/
/*select av.vendor_id, aa.group_id,av.segment1 from ap_awt_groups aa,xxmb_ven_stg xvs,ap_suppliers av
where aa.name=xvs.awt_group_name
and xvs.awt_group_name is not null
and av.segment1=xvs.vendor_number
and error_code='processed';
*/

begin



for cv_ven_l in c_ven_l
loop
l_return_status := null;
l_msg_count := null;
l_msg_data := null;
--  l_vendor_id := null;

l_party_id := null;
l_vendor_rec := null;
--dbms_output.put_line('updating vendor  ' || cv_ven_l.segment1);
--dbms_output.put_line('updating vendor  ' || cv_ven_l.segment1);
--l_vendor_rec.segment1 := cv_ven_l.segment1;
l_vendor_rec.vendor_id := cv_ven_l.vendor_id;
--l_vendor_rec.awt_group_id :=cv_ven_l.group_id;
--l_vendor_rec.vendor_name := cv_ven_l.vendor_name;
--l_vendor_rec.start_date_active := sysdate;
fnd_global.apps_initialize(user_id => fnd_global.user_id,resp_id => fnd_global.resp_id,resp_appl_id => fnd_global.resp_appl_id);
fnd_msg_pub.initialize;
ap_vendor_pub_pkg.update_vendor (p_api_version      => 1.0,
p_init_msg_list    => 'f',
p_commit           => 'f',
x_return_status    => l_return_status,
p_validation_level     =>fnd_api.g_valid_level_full,
x_msg_count        => l_msg_count,
x_msg_data         => l_msg_data,
p_vendor_rec       => l_vendor_rec,
p_vendor_id        => cv_ven_l.vendor_id

);
dbms_output.put_line('cv_ven_l.vendor_id'||cv_ven_l.vendor_id);
dbms_output.put_line('l_msg_count'||l_msg_count);
dbms_output.put_line('l_msg_data'||l_msg_data);
dbms_output.put_line('l_return_status'||l_return_status);
commit;
end loop;
end update_api;


procedure update_main (
errbuf         out      varchar2,
retcode        out      varchar2
)
is
begin
update_api;
end update_main;