Re: Forms 4.5 debugger question

From: Teresa Redmond <pixel.work_at_verizon.net>
Date: Mon, 13 Jan 2003 12:45:58 -0500
Message-ID: <5hu52vkcftpmlq10igv1bteioda5kkfojj_at_4ax.com>

On Mon, 13 Jan 2003 16:41:59 -0000, in comp.databases.oracle.tools, "Alan Mills" <Alan.Mills_at_nospamservices.fujitsu.com> scribbled:

>which trigger 'on a button' are you using - show us the code in the trigger
>also.

Here's the trigger code for "When_Button_Pressed" (please pardon me, I'm very new to this code; in it you will see that I've tried two different things):

MouseNav.InitMouseNav;

/*:GLOBAL.CON_NUM := :CONTROL.CONTROL_CON_NUM;
 *:GLOBAL.CON_CODE := :CONTROL.CONTROL_CON_CODE;
 *:GLOBAL.DID_TITLE := :BCDRL.DID_TITLE;
 *:GLOBAL.DID_SUBTITLE := :BCDRL.DID_SUBTITLE;
 *:GLOBAL.EXHIBIT := :CONTROL.CONTROL_EXHIBIT;
 *:GLOBAL.ELIN_NUM := :CONTROL.CONTROL_ELIN_NUM;
 */

DECLARE
  pl_id ParamList;
BEGIN   break;

  pl_id := Get_Parameter_List('DDP_INFO');   IF NOT Id_Null(pl_id) THEN
    CALL_FORM('DDP_ADD'); Add_Parameter(pl_id,'CONTROL_CON_NUM',TEXT_PARAMETER,:CONTROL.CONTROL_CON_NUM);

    Add_Parameter(pl_id, 'CONTROL_CON_CODE', TEXT_PARAMETER,
:CONTROL.CONTROL_CON_CODE); 
    Add_Parameter(pl_id, 'DID_TITLE', TEXT_PARAMETER,

:BCDRL.DID_TITLE);
    Add_Parameter(pl_id, 'DID_SUBTITLE', TEXT_PARAMETER, :BCDRL.DID_SUBTITLE);
    Add_Parameter(pl_id, 'CONTROL_EXHIBIT', TEXT_PARAMETER, :CONTROL.CONTROL_EXHIBIT);
    Add_Parameter(pl_id, 'CONTROL_ELIN_NUM', TEXT_PARAMETER, :CONTROL.CONTROL_ELIN_NUM);   END IF; END;
>How is the new form sbeing called and what is the code of the
>pre-form trigger in the new form.

Here's that:

MouseNav.InitMouseNav;

/*
 *:CONTROL.CONTROL_CON_NUM := :GLOBAL.CON_NUM;
 *:CONTROL.CONTROL_CON_CODE := :GLOBAL.CON_CODE;
 *:CONTROL.CONTROL_EXHIBIT := :GLOBAL.EXHIBIT;
 *:CONTROL.CONTROL_ELIN_NUM := :GLOBAL.ELIN_NUM;
 *:CONTROL.CONTROL_CODE_DESC := :GLOBAL.CODE_DESC;
 */

DECLARE
  pl_id ParamList;
  temp1 varchar2;
  temp2 varchar2;
  TEXT_PARAMETER NUMBER;
  TEMP3 VARCHAR2;
BEGIN   break;

  pl_id := Get_Parameter_List('DDP_INFO');   IF NOT Id_Null(pl_id) THEN

    GET_PARAMETER_ATTR(pl_id, 'CONTROL_CON_NUM', TEXT_PARAMETER, TEMP3);
    :CONTROL.CONTROL_CON_NUM := TEMP3;          GET_PARAMETER_ATTR(pl_id, 'CONTROL_CON_CODE', TEXT_PARAMETER, TEMP3);
    :CONTROL.CONTROL_CON_CODE := TEMP3;          GET_PARAMETER_ATTR(pl_id, 'DID_TITLE', TEXT_PARAMETER, temp1);     GET_PARAMETER_ATTR(pl_id, 'DID_SUBTITLE', TEXT_PARAMETER, temp2);     :CDRL1423.TITLE_SHOWN := temp1 || ', ' || temp2;     

    GET_PARAMETER_ATTR(pl_id, 'CONTROL_EXHIBIT', TEXT_PARAMETER, TEMP3);
    :CONTROL.CONTROL_EXHIBIT := TEMP3;          GET_PARAMETER_ATTR(pl_id, 'CONTROL_ELIN_NUM', TEXT_PARAMETER, TEMP3);
    :CONTROL.CONTROL_ELIN_NUM := TEMP3;   END IF; HIDE_VIEW('Page_2');

END;
>global variable have oracle session scope so (from memory) should certainly
>be available if your calling the other forms with either CALL_FORM, NEW_FORM
>or REPLACE_FORM.

Thanks for your response.

-- 
Teresa Redmond
Programmer/Analyst II
Anteon Corporation
tredmond_at_anteon.com

Received on Mon Jan 13 2003 - 18:45:58 CET