BlackTDN :: Devaneio em ADVPL

Realize:

u_devaneio.prg

#include "tryexception.ch" User Function DevMain()     Local lRet := .F.     lRet := InternalMain()        //OK     IF ( lRet )         lRet := ExternalMain()    //OK     EndIF        Static Function InternalMain()         Local lRet := .T.         BEGIN SEQUENCE             //...statements         END SEQUENCE     Return( lRet ) Return( lRet  ) Static Function ExternalMain()     Local cInt     Local cMsg     Local lRet    := .F.     TRYEXCEPTION         //Originalmente         *InternalMain()         //Mas, para forcar o erro...         cInt := "InternalMain"         lRet := &cInt.(x,y)          //OOps     CATCHEXCEPTION         cMsg := "Undefined InternalMain()"          ConOut( cMsg )         MsgInfo( cMsg , ProcName(1) )         TRYEXCEPTION             lRet := U_DevMain():InternalMain()   //OK (hehe.. seria duca)         CATCHEXCEPTION                cMsg := "OOps++"             ConOut( cMsg )             MsgInfo( cMsg , ProcName(1) )         ENDEXCEPTION        ENDEXCEPTION    Return( lRet )

[]s

иαldσ dj