> >******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 > >>
UPDATE SubLedger SET Schedule = NVL(Sch.DESC, "Account Code Missing") FROM SubLedger LEFT JOIN Schedule Sch ON Sch.NewCode = LEFT(SubLedger.AcCode,3) + '0000'