home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Du Jour
/
SoftwareDuJour.iso
/
BUSINESS
/
DBASE
/
DBASII.ARC
/
BLANK.PRG
< prev
next >
Wrap
Text File
|
1980-01-01
|
10KB
|
411 lines
* WRITER COMMAND FILE
* WRITES CHECKS FROM ACCFILE & PAYOUT FILES
* WARREN MCKENNA 07/12/82
* SET SCREEN OFF
SET PRINT ON
SET CONSOLE OFF
STORE 1 TO CT
STORE CHECK:NO+1 TO CHECK:NO
? " "
STORE STR(MPAYMENT,12,2) TO MDOLLARS
DO WHILE $(MDOLLARS,CT,1) = ' '
STORE CT+1 TO CT
ENDDO
STORE $(MDOLLARS,CT,12) TO MDOLLARS
? " "
? " "
? " "
? " "
? DUEDATE+' '+DESCRIPT+' $'+;
$(MDOLLARS,1,LEN(MDOLLARS))
? ' '+MMESSAGE
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? " "+ACCNO
??" "+LOANNUM
? " "
? ' '+CHR(31)+' THE SUM OF $'+;
$(MDOLLARS,1,LEN(MDOLLARS)-3)
?? 'DOLS AND'
?? $(STR(MPAYMENT,12,2),11,2)
?? 'CENTS'+CHR(30)
? ' '
? ' '
? ' '+;
DUEDATE+' $'+;
$(MDOLLARS,1,LEN(MDOLLARS))
? " "
? " "+TRIM(FPAYEE)+TRIM(LPAYEE)
? " "+TRIM(ADDRESS1)
IF $(ADDRESS2,1,1) <> ' '
? ' '+TRIM(ADDRESS2)
? ' '+TRIM(CITY:STATE)+' '+ZIP
? ' '
? ' '
? ' '
? ' '
? ' '+CITY:STATE+' '+ZIP
? ' '
? ' '
? ' '
? ' '
? ' '
SET PRINT OFF
SET CONSOLE ON
RETURN
TES CHECKS FROM ACCFILE & PAYOUT FILES
* WARREN MCKENNA 07/12/82
* SET SCREEN OFF
STORE CHR(14) TO ST
STORE CHR(15) TO SP
STORE 0 TO CT
SET TALK OFF
ERASE
SELECT PRIMARY
USE PAYOUT INDEX PACC
GO TOP
SELECT SECONDARY
USE ACCFILE INDEX JACCT
GO TOP
SET SCREEN OFF
? CHR(14)
SET SCREEN ON
ACCEPT ' DUE DATE OF CHECK ' TO KEY
ACCEPT ' MESSAGE TO PRINTED ON CHECKS ' TO MMESSA SC
)) TO Myr
IF (MMonth*30)+(
WAIT
STORE F TO LOOKING
RETURN
ELSE 3
ENDIF 7
ENDIF 6
ELSE 4
IF S.BALANCE < P.MPAYMENT 2
@ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
WAIT
STORE F TO LOOKING
RETURN
ELSE 5
SELECT SECONDARY
STORE STR(#,5) TO REC
REPLACE BALANCE WITH BALANCE-MPAYMENT
SELECT PRIMARY
(MMonth*30)+(
WAIT
STORE F TO LOOKING
RETURN
ELSE 3
ENDIF 7
ENDIF 6
ELSE 4
IF S.BALANCE < P.MPAYMENT 2
@ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
WAIT
STORE F TO LOOKING
RETURN
ELSE 5
SELECT SECONDARY
STORE STR(#,5) TO REC
REPLACE BALANCE WITH BALANCE-MPAYMENT
SELECT PRIMARY
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? " "+ACCNO
??" "+LOANNUM
? " "
? ' '+CHR(31)+' THE SUM OF $'+;
$(MDOLLARS,1,LEN(MDOLLARS)-3)
?? 'DOLS AND'
?? $(STR(MPAYMENT,12,2) ? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? " "+ACCNO
??" "+LOANNUM
? " "
? ' '+CHR(31)+' THE SUM OF $'+;
$(MDOLLARS,1,LEN(MDOLLARS)-3)
?? 'DOLS AND'
?? $(STR(MPAYMENT,12,2) ELSE 6
? ' '+CITY:STATE+' '+ZIP
? ' '
? ' '
? ' '
? ' '
? ' '
SET PRINT OFF
SET CONSOLE ON
ENDIF 4
SELECT SECONDARY
USE B:POSTFILE
APPEND BLANK
REPLACE REFERENCE WITH MMESSAGE
REPLACE REFDATE WITH DUEDATE
REPLACE AMOUNT WITH MPAYMENT*-1
REPLACE ACCNO WITH P.ACCNO
REPLACE PAYEE WITH LPAYEE
REPLACE TRAN2) ELSE 6
? ' '+CITY:STATE+' '+ZIP
? ' '
? ' '
? ' '
? ' '
? ' '
SET PRINT OFF
SET CONSOLE ON
ENDIF 4
SELECT SECONDARY
USE B:POSTFILE
APPEND BLANK
REPLACE REFERENCE WITH MMESSAGE
REPLACE REFDATE WITH DUEDATE
REPLACE AMOUNT WITH MPAYMENT*-1
REPLACE ACCNO WITH P.ACCNO
REPLACE PAYEE WITH LPAYEE
REPLACE TRANE STR(MMONTH,2,0)+$(DUE,3,4)+MYR TO NEWMONTH
REPLACE P.DUEDATE WITH NEWMONTH
SELECT SECONDARY
USE ACCFILE INDEX JACCT
&REC
SELECT PRIMARY
&RECORD
SKIP
ENDIF 5
ENDIF 3
ELSE 7
SELECT PRIMARY
SKIP
ENDIF 2
ENDDO LOOKING
ENDIF 1
ERASE
@ 12,10 SAY ST+' ALL CHECKS PRINTED FOR THAT DATE '
@ 13,10 SAY ' RETURNING TO MENU '+SP
RETURN
REPLACE TRANE STR(MMONTH,2,0)+$(DUE,3,4)+MYR TO NEWMONTH
REPLACE P.DUEDATE WITH NEWMONTH
SELECT SECONDARY
USE ACCFILE INDEX JACCT
&REC
SELECT PRIMARY
&RECORD
SKIP
ENDIF 5
ENDIF 3
ELSE 7
SELECT PRIMARY
SKIP
ENDIF 2
ENDDO LOOKING
ENDIF 1
ERASE
@ 12,10 SAY ST+' ALL CHECKS PRINTED FOR THAT DATE '
@ 13,10 SAY ' RETURNING TO MENU '+SP
RETURN
yr
IF (MMonth*30)+(
WAIT
STORE F TO LOOKING
RETURN
ELSE 3
ENDIF 7
ENDIF 6
ELSE 4
IF S.BALANCE < P.MPAYMENT 2
@ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
WAIT
STORE F TO LOOKING
RETURN
ELSE 5
SELECT SECONDARY
STORE STR(#,5) TO REC
REPLACE BALANCE WITH BALANCE-MPAYMENT
yr
IF (MMonth*30)+(
WAIT
STORE F TO LOOKING
RETURN
ELSE 3
ENDIF 7
ENDIF 6
ELSE 4
IF S.BALANCE < P.MPAYMENT 2
@ 12,18 SAY ST+' NON-SUFFICIENT FUNDS TO COVER AMOUNT OF CHECK '+SP
WAIT
STORE F TO LOOKING
RETURN
ELSE 5
SELECT SECONDARY
STORE STR(#,5) TO REC
REPLACE BALANCE WITH BALANCE-MPAYMENT
SELECT PRIMARY
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? " "+ACCNO
??" "+LOANNUM
LSE 5
SELECT SECONDARY
STORE STR(#,5) TO REC
REPLACE BALANCE WITH BALANCE-MPAYMENT
SELECT PRIMARY
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? ' '
? " "+ACCNO
??" "+LOANNUM
" "
? ' '+CHR(31)+' THE SUM OF $'+;
$(MDOLLARS,1,LEN(MDOLLARS)-3)
?? 'DOLS AND'
?? $(STR(MPAYMENT,12,2) ELSE 6
? ' '+CITY:STATE+' '+ZIP
? ' '
? ' '
? ' '
? ' '
? ' '
SET PRINT OFF
SET CONSOLE ON
ENDIF 4
SELECT SECONDARY
USE B:POSTFILE
APPEND BLANK
REPLACE REFERENCE WITH MMESSAGE
REPLACE NNUM
" "
? ' '+CHR(31)+' THE SUM OF $'+;
$(MDOLLARS,1,LEN(MDOLLARS)-3)
?? 'DOLS AND'
?? $(STR(MPAYMENT,12,2) ELSE 6
? ' '+CITY:STATE+' '+ZIP
? ' '
? ' '
? ' '
? ' '
? ' '
SET PRINT OFF
SET CONSOLE ON
ENDIF 4
SELECT SECONDARY
USE B:POSTFILE
APPEND BLANK
REPLACE REFERENCE WITH MMESSAGE
REPLACE FDATE WITH DUEDATE
REPLACE AMOUNT WITH MPAYMENT*-1
REPLACE ACCNO WITH P.ACCNO
REPLACE PAYEE WITH LPAYEE
REPLACE TRANE STR(MMONTH,2,0)+$(DUE,3,4)+MYR TO NEWMONTH
REPLACE P.DUEDATE WITH NEWMONTH
SELECT SECONDARY
USE ACCFILE INDEX JACCT
&REC
SELECT PRIMA
