thisform.grdBldMstr.SetAll('DynamicForeColor','thisform.myForeColor(BldMstr.'+thisform.addrfield+')','column).
>******************************************************************** >* Description.......: grdAddrStd.AfterRowColChange >* Calling Samples...: >* Parameter List....: >* Created by........: >* Modified by.......: Nadya Nosonovsky 06/29/2001 11:23:00 PM >******************************************************************** >lparameters nColIndex >local lnReccount, lnRecno >lnReccount=reccount('BldMstr') >lnRecno=recno('BldMstr') >with this > *.parent.grdHglt1.Highlight_Row() > if .nCurRec<>m.lnRecno > .nCurRec=m.lnRecno > thisform.NavStand.navupdate() > thisform.edtNotes.refresh() > if thisform.ProcType='prclproc' > if thisform.grdSitus.visible or thisform.grdOwner.visible > thisform.RequeryGridSources() > endif > endif > endif > .statusbartext=space(20)+"Record "+ transform(m.lnRecno)+" of "+ transform(m.lnReccount)+ ; > " in BldMstr" >endwith>
******************************************************************** >* Description.......: AddrStdMain.RequeryGridSources() >* Calling Samples...: >* Parameter List....: >* Created by........: Nadya Nosonovsky 06/30/2001 01:26:29 PM >* Modified by.......: >******************************************************************** >lparameter tnPropID >if vartype(m.tnPropID)<>"N" > tnPropID=BldMstr.PropID >endif >local lcDBC >if vartype(oJC)='O' && Normal case > lcDBC=oJC.CurState >else > lcDBC='MA' && for test purposes >endif >set step on >with thisform > if .grdSitus.visible > .grdSitus.recordsource='' > select iif(prefcode='P',padr('Primary',11),'Alternative') as AddressType, ; > ccode, town, StNum, StNumExt, Street, LotCode, Unit, ZipCode ; > from (m.lcDBC+'!SiteMstr') where PropID=m.tnPropID ; > order by AddressType descending ; > into cursor curSitus > .grdSitus.recordsource='curSitus' > select BldMstr > endif > if .grdOwner.visible > .grdOwner.recordsource='' > select ownerstnum, ownerStExt, OwnerStrt, OwnerUnit, OwnerCity, ; > OwnerState, OwnerZip5, OwnerCtry ; > from (m.lcDBC+'!OwnrAddr') where PropID==m.tnPropID ; > into cursor curOwner > .grdOwner.recordsource='curOwner' > select BldMstr > endif >endwith>