Thanks a lot. It worked. However I tried the same SQl on another similar code, but it didn't worked. Please Guide Again

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

Regards




>>I am Using the following code to Update Subledger.DBF file from Schedule.DBF.
>>Kindly provide me Equivalent SQL to do the same. Currently I am using the following code.
>>
>>

>>
>>******UPDATE SUBLEDGER DETAILS*******
>>Goto Top
>>Scan While .Not. Eof()
>>T_Newcode=Left(Accode,3)+"0000"
>>
>>Select Schedule
>>Locate For newcode=T_Newcode
>>If Found()=.T.
>>T_desc=Desc
>>Else
>>T_desc="Account Code Missing"
>>Endif
>>Select Subledger
>>Replace Schedule With T_desc
>>Endscan
>>
>>

>>
>>Regards
>>Harsh
>

>UPDATE SubLedger SET Schedule = NVL(Sch.DESC, "Account Code Missing")
>FROM SubLedger LEFT JOIN Schedule Sch ON Sch.NewCode = LEFT(SubLedger.AcCode,3) + '0000'