Passing parameters from report portlet to a forms portlet

Question

Hello All,
I am trying to link data in a report to a form. Here's the gist: I click on a record in the report and the data is passed to a form in update mode. The problem is that when I click on the record the data is not passed right away to the form. Only after clicking the record again or refreshing the page does the data get passed. Any ideas? I'm sure it's something very simple that I'm missing. Here's the code below:
report code:
select ''||empno||'' empno_link, empno, ename, job, mgr, hiredate, sal, comm, deptno
from scott.emp
set_context_refresh procedure:
procedure set_context_refresh
p_context in varchar2,
p_context_value in varchar2,
p_page in varchar2)
is
v_Session portal30.wwsto_api_session;
begin
v_Session := portal30.wwsto_api_session.load_session('CONTEXT','SESS_EMP');
v_Session.set_attribute(p_context, p_context_value);
v_Session.save_session;
owa_util.redirect_url('http://jvic9/pls/portal30/url/page/'||p_page);
end set_context_refresh;
form code:
/* ... before displaying the page section */
portal30.empcust.autoquery_emp_form(p_session);
autoquery_emp_form procedure:
procedure autoquery_emp_form
p_session in out portal30.wwa_api_module_session
is
v_RowID varchar2(100);
v_Session portal30.wwsto_api_session;
v_empno varchar2(40);
begin
v_Session := portal30.wwsto_api_session.load_session('CONTEXT','SESS_EMP');
v_empno := v_Session.get_attribute_as_varchar2('EMPNO');
begin
select rowidtochar(rowid) into v_rowid
from scott.emp
where empno = v_empno;
end;
p_session.set_value(p_block_name=>'DEFAULT',p_attribute_name=>'_CALLED_FROM_LINK',p_value=>'ROWID');
p_session.set_value(p_block_name=>'DEFAULT',p_attribute_name=>'_ROWID',p_value=>v_rowid);
portal30.wwa_api_module_event.do_event('DEFAULT','QUERY_BOTTOM',1,'ON_CLICK',True,'',p_session);
p_session.save_session;
end autoquery_emp_form;

Answer 1

Hi John,
              If Not CRRpt.ParameterFields("AgeType") Is Nothing Then
                    CRRpt.ParameterFields("AgeType").CurrentValues.Clear()
                    Dim ParamValue As new CrystalDecisions.Shared.ParameterDiscreteValue
                    ParamValue.Value = AgeType.ToString 
                    CRRpt.ParameterFields("AgeType").CurrentValues.Add(ParamValue)
                End If
Note that the ParamValue.Value should be assigned with exact same data type as you declared it in CR.
If it is string, Convert your Variable to string first.
If it is date, make sure you are passing a date variable.
and so on...
Regards
Edy