IF mcheck = 0
thisform.command2.Enabled = .t.
mlcl_doc_nm = FoundNumber.doc_number
if this.caption = "Save"
update memos set Memos.FromDoc = mRefDocDispName,;
Memos.FromDocNum = mLCL_DOC_NM,;
Memos.ToWhom = mToAddress,;
Memos.NameOfPat = mRefPatDispName,;
Memos.HealthNum = mHealthCard,;
Memos.Contents = mNOTES;
WHERE Memos.MemoRefNum = EditThisReferralLetter.MemoRefNum
MESSAGEBOX('Changes have been saved.', 0+64+256,'Information')
ELSE
messagebox ('Some of the fields on this form are empty. Please complete the form.',0+64+256,'Information')
ENDIF
ENDIF- Ravi
True greatness consists in being great in little things.
- Charles Simmons