PUBLIC mWhoIsTheUser, mUserLogKey, mWhenWasFormAccessed, mWhichFormWasAccessed,; >mTillWhen, mUserReferenceNumber > >mUserReferenceNumber = "" >mWhoIsTheUser = "" >mUserLogKey = 0 > >etc.... > >* I now select the required info including the reference number. >select * from login into cursor templogin nofilter ; > where login.user == upper(alltrim(mprogramuser)) > > mUserLastName = templogin.last_name > mUserFirstName = templogin.first_name > mLoginDate = date() > mLoginTime = time() > mUserReferenceNumber = templogin.reference > > etc..>
SELECT ALLTRIM(PROPER(Last_name))+", "+ALLTRIM(PROPER(first_name)) as UserFullName, ; > reference from Login INTO CURSOR NameOfTheUser nofilter; > WHERE (Login.reference) = (mUserReferenceNumber) > >mMessengerName = NameOfTheUser.UserFullName > >SELECT * from Messages INTO CURSOR ViewMessages nofilter; > WHERE ALLTRIM(PROPER(Messages.Recipient)) == ALLTRIM(PROPER(mMessengerName)) > >mMessageDate = ViewMessages.DateSent >mSender = ViewMessages.Sender>