Sideways Scrolling a Browse

[GCC Consulting]

> -----Original Message-----
> From: filepro-list-bounces at lists.celestial.com 
> [mailto:filepro-list-bounces at lists.celestial.com] On Behalf 
> Of Bob Stockler
> Sent: Friday, March 11, 2005 4:40 PM
> To: filePro Mailing List
> Subject: Sideways Scrolling a Browse
> 
> The most rational way I could get it to work was to edit the 
> lookup line and then add the following lines before and after it.
> 
>   Then: ky = 1
>   Then: lookup det=test_det k=ky i=A -ng b=(b_cfg & b_hdr & b_data)
>   Then: ky = 1 { det(3)
> 
> If an R or L is typed, the highlighted line moves to the top 
> of the browse screen with the appropriate View (1, 2 or 3) 
> displayed and remains highlighted.  Typing R or L sideways 
> scrolls this line.
> 
> One can use the up or down arrows or page up or down keys to 
> highlight other browse records and sideways scroll them likewise.  
> 
> I had to rebuild the index.A in the detail file to be built on field
> 1 with length 9 (rather than 6) and make the first 3 
> characters in field 2 a series from 001 to 999 (simulating 
> line item numbers).
> 
Bob,

Per my earlier terse post, this is what is did top get the browse to work the
way I wanted.

Line 16 resets the lookup variable each time either the R or L key is pressed
based on the highlight's current position.

In this case, index a is on tenant's name so using a 1 for the starting lookup
position works.

With some additional modifications, I can add a "find" function to allow moving
directly to a particular tenants name or even change the sort to be by building
code and tenant displaying the same data.  More then likely, when I install this
at the client's site, it will start with @entsel allowing for how the
information will be displayed.

Richard Kreiss
GCC Consulting 


    1  Then: end
@keyT    If: '@keyT
    2  Then: 
    3  Then: viewflag="1";  gosub view_1
    4  Then: lv="1"
    5  Then: gosub prompt
browse   If: 
    6  Then: lookup ten=ro_tenant  k=lv i=A -ng b=(b_cfg & b_hdr & b_data)
         If: @sk eq "BRKY"
    7  Then: exit
         If: @bk eq "X"
    8  Then: CLEARB;CLEARS;END
         If: @bk eq "L" or @bk eq "R"
    9  Then: gosub bld_brw;  goto browse
   10  Then: goto browse
bld_brw  If: 'bld_brw
   11  Then: 
         If: @bk eq "L"
   12  Then: viewflag=viewflag - "1"
         If: @bk eq "L" and viewflag eq "0"
   13  Then: viewflag="3"
         If: @bk eq "R"
   14  Then: viewflag=viewflag + "1"
         If: @bk eq "R" and viewflag eq "4"
   15  Then: viewflag="1"
   16  Then: lv=ten(2)
   17  Then: GOSUB prompt;gosub (viewflag) of view_1, view_2, view_3
   18  Then: return
view_1   If: 'view_1
   19  Then: 
   20  Then: b_cfg="(brw=20 xkey=LRX show=pkeep pop=1 fill=asc,top)"
   21  Then: b_hdr="[\b5 Tenant                         Building     Suite
             Phone \a-]"
   22  Then: b_data="*2                              *1             *3     *
             45"
   23  Then: return
view_2   If: 'view_2
   24  Then: 
   25  Then: b_cfg="(brw=20 xkey=LRX show=pkeep pop=1 fill=asc,top)"
   26  Then: b_hdr="[\b2 Tenant                        Term    Start      End
             Periods   Renew  Notify\a-]"
   27  Then: b_data="*2                             |*8    |*6       |*7
             |*9 |*13      |*14"
   28  Then: return
view_3   If: 'view_3
   29  Then: 
   30  Then: b_cfg="(brw=20 xkey=LRX show=pkeep pop=3,5,-1 fill=asc,top)"
   31  Then: b_hdr="[\b5     Tenant                           Carrier
             From        To  \a-]"
   32  Then: b_data="*2                        |*37
             |*38      |*39"
   33  Then: return
prompt   If: prompt
   34  Then: 
   35  Then: cls("22")
   36  Then: SHOW POPUP("22","-1") "\r L \r Left Scroll  \r R \r Right
             Scroll\n\r V \r-View  \r X \r- End  \kY- \b4 EXIT \a-"
   37  Then: return
declist  If: 'declist
   38  Then: 
   39  Then: declare viewflag(1,.0)
   40  Then: declare b_cfg,b_hdr,b_data