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' )