> > SELECT KMartSearsFiles2012
> > SCAN
> > * Get the string. We will need to parse this string out.
> > * The file names are separated with":" at the beginning,
> > * and the end of each file.
> > lcAttachment=":" + ALLTRIM(KMartSearsFiles2012.FileName) + ":"
> > lcMessageDate=KMartSearsFiles2012.Msg_Dt
> > SELECT MySQL_Emails
> > LOCATE FOR ;
> > MySQL_Emails.Recvd_Dt = lcMessageDate AND ;
> > lcAttachment $ MySQL_Emails.Attachment
> > IF FOUND()
> > REPLACE MySQL_Emails.lFound WITH .T.
> > ENDIF
> > ENDSCAN
SET FILTER TO MySQL_Emails.Recvd_Dt = lcMessageDate .AND. lcAttachment $ MySQL_Emails.Attachment
> GOTO TOP
> * --- You can now browse to see if you have the correct recordset and modify the
> * --- filter accordingly until you are happy with the records filtered.
> * --- Now since all your got is your required records.
> REPLACE MySQL_Emails.lFound WITH .T. WHILE .NOT. EOF()
> SET FILTER TO
> GOTO TOP
> * --- Star out browse below after verifying all OK.
* Get the string. We will need to parse this string out.
* The file names are separated with":" at the beginning,
* and the end of each file.
lcAttachment = ":" + ALLTRIM(KMartSearsFiles2012.FileName) + ":"
LOCATE FOR ;
MySQL_Emails.Recvd_Dt = KMartSearsFiles2012.Msg_Dt AND ;
ATC(lcAttachment, MySQL_Emails.Attachment) > 0
REPLACE MySQL_Emails.lFound WITH .T. IN MySQL_Emails