Передача параметров между формами
Привет всем, я пытаюсь передать параметры между формами, но у меня есть эта ошибка: frm-92101 произошел сбой на сервере форм при запуске. Я хочу поместить кнопку в форму EMPLOYEE, которая при нажатии вызовет форму EMPLOYEE/DEPENDENT и автоматически запросит у иждивенцев сотрудника, которого просматривают в форме EMPLOYEE. Я создал форму EMPLOYEE и добавил кнопку. Я назначил триггер при нажатии кнопки:
DECLARE
pl_id ParamList;
BEGIN
pl_id := Get_Parameter_List('tmpdata');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('tmpdata');
Add_Parameter(pl_id, 'EMPLOYEESSN', TEXT_PARAMETER, :SSN);
Run_Product(FORMS, 'empdepn', SYNCHRONOUS, RUNTIME,
FILESYSTEM, pl_id, NULL);
END;
После этого я добавляю параметр в EMPLOYEE/DEPENDENT. Я создал ПАРАМЕТР EMPLOYEESSN с кодом ниже, добавил параметр EMPLOYEESSN и добавил триггер WHEN-NEW-FORM-INSTANCE:
DECLARE
blk_id Block;
BEGIN
-- Obtain the block ID of the EMPLOYEE block. This is the
-- Master block in the empdepn master/detail form.
blk_id := Find_Block('EMPLOYEE');
IF NOT Id_Null(blk_id) THEN
-- Check to make sure our parameter has a value. If this form
-- were executed by itself, then the parameter will be null.
-- If this form is called from EMPLOYEE then the parameter will
-- be passed along and assigned to: PARAMETER.employeessn
IF (:PARAMETER.employeessn is not null) THEN
-- Since we have a parameter, use it to alter the WHERE Clause
-- property so that it becomes WHERE ssn=:PARAMETER.employeessn
SET_BLOCK_PROPERTY(blk_id,DEFAULT_WHERE,'ssn=' || : PARAMETER.employeessn);
-- Navigate to the EMPLOYEE block and execute a query automatically
GO_BLOCK('EMPLOYEE');
EXECUTE_QUERY;
END IF;
END IF;
END;
Любая идея, пожалуйста, спасибо за помощь