The following is the error popup message I get when I click "Finalize" button on my website:
"Line: 298
Char: 5
Error: Object required: 'lobi_c_selected(...)'
Code: 0
URL: http://10.128.23.50/i-prostage/AP/w_ap_check_reconciliation.asp?"
Normally, when I click "Finalize" button, it'll generate and show a report in a popup window. However, I'd get this error message instead. Can any of you help me locate the error in the following source code for the page that I'm running in IE 6?
sub cb_finalize
dim ll_loop, ll_found, lobj_c_selected
of_SetHourGlass(True)
rpt_link.innerHTML = ""
rpt_link.href = ""
'Process only if at least one record was selected
if rds1.Recordset.Recordcount 0 then
lb_found = false
if rds1.Recordset.Recordcount = 1 then
if c_selected.checked then lb_found = true
else
Set lobj_c_selected = document.all.item("c_selected")
for ll_loop = 1 to rds1.Recordset.Recordcount
if lobj_c_selected(ll_loop - 1).checked then
lb_found = true
exit for
end if
next
end if
if not lb_found then
msgbox "Please select a record to be posted.", vbInformation, "ProStage Accounting"
of_SetHourGlass(False)
else
window.setTimeout "ue_process()", 100, vbscript 'Post Event
end if
else
msgbox "There's no record to be posted." + vbcrlf + "Please select a record to be posted.", vbInformation, "ProStage Accounting"
of_SetHourGlass(False)
end if
end sub
Sub ue_process
dim ll_loop, ll_count, ls_ret, ls_trxid, ls_r1
'Get only selected records
redim ls_trxid(rds1.Recordset.Recordcount)
for ll_loop = 1 to rds1.Recordset.Recordcount
rds1.Recordset.AbsolutePosition = ll_loop
if not isnull(rds1.Recordset("clrdt")) then
'Add to TRXID array if selected
ll_count = ll_count + 1
ls_trxid(ll_count) = rds1.Recordset("trxid")
end if
next
'Process reconciliation
rds1.Recordset.MarshalOptions = 1
ls_ret = iBO_Update.of_update_1(is_dbsrc, rds1.Recordset, "GLTRX", is_sql)
if ls_ret < "1" then
msgbox "Update Failed ! " + ls_ret, vbExclamation + vbOKonly, document.title
of_SetHourGlass(False)
else
'Display Posting Journal & clear screen
ue_posting_journal ls_trxid, ll_count
Set rds1.SourceRecordset = iBO_Company.of_validate(is_dbsrc, "SELECT 1 FROM DUAL WHERE 1 = 2")
ib_query = false 'Not to process RetrieveEnd
end if
End Sub
Sub ue_posting_journal(as_trxid, al_count)
dim ll_argseq, ls_argtyp, ls_argmnt, ll_sargseq
of_setreport() ' Start service
'Prepare arguments for report in RPTMSTR table
for ll_loop = 1 to al_count + 1
select case ll_loop
case 1 'Range displayed as report title
ll_argseq = 800
ls_argtyp = null
ls_argmnt = "st_title.text = 'Bank: " + bnkid_name.value + ", As of Date: " + _
of_date_stringtodate(id_trxdt) + "'"
ll_sargseq = 0
case else 'TRXID array
ll_argseq = 1
ll_sargseq = ll_loop - 1
ls_argtyp = "S"
ls_argmnt = as_trxid(ll_loop - 1)
end select
of_report_register_array "d_rpt_ap_check_reconciliation_register", ll_argseq, ls_argtyp, ls_argmnt, ll_sargseq
next
of_report_process "d_rpt_ap_check_reconciliation_register", true, true 'Display report
of_sethourglass(False)
End Sub
