IR Report to update filtered records that are checked - How To

Question

Hi,
(APEX 4.0 on 10g)
Simply stated, I have a IR Report with the followng
select
APEX_ITEM.CHECKBOX(1,empid,DECODE(selected_flag,'Y','CHECKED','') AS SELECTED,
ename,
job,
selected_flag
FROM emp
ORDER BY 1
The Interactive Report returns a 1000 records and none of the rows are selected (i.e. selected_flag is not 'Y'; I filter the report for last name = 'SMITH' which returns 100 rows.
How do I refer to those or updated the SELECTED_FLAG of the 100 rows with the last name of 'SMITH' to 'Y'?
Thanks in advance for your response.

Answer 1

Hi,
I don't know... it might be too late... but I came across this Problem too.
The trick is to select the the value of the primary key instead of the checkbox value...
something like this ...
select apex_item.checkbox(1, pn_modulid, decode
(V_SOMEVALUE 'J', 'checked', 'unchecked')) as "V_SOMEVALUE"
and...
apex_item.hidden(9,pn_modulid||',1:'||nvl(V_VALUE,'N')||',.... as checks
in the IR.
And then in the Process one can do something like this....
nid NUMBER;
nanz NUMBER;
ncount NUMBER;
vsql VARCHAR2 (32676);
vvar VARCHAR2 (100);
vvarray VARCHAR2 (1000);
TYPE reccheckboxen IS RECORD (
n_id NUMBER,
v_varray VARCHAR2 (1000),
v_varrayneu VARCHAR2 (1000)
TYPE tapcheckboxen IS TABLE OF reccheckboxen
INDEX BY BINARY_INTEGER;
tcheckboxen tapcheckboxen;
begin
--this is the value of my array from the hidden select...
FOR ds IN 1 .. apex_application.g_f09.COUNT
LOOP
vvarray := apex_application.g_f09 (ds);
nid := SUBSTR (vvarray, 1, INSTR (vvarray, ',') - 1);
tcheckboxen (nid).n_id := nid;
tcheckboxen (nid).v_varray :=
SUBSTR (vvarray, INSTR (vvarray, ',') + 1);
tcheckboxen (nid).v_varrayneu :=
REPLACE (tcheckboxen (nid).v_varray, 'J', 'N');
END LOOP;
FOR c IN 1 .. 7
LOOP
vsql :=
'begin :ncount := '
|| 'apex_application.g_f'
|| LPAD (c, 2, '0')
|| '.count; END;';
EXECUTE IMMEDIATE vsql
USING OUT ncount;
FOR v IN 1 .. ncount
LOOP
vsql :=
'begin :vvar := '
|| 'apex_application.g_f'
|| LPAD (c, 2, '0')
|| '('
|| v
|| '); END;';
EXECUTE IMMEDIATE vsql
USING OUT vvar;
tcheckboxen (vvar).v_varrayneu :=
REPLACE (tcheckboxen (vvar).v_varrayneu,
c || ':N',
c || ':J'
END LOOP;
END LOOP;
IF tcheckboxen.COUNT > 0
THEN
FOR verg IN tcheckboxen.FIRST .. tcheckboxen.LAST
LOOP
IF tcheckboxen.EXISTS (verg)
THEN
IF tcheckboxen (verg).v_varray <>
tcheckboxen (verg).v_varrayneu
THEN
vsql :=
'Update Table
set value = :01 where pn_modulid = :id';
EXECUTE IMMEDIATE vsql
USING vvalue, id;
END IF;
END IF;
END LOOP;
END IF;
end;
I had 7 Checkboxes to check in my report.
Works fine.... ;-)