Locked Record Issue

[Nancy Palmquist]

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