home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3plsar.zip / ADDIT.PRG < prev    next >
Text File  |  1986-08-04  |  5KB  |  186 lines
  1. ********************************* (ADDIT.PRG)
  2. CLEAR
  3. @ 15,18 SAY 'Do you want to view or delete inactive customers'
  4. STORE ' ' TO OK
  5. WAIT '                                      ?  ' TO OK
  6. IF OK='Y'
  7.    CLEA
  8.    ? '   This is a list of the customers already in the inactive ì
  9. database:'
  10.    USE INACTIVE
  11.    DISP ALL OFF ACCT,NAME,ADDRESS,NEWDATE
  12.    WAIT
  13.    USE CUST
  14.    CLEA
  15.    STORE CTOD('  /  /  ') TO MDATE
  16.    STORE 0 TO NUMB
  17.    SET CONFIRM ON
  18.    @ 6,0 SAY [How long has it been since they've last sent a check in?]
  19.    @ 8,0 SAY [You'll need to decide on a date to look backwards ì
  20. from.]
  21.    @ 10,0 SAY 'This will view inactive customers and give you the ì
  22. option of taking'
  23.    @ 11,0 SAY 'them out of the active customer database.'
  24.    @ 12,0 SAY 'You will also be able to print a list of customers that are inactive.'
  25.    @ 15,15 SAY 'From what date should I look backwards? 'GET MDATE
  26.    READ
  27.    SET TALK ON
  28.    @ 15,0 CLEA
  29.    @ 15,5 SAY MDATE
  30.    COUNT TO NUMB FOR NEWDATE<MDATE
  31.    SET TALK OFF
  32.    ?
  33.    ?
  34.    ? NUMB
  35.    WAIT
  36.    CLEA
  37.    GO TOP
  38.    DISPLAY ALL OFF ACCT,NAME,SUBSTR(ADDRESS,1,12),NEWDATE,NET FOR NEWDATE<MDATE
  39.    STORE ' ' TO PRT
  40.    ?
  41.    WAIT  '                     Do you want to print this list?' TO ì
  42. PRT
  43.    IF PRT='Y'
  44.       CLEA
  45.       GO TOP
  46.       LIST OFF ACCT,NAME,SUBSTR(ADDRESS,1,12),NEWDATE,NET FOR NEWDATE<MDATE ì
  47. TO PRIN
  48.    ENDIF
  49.    STORE 'Y' TO OPTION
  50.    DO WHILE OPTION='Y'
  51.       @ 23,0 CLEA
  52.       WAIT '             Are there any of these you want to take out? ' ì
  53. TO OPTION
  54.       IF OPTION='Y'
  55.          STORE '    ' TO WHO
  56.          @ 24,0 CLEA
  57.          @ 24,0 SAY 'What account please ? ' GET WHO
  58.          READ
  59.          USE INACTIVE
  60.          APPE FROM CUST FOR ACCT=WHO
  61.          USE CUST INDE ACCT
  62.          DELE FOR ACCT=WHO
  63.       ENDIF
  64.    ENDDO
  65.    CLEA
  66.    ?
  67.    ? 'GOOD!...Now I have to ask you to do something for me...ok?'
  68.    ?
  69.    ? 'The next time you go back to the main menu,please take option ì
  70. X and'
  71.    ? 'then press the F8 function key to COMPLETELY remove the ì
  72. customers'
  73.    ? 'you have just marked for deletion.'
  74.    ?
  75.    ? 'Do this and your other programs will run much faster,you can ì
  76. always'
  77.    ? 'bring inactive customers back into CUST.DBF with the command:'
  78.    ? '.USE CUST INDEX ACCT'
  79.    ? [.APPEND FROM INACTIVE FOR ACCT='xxxx']
  80.    ?
  81.    WAIT
  82. ENDIF OK
  83. CLEA
  84. ? '                  Want to continue with the status report '
  85. ?
  86. STORE ' ' TO CONT
  87. WAIT '                                     ?  ' TO CONT
  88. IF CONT<>'Y'
  89.    RETURN
  90. ENDIF
  91. CLEAR
  92. USE INV
  93. STORE 0.00 TO MPRICE,MCRINV,MAMT,MNET
  94. STORE 0.00 TO OVER_30,OVER_45,OVER_60,OVER_90
  95. STORE 0.00 TO MOLDIE
  96. DO WHILE .NOT. EOF()
  97.    SET TALK ON
  98.    SUM PRICE FOR NET=0.00 TO MOLDIE
  99.    SUM PRICE,CRINV,AMTAPPL,NET TO MPRICE,MCRINV,MAMT,MNET
  100.    SUM NET FOR (NEWDATE<=DATE()-30) TO OVER_30
  101.    SUM NET FOR (NEWDATE<=DATE()-45) TO OVER_45
  102.    SUM NET FOR (NEWDATE<=DATE()-60) TO OVER_60
  103.    SUM NET FOR (NEWDATE<=DATE()-90) TO OVER_90
  104.    STORE MOLDIE/MNET*100 TO AA
  105.    STORE OVER_30/MNET*100 TO BA
  106.    STORE OVER_45/MNET*100 TO CA
  107.    STORE OVER_60/MNET*100 TO DA
  108.    STORE OVER_90/MNET*100 TO EA
  109.    SET TALK OFF
  110.    CLEAR
  111.    ? SPACE(35)+DTOC(DATE())
  112.    ?
  113.    ? SPACE(20)+ 'Total shipped in file: $ '+STR(MPRICE,9,2)
  114.    ?
  115.    ? SPACE(20)+ 'Paid invoices in file: $ '+STR(MOLDIE,9,2)+' -- ì
  116. '+STR(AA,5,2)+'%'
  117.    ?
  118.    ? SPACE(20)+ 'Total credits in file: $ '+STR(MCRINV,9,2)
  119.    ?
  120.    ? SPACE(20)+ 'Total payments_______: $ '+STR(MAMT,9,2)
  121.    ?
  122.    ? SPACE(20)+ 'Total net due________: $ '+STR(MNET,9,2)
  123.    ?
  124.    ? SPACE(20)+ 'Over 30 days past due: $ '+STR(OVER_30,9,2)+' -- ì
  125. '+STR(BA,5,2)+'%'
  126.    ?
  127.    ? SPACE(20)+ 'Over 45 days past due: $ '+STR(OVER_45,9,2)+' -- ì
  128. '+STR(CA,5,2)+'%'
  129.    ?
  130.    ? SPACE(20)+ 'Over 60 days past due: $ '+STR(OVER_60,9,2)+' -- ì
  131. '+STR(DA,5,2)+'%'
  132.    ?
  133.    ? SPACE(20)+ 'Over 90 days past due: $ '+STR(OVER_90,9,2)+' -- ì
  134. '+STR(EA,5,2)+'%'
  135.    ?
  136.    ? SPACE(25)+'Want to print this report? '
  137.    ?
  138.    WAIT '                                     ? ' TO CONT
  139.    IF CONT<>'Y'
  140.    ENDDO
  141.    RETURN
  142. ENDIF
  143. SET PRIN ON
  144. SET DEVI TO PRIN
  145. ? SPACE(23)+MTITLE
  146. ? SPACE(33)+DTOC(DATE())
  147. ?
  148. ?
  149. ? SPACE(20)+ 'Total shipped in file: $ '+STR(MPRICE,9,2)
  150. ?
  151. ? SPACE(20)+ 'Paid invoices in file: $ '+STR(MOLDIE,9,2)+' -- ì
  152. '+STR(AA,5,2)+'%'
  153. ?
  154. ?
  155. ? SPACE(20)+ 'Total credits in file: $ '+STR(MCRINV,9,2)
  156. ?
  157. ?
  158. ? SPACE(20)+ 'Total payments_______: $ '+STR(MAMT,9,2)
  159. ?
  160. ?
  161. ? SPACE(20)+ 'Total net due________: $ '+STR(MNET,9,2)
  162. ?
  163. ?
  164. ? SPACE(20)+ 'Over 30 days past due: $ '+STR(OVER_30,9,2)+' -- ì
  165. '+STR(BA,5,2)+'%'
  166. ?
  167. ?
  168. ? SPACE(20)+ 'Over 45 days past due: $ '+STR(OVER_45,9,2)+' -- ì
  169. '+STR(CA,5,2)+'%'
  170. ?
  171. ?
  172. ? SPACE(20)+ 'Over 60 days past due: $ '+STR(OVER_60,9,2)+' -- ì
  173. '+STR(DA,5,2)+'%'
  174. ?
  175. ?
  176. ? SPACE(20)+ 'Over 90 days past due: $ '+STR(OVER_90,9,2)+' -- ì
  177. '+STR(EA,5,2)+'%'
  178. ?
  179. ? SPACE(20)+ '----------------------------------'
  180. ? CHR(12)
  181. ? CHR(12)
  182. SET PRIN OFF
  183. SET DEVI TO SCREEN
  184. ENDDO
  185. RETURN
  186.