Simple Journal Entry program

Submitted by Karthikeyan on Mon, 28/09/2009 - 17:08

CLEA
clea all
set talk off
use jour1
reply = "y"
GO BOTTOM
	DO WHILE UPPER(REPLY) = "Y"
	STORE 0 TO CRE, DEB
	STORE SPACE(10) TO P1, P2
	STORE SPACE(15) TO NR
	STORE CTOD("  / /  ") TO DATE1
	@4,10 SAY [DATE :] GET DATE1
	@6,10 SAY [PARTICULAR1 :] GET P1
	@6,45 SAY [DEBIT :] GET DEB
	@8,10 SAY [PARTICULAR2 :] GET P2
	@8,45 SAY [CREDIT :] GET CRE
	@12,10 SAY [NARRATION :] GET NR
	READ
	APPEND BLANK
	@18,10 SAY [DO U CONTINUE(Y/N)?] GET REPLY
	READ
	REPL DATE WITH DATE1
	REPL PART1 WITH P1
	REPL PART2 WITH P2
	REPL NAR WITH NR
	REPL DEBIT WITH DEB
	REPL CREDIT WITH CRE
ENDDO
CLEAR
SET DEVI TO SCRE
SET PRINT ON
SET PRIN TO RESUME1.OUT
@2,30 SAY "JOURNAL ENTRIES"
@3,0 SAY REPLICATE ("-",75)
@4,5 SAY "DATE"
@4,18 SAY "PARTICULARS"
@4,48 SAY "DEBIT"
@4,58 SAY "CREDIT"
@5,0 SAY REPLICATE ("-",75)
GO TOP

ROW = 6
DO WHILE .NOT. EOF()
@ROW,6 SAY DATE
@ROW,19 SAY PART1 +[ DR]
@ROW+1,19 SAY [TO ]+PART2
@ROW+2,19 SAY [ (BEING ] +NAR+ [)]
@ROW,45 SAY DEBIT
@ROW+1, 55 SAY CREDIT
IF ROW >18
WAIT ""
@6,0 CLEAR
ROW = 6
ELSE
ROW = ROW + 3
ENDIF
SKIP
ENDDO
SET DEVI TO SCRE
SET PRIN TO
SET PRIN OFF
Screenshots

FoxPro Journal Entry - Database

FoxPro Journal Entry

FoxPro Journal Entry - View