home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3plsar.zip
/
INV.PRG
< prev
next >
Wrap
Text File
|
1986-08-04
|
4KB
|
159 lines
SET HEADING OFF
******************** (INV.PRG)
CLEAR
SET SCOREBOARD ON
SET INTE ON
SET DELIM OFF
SET BELL OFF
CALL NUMON.BIN
STORE ' ' TO MNAME
STORE 0.00 TO MAMT,MTOT,MOLD,MOLDY
STORE 0 TO T
STORE 0 TO REC
USE INV
GO BOTT
STORE RECNO() TO REC
STORE REC-1 TO REC
DO WHILE .T.
USE CUST INDEX ACCT
SET CONFIRM ON
STORE ' ' TO MINV
STORE ' ' TO MPO
STORE ' ' TO MACCT
STORE ' ' TO MSALES
SET EXACT ON
CLEAR
@ 4,1 TO 4,79 DOUBLE
@ 6,23 SAY 'Do you want to enter an invoice?'
@ 13,32 SAY 'Last entered:'
IF T<>0
@ 14,T SAY MNAME
ENDIF
@ 15,27 SAY MAMT
@ 17,1 TO 17,79 DOUBLE
?
?
STORE ' ' TO OPTION
WAIT ' Press Y or N 'TO OPTION
IF OPTION='N'
CALL NUMOFF.BIN
CLEA
@ 10,15 SAY 'The first invoice was entered previously'
TYPE LINE.TXT
USE INV
DISP ALL OFF FOR RECNO()>REC 'Account # '+ACCT,'Invoice # ì
'+INVNO,' Price $',+NET,' Date of invoice',NEWDATE
TYPE LINE.TXT
WAIT '.............................Press ì
anything..................................'
CLEA
RETURN
ENDIF
IF OPTION='Y'
STORE ' ' TO MNAME
@ 2,0 CLEAR
@ 6,25 SAY 'Enter account number ' GET MACCT PICTURE 'XXXX'
READ
IF MACCT=' '
CLEA
@ 15,30 SAY 'NO ACCOUNT NUMBER !! '
? CHR(7)
LOOP
ENDIF
FIND &MACCT
STORE SALES TO MSALES
STORE LOWER(TRIM(NAME)) TO MNAME
STORE LEN(TRIM(MNAME)) TO A
STORE ALLPAY TO MTOT
STORE NET TO MNET
IF (EOF() .OR. BOF())
SET TALK ON
@ 2,0 CLEAR
? CHR(007)
@ 6,20 SAY " I can't find an account for # &MACCT "
SET TALK OFF
STORE ' ' TO MNAME
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
LOOP
ENDIF BOF()
USE CUST INDEX ACCT
FIND &MACCT
@ 2,0 CLEAR
TYPE CUST.TXT
@ 2,31 SAY 'Net due $ '+STR(NET,9,2)
@ 5,2 SAY NAME
@ 5,58 SAY ACCT
@ 7,2 SAY ADDRESS
@ 7,58 SAY DISC
@ 9,2 SAY TRIM(CITY)+' ,'+STATE+' '+ZIP
@ 9,62 SAY MTOT
IF OLD_45 > 0.01
STORE OLD_45 TO MOLD
@ 12,1 SAY 'This account is 45 days past due by'
@ 12,36 SAY MOLD
ENDIF
IF DISC='HOLD*COD'
? CHR(7)
SET COLOR TO /W
@ 10,25 SAY DISC
SET COLOR TO W
ENDIF
IF OLD_60 > 25.00
STORE OLD_60 TO MOLDY
@ 12,56 SAY 'Over 60'
SET COLOR TO /W
@ 12,64 SAY MOLDY
SET COLOR TO W
ENDIF
ENDIF
@ 15,25 SAY 'Is this the correct account?'
?
?
WAIT ' ? ' TO OPTION
IF OPTION='N'
LOOP
ENDIF
@ 2,0 CLEAR
USE INV INDEX ACCTS
SET TALK OFF
APPEND BLANK
STORE 0 TO T
STORE LEN(MNAME) TO T
S=T/2
STORE (80-T)/2 TO T
@ 4,T SAY MNAME
TYPE INV.TXT
@ 8,44 GET INVNO
@ 10,44 GET PONO
@ 12,44 GET NEWDATE PICTURE '99/99/99'
@ 14,44 GET PRICE
READ
STORE PRICE TO MAMT
STORE RECNO() TO RECNO
REPLACE NET WITH PRICE
REPLACE PAID WITH .F.
REPLACE ACCT WITH MACCT
REPLACE SALES WITH MSALES
@ 2,(T+S-6) SAY 'Acct #'
@ 2,(T+S+2) SAY MACCT
@ 19,32 SAY 'Is this correct?'
@ 20,0 SAY ' '
WAIT ' ? 'TO OPTION
IF OPTION='N'
EDIT RECNO()
REPLACE NET WITH PRICE
CLEAR
ENDIF
USE CUST INDE ACCT
FIND &MACCT
REPLACE NET WITH NET+MAMT
SET CONFIRM OFF
@ 2,0 CLEAR
STORE UPPER(MNAME) TO MNAME
ENDDO
SET EXACT OFF
RETURN