Checksum error in Manual Tabular Form

Question

Hi everyone,
I have created 2 (manual tabular forms) on a same page but i am getting checksum error for one of the tabular form.
Here is my code:
1 st Tabular Form:
select
x.del,
x.ECGEXST_ID,
x.LEAD_CD,
x.ST_ID,
x.ENTERED_DTS,
X.ENTERED_BY_NM,
X.UPDATED_DTS,
X.UPDATED_BY_NM,
x.cks
from (
select
htmldb_item.checkbox(1,ECGEXST_ID) del,
htmldb_item.hidden(2,ECGEXST_ID) ECGEXST_ID,
htmldb_item.select_list_from_query (3, LEAD_CD,'select lead_cd , lead_cd from lslead order by display_seq ',15) LEAD_CD,
htmldb_item.select_list_from_query(5,ST_ID,'select lkup_dsc,lkup_id from lkup where lkup_grp_id = 17',25) ST_ID,
wwv_flow_item.display_and_save(6,to_char(ENTERED_DTS,'MM/DD/YYYY')) ENTERED_DTS,
au.LAST_NM || ', ' || au.FIRST_NM ENTERED_BY_NM,
wwv_flow_item.display_and_save(7,to_char(UPDATED_DTS,'MM/DD/YYYY')) UPDATED_DTS,
au1.LAST_NM || ', ' || au1.FIRST_NM UPDATED_BY_NM,
htmldb_item.md5_checksum(ECGEXDT_ID,LEAD_CD,ST_ID,ENTERED_DTS,ENTERED_BY_MSPR_ID) cks
from ECGEXST,
app_user au,app_user au1 where au.MSPR_ID(+) = ECGEXST.ENTERED_BY_MSPR_ID and au1.MSPR_ID(+) = ECGEXST.UPDATED_BY_MSPR_ID
and ECGEXDT_ID = :P65_ECGEXDT_ID
union all
select
htmldb_item.checkbox(1,null) del,
htmldb_item.hidden(2,null) ECGEXST_ID,
htmldb_item.select_list_from_query (3,null,'select lead_cd , lead_cd from lslead order by display_seq ',15) LEAD_CD,
htmldb_item.select_list_from_query(5,null,'select lkup_dsc,lkup_id from lkup where lkup_grp_id = 17',25) ST_ID,
wwv_flow_item.display_and_save(6,null) ENTERED_DTS,
null ENTERED_BY_NM,
wwv_flow_item.display_and_save(7,null) UPDATED_DTS,
null UPDATED_BY_NM,
htmldb_item.md5_checksum(null,null,null,null,null) cks
from dual) x
UPDATE PROCESS:
declare
l_cks wwv_flow_global.vc_arr2;
j pls_integer := 1;
val1 varchar2(100);
val2 varchar2(100);
begin
-- Get original MD5 checksum
select wwv_flow_item.md5(ECGEXDT_ID,LEAD_CD,ST_ID,ENTERED_DTS,ENTERED_BY_MSPR_ID) cks
BULK COLLECT INTO
l_cks
from ECGEXST where ECGEXDT_ID = :P65_ECGEXDT_ID;
-- Compare the original checksum, l_cks,
-- with submitted checksum, htmldb_application.g_fcs.
-- If they are different, raise an error.
for i in 1..l_cks.count
loop
if htmldb_application.g_fcs(i) != l_cks(i) then
rollback;
raise_application_error(
          -20001,
     'Current version of data in database has changed '||
          'since user initiated update process.');
-- return;
end if;
end loop;
-- update ECGRSTST
for i in 1..htmldb_application.g_f02.count
loop
if htmldb_application.g_f02(i) is not null then
update ECGEXST
set
ECGEXDT_ID = :P65_ECGEXDT_ID,
LEAD_CD = replace(htmldb_application.g_f03(i),'%'||'null%',NULL),
ST_ID = replace(htmldb_application.g_f05(i),'%'||'null%',NULL)
where ECGEXST_ID = htmldb_application.g_f02(i);
else
if htmldb_application.g_f03(i) is not null then
insert into ECGEXST
(ECGEXST_ID ,
ECGEXDT_ID,
LEAD_CD,
ST_ID)
values
(ECGEXST_SEQ.nextval,
:P65_ECGEXDT_ID,
replace(htmldb_application.g_f03(i),'%'||'null%',NULL),
replace(htmldb_application.g_f05(i),'%'||'null%',NULL));
end if;
end if;
end loop;
end;
The first tabular form is working fine.But for the second tabular form i am getting the checksum error.I have created a test table and checked the checksum values.The checksum values are changing.
Here is the code of my 2nd tabularform:
select
x.del,
x.ECGEXT_ID,
x.LEAD_CD,
x.T_ID,
x.ENTERED_DTS,
X.ENTERED_BY_NM,
X.UPDATED_DTS,
X.UPDATED_BY_NM,
x.cks
from (
select
htmldb_item.checkbox(11,ECGEXT_ID) del,
htmldb_item.hidden(12,ECGEXT_ID) ECGEXT_ID,
htmldb_item.select_list_from_query (13, LEAD_CD,'select lead_cd , lead_cd from lslead order by display_seq ',15) LEAD_CD,
htmldb_item.select_list_from_query(15,T_ID,'select lkup_dsc,lkup_id from lkup where lkup_grp_id = 18',25) T_ID,
wwv_flow_item.display_and_save(16,to_char(ENTERED_DTS,'MM/DD/YYYY')) ENTERED_DTS,
au.LAST_NM || ', ' || au.FIRST_NM ENTERED_BY_NM,
wwv_flow_item.display_and_save(17,to_char(UPDATED_DTS,'MM/DD/YYYY')) UPDATED_DTS,
au1.LAST_NM || ', ' || au1.FIRST_NM UPDATED_BY_NM,
htmldb_item.md5_checksum(ECGEXDT_ID,LEAD_CD,T_ID,ENTERED_DTS,ENTERED_BY_MSPR_ID) cks
from ECGEXT,
app_user au,app_user au1 where au.MSPR_ID(+) = ECGEXT.ENTERED_BY_MSPR_ID and au1.MSPR_ID(+) = ECGEXT.UPDATED_BY_MSPR_ID
and ECGEXDT_ID = :P65_ECGEXDT_ID
union all
select
htmldb_item.checkbox(11,null) del,
htmldb_item.hidden(12,null) ECGEXT_ID,
htmldb_item.select_list_from_query (13,null,'select lead_cd , lead_cd from lslead order by display_seq ',15) LEAD_CD,
htmldb_item.select_list_from_query(15,null,'select lkup_dsc,lkup_id from lkup where lkup_grp_id = 18',25) T_ID,
wwv_flow_item.display_and_save(16,null) ENTERED_DTS,
null ENTERED_BY_NM,
wwv_flow_item.display_and_save(17,null) UPDATED_DTS,
null UPDATED_BY_NM,
htmldb_item.md5_checksum(null,null,null,null,null) cks
from dual) x
UPDATE PROCESS:
declare
l_cks wwv_flow_global.vc_arr2;
j pls_integer := 1;
val1 varchar2(100);
val2 varchar2(100);
begin
-- Get original MD5 checksum
select wwv_flow_item.md5(ECGEXDT_ID,LEAD_CD,T_ID,ENTERED_DTS,ENTERED_BY_MSPR_ID) cks
BULK COLLECT INTO l_cks
from ECGEXT where ECGEXDT_ID = :P65_ECGEXDT_ID;
-- Compare the original checksum, l_cks,
-- with submitted checksum, htmldb_application.g_fcs.
-- If they are different, raise an error.
for i in 1..l_cks.count
loop
if htmldb_application.g_fcs(i) != l_cks(i) then
-- val1 := htmldb_application.g_fcs(i);
-- val2 := l_cks(i);
-- insert into test2 (val_1,val_2) values (val1,val2);
rollback;
raise_application_error(
     -20001,
     'Current version of data in database has changed '||
     'since user initiated update process.');
return;
end if;
end loop;
-- update ECGRSTST
for i in 1..htmldb_application.g_f12.count
loop
if htmldb_application.g_f12(i) is not null then
update ECGEXT
set
ECGEXDT_ID = :P65_ECGEXDT_ID,
LEAD_CD = replace(htmldb_application.g_f13(i),'%'||'null%',NULL),
T_ID = replace(htmldb_application.g_f15(i),'%'||'null%',NULL)
where ECGEXT_ID = htmldb_application.g_f12(i);
else
if htmldb_application.g_f13(i) is not null then
insert into ECGEXT
(ECGEXT_ID ,
ECGEXDT_ID,
LEAD_CD,
T_ID)
values
(ECGEXT_SEQ.nextval,
:P65_ECGEXDT_ID,
replace(htmldb_application.g_f13(i),'%'||'null%',NULL),
replace(htmldb_application.g_f15(i),'%'||'null%',NULL));
end if;
end if;
end loop;
end;
please help me in solving this.The same code its good for one tabular form and for the other it giving the checksum error.
Thanks in advance
phani

Answer 1

Hi patrick,
Thanks for the reply i am getting the checksum error even if i used my primary key in the select statement of the MD5 checksum.
My primary key in the second tabular form is
htmldb_item.hidden(12,ECGEXT_ID) ECGEXT_ID
so i changed the process to:
for i in 1..htmldb_application.g_f12.count
loop
if htmldb_application.g_f12(i) is not null
then
select wwv_flow_item.md5(ECGEXDT_ID,LEAD_CD,T_ID,ENTERED_DTS,ENTERED_BY_MSPR_ID) cks
BULK COLLECT INTO l_cks
from ECGEXT where ECGEXT_ID = htmldb_application.g_f12(i);
-- Compare the original checksum, l_cks,
-- with submitted checksum, htmldb_application.g_fcs.
-- If they are different, raise an error.
if htmldb_application.g_fcs(i) != l_cks(i) then
-- val1 := htmldb_application.g_fcs(i);
-- val2 := l_cks(i);
-- insert into test2 (val_1,val_2) values (val1,val2);
rollback;
raise_application_error(
     -20001,
     'Current version of data in database has changed '||
     'since user initiated update process.');
end if;
end if;
end loop;
It's not possible to use BULK COLLECT to get the MD5 checksum of all >>>rows. Because the index positions in the MD5 array and the >>>apex_application.g_fxx array index will probably not match, especially if you >>>don't order or if you are on a second page.How come the first tabular form is running i used the bulk collect in the first tabular form
HERE IS THE CODE FOR THE FIRST TABULAR FORM:
-- Get original MD5 checksum
select wwv_flow_item.md5(ECGEXDT_ID,LEAD_CD,ST_ID,ENTERED_DTS,ENTERED_BY_MSPR_ID) cks
BULK COLLECT INTO
l_cks
from ECGEXST where ECGEXDT_ID = :P65_ECGEXDT_ID;
-- Compare the original checksum, l_cks,
-- with submitted checksum, htmldb_application.g_fcs.
-- If they are different, raise an error.
for i in 1..l_cks.count
loop
if htmldb_application.g_fcs(i) != l_cks(i) then
rollback;
raise_application_error(
          -20001,
     'Current version of data in database has changed '||
     'since user initiated update process.');
-- return;
end if;
end loop;