Scrolling Browse - some mods

GCC Consulting gcc at optonline.net
Tue Mar 15 07:36:50 PST 2005


I have been "playing" with this and am posting some of the additions I made.

This routine is for a real estate client's system.  The browse looks to the
tenant master file.

1. First option - how to display records
		a. tenant order
		b. building/tenant

2. Option to toggle between sorts

3. different view screens based on view

4. Find routine to move to a specific tenant

Most of the code is just as John presented it.  All I did was add a few
enhancements based on what my client's requirements are.

Browsing a different type of file may require other types of enhancements from
those I added.

Use your imagination!!!!!!

One could make this work like a spreadsheet with little or no effort.  This is a
way to allow updating records from a browse, which we can't do at present from
IUA.  Just overlay a popup screen over the highlighted line which has dummy
fields corresponding to the real fields and then update the record.

Richard Kreiss
GCC Consulting 


    9  Then: '****************************************************************
   10  Then: end
@entsel  If: '@entsel
   11  Then: 
   12  Then: dim how(2);how["1"]="Tenant Name";how["2"]="Building"
   13  Then: sl(1,.0)=listbox(how)
   14  Then: rifka="\r L \r Left Scroll  \r R \r Right Scroll \r F \r Find"{""
         If: sl = "1"
   15  Then: velvel="\n \r B \r-Building Sort \r V \r-View  \r X \r-End  \kY-
             \b4 EXIT \a-"{""
         If: sl = "2"
   16  Then: velvel="\n \r T \r-Tenant Sort \r V \r-View  \r X \r-End  \kY-
             \b4 EXIT \a-"{""
   17  Then: viewflag="1";  gosub view_1
   18  Then: lv="1"
   19  Then: gosub prompt
browse   If: sl = "1"
   20  Then: lookup ten=ro_tenant  k=lv i=A -ng b=(b_cfg & b_hdr & b_data)
         If: sl = "2"
   21  Then: lookup ten=ro_tenant  k=lv i=B -ng b=(b_cfg & b_hdr & b_data)
         If: @sk = "ENTR"
   22  Then: GOTO browse
         If: @sk eq "BRKY"
   23  Then: exit
         If: @bk eq "X"
   24  Then: EXIT
         If: @bk = "B"
   25  Then: velvel="\n \r T \r-Tenant Sort \r V \r-View  \r X \r-End  \kY-
             \b4 EXIT \a-"{"";sl="2";flag="1";GOSUB prompt;GOTO browse
         If: @bk = "T"
   26  Then: velvel="\n\r B \r-Building Sort \r V \r-View  \r X \r- \b4 End
             \a-"{"";sl="1";flag="2";GOSUB prompt;GOTO browse
         If: @bk = "F"
   27  Then: GOSUB get_nme;GOTO browse
         If: @bk eq "L" or @bk eq "R"
   28  Then: gosub bld_brw;  goto browse
   29  Then: goto browse
bld_brw  If: 'bld_brw
   30  Then: 
         If: @bk eq "L"
   31  Then: viewflag=viewflag - "1"
         If: @bk eq "L" and viewflag eq "0"
   32  Then: viewflag="3"
         If: @bk eq "R"
   33  Then: viewflag=viewflag + "1"
         If: @bk eq "R" and viewflag eq "4"
   34  Then: viewflag="1"
         If: sl = "1"
   35  Then: lv=ten(2)
         If: sl = "2"
   36  Then: lv=ten(1)&ten(2)
   37  Then: GOSUB prompt;gosub (viewflag) of view_1, view_2, view_3
   38  Then: return
view_1   If: 'view_1
   39  Then: 
   40  Then: b_cfg="(brw=20 xkey=LRXFTB show=pkeep pop=1 fill=asc,top)"
   41  Then: b_hdr="[\b5 Tenant                         Building     Suite
             Phone \a-]"
   42  Then: b_data="*2                              *1             *3     *
             45"
   43  Then: return
view_2   If: 'view_2
   44  Then: 
   45  Then: b_cfg="(brw=20 xkey=LRXFTB show=pkeep pop=1 fill=asc,top)"
   46  Then: b_hdr="[\b2 Tenant                        Term    Start      End
             Periods   Renew  Notify\a-]"
   47  Then: b_data="*2                             |*8    |*6       |*7
             |*9 |*13      |*14"
   48  Then: return
view_3   If: 'view_3
   49  Then: 
   50  Then: b_cfg="(brw=20 xkey=LRXFTB show=pkeep pop=3,5,-1 fill=asc,top)"
   51  Then: b_hdr="[\b5     Tenant                           Carrier
             From        To  \a-]"
   52  Then: b_data="*2                        |*37
             |*38      |*39"
   53  Then: return
prompt   If: prompt
   54  Then: 
   55  Then: cls("24")
   56  Then: SHOW POPUP("24","-1") rifka{velvel
   57  Then: return
get_nme  If: '******************************************
   58  Then: '* get tenant name
   59  Then: input popup("20","-1") tname "Enter Tenant Name\nOr press \kZ to
             cancel -> "
         If: tname eq ""
   60  Then: RETURN
   61  Then: lv=tname
         If: sl = "2"        'reset flag to find teneant by name
   62  Then: flag="9";sl="1"
   63  Then: return
declist  If: 'declist
   64  Then: 
   65  Then: declare viewflag(1,.0),flag(1,.0)
   66  Then: declare b_cfg,b_hdr,b_data,rifka,tname(30,lowup),velvel
   67  Then: END
@once    If: '*********************************************
   68  Then: '*
   69  Then: rn(8,.0)="1"
loop     If: 
   70  Then: lookup -  r=rn   -np
         If: locked(-)
   71  Then: rn=rn+"1";GOTO loop
   72  Then: END






More information about the Filepro-list mailing list