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

 
Output of file : EDITINV.PRG contained in archive : DB3AR.ZIP
SET SAFETY OFF
************************(EDITINV.PRG)
CLEAR
SET BELL OFF
SET CONFIRM ON
SET TALK OFF
SET EXACT ON
DO WHILE .T.
USE B:CUST INDEX B:ACCT
@ 2,0 CLEAR
@ 20,25 SAY 'Want to edit some invoices? '
?
?
STORE ' ' TO OPTION
STORE ' ' TO X
WAIT ' Press Y or N ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
@ 2,0 CLEAR
ACCEPT " Enter acct number " TO X
FIND &X
IF (EOF() .OR. BOF())
@ 2,0 CLEAR
? CHR(7)
@ 6,20 SAY " I can't find an account for # &X ..."
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF (EOF() .OR. BOF())
@ 2,0 CLEAR
@ 6,15 SAY NAME
@ 6,50 SAY ACCT
@ 8,15 SAY ADDRESS
@ 8,50 SAY CITY
IF UCREDIT > 0.00
SET COLOR TO /W
@ 10,15 SAY 'Unapplied credits '
@ 10,32 SAY UCREDIT
SET COLOR TO W
ENDIF
@ 12,15 SAY '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~'
@ 15,25 SAY 'Is this the correct account?'
@ 16,0 SAY ' '
WAIT ' ? ' TO OPTION
IF OPTION='N'
LOOP
ENDIF
@ 2,0 CLEAR
STORE NAME TO MNAME
USE B:INV INDEX B:ACCTS
@ 2,0 CLEAR
@ 15,27 SAY 'Press Ctrl W when finished'
SET TALK OFF
FIND &X
IF (EOF() .OR. BOF())
@ 2,0 CLEAR
? CHR(7)
@ 6,7 SAY " I can't find any invoices for &MNAME ..."
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF (EOF() .OR. BOF())
SET INTENSITY ON
BROWSE FIELDS 
ACCT,INVNO,NEWDATE,PRICE,CRINV,AMTAPPL,NET,PAID,PAYDATE,PONO
SET INTENSITY OFF
@ 2,0 CLEAR
SET HEADING OFF
ENDDO
SET CONFIRM OFF
RETURN



  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DB3AR.ZIP
Filename : EDITINV.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/