I get following error message when attempting to load Grid component with Server-Side Event:
Error running Grid:
Error executing OnGridInitialize event handler: command: t= table.open(�assessformxm�) Error loading assessformxm: The system cannot find the file specified. Assessformxm.DBF
Files have been uploaded. Can display it from Server with another Component and Report in Tab UI.
Viewing IP-Switch FTP shows file in server.
Random error, as sometimes it is for assessformm.DBF
Following is Xbasic code. Works in Live Preview, Working Preview, and Publishing to Localhost.
Also would appreciate suggestion in converting to SQL Query. Thank.
dim t as p
t = table.open("assessformxm")
t.zap(.t.)
t.close()
dim t as p
dim u as p
dim v as p
t = table.open("assessformm")
u = table.open("bedcapcntm")
v = table.open("assessformxm")
t.fetch_first()
while .not. t.fetch_eof()
u.fetch_first()
while .not. u.fetch_eof()
if t.mf <> u.mf then
goto next_rec
end if
if t.room <> u.room then
goto next_rec
end if
if t.budget <> u.pricerange then
goto next_rec
end if
if t.lvlofclow <> u.level then
goto next_rec
end if
if t.cty1 <> u.county then
goto next_rec
end if
v.enter_begin()
v.client_id = t.company
v.cfirstname = t.cfirstname
v.clastname = t.clastname
v.county = t.cty1
v.pricerange = t.budget
v.mf = t.mf
v.room = t.room
v.level = t.lvlofclow
v.datesubm = t.datesubm
v.license = u.clientid
v.bedno = u.bedno
v.company = u.company
v.enter_end()
next_rec:
u.fetch_next()
end while
t.fetch_next()
end while
t.close()
u.close()
v.close()
Error running Grid:
Error executing OnGridInitialize event handler: command: t= table.open(�assessformxm�) Error loading assessformxm: The system cannot find the file specified. Assessformxm.DBF
Files have been uploaded. Can display it from Server with another Component and Report in Tab UI.
Viewing IP-Switch FTP shows file in server.
Random error, as sometimes it is for assessformm.DBF
Following is Xbasic code. Works in Live Preview, Working Preview, and Publishing to Localhost.
Also would appreciate suggestion in converting to SQL Query. Thank.
dim t as p
t = table.open("assessformxm")
t.zap(.t.)
t.close()
dim t as p
dim u as p
dim v as p
t = table.open("assessformm")
u = table.open("bedcapcntm")
v = table.open("assessformxm")
t.fetch_first()
while .not. t.fetch_eof()
u.fetch_first()
while .not. u.fetch_eof()
if t.mf <> u.mf then
goto next_rec
end if
if t.room <> u.room then
goto next_rec
end if
if t.budget <> u.pricerange then
goto next_rec
end if
if t.lvlofclow <> u.level then
goto next_rec
end if
if t.cty1 <> u.county then
goto next_rec
end if
v.enter_begin()
v.client_id = t.company
v.cfirstname = t.cfirstname
v.clastname = t.clastname
v.county = t.cty1
v.pricerange = t.budget
v.mf = t.mf
v.room = t.room
v.level = t.lvlofclow
v.datesubm = t.datesubm
v.license = u.clientid
v.bedno = u.bedno
v.company = u.company
v.enter_end()
next_rec:
u.fetch_next()
end while
t.fetch_next()
end while
t.close()
u.close()
v.close()
Comment