Select 6
 Goto Top
 Do While !Eof()
     tcode = code
     Select 7
     Set Order To refno
     Set Filter To code=tcode and date<=thisform.adate.value AND month=>thisform.monthfm.value and month=<thisform.monthto.value
     Sum debit To mdr 
     Sum credit To mcr 
     Select 6
     Replace dr With dr+mdr
     Replace cr With cr+mcr
     Skip
 Enddo