SCAN IF SEEK(ID,'Resh') REPLACE Resh.BatchNo WITH nBatchNo, ; Resh.Used_By WITH oApp.cUserID ENDIF ENDSCAN