if seek(m.tcMailID, "MAIL_BODY","Parent_ID") laJunk[1,1]=Mail_Body.Mail else * Error processing endifYou need to find the root of the problem. it could be a corrupted table, or difference in ID & Parent_ID fields, etc.
>select nvl(B.Mail, ccMailNoBodyText) as MAIL, A.ACCOUNT ; > from MAILS A left outer join ccMailBodyAlias B ; > on B.PARENT_ID = A.ID; > where A.ID = tcMailID; > into array laJunk > > if _Tally > 0 and laJunk[1,1] = ccMailNoBodyText > *-- This one missed. the head-record is there but the > *-- body is missing. Try another way > > select ; > nvl(MAIL_BODY.MAIL, ccMailNoBodyText) as MAIL, ; > MAILS.ACCOUNT ; > from MAILS left outer join MAIL_BODY ; > on MAILS.ID = MAIL_BODY.PARENT_ID; > where MAILS.ID = tcMailID; > into array laJunk > > *-- And keep something for the protocol > this.cErrorText = "LoadMessage, 2. Try"+ CRLF > >endif > >*-- One or the other hits at least found the head-Record >if _tally > 0 > lcMailText = laJunk[1,1] > lcAccountID= laJunk[1,2] > > if empty(lcMailText) or lcMailText = ccMailNoBodyText > this.cErrorText = this.cErrorText + ; > "Body missing ("+ trans(set("Refresh",1)) +","+ trans(set("Refresh",2)) +")" > llRetVal = .F. > endif >endif >>