Follow-up on show only browse

[Bruce Easton]

  Where there is just one numbered screen involved that has a show-only 
browse
(and where you want filepro to provide all 'enter selection' controls 
including
going up/down a record), an alternate solution would be (all from @entsel):

@entsel

If:  @sn ne 9  '(if i'm not on screen 9 take down any browse that might 
still be up)
Then: clearb; end   '(or go to handler for things needed for those other 
screens)
If:      'otherwise - it fell thru - i'm on screen 9
Then: lookup (show-only browse def)
If:
Then: end

Bruce

Bruce Easton
STN, Inc.


On 9/20/10 2:13 PM, Richard Kreiss wrote:
> After all the suggestions as to how to return to the original screen, my
> client asked today if their users could have the old method back. What she
> meant by that was that if the enter key was pressed the next record should
> come up with the browse open.
>
> With all the suggestions that have been made, this became a rather easy
> requested to fill. I added the following code:
>
> If:
> Then: qq=waitkey
> If: qq = "" and @sk="ENTR"
> Then: pushkey "[ENTR"]9";end
> If: qq = "" and @sk="CDWN"
> Then: pushkey "[CDWN"]9";end
> If: qq = "" and @sk="CRUP"
> Then: pushkey "[CRUP"]9";end
> If:
> Then: END
>
> The above program returns the enter up arrow and down arrow keys to their
> original function.
>
>
> Richard Kreiss
> GCC Consulting
> rkreiss at gccconsulting.net
>   
>
>
>
>
>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>
>