>>*********************************************** >>* Description.......: AddrStdMain.UpdateBldMstrRecords >>* Calling Samples...: >>* Parameter List....: tcMode >>* Created by........: Nadya Nosonovsky 12/14/2001 04:22:39 PM >>* Modified by.......: Nadya Nosonovsky 01/28/2002 03:08:13 PM >>******************************************************************** >>lparameter tcMode >>if vartype(m.tcMode)<>"C" >> tcMode = 'Cur' >>else >> tcMode = proper(m.tcMode) >>endif >>local lnRecno, lcAddress, lcExact, lnNewRecno >>select BldMstr >>lnRecno=recno('BldMstr') >>lcExact = set('exact') >>set exact off && Need for partial search >>wait window nowait "Wait while replacing..." >>with thisform >> .lockscreen=.t. >> do case >> case (.ProcType='prclproc' and .SubProc='ppsitus') ; >> or inlist(.ProcType,'siteproc','trxnproc') >> if m.tcMode = 'Cur' && Current record only >> replace AddrStatS with '6', ; && Manual-Resolved >> Street with proper(Streets.Street), ModiType with 'C' in BldMstr >> else >> lcAddress = upper(BldMstr.ccode+BldMstr.town+BldMstr.Street) >> replace AddrStatS with '6', ; && Manual-Resolved >> Street with proper(Streets.Street), ModiType with 'C' ; >> for upper(ccode+town+Street+str(StNum,4)+StNumExt+Unit) = m.lcAddress in BldMstr >> endif >>*ccode with Streets.ccode, town with Streets.town, ; >> >> case (.ProcType='prclproc' and .SubProc='ppowner') or .ProcType='ownrproc' >> if m.tcMode = 'Cur' && Current record only >> replace OwnerCity with proper(Streets.City), OwnerState with Streets.State, ; >> AddrStatO with '6', ; && Manual-Resolved >> OwnerStrt with proper(Streets.Street), ModiType with 'C' in BldMstr >> else >> lcAddress = upper(BldMstr.OwnerState+BldMstr.OwnerCity+BldMstr.OwnerStrt) >> replace OwnerCity with proper(Streets.City), OwnerState with Streets.State, ; >> AddrStatO with '6', ; && Manual-Resolved >> OwnerStrt with proper(Streets.Street), ModiType with 'C' ; >> for upper(OwnerState+OwnerCity+OwnerStrt+str(OwnerStNum,4)+OwnerStNumExt+OwnerUnit) ; >> = m.lcAddress in BldMstr >> endif >> endcase >> lnNewRecno = recno('BldMstr') >> if m.lcExact='ON' >> set exact on && Restore exact >> endif >> if .EditMode >> .add() && Save records >> endif >> .MoveNextRecord(m.lnRecno) >> .navstand.navUpdate() >> .grdBldMstr.AfterRowColChange() >> .lockscreen=.f. >>endwith >>wait clear>>
>>******************************************************************** >>* Description.......: AddressForm.MoveNextRecord >>* Calling Samples...: >>* Parameter List....: tnRecno >>* Created by........: Nadya Nosonovsky 08/21/2001 03:44:58 PM >>* Modified by.......: Nadya Nosonovsky 10/03/2001 02:08:21 PM >>******************************************************************** >>lparameter tnRecno >>if !eof() >> skip >> if recno()= m.tnRecno && we're still on the same record >> if !eof() >> skip >> else >> if !bof() >> skip -1 >> endif >> endif >> endif >>else >> if !bof() >> skip -1 >> endif >> if recno()= m.tnRecno && we're still on the same record >> if !bof() >> skip -1 >> else >> if !eof() >> skip >> endif >> endif >> endif >>endif >>if eof() >> if !bof() >> skip -1 >> endif >>endif>>