home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
EDITINV.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
2KB
|
96 lines
SET SAFETY OFF
SET DELIM TO ' '
SET DELIM OFF
************************(EDITINV.PRG)-JAY KENNEY-FOR dBaseIII+
CLEAR
SET BELL OFF
SET CONFIRM ON
SET INTE ON
SET TALK OFF
SET EXACT ON
SET HEAD OFF
SET STATUS OFF
SET SCOREBOARD OFF
SET TALK OFF
STORE ' ' TO OPTION
DO WHILE .T.
CLEA
@ 0,23 TO 2,54 DOUBLE
@ 1,25 SAY 'Do you want to edit invoices?'
?
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
CLEA
MACCT=SPACE(4)
@ 9,25 TO 11,54 DOUBLE
@ 10,27 SAY [Enter account number]
@ 10,48 GET MACCT
READ
USE CUST INDE ACCT
FIND &MACCT
IF EOF()
CLEA
@ 10,25 SAY [WHAT?? ]+MACCT+[ HUH??]
@ 9,24 TO 11,50 DOUBLE
@ 6,12 TO 15,60 DOUBLE
@ 4,6 TO 19,70 DOUBLE
@ 1,1 TO 23,79 DOUBLE
LOOP
ENDIF
STORE TRIM(NAME) TO MNAME
STORE TRIM(ADDRESS) TO MADDRESS
STORE NET TO MNET
STORE OLD_30 TO OLD30
STORE OLD_45 TO OLD45
STORE OLD_60 TO OLD60
CLEA
@ 0,0 TO 3,79 DOUBLE
@ 1,2 SAY [# ]+MACCT+[ -- ]+MNAME+[ -- ]+MADDRESS
@ 2,2 SAY [Net due:]+STR(MNET,7,2)+[ Past 30 ]+STR(OLD30,7,2)+[ ì
Past 45 ]+STR(OLD45,7,2)+[ Past 60 ]+STR(OLD60,7,2)
USE INV INDE ACCTS
?
? [ Date Inv.# P.O.# Orig.price Credits Pmts. Due ì
Paid?]
DISPLAY ALL OFF NEWDATE,INVNO,TRIM(PONO),PRICE,;
CRINV,AMTAPPL,NET,' ',PAID FOR ACCT=MACCT
?
STORE ' ' TO MXINV
@ 24,15 SAY 'Edit which invoice? - Blank to return... 'GET MXINV
READ
IF MXINV=' '
LOOP
ENDIF
LOCA FOR INVNO=MXINV
IF EOF()
? [------------============ NOT CORRECT INVOICE FOR CUSTOMER ì
==========-----]
? CHR(7)
LOOP
ENDIF
@ 24,0 CLEA
@ 24,1 GET NEWDATE
@ 24,10 GET INVNO
@ 24,17 GET PONO
@ 24,29 GET PRICE
@ 24,41 GET CRINV
@ 24,52 GET AMTAPPL
@ 24,64 GET NET
@ 24,76 GET PAID
READ
ENDIF
ENDDO
ENDDO
RELEASE ALL
SET BELL ON
SET CONFIRM ON
SET TALK ON
SET INTE ON
SET EXACT ON
SET HEAD ON
SET STATUS ON
SET SCOREBOARD ON
RETURN