General information
Title:
FPW 2.6a : it's in there?
Hi All:
OK, it's one of those days, and I'm certain that I'm overlooking something
obvious.
The following is from the setup code from one of my screens. All is fine on
the first pass through the code, but the second time, I get a "File is in
use" error.
Suggestions?
Adolph
#READCLAUSE &readstr
#SECTION 1
parameters m.select, m.stud_ed
set exclusive off
on error
current=select()
select 0
free=select()
select 0
use info && It hangs
here the second pass through
locate for rtrim(field)="enrollment"
m.enroll_def=value
if .not. used("student")
select (free)
use student
s_open=.f.
else
select student
s_open=.t.
endif
file_locked=.f.
readstr="NOLOCK"
if flock()
file_locked=.t.
readstr="LOCK"
else
file_locked=.f.
readstr="NOLOCK"
do alert2b.spr with "Another user is currently editing this file.",
"Editing will not be possible."
endif
r_old_order=order()
set order to l_name
if 0!=m.stud_ed
locate for studentid==m.stud_ed
if .not. found()
go top
stud_list=1
else
&& Scroll through list to find student
x=0
do while not bof()
skip -1
x=x+1
enddo
stud_list=x
endif
else
go top
stud_list=1
endif
hld_stud_id=studentid
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only