home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
billing.zip
/
CLIENTS.PRG
< prev
next >
Wrap
Text File
|
1986-11-11
|
3KB
|
102 lines
*--[ clients.prg ]-- enter, edit client data
SELECT 1
USE client INDEX cltname,cltcode ALIAS clt &&cltname=c_name cltcode=c_code
mc_name=SPACE(30)
RESTORE FROM ccode ADDITIVE
DO WHILE .T.
CLEAR
SET COLOR TO W+
@ 1,18 SAY "Tennessee Data Consulting Accounting System"
@ 2,35 SAY "CLIENT DATA"
@ 23,15 SAY "Leave CLIENT empty to exit to main menu."
SET COLOR TO W
@ 5,5 SAY "CLIENT " GET mc_name PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
READ
IF LEN(TRIM(mc_name))=0
SET SAFETY OFF
SAVE ALL LIKE mc_code TO ccode
SET SAFETY ON
RETURN
ENDIF no data
SEEK TRIM(mc_name)
IF .NOT. FOUND()
new_client=.N.
SET COLOR TO W*+
@ 23,15 SAY "UNABLE TO LOCATE "+TRIM(mc_name)+" - NEW CLIENT [ ]"
SET COLOR TO W
@ 23,COL()-2 GET new_client PICTURE "@L"
READ
@ 23,0
IF new_client
APPEND BLANK
mc_code=mc_code+1
REPLACE c_code WITH mc_code,c_name WITH mc_name
ELSE
LOOP
ENDIF new_client
ENDIF .NOT. FOUND()
ok=.N.
DO WHILE .NOT. ok
@ 5,0 GET c_code PICTURE "###"
@ 5,5 GET c_name PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
@ 5,60 SAY "RATE " GET rate PICTURE "999.99"
@ 8,5 SAY "STREET " GET street PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
@ 9,5 SAY "CITY " GET city PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
@ 9,COL()+2 SAY "STATE " GET state PICTURE "!!"
@ 9,COL()+2 SAY "ZIP " PICTURE "@R 99999-9999" GET zip PICTURE "@R 99999-9999"
@ 10,5 SAY "PHONE " GET phone PICTURE "@R (999)999-9999"
@ 14,5 SAY "CURRENT BALANCE "+STR(current,8,2)
@ 15,5 SAY "OVER 30 DAYS "+STR(over_30,8,2)
@ 16,5 SAY "OVER 60 DAYS "+STR(over_60,8,2)
@ 17,5 SAY "OVER 90+ DAYS "+STR(over_90,8,2)
@ 18,5 SAY " --------"
@ 19,5 SAY "TOTAL DUE "+STR(current+over_30+over_60+over_90,8,2)
@ 22,5 SAY "DATE OF LAST PAYMENT RECEIVED WAS "+DTOC(last_pmt)
READ
@ 23,0
SET COLOR TO W+*
@ 23,15 SAY "IS THE CLIENT DATA APPROVED [ ]"
SET COLOR TO W
@ 23,COL()-2 GET ok PICTURE "@L"
READ
ENDDO WHILE .NOT. ok
@ 3,0 CLEAR
SET COLOR TO W+*
@ 12,15 SAY "REVIEW MEMO [ ]"
SET COLOR TO W
get_memo=.N.
@ 12,COL()-2 GET get_memo PICTURE "@L"
READ
IF get_memo
IF clipper
s=notes+SPACE(256)
ENDIF clipper
CLEAR
SET FORMAT TO cltmemo
READ
IF clipper
REPLACE notes WITH TRIM(s)
ENDIF clipper
CLOSE FORMAT
CLEAR
SET COLOR TO W+
@ 1,18 SAY "Tennessee Data Consulting Accounting System"
@ 2,35 SAY "CLIENT DATA"
SET COLOR TO W
ENDIF get_memo
@ 3,0 CLEAR
another=.N.
SET COLOR TO W*+
@ 12,15 SAY "GET ANOTHER CLIENT? [ ]"
SET COLOR TO W
@ 12,COL()-2 GET another PICTURE "@L"
READ
IF .NOT. another
SET SAFETY OFF
SAVE ALL LIKE mc_code TO ccode
SET SAFETY ON
RETURN
ENDIF .NOT. another
ENDDO WHILE .T.
RETURN &&for use in proc file