Error message not descriptive FRM-40509

Question

Hi,
Whenever i have any update error, i get this error as FRM-40509 error: unable to update record. I can see this error only when i click on f1 or show error key.
How can can i display actual message without going to click on on f1 or show error
appreciate your help
regards
ahmed

Answer 1

Yes, i tried with on-error. below is the code
BEGIN
DECLARE
err_code CONSTANT NUMBER := ERROR_CODE;
err_type CONSTANT VARCHAR2(3) := ERROR_TYPE;
server_err NUMBER := abs(DBMS_ERROR_CODE);
server_msg VARCHAR2(2000) := DBMS_ERROR_TEXT;
constraint_name VARCHAR2(61);
BEGIN
IF (err_type = 'FRM' AND
err_code IN (40506, 40508, 40509, 40510, 40702) ) THEN
/* Remove recursive errors from the top of the stack */
WHILE (server_err = 604) LOOP
CGTE$POP_ERROR_STACK(server_err, server_msg);
END LOOP;
/* Check and report the generic constraint violations */
IF ( CGTE$CHECK_CONSTRAINT_VIO(server_err, server_msg) ) THEN
ep_form_errors.RAISE_FAILURE;
END IF;
/* Check and report the constraint violations specific to this block */
constraint_name := TST_CONSTRAINT(server_msg);
/* FK - Parent key not found */
IF (server_err = 2291) THEN
IF (constraint_name = 'TST_L1323_FK') THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(13, 'This <p1> does not exist', 'Tool Name'), 'E', 'OFG', 13);
ELSIF (constraint_name = 'TST_L1325_FK') THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(13, 'This <p1> does not exist', 'Measure Type' ), 'E', 'OFG', 13);
ELSIF (constraint_name = 'TST_L1326_FK') THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(13, 'This <p1> does not exist', 'Probe Type' ), 'E', 'OFG', 13);
ELSIF (constraint_name = 'TST_L1324_FK') THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(13, 'This <p1> does not exist', 'Run Type)' ), 'E', 'OFG', 13);
ELSIF (constraint_name = 'TST_SVC_FK') THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(13, 'This <p1> does not exist', 'Service company Code' ), 'E', 'OFG', 13);
ELSE
ep_form_errors.PUSH(server_msg, 'I', 'OFG', 0);
END IF;
ep_form_errors.RAISE_FAILURE;
END IF;
/* FK - Child record found */
IF (server_err = 2292) THEN
IF (err_code = 40510) THEN
ep_form_errors.PUSH(server_msg, 'I', 'OFG', 0);
ELSIF (err_code = 40509) THEN
ep_form_errors.PUSH(server_msg, 'I', 'OFG', 0);
END IF;
ep_form_errors.RAISE_FAILURE;
END IF;
END IF;
IF (err_type = 'FRM' AND
err_code IN (41105, 41106, 40702) ) THEN
IF (err_code = 41105) THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(35, 'Query of <p1> must be in context of <p2>', 'Tests'), 'E', 'OFG', 35);
ep_form_errors.RAISE_FAILURE;
ELSIF (err_code = 41106) THEN
ep_form_errors.PUSH(ep_form_errors.MSGGETTEXT(36, 'Insert of <p1> must be in context of <p2>', 'Tests' ), 'E', 'OFG', 36);
ep_form_errors.RAISE_FAILURE;
END IF;
END IF;
IF (err_type = 'FRM' AND
err_code = 40735 AND
server_err != 0 ) THEN
/* Remove recursive errors from the top of the stack */
WHILE (server_err = 604) LOOP
CGTE$POP_ERROR_STACK(server_err, server_msg);
END LOOP;
/* If error not found, issue default message */
ep_form_errors.PUSH(err_type||'-'||to_char(server_err)||': '||server_msg, 'I', 'OFG', 0);
ep_form_errors.RAISE_FAILURE;
END IF;
/* If error not found, issue default message */
ep_form_errors.PUSH(err_type||'-'||to_char(err_code)||': '||ERROR_TEXT, 'I', 'OFG', 0);
ep_form_errors.RAISE_FAILURE;
END;
END;
Message was edited by:
user642673