LPARAMETERS tnError, tcMethod, tnLine, tcSys16, toErrObj, tcMessage IF m.tnError = 1839 && SQL-Select was cancelled IF VARTYPE(m.plStop) = "L" AND m.plStop * Have we stopped already? this.lRepeatRequery = .f. ELSE * RETRY - doesn't work this.lRepeatRequery = .t. ENDIF ELSE DODEFAULT(m.tnError, m.tcMethod, m.tnLine, m.tcSys16, m.toErrobj, m.tcMessage) ENDIFAnd here is an excerpt from the PopulateCursor method:
LOCAL lnRequeryResult lnRequeryResult = .REQUERY() && requeries the initially selected alias * I found, that requery returns -3 if interrupted - this is not documented in the Help DO WHILE .lRepeatRequery = .t. and m.lnRequeryResult < 0 && the user tried to stop it lnRequeryResult = .requery() * .lRepeatRequery = .f. ENDDO ** What if requery returns 0 - it means some problems with the view>By the way, Nadya
LPARAMETERS nError, cMethod, nLine, tcSys16, toErrObj >IF m.nError = 1839 && Requery cancelled > > IF VARTYPE(m.plStop) = "L" AND m.plStop > * Have we stopped already? > ELSE > RETRY > ENDIF >ELSE > DODEFAULT(nError, cMethod, nLine, tcSys16, toErrObj) >ENDIF>
LPARAMETERS m.tnError, m.tcMethod, m.tnLine, m.tcSys16, m.toErrObj >IF m.tnError = 1839 && Requery cancelled > > IF VARTYPE(m.plStop) = "L" AND m.plStop > * Have we stopped already? > ELSE > RETRY > ENDIF >ELSE > DODEFAULT(m.tnError, m.tcMethod, m.tnLine, m.tcSys16, m.toErrObj) >ENDIF>