Need Solution on Forms Customization

Question

Hi All,
We are trying to insert a record in the custom table while Clicking of "Submit"
So We have written the code in WHEN-BUTTON-PRESSED trigger of "Submit" Buttton.
but when we click on submit button the record is inserted properly but it is showing
"frm-40401:No Changes to Save" instead of "Transaction Complete:One Records Applied and Saved".
Can You please provide me the solution.
Thanks in Advance,
Dhana
Edited by: DhanaSurya on Oct 29, 2009 3:34 AM
Edited by: DhanaSurya on Oct 29, 2009 3:34 AM
Edited by: DhanaSurya on Oct 29, 2009 3:35 AM

Answer 1

Hi Srini,
We are using Forms 6i and Oracle Apps-11.5.10.2
We have written the following code in the WHEN-BUTTON-PRESSED trigger of Submit Button.
Declare
l_division VARCHAR2 (20);
l_div_mgr VARCHAR2 (50);
l_reg_mgr VARCHAR2 (50);
l_vpo VARCHAR2 (50);
l_approver VARCHAR2 (50);
l_person_id NUMBER;
l_full_name VARCHAR2 (30);
l_email_address VARCHAR2 (30);
i_user_id NUMBER
DEFAULT TO_NUMBER (fnd_profile.VALUE ('USER_ID'));
CURSOR c1
IS
SELECT org_code, manager, initiator, vpo,
approver
FROM xxmz_cust_hierarchy
WHERE UPPER (initiator) = UPPER (l_full_name);
BEGIN
BEGIN
SELECT employee_id
INTO l_person_id
FROM fnd_user
WHERE user_id = i_user_id;
EXCEPTION
WHEN OTHERS
THEN
l_person_id := NULL;
END;
BEGIN
SELECT full_name, email_address
INTO l_full_name, l_email_address
FROM per_all_people_f
WHERE person_id = l_person_id
AND object_version_number = (SELECT MAX (object_version_number)
FROM per_all_people_f
WHERE person_id = l_person_id);
EXCEPTION
WHEN OTHERS
THEN
l_full_name := NULL;
l_email_address := NULL;
END;
OPEN c1;
LOOP
FETCH c1
INTO l_division, l_div_mgr, l_reg_mgr, l_vpo, l_approver;
EXIT WHEN c1%NOTFOUND;
IF :xxmz_cust_det.cust_cbx = 1
AND :xxmz_cust.notes IS NOT NULL
THEN
INSERT INTO xxmz_cust_det
(customer_number,
customer_id,
customer_name,
bill_to_address,
write_off_amount,
notification_status,
initiator, ini_contact,
notes, org_code,
manager, vpo, approver,
approver_title, approver_notes, attribute1,
attribute2, attribute3, attribute4, attribute5,
attribute6, attribute7, attribute8, attribute9,
attribute10, created_by, creation_date,
last_updated_by, last_update_date
VALUES (:xxmz_cust_det.customer_number,
:xxmz_cust_det.customer_id,
:xxmz_cust_det.customer_name,
:xxmz_cust_det.bill_to_address,
:xxmz_cust_det.write_off_amount,
:xxmz_cust_det.notification_status,
l_reg_mgr, l_email_address,
:xxmz_cust.notes, l_division,
l_div_mgr, l_vpo, l_approver,
'Approver', NULL, NULL,
NULL, NULL, NULL, NULL,
NULL, NULL, NULL, NULL,
NULL, i_user_id, TRUNC (SYSDATE),
i_user_id, TRUNC (SYSDATE)
END IF;
END LOOP;
CLOSE c1;
COMMIT;
EXCEPTION
WHEN OTHERS
THEN
fnd_message.error;
RAISE form_trigger_failure;
END;
Regards,
dhana