>LOCAL llHasNavStand, luResult > >llHasNavStand=thisform.hasnavstand >thisform.hasnavstand=.F. >luResult=DODEFAULT() >thisform.hasnavstand=llHasNavStand > >RETURN luResult >>
******************************************************************** * Description.......: grdAddrStd.AfterRowColChange * Calling Samples...: * Parameter List....: * Created by........: * Modified by.......: Nadya Nosonovsky 07/25/2001 04:33:58 PM ******************************************************************** lparameters nColIndex thisform.lockscreen=.t. local lnReccount, lnRecno lnReccount=reccount('BldMstr') lnRecno=recno('BldMstr') with thisform if this.nCurRec<>m.lnRecno .NavStand.navupdate() .edtNotes.refresh() if .lFieldChanged and .lOkChangeStatus .lockscreen=.t. goto this.nCurRec in BldMstr replace (thisform.AddrField) with '6', ModiType with 'C' && Manually-Resolved goto m.lnRecno in BldMstr this.refresh() endif if .ProcType='prclproc' and .SubProc='ppsitus' and not .lShowStateAddress .RequeryGridSources() endif endif store .f. to .lFieldChanged, .lOkChangeStatus this.statusbartext=space(20)+"Record "+ transform(m.lnRecno)+" of "+ ; transform(m.lnReccount)+ " in BldMstr (Total number of records to process " + ; transform(.nRecords) + ")" endwith *dodefault(m.nColIndex) this.nCurRec=m.lnRecno thisform.lockscreen=.f.