home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / billing / clients.prg < prev    next >
Encoding:
Text File  |  1986-11-11  |  2.8 KB  |  102 lines
  1. *--[ clients.prg ]-- enter, edit client data
  2. SELECT 1
  3. USE client INDEX cltname,cltcode ALIAS clt    &&cltname=c_name cltcode=c_code
  4. mc_name=SPACE(30)
  5. RESTORE FROM ccode ADDITIVE
  6. DO WHILE .T.
  7.     CLEAR
  8.     SET COLOR TO W+
  9.     @ 1,18 SAY "Tennessee Data Consulting Accounting System"
  10.     @ 2,35 SAY "CLIENT DATA"
  11.     @ 23,15 SAY "Leave CLIENT empty to exit to main menu."
  12.     SET COLOR TO W
  13.     @ 5,5 SAY "CLIENT " GET mc_name PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  14.     READ
  15.     IF LEN(TRIM(mc_name))=0
  16.         SET SAFETY OFF
  17.         SAVE ALL LIKE mc_code TO ccode
  18.         SET SAFETY ON
  19.         RETURN
  20.     ENDIF no data
  21.     SEEK TRIM(mc_name)
  22.     IF .NOT. FOUND()
  23.         new_client=.N.
  24.         SET COLOR TO W*+
  25.         @ 23,15 SAY "UNABLE TO LOCATE "+TRIM(mc_name)+" - NEW CLIENT [ ]"
  26.         SET COLOR TO W
  27.         @ 23,COL()-2 GET new_client PICTURE "@L"
  28.         READ
  29.         @ 23,0
  30.         IF new_client
  31.             APPEND BLANK
  32.             mc_code=mc_code+1
  33.             REPLACE c_code WITH mc_code,c_name WITH mc_name
  34.         ELSE
  35.             LOOP
  36.         ENDIF new_client
  37.     ENDIF .NOT. FOUND()
  38.     ok=.N.
  39.     DO WHILE .NOT. ok
  40.         @ 5,0 GET c_code PICTURE "###"
  41.         @ 5,5 GET c_name PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
  42.         @ 5,60 SAY "RATE " GET rate PICTURE "999.99"
  43.         @ 8,5 SAY "STREET " GET street PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
  44.         @ 9,5 SAY "CITY " GET city PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
  45.         @ 9,COL()+2 SAY "STATE " GET state PICTURE "!!"
  46.         @ 9,COL()+2 SAY "ZIP " PICTURE "@R 99999-9999" GET zip PICTURE "@R 99999-9999"
  47.         @ 10,5 SAY "PHONE " GET phone PICTURE "@R (999)999-9999"
  48.         @ 14,5 SAY "CURRENT BALANCE "+STR(current,8,2)
  49.         @ 15,5 SAY "OVER 30 DAYS    "+STR(over_30,8,2)
  50.         @ 16,5 SAY "OVER 60 DAYS    "+STR(over_60,8,2)
  51.         @ 17,5 SAY "OVER 90+ DAYS   "+STR(over_90,8,2)
  52.         @ 18,5 SAY "                  --------"
  53.         @ 19,5 SAY "TOTAL DUE       "+STR(current+over_30+over_60+over_90,8,2)
  54.         @ 22,5 SAY "DATE OF LAST PAYMENT RECEIVED WAS "+DTOC(last_pmt)
  55.         READ
  56.         @ 23,0
  57.         SET COLOR TO W+*
  58.         @ 23,15 SAY "IS THE CLIENT DATA APPROVED [ ]"    
  59.         SET COLOR TO W
  60.         @ 23,COL()-2 GET ok PICTURE "@L"
  61.         READ
  62.     ENDDO WHILE .NOT. ok
  63.     @ 3,0 CLEAR
  64.     SET COLOR TO W+*
  65.     @ 12,15 SAY "REVIEW MEMO [ ]"
  66.     SET COLOR TO W
  67.     get_memo=.N.
  68.     @ 12,COL()-2 GET get_memo PICTURE "@L"
  69.     READ
  70.     IF get_memo
  71.         IF clipper
  72.             s=notes+SPACE(256)
  73.         ENDIF clipper
  74.         CLEAR
  75.         SET FORMAT TO cltmemo
  76.         READ
  77.         IF clipper
  78.             REPLACE notes WITH TRIM(s)
  79.         ENDIF clipper
  80.         CLOSE FORMAT
  81.         CLEAR
  82.         SET COLOR TO W+
  83.         @ 1,18 SAY "Tennessee Data Consulting Accounting System"
  84.         @ 2,35 SAY "CLIENT DATA"
  85.         SET COLOR TO W
  86.     ENDIF get_memo
  87.     @ 3,0 CLEAR
  88.     another=.N.
  89.     SET COLOR TO W*+
  90.     @ 12,15 SAY "GET ANOTHER CLIENT? [ ]"
  91.     SET COLOR TO W
  92.     @ 12,COL()-2 GET another PICTURE "@L"
  93.     READ
  94.     IF .NOT. another
  95.         SET SAFETY OFF
  96.         SAVE ALL LIKE mc_code TO ccode
  97.         SET SAFETY ON
  98.         RETURN
  99.     ENDIF .NOT. another
  100. ENDDO WHILE .T.
  101. RETURN    &&for use in proc file
  102.