Browse Lookup Help

[Richard Kreiss]

> > > Filepro 5.6.07
> > > Linux centos 4.7
> > > I cannot upgrade to the latest filepro. My system does not support
> > the correct glibc.
> > >
> > > I'm starting the processes with the following command.
> > >
> > > /appl/fp/dclerk sit -z invfis_fuzzy -s0 -xs go
> > >
> > > I've tried using the -d , -de, dl, and du flags without success.
> > >
> > >
> > > Below is the processing.
> > > ------------------------
> > > fuzzyS:::
> > > :'** fuzzysearch::
> > > @entsel:::
> > > fuzzy:::
> > > ::declare local askbox:
> > > ::cls:
> > > ::askbox = "\fb          Job History Fuzzy Search\n\fe Enter Title
> > Search Term ":
> > > ::input popup("1","-1") zz(20,*) askbox:
> > > ::show popup("1,","-1") askbox { "\f7"<   zz:
> > > :@sk eq "BRKY":exit:
> > > :zz="":exit:
> > > brws:::
> > > ::gosub promptB:
> > > ::'errorbox "at lookup":
> > > ::lookup invfis = invfis  Z=6    K=ZZ   -n b="(brw=14,6,-1 fuzzy=500
> > xkey=XN show=pkeep pop=1 fill=asc,top)[DATE      JJ#:
> > > ::      CUST           TITLE                      CODE#]*1       |*2
> > |*3            |*6                        |*7""":
> > > :@sk eq "ENTR":popup invfis, 1 ; show "@" ; clearp; clearb ; goto
> > brws:
> > > :@sk eq "BRKY":exit:
> > > :@BK eq "X":clearb; exit:
> > > :@BK eq "N":clearb; goto fuzzy:
> > > ::exit:
> > > promptB:::
> > > ::cls("21"):
> > > ::showctr ("24") "\r \KZ \r - View Invoice  \r N \r New Search":
> > > ::return:
> >
> > Joe,
> >
> > I've used browse processing to control the display of rows 22-24 for a
> > fuzzy browse, e.g:
> >
> > drpinac:::
> > ::showctr("23") "\A3F Arrow Up/Dn \A1F, \A3F Enter<\g0\g3 \A1F-to
> > Accept, \A3F Del \A1F-Cancel":
> > :nemp(23) eq "INACTIVE" or nemp(32) ge "13":drop:
> > ::end:
> 
> Tom,
> 
> Thanks a million. That did the trick.
> 
> Is there an easy way to keep the browse position when coming back from
> doing a popup update or such when using fuzzy?

If pkeep is not working with your fuzzy search,  you can capture @br (current browse row) and on return use pushkey "[CDWN]" to move down the correct number of rows.

I usually store br(2,.0)=@br .  

This is a sample of the program.  Note that show=keep not pkeep

You will need enough program lines to move the cursor down based on the size of your browse window.

60  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
@keyB◄ If: br = "9"
      Then: pushkey "[CDWM][CDWN][CDWN]CDWN][CDWN][CDWN][CDWN][CDWN][CDWN]"
61  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: br = "8"
      Then: pushkey "[CDWN][CDWN]CDWN][CDWN][CDWN][CDWN][CDWN][CDWM]"
62  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If: 'br = "7"
      Then: 'pushkey "[CDWN]CDWN][CDWN][CDWN][CDWN][CDWN][CDWN]"
63  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then: lookup card = l_card  k=lv   i=B -NpG b="(brw=12 xkey=x show=keep fill=asc,top)[  Code        type        Card #]*3  
64  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:
      Then:          *5        *4"
65  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
      ◄ If:         @bk = "X"
      Then:         CLEARB;END
66  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then:         MSGBOX "You Are at Row \r"<@br<"\r";br(2,.0)=@br
 67  -------   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -   -
       ◄ If:
       Then: GOTO @keyB


Richard Kreiss
GCC Consulting
rkreiss at gccconsulting.net