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