Local nMemberID
* Hide the following memvar names from upper-level
* program(s).
PRIVATE lcMbrNr, lcMbrNm, lcMbrEm, lcMbrHfon
IF TYPE( 'lcMbrNr' ) <> 'U'
RELEASE lcMbrNr, lcMbrNm, lcMbrEm, lcMbrHfon
ENDIF
PUBLIC lcMbrNr, lcMbrNm, lcMbrEm, lcMbrHfon
* Initialize a new set of vars. '%' is the wildcard character
* for the LIKE operator in SQL. This "default" setting should
* result in collecting zero records in the initial local view
* load.
lcMbrNr = ' '
lcMbrNm = ' '
lcMbrEm = ' '
lcMbrHfon = ' '
= Requery( 'v_Member' )
= Seek( v_Member.MemberID, 'Member', 'MemberID' )