Abrindo programas na tela inicial do smartclient sem precisar criar menu

---

Amigos me perguntam, como abrir sua função sem precisar criá-la no menu para que possam testar! Imagina que você tenha um relatório e quer testá-lo, e precisar testar várias vezes para ver se o layout está ok, para isso, se estiver em menu, você terá que abrir o smartclient, digitar usuario e senha, informar o módulo, depois ir até onde criou o menu e assim executá-lo. Porque não poupar todo este percurso, digitando a sua função direto na tela iniciar do smartclient? Porém, para ter acesso as tabelas, usando a função MsApp(), o sistema pedirá apenas usuario, senha, empresa, filial e módulo.

user function RREPORT()
    Local cModulo 	:= 'SIGAESP' //Defino em qual módulo irei abrir a minha função
    MsApp():New(cModulo) //
    oApp:cInternet := NIL     
    oApp:CreateEnv()
    PtSetTheme("OCEAN")
    oApp:cStartProg    	:= 'U_XRREPORT'
    oApp:lMessageBar	:= .T. 
    oApp:cModDesc		:= cModulo
    __lInternet 		:= .T.
    lMsFinalAuto 		:= .F.
    oApp:lMessageBar	:= .T. 
    oApp:Activate()
Return

  Se preferir um programa já pronto para testar acesse aqui Abra qualquer rotina do Protheus sem precisar criar menus.