*********************************************
select 1
  m.no=no
  month1=month1
  m.year1=year1
  m.dd= month(date())
  m.ff=year(date())

    set filter to  month1=m.dd .and. year1=m.ff
       go top
do while .t.

   thisform.text3.value=dat
   thisform.text1.value=total
   thisform.text6.value=month1
   thisform.text32.value=year1
   thisform.text2.value=amount1
************************************
   select 4
       *use temp2
     append blank
            replace no with m.no
            replace m1 with thisform.text6.value
            replace amount1 with thisform.text2.value
            replace year1 with thisform.text32.value
  select 1
    skip  &&  i get here  end of file counterd som times  
     m.no=no
   if eof()
      exit
  endif
enddo


select 4
report form tab3 preview
zap