home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
300
/
270
/
search1t.prg
< prev
next >
Wrap
Text File
|
1986-05-29
|
4KB
|
158 lines
** Last revision: May 26, 1986 at 13:57
* search1t.prg Detailed Search program
CLOS INDEX
CLEA
@ 10,20 SAY 'SELECT FIELD NUMBER '
@ 12,20 SAY 'ENTER SEARCH DATA '
@ 14,0 SAY ' 1. Tenant 2. Code 3. Unit 4. Address 5. Contact '
@ 15,0 SAY ' 6. Phone 7. Alt Mail 8. Alt Addr 9. Alt City 10. Type '
@ 16,0 SAY '11. Expiration 12. 1st Lease 13. Bank 14. Late Date 15. Last Pmt.'
@ 17,0 SAY '16. Flag 17. Notes 18. Update '
STOR ' ' TO EVAR
DO WHIL VAL(EVAR) < 1 .OR. VAL(EVAR) > 18
@ 10,20 SAY 'SELECT FIELD NUMBER ' GET EVAR PICTURE '99'
READ
ENDD
STOR ' ' TO EPART
@ 12,20 SAY 'ENTER SEARCH DATA ' GET EPART
READ
IF VAL(EVAR) = 1
STOR 'TENANT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 2
STOR 'BCODE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 3
STOR 'TUNIT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 4
STOR 'BADDR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 5
STOR 'TCONTAC' TO PARTFIELD
ENDI
IF VAL(EVAR) = 6
STOR 'TPHONE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 7
STOR 'ALT' TO PARTFIELD
ENDI
IF VAL(EVAR) = 8
STOR 'ALTAD' TO PARTFIELD
ENDI
IF VAL(EVAR) = 9
STOR 'ALTCTY' TO PARTFIELD
ENDI
IF VAL(EVAR) = 10
STOR 'TTYPE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 11
STOR 'TEXPIR' TO PARTFIELD
ENDI
IF VAL(EVAR) = 12
STOR 'TFIRST' TO PARTFIELD
ENDI
IF VAL(EVAR) = 13
STOR 'TSECB' TO PARTFIELD
ENDI
IF VAL(EVAR) = 14
STOR 'TLATE' TO PARTFIELD
ENDI
IF VAL(EVAR) = 15
STOR 'TRENTPD' TO PARTFIELD
ENDI
IF VAL(EVAR) = 16
STOR 'TFLAG' TO PARTFIELD
ENDI
IF VAL(EVAR) = 17
STOR 'TNOTES' TO PARTFIELD
ENDI
IF VAL(EVAR) = 18
STOR 'TUPDATE' TO PARTFIELD
ENDI
STOR TRIM(EPART) TO EPART
STOR .t. TO LOOKING
GO TOP
STOR bcode TO name
LOCA FOR UPPER(EPART) $ UPPER(&PARTFIELD)
DO WHIL LOOKING .AND.(.NOT.EOF())
CLEA
@ 1,26 SAY "DETAILED TENANT SEARCH MODE"
@ 02,0 SAY line
@ 3,2 SAY 'Tenant: Code:'
@ 4,4 SAY 'Unit: Building:'
@ 5,1 SAY 'Contact: Phone:'
@ 6,9 SAY 'Alternate mailing address:'
@ 7,1 SAY 'Address:'
@ 8,4 SAY 'City:'
@ 10,4 SAY 'Type: Addl Percentage: 1st Lease:'
@ 11,4 SAY 'Base: Expiration:'
@ 12,0 SAY 'Security: Bank: Late Date:'
@ 13,4 SAY 'Rent: Late Chgs: Addl Rent:'
@ 14,3 SAY 'G & E: Other Chgs: Total Rent:'
@ 15,0 SAY 'Rent Due: Last Payment: Amt Paid:'
@ 16,0 SAY 'Total Yr: Flag: Total:'
@ 18,3 SAY 'Notes:'
@ 18,51 SAY 'Update:'
@ 19,0 SAY line
STOR trent TO trentx
IF ttype = 'P'
IF (trentpc*(trentpcr/100)/12)>trent
STOR (trentpc*(trentpcr/100)/12) TO trentx
ENDI (trentpc)
ENDI ttype = 'P'
IF ttype = 'O'
STOR ((trentpc*(trentpcr/100)/12)+trent) TO trentx
ENDI ttype = 'O'
STOR (trentx + tlatec + taddl + trente + trentm) TO trentxx
@ 3,10 SAY TENANT
@ 3,59 SAY BCODE
@ 4,10 SAY TUNIT
@ 4,36 SAY BADDR
@ 5,10 SAY TCONTAC
@ 5,59 SAY TPHONE
@ 6,36 SAY ALT
@ 7,10 SAY ALTAD
@ 8,10 SAY ALTCTY
@ 10,10 SAY TTYPE
@ 10,36 SAY TRENTPC PICTURE '99.9999'
@ 10,59 SAY TFIRST
@ 11,10 SAY TRENTPCR PICTURE '999,999,999'
@ 11,59 SAY TEXPIR
@ 12,10 SAY TSEC PICTURE '9,999.99'
@ 12,36 SAY TSECB
@ 12,59 SAY TLATE
@ 13,10 SAY TRENT PICTURE '99,999.99'
@ 13,36 SAY TLATEC PICTURE '99,999.99'
@ 13,59 SAY TADDL PICTURE '99,999.99'
@ 14,10 SAY TRENTE PICTURE '99,999.99'
@ 14,36 SAY TRENTM PICTURE '99,999.99'
@ 14,59 SAY TRENTXX PICTURE '99,999.99'
@ 15,10 SAY TRENTD PICTURE '99,999.99'
@ 15,36 SAY TRENTPD
@ 15,59 SAY TRENTP PICTURE '99,999.99'
@ 16,10 SAY TRENTY PICTURE '99,999.99'
@ 16,36 SAY TFLAG
@ 16,59 SAY TRENTT PICTURE '99,999.99'
@ 18,10 SAY TNOTES
@ 18,59 SAY TUPDATE
STOR bcode TO name
STOR ' ' TO EOPTION
@ 20,15 SAY 'Find <N>ext instance or <S>elect this one'
DO WHIL EOPTION <> 'N' .AND. EOPTION <> 'S'
@ 20,58 GET EOPTION PICTURE '!'
READ
ENDD
IF EOPTION = 'S'
STOR .F. TO LOOKING
LOOP
ENDI
IF EOPTION = 'N'
CONT
LOOP
ENDI
ENDD
SET INDEX TO &dr.:codea
SEEK name
RETU