learn something new everyday

[Jose Lerebours]

On 6/2/21 4:24 PM, Richard D. Williams via Filepro-list wrote:
> I just discovered a disturbing thing.
> If you use @whp* or @wuk* and have @wlf processing for the field 
> you're in, the @wlf processing does not execute!
>
> I am working on a system that use F8 and F10 for SAVE and EXIT 
> respectively.
> If I am trying to control a user to make sure the data they have 
> entered is correct and they press F8 to SAVE, it never executes the 
> @wlf for that field.
> The program executes an ESCAPE at the @wuk and goes directly to the 
> top of the input table.
> Would I need to capture the field number they were in when the F8 was 
> pressed?
>
> I guess programming would have to be created to validate all fields 
> values after the ESCAPE.
>
> Does anyone else have issues with this?
>
> Richard D. Williams
>
>
>
I use @wlf* and check @sk  to determine course of action ... I rarely 
ever use large tables so, my input are mostly based on dummy variables

A typical process will like this
660  -------   -   -   -   -   -   - -   -   -   -   -   -   -   -   -   -
        . If: zk eq "DPRT" or zk eq "GRAF"            'Just finished 
inserting  .
        Then: zk=""; end                              'or removing a 
line ...   .
661  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: @sk eq "UTAB"                           'PAGE 
UP                  .
        Then: goto 
UTAB                                                         .
662  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: @sk eq "DTAB"                           'PAGE 
DOWN                .
        Then: goto 
DTAB                                                         .
663  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: @sk eq 
"DPRT"                                                     .
        Then: yf="b"{mid(yf,"2","1"); screen, (yf); goto 
TOP                    .
664  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: mid(yf,"1","1") eq 
"b"                                            .
        Then: goto 
wlfb                                                         .
665  -------   -   -   -   -   -   - -   -   -   -   -   -   -   -   -   -
        . If: mid(yf,"1","1") eq 
"c"                                            .
        Then: goto 
wlfc                                                         .
666  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: mid(yf,"1","1") eq 
"d"                                            .
        Then: goto 
wlfd                                                         .
667  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: mid(yf,"1","1") eq 
"e"                                            .
        Then: goto 
wlfe                                                         .
668  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: mid(yf,"1","1") eq 
"f"                                            .
        Then: goto 
wlff                                                         .
669  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: mid(yf,"1","1") eq 
"g"                                            .
        Then: goto 
wlfg                                                         .
670  -------   -   -   -   -   -   -   -   -   -   -   -   -   - -   -   -
        . If: mid(yf,"1","1") eq 
"h"                                            .
        Then: goto 
wlfh                                                         .

File: 
asorderh─────────────────────────────────────────────────Processing: input

Mind you, this snippet is from code I wrote early 90s so there might be 
a new way to do this that would make the code simpler and
cleaner.

Notice how I check if F3, F4, PgUp or PgDown are used ...


-- 

https://www.asisuites.com
https://www.helpsuites.com