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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
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.
Deixe uma resposta