oExibe=NEWOBJECT("ExibirDadosFilha") ?oExibe.DarBoasVindas('Fulano de Tal') DEFINE CLASS ExibirDados AS SESSION PROCEDURE DarBoasVindas (tcUsuario) RETURN "Olá: " + tcUsuario ENDPROC ENDDEFINE DEFINE CLASS ExibirDadosFilha as ExibirDados PROCEDURE DarBoasVindas (tcUsuario) RETURN DODEFAULT(tcUsuario) + '. Tudo bem?' ENDPROC ENDDEFINECreio que ele deveria ficar assim.
BUILD PROJECT componente_01 FROM ExibirDados BUILD DLL componente_01 from componente_01 recomp oComp01 = NEWOBJECT("componente_01.ExibirDados") oEvents = NEWOBJECT("myclass") ?EVENTHANDLER(oComp01,oEvents) && retorna .F. porque e como fazer? ?oComp01.DarBoasVindas('fulano') ?oEvents.IExibirDados_DarBoasVindas('fulano de tal') && consequentemente o valor retornado não é o esperado DEFINE CLASS myclass AS session OLEPUBLIC IMPLEMENTS IExibirDados IN "componente_01.ExibirDados" PROCEDURE IExibirDados_DarBoasVindas(tcUsuario AS STRING) AS STRING * add user code here ENDPROC ENDDEFINE DEFINE CLASS ExibirDados AS SESSION OLEPUBLIC FUNCTION DarBoasVindas (tcUsuario AS STRING) AS STRING LOCAL lcMensagemRetorno AS STRING lcMensagemRetorno = "Olá: " + tcUsuario RETURN lcMensagemRetorno ENDFUNC ENDDEFINE