View Single Post
  #1 (permalink)  
Old December 6th, 2006, 07:52 AM
mohiddin52 mohiddin52 is offline
Authorized User
 
Join Date: Dec 2003
Location: Vashi, Navi Mumbai, Maharashtra, India.
Posts: 63
Thanks: 0
Thanked 0 Times in 0 Posts
Default 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
Reply With Quote