>Select Subledger >Go Top >Scan While .Not. Eof() >If Left(Vrno,2)=="J-" >Alldata_Vrno=Vrno >Select Journal >Locate For Vrno==Alldata_Vrno >If Found()=.T. >SumNaration=Naration1+Naration2+Naration3+Naration4+Naration5 >Endif >Select Subledger >Replace Details With SumNaration >Endif >ENDSCAN >>