Simple Journal Entry program

Submitted by Karthikeyan on

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

Comments

NAVRANG

Feb 17, 2016 - 12:28

Can anybody send me VISUAL FOXPRO data entry form/programe. I want to use it in my office. please sent at [email protected]. thanks

ritesh

Dec 22, 2013 - 00:48

would u plzz show me output window of this prog

Karthikeyan

Dec 07, 2013 - 20:01

In reply to by prem singh

Create jour1.dbf file with necessary fields such as date, particulars, cr, db.

http://livetolearn.in/site/...

prem singh

Dec 05, 2013 - 16:29

how to add jour1.dbf file please help

Recommended :
FoxPro e-Book
  1. FoxPro Programming Quick Reference e-Book (New! Revised Edition)