>if not LenderRevInit(m.tcFileName) > if vartype(oJC)='O' > oJC.CurAppStat='I' > endif >* set flag to abort due to failure to perform proper database setup > return .f. >endif > >with thisform > .lockscreen=.t. > locate for !empty(BldMstr.LName) > if !found() > = messagebox('No record to process!) > if vartype(oJC)='O' > oJC.CurAppStat='I' > endif >* set flag to abort due to failure to perform proper database setup > return .f. >endif>