Hi Ed.
This is the code in my bo_mAccounts in BeforeSave(). Whereas the messagebox() did show the message the coresponding AddToErrorMsg() for this BO does not display the message, just does not do anything due the the RETURN .F. In a different BO BeforeSaveValidation() does show such a message.
<code>
LOCAL llRetVal
llRetVal = DODEFAULT()
IF v_mAccounts.lNoDelete
THIS.AddToErrorMsg("Cannot Delete default records")
*!* = MESSAGEBOX("Cannot Delete default records")
llRetVal = .F.
ENDIF
RETURN llRetVal
</code>
Regards
Bhavbhuti
©2002 Bhavbhuti Nathwani |
