Foxpro Tutorial and Programs
Even though Foxpro 2.6 was released 18 years ago, still it is used in Offices, Colleges and Universities because of its simplicity.
Even though Foxpro 2.6 was released 18 years ago, still it is used in Offices, Colleges and Universities because of its simplicity.
clear
clea all
set talk off
use jour1
store space(15) to acname
store 0 to r,p, ds, cs, br, bl, mamt
@10,10 say "Account Name" get acname
read
clear
set devi to scre
set print on
set print to ledger.out
@2,2 say replicate("-",75)
@3,3 say "Date"
@3,13 say "Particulars"
@3,28 say "Amount"
@3,41 say "Date"
@3,52 say "Particulars"
@3,67 say "Amount"
@4,2 say replicate("-",75)
@5,28 say [Ledger for ] + alltrim(acname)
@6,28 say "-------------------"
r = 7
p = 7
do while .not. eof()
scan for upper(part1) = upper(alltrim(acname))
@r,2 say date
@r,11 say "To " + part2
CLEA
clea all
set talk off
use jour1
reply = "y"
GO BOTTOM
DO WHILE UPPER(REPLY) = "Y"
STORE 0 TO CRE, DEB
STORE