LOCAL lcBO > >lcBO = THIS.PARENT.cBOName > > >* Confirm the changes >IF THISFORM.&lcBO..lConfirmOnDelete ; > AND (goApp.DisplayMessage("VSO_DeleteRec") = MSGNO) > > * User did not confirm the deletion > RETURN >ENDIF > > >THISFORM.&lcBO..DELETE()>
With Evaluate('thisform.'+This.Parent.cBOName) * Confirm the changes If .lConfirmOnDelete ; AND (goApp.DisplayMessage("VSO_DeleteRec") = MSGNO) * User did not confirm the deletion Return Endif .Delete() EndwithCetin