All pastes #122285 Raw Edit

rond

public text v1 · immutable

·published 2006-08-08 16:05 UTC

LOCAL nResult

WITH THISFORM
   .pgfSearchGridEdit.page1.grdSearchResults.RECORDSOURCE = ""
   nResult = .oBizObj.oWipMaster.mgetjobs("csJobList",ALLTRIM(TRANSFORM(this.txtSearch.Value)))
   IF nResult = 0
      WAIT WINDOW "No records corresponding to criteria have been found." NOWAIT
      .lisrecs = .f.
   ELSE
      .lisrecs = .t.
      .mSetGrid()
   ENDIF
   .ncurrentformmode = 0 && view mode
   .mtoggleobjs()
ENDWITH