Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : CREDIT.PRG

 
Output of file : CREDIT.PRG contained in archive : DB3AR.ZIP
********************** ENTER CREDIT MEMOS.(CREDIT.PRG)
CLEAR
SET CONFIRM ON
SET EXACT ON
DO WHILE .T.
@ 2,0 CLEAR
@ 3,25 SAY 'Do you want to enter a credit? '
?
?
STORE ' ' TO PERMIT
WAIT ' ? 'TO PERMIT
IF PERMIT<>'Y'
RETURN
ENDIF
STORE 0.00 TO MUCR,MCR
USE B:INV
@ 2,0 CLEAR
@ 3,15 SAY 'Do you want to apply to a particular invoice? '
?
?
STORE ' ' TO ANSWER
WAIT ' ? 'TO ANSWER
IF ANSWER='Y'
@ 2,0 CLEAR
ACCEPT " Enter invoice number to apply credit to " TO X
@ 2,0 CLEAR
@ 23,28 SAY 'Just a minute'
LOCATE FOR INVNO=X
IF EOF()
@ 2,0 CLEAR
? CHR(7)
@ 6,20 SAY "I can't find an invoice # &X... "
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
@ 2,0 CLEAR
LOOP
ENDIF EOF()
SET CONFIRM ON
IF NET=0.00
?
? CHR(7)
?
CLEA
@ 1,15 SAY 'PAID!-------*-------PAID!----ENTER FULL AMT OF 
INVOICE AGAIN'
ENDIF
@ 2,0 CLEAR
@ 4,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 6,25 SAY 'Account number:'
@ 6,44 SAY ACCT
@ 7,25 SAY 'Date of invoice:'
@ 7,41 SAY NEWDATE
@ 8,25 SAY 'Invoice #:'
@ 8,36 SAY INVNO
@ 9,25 SAY 'P.O.#:'
@ 9,35 SAY PONO
@ 10,25 SAY 'Amount:'
@ 10,38 SAY PRICE
@ 11,25 SAY 'Credits:'
@ 11,38 SAY CRINV
@ 12,25 SAY 'Payments:'
@ 12,38 SAY AMTAPPL
@ 13,25 SAY 'Net Due:'
@ 13,38 SAY NET
@ 15,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 17,25 SAY 'Enter amount of credit' GET MCR
READ
SET CONFIRM OFF
REPLACE NET WITH PRICE - MCR
REPLACE CRINV WITH MCR
IF NET=0.00
REPLACE PAID WITH .T.
REPLACE PAYDATE WITH DATE()
ENDIF
LOOP
ENDIF ANSWER='Y'
IF ANSWER='N'
USE B:CUST
@ 2,0 CLEAR
?
?
?
?
ACCEPT ' This is an unapplied credit,please enter account number 
' TO Z
*!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
LOCATE FOR ACCT=Z
IF BOF()
@ 2,0 CLEAR
@ 6,60 SAY CHR(7)
@ 6,20 SAY "I can't find an account for # &Z "
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF BOF()
@ 2,0 CLEAR
@ 5,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 7,15 SAY 'Account number:'
@ 7,31 SAY ACCT
@ 8,15 SAY NAME
@ 9,15 SAY ADDRESS
@ 10,15 SAY TRIM(CITY)+' '+TRIM(STATE)+' '+TRIM(ZIP)
@ 11,15 SAY 'Outstanding unapplied credits:'
@ 11,46 SAY UCREDIT
@ 13,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 15,15 SAY 'Enter amount of unapplied credit' GET MUCR
READ
REPLACE UCREDIT WITH MUCR+UCREDIT
LOOP
ENDIF ANSWER='N'
ENDIF PERMIT='Y'
RETURN
SET EXACT OFF


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : CREDIT.PRG

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/