Browse Lookup Help

[Tom Aldridge]

On 3/2/2011 3:30 PM, filepro-list-request at lists.celestial.com wrote:
> Message: 5
> Date: Wed, 2 Mar 2011 13:38:10 -0500
> From: "Kroboth, Joe"<joe_kroboth at chernay.com>
> Subject: Browse Lookup Help
> To:"filepro-list at lists.celestial.com"
> 	<filepro-list at lists.celestial.com>
> Message-ID:
> 	<3479549061D7B949A43692E2613A37B7189D74D05B at pink.intra.chernay.com>
> Content-Type: text/plain; charset="us-ascii"
>
> Sorry for the repost.  Just wanted to see if anyone had any ideas before contact support.
>
> Thanks.
> Joe
>
> -----------------------------------------------
> 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: