show only browse
Bruce Easton
bruce at stn.com
Thu Sep 16 10:40:13 PDT 2010
Wow - I am utterly amazed at how something so simple can wind up being
so complex here for things that we have done for years. I have done
wild things with filepro automatic processing, browses, browse drop
processing, key capturing, etc. over the years (often just to satisfy my
own curiosity - this is probably how I was eventually able to provide
*mart with a browse that showed where their moving vans were in the
country on what dates and loaded with what job - somewhat graphical, but
in char-based fp with lots of exit keys for different functions -
hundreds of lines of drop-processing - long before the 'switchto'
command existed; and many other apps).
But after all these years, what I learned most is that the best is the
simplest. Or at least try not to dream up something overly complex to
supercede something that filepro gives you (that you may have just
forgotten) for very little effort. Seems like my posts were ignored,
but for the sake of someone coming in here and looking for a very simple
answer to the original question:
"I would like to have the user returned to their original screen if they
press <ENTER>. Nothing I have tried works." for what was later
described as going to a screen where there is a show-only browse,
I will post it again (no If tests needed! no automatic processing
needed! no key capturing needed! --use the command that's been around
way before "switchto" - I use "switchto" all the time now, but not for
this!!) - i'll even use your browse line and comment this time:
@key9 Then: sn=@sn 'take over key9 and first store orig screen name
Then: display 9 'display screen 9
Then: lookup tran = transaction K=16 i=E -Nxm b=(ba&bb&bc)
Then: show "@" 'let filepro ask the user to hit enter
Then: display (sn) 'put the orig screen back
Then: end
Very easy to understand and alter that piece of code, should say you
wanted to follow a new index.
Sorry, but I'm just dumbfounded by the responses to this. Now if your
goal, Richard, has changed from your original question, then that's a
different story and that would be a problem for me as I do not see in
the follow-up posts any other requirements, but maybe I missed something.
Bruce
Bruce Easton
STN, Inc.
On 9/16/10 12:39 PM, Richard Kreiss wrote:
> With help for John and Ken, finally came up with the answer.
>
> 1. Capturing the auto processing table cycles.
> 2. Set global dummy field sn at @key9 to sn=@sn prior to the switchto "9"
> 3. When the 4th cycle is hit, issue a switchto [sn]
> 4. At end of auto processing table, issue a pushkey "[CRUP]" to move back
> one record.
>
> I found that the pushkey had to be at the end of the auto table to execute
> properly.
>
> Thanks to all who responded.
>
> Richard
>
>
>
>>> The intercept is
>>> really
>>>> down to only two "if" lines I think and they are fairly
>>> simple once you
>>> see the
>>>> idea. You will basically be catching all regular keys, and
>>> all SPECIAL
>>> keys
>>>> ([ENTER], {CRUP], [CDWN], etc.) Then, you can deal with
>>> anything the user
>>>> presses, and even press a few things *for* them.
>>> Already use @entsel to display the bottom prompts.
>> That is the start. The crucial thing is *intercepting" all the key
> strokes
>> @entsel and passing them through to INPUT as you want them passsed... Or
>> not. Showing the prompts is nice, but it doesn't gain you any control.
>>
>> It's this kind of thing I'm talking about. You'd have to find the whole
> article...
>> Here is a main part of the idea though...
>>
>>
>> 199 ------- - - - - - - - - - - - - - - -
> -
>> . If:
>> .
>> Then: gosub legend 'put up the standard filePro prompts .
>> 200 ------- - - - - - - - - - - - - - - -
> -
>> . If:
>> .
>> Then: KeyPressed=waitkey
>> .
>> 201 ------- - - - - - - - - - - - - - - -
> -
>> . If: @sk eq "SAVE"
>> .
>> Then: goto wait
>> .
>> 202 ------- - - - - - - - - - - - - - - -
> -
>> . If: @sk eq "CRUP" or @sk eq "CDWN" or @sk eq "UTAB" or @sk eq
>> "DTAB" .
>> Then: pushkey ""{"["{@sk{"]"{"[ENTR]"{""; goto brw .
>> 203 ------- - - - - - - - - - - - - - - -
> -
>> . If:
>> .
>> Then: '
>> .
>> 204 ------- - - - - - - - - - - - - - - -
> -
>> grp_1 . If: KeyPressed eq "A" or KeyPressed eq "M" or KeyPressed eq "D"
>> .
>> Then:
>> .
>>
>>
>>
>> You can deal with the main filePro prompts/@keys and others of your own
>>
>>
>> John
>>
>>
>> _______________________________________________
>> Filepro-list mailing list
>> Filepro-list at lists.celestial.com
>> http://mailman.celestial.com/mailman/listinfo/filepro-list
>
> _______________________________________________
> Filepro-list mailing list
> Filepro-list at lists.celestial.com
> http://mailman.celestial.com/mailman/listinfo/filepro-list
>
>
More information about the Filepro-list
mailing list