home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / db3plsar.zip / CREDIT.PRG < prev    next >
Text File  |  1986-08-04  |  3KB  |  129 lines

  1. ********************** ENTER CREDIT MEMOS.(CREDIT.PRG)
  2. CLEAR
  3. SET CONFIRM ON
  4. SET EXACT ON
  5. STORE '     ' TO Z
  6. DO WHILE .T.    
  7.    @ 2,0 CLEAR
  8.    @ 3,25 SAY 'Do you want to enter a credit? '
  9.    ?
  10.    ?
  11.    STORE ' ' TO PERMIT
  12.    WAIT '                                     ? 'TO PERMIT
  13.    IF PERMIT<>'Y'
  14.       RETURN
  15.    ENDIF
  16.    STORE 0.00 TO MUCR,MCR
  17.    USE INV
  18.    @ 2,0 CLEAR
  19.    @ 3,15 SAY 'Do you want to apply to a particular invoice?  '
  20.    ?
  21.    ?
  22.    STORE ' ' TO ANSWER
  23.    WAIT '                                    ?  'TO ANSWER
  24.    IF ANSWER='Y'
  25.       @ 2,0 CLEAR
  26.       ACCEPT "               Enter invoice number to apply credit to  " TO X
  27.       @ 2,0 CLEAR
  28.       @ 23,28 SAY 'Just a minute'
  29.       LOCATE FOR INVNO=X
  30.       STORE '     ' TO ZACT
  31.       STORE ACCT TO ZACT
  32.       ? ZACT
  33.       IF EOF()
  34.          @ 2,0 CLEAR
  35.          ? CHR(7)
  36.          @ 6,20 SAY "I can't find an invoice # &X... "
  37.          STORE 1 TO XX
  38.          DO WHILE XX<70
  39.             STORE XX+1 TO XX
  40.          ENDDO WHILE XX<70
  41.          @ 2,0 CLEAR
  42.          LOOP
  43.       ENDIF EOF()
  44.       SET CONFIRM ON
  45.       IF NET=0.00
  46.          ?
  47.          ? CHR(7)
  48.          ?
  49.          CLEA
  50.          @ 1,15 SAY 'PAID!-------*-------PAID!----ENTER FULL AMT OF ì
  51. INVOICE AGAIN'
  52.       ENDIF
  53.       @ 2,0 CLEAR
  54.       @ 4,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  55.       @ 6,25 SAY 'Account number:'
  56.       @ 6,44 SAY ACCT
  57.       @ 7,25 SAY 'Date of invoice:'
  58.       @ 7,41 SAY NEWDATE
  59.       @ 8,25 SAY 'Invoice #:'
  60.       @ 8,36 SAY INVNO
  61.       @ 9,25 SAY 'P.O.#:'
  62.       @ 9,35 SAY PONO
  63.       @ 10,25 SAY 'Amount:'
  64.       @ 10,38 SAY PRICE
  65.       @ 11,25 SAY 'Credits:'
  66.       @ 11,38 SAY CRINV
  67.       @ 12,25 SAY 'Payments:'
  68.       @ 12,38 SAY AMTAPPL
  69.       @ 13,25 SAY 'Net Due:'
  70.       @ 13,38 SAY NET
  71.       @ 15,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  72.       @ 17,25 SAY 'Enter amount of credit' GET MCR
  73.       READ
  74.       SET CONFIRM OFF
  75.       REPLACE NET WITH PRICE - MCR
  76.       REPLACE CRINV WITH MCR
  77.       IF NET=0.00
  78.          REPLACE PAID WITH .T.
  79.          REPLACE PAYDATE WITH DATE()
  80.       ENDIF
  81.       SET TALK OFF
  82.       USE CUST
  83.       ? MCR
  84.       LOCA FOR ACCT=ZACT
  85.       REPLACE NET WITH (NET-MCR)
  86.       ? NET
  87.       LOOP
  88.    ENDIF ANSWER='Y'
  89.    IF ANSWER='N'
  90.       USE CUST
  91.       @ 2,0 CLEAR
  92.       ?
  93.       ?
  94.       ?
  95.       ?
  96.       ACCEPT '          This is an unapplied credit,please enter account number   ì
  97. ' TO Z
  98.       LOCATE FOR ACCT=Z
  99.       IF BOF()
  100.          @ 2,0 CLEAR
  101.          @ 6,60 SAY CHR(7)
  102.          @ 6,20 SAY "I can't find an account for # &Z "
  103.          STORE 1 TO XX
  104.          DO WHILE XX<70
  105.             STORE XX+1 TO XX
  106.          ENDDO WHILE XX<70
  107.          LOOP
  108.       ENDIF BOF()
  109.       @ 2,0 CLEAR
  110.       @ 5,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  111.       @ 7,15 SAY 'Account number:'
  112.       @ 7,31 SAY ACCT
  113.       @ 8,15 SAY NAME
  114.       @ 9,15 SAY ADDRESS
  115.       @ 10,15 SAY TRIM(CITY)+' '+TRIM(STATE)+' '+TRIM(ZIP)
  116.       @ 11,15 SAY 'Outstanding unapplied credits:'
  117.       @ 11,46 SAY UCREDIT
  118.       @ 13,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
  119.       @ 15,15 SAY 'Enter amount of unapplied credit' GET MUCR
  120.       READ
  121.       REPLACE UCREDIT WITH MUCR+UCREDIT
  122.       REPLACE NET WITH NET-MUCR
  123.       LOOP
  124.    ENDIF ANSWER='N'
  125. ENDIF PERMIT='Y'
  126. SET EXACT OFF
  127. ENDDO
  128. RETURN
  129.