Locked Record Issue

Scott Walker Scott.Walker at RAMSystemsCorp.com
Thu Jun 26 11:36:48 PDT 2014


Nancy,

Wouldn't it just be:

If:  locked(metro)
Then:  do something.....

If:	not locked(metro)
Then:	do something else



> -----Original Message-----
> From: filepro-list-
> bounces+scottwalker=ramsystemscorp.com at lists.celestial.com
> [mailto:filepro-list-
> bounces+scottwalker=ramsystemscorp.com at lists.celestial.com] On Behalf Of
> Nancy Palmquist
> Sent: Thursday, June 26, 2014 2:06 PM
> To: filepro-list at lists.celestial.com
> Subject: Re: Locked Record Issue
> 
> Ken,
> 
> I tried this abbreviated logic to see what was happening. I get a syntax
> error at LOCKED( on line 13
> 
> If I put Locked(metro) eq "1" on an IF line I get the syntax error at EQ.
> 
> 10 ------- - - - - - - - - - - - - - - - - @keyr ■ If: ■
> Then: ke(10,.0)="999" ■
> 11 ------- - - - - - - - - - - - - - - - - ■ If: ■
> Then: lookup metro=metrodb k=ke i=a -nxpw ■
> 12 ------- - - - - - - - - - - - - - - - - ■ If: not metro ■
> Then: end ■
> 13 ------- - - - - - - - - - - - - - - - - ■ If: ■
> Then: n(5,.0)=LOCKED(metro) ■
> 14 ------- - - - - - - - - - - - - - - - - ■ If: n eq "1" ■
> Then: msgbox "LOCKED RECORD" ■
> 15 ------- - - - - - - - - - - - - - - - - ■ If: ■
> Then: end
> On 6/26/2014 12:19 PM, Kenneth Brody wrote:
> > On 6/26/2014 12:11 PM, Nancy Palmquist wrote:
> >> Fellow filepro developers,
> >>
> >> I just wondered if anyone could save me some time testing out a
> >> possible solution to a problem.
> >>
> >> In a clerk session, (filepro 5.0 version) I have a lookup to a file
> >> like
> >> this:
> >>
> >> lookup file=myfile k=ke i=a -nxp
> >>
> >> Can I tell right at that point if the record is locked and move
> >> somewhere else in the programming?
> >>
> >> if Locked(file) eq "1" then "do something"
> > [...]
> >
> > You're already 99% of the way there...
> >
> > Add the 'W" flag to the lookup:
> >
> >     Then:  lookup file=myfile k=ke i=e -nxpw
> >
> > Then you can test with:
> >
> >       If:  locked(file)
> >     Then:  ... do something ...
> >
> 
> --
> Nancy Palmquist
> Owner
> Virtual Software Systems - www.vss3.com
> (412) 835-9417
> 
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> Subscribe/Unsubscribe/Subscription Changes
> http://mailman.celestial.com/mailman/listinfo/filepro-list



More information about the Filepro-list mailing list