| CUSTOM.pll Urgent!!! Plz...Help.. [message #119883] |
Mon, 16 May 2005 09:42  |
venkatesham
Messages: 45
Registered: April 2005
Location: Hyd
|
Member |
|
|
Hi there,
Can any one tell me how custom.pll is being used apart from zoom,disabling fields etc...with an example.
Plz..guide me by giving Necessary Steps
Thanks
Venkat
|
|
|
|
|
|
| Re: CUSTOM.pll Urgent!!! Plz...Help.. [message #120879 is a reply to message #119883] |
Tue, 24 May 2005 08:06  |
Shailender.manchanapally
Messages: 1
Registered: May 2005
Location: Banglore
|
Junior Member |
|
|
Following is sample code similarly you can modify ue custom.pll
Shailender
Program Logic (pseudo code)
Select operating unit (org_id) from customer master (Hz_cust_acct_sites_all) table where Party_site_id = Bill to party site id or ship to party site id selected on the charges tab in the service request form.
If the operating unit found above does not match with the operating unit associated with the responsibility of the user, then the following pop-up the message will be displayed on the screen and the submit button will be disabled. This way the user cannot use the submit button to create an order.
'You have selected a customer site that is invalid. Please contact your Customer Master team to create this site in your operating unit'
If the operating unit found above matches with the operating unit associated with the responsibility of the user, then the submit button will be enabled.
The following sample code will be used in the CUSTOM.pll for achieving this.
SQL Statement
IF (event_name = 'WHEN-NEW-ITEM-INSTANCE' AND v_form_name1 = 'CSXSRISR') THEN
IF v_block_name1 ='CHARGES_DETAIL_BLK' THEN
l_org_id1 := name_in('CHARGES_DETAIL_BLK.BILL_TO_PARTY_SITE_ID');
l_org_id2 := name_in('CHARGES_DETAIL_BLK.SHIP_TO_PARTY_SITE_ID');
BEGIN
select org_id into l_var1 from hz_cust_acct_sites_all
where PARTY_SITE_ID=l_org_id1;
exception
when no_data_found then
NULL;
END;
BEGIN
select org_id into l_var2 from hz_cust_acct_sites_all
where PARTY_SITE_ID=l_org_id2;
exception
when no_data_found then
NULL;
END;
if fnd_profile.value('org_id') <> l_var1 or fnd_profile.value('org_id') <> l_var2 then
fnd_message.set_string('You have selected a customer site that is invalid.Please contact your Customer Master team to create this site in your operating unit');
fnd_message.show;
app_item_property2.set_property('CHARGES_CTRL_BLK.SUMIT_CHARGES',ENABLED,PROPERTY_FALSE);
raise form_trigger_failure;
elsif fnd_profile.value('org_id') = l_var1 or fnd_profile.value('org_id') = l_var2 then
app_item_property2.set_property('CHARGES_CTRL_BLK.SUMIT_CHARGES',ENABLED,PROPERTY_TRUE);
end if;
end if;
END IF;
|
|
|
|
] 
Blog
Search
Help
Members
Register
Login
Home
