home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
db3ledge.zip
/
MONTH.PRG
< prev
next >
Wrap
Text File
|
1986-01-12
|
908b
|
38 lines
SET HEADING OFF
SET SAFETY OFF
*************************(MONTH.PRG)--JAY KENNEY
CLEAR
RESTORE FROM MTITLE
SET TALK OFF
SET EXACT OFF
CLEAR
USE LEDGER
STORE ' ' TO MON
STORE CMONTH(CKDATE) TO MON
@ 18,15 SAY 'Do you want to run a check register for '+[&MON]+'?'
?
?
STORE ' ' TO OPTION
WAIT ' 'TO OPTION
IF OPTION<>'Y'
CLEA
@ 15,15 SAY 'Press F9 to return to menu....'
RETURN
ENDIF
CLEA
REPORT FORM LIST HEADING [&MON Report;&MTITLE;Detail list by check number ì
] NOEJECT TO PRINT
STORE 0.00 TO MBAL,MPAY,MGROSS,MFEDWITH,MSDI,MFEDPAY,MSTATE
SUM AMTCHK TO MBAL
GO TOP
SORT ON ACCT TO TEMP
USE TEMP
REPORT FORM CKREG HEADING [&MON Report;&MTITLE;Detail list by account ] ì
TO PRINT
REPO FORM SUMMER HEADING [&MON Report;&MTITLE;Compiled list by account] TO PRIN
EJECT
CLEA
@ 15,25 SAY 'Press F9 to return to menu....'
RETURN