Browse Lookup Help

[Tom Aldridge]

On 3/3/2011 Kroboth, Joe wrote:

>>> -----------------------------------------------
>>> I'm starting to go insane.  I cannot figure out what I am doing
>> wrong.
>>>
>>> I'm making a browse lookup using a fuzzy search.   After running the
>> lookup I cannot get rid of the "Press  X -Interrupt Fuzzy Search" at
>> the bottom of the screen to put up my own prompts.  I've tried all I
>> know.  Help.
>>>
>>> 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:
>>>
>>>
>>>
>>> Thanks.
>>>
>>> Joe Kroboth
>>> Chernay Printing, Inc
>>> joe_kroboth at chernay.com
>>
>>
>> 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?
>
>
> Joe
>
I don't think there is the typical pkeep behavior when returning from a 
fuzzy browse.... it would just run the fuzzy search again. Perhaps use 
the record you found to do a new lookup via an index?

Tom