want sample code
I write the small foxpro prg the same thing iwant in access how should writ the code in click event below my foxpro prg
close all
clear
set stat off
set talk off
set safe off
set cent on
set date brit
sele a
use intcal
store 0 to mob,madd,mrec,mcb
store date() to mdop
@ 10,10 say [Enter Amount of Advance : ] get madd pict '9,99,999'
@ 12,10 say [Enter Date of Payment : ] get mdop
read
mdor=mdop
@ 14,10 say [Enter Date of Recovery : ] get mdor
@ 16,10 say [Enter Rate of Recovery : ] get mrec pict '9,99,999'
read
do while mrec>0
appe blank
repl ob with mcb
repl add with madd
if mdor<=mdop
if mcb+madd>mrec
repl recovery with mrec
else
repl recovery with mcb
mrec=0
endif
endif
repl cb with ob+add-recovery
repl date with mdop
mcb=mcb+add-recovery
mdop=gomo(mdop,1)
madd=0
enddo
close all
clear
set stat on
set talk on
set safe on
retu
__________________
Mohamed Mohiddin
Officer
|