General information
Title:
My BeforeNew() method is ignored
I've the following hierarchy of form classes:
cBizObjForm (cForms.vcx)
...|
...+->iBizObjForm (iForms.vcx)
.........|
.........+->SBTBizObjForm (SBTForms.vcx)
...............|
...............+->aUserMaintForm (aForms.vcx)
Each of these clases have a user defined method called BeforeNew() whose function is serve as a pre-hook to the creation of a new record in the data environment. I've specified the BeforeNew() method in SBTBizObjForm as:
LOCAL llResult
llResult = DODEFAULT()
IF llResult
...THIS.SetEditState(clTRUE)
ENDIF
RETURN llResult
The problem stands on the fact that I can't get the BeforeNew() method to be executed. I traced the program execution with the debugger but when it arrives to cBizObjForm::New() it ignores the call to THIS.BeforNew() as if it were empty.
The portion of code I'm talking about follows:
* Method: cBizObjForm::New()
IF !This.BeforeNew()
...RETURN FILE_CANCEL
ENDIF
LOCAL lnRetVal
This.LockScreen = .T.
lnRetVal = FILE_OK
...
RETURN lnRetVal
Any clue of what I'm overlooking? Please?
Thank you for your patience
Gustavo.
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only