Glossário

Blog Advpl - Share knowledge

ABCDEFGHIJKLMNOPQRSTUVWXYZ#

 

MsApp()

Como abrir minha função sem precisar criá-la no menu para testar?

Porque não criar a função no menu? Imagina que você tem um relatório e quer testá-lo, e precisar testar várias vezes 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?

Para isso, usaremos a função MsApp()


User Function FuncaoPrincipal()
    Local cModulo 	:= 'SIGAESP' //Nome do Módulo que irá fazer a abertura do Smartclient

    MsApp():New(cModulo) //Instancia a aplicação no módulo
    oApp:cInternet := NIL     
    oApp:CreateEnv() //Cria o ambiente que será usando
    PtSetTheme("OCEAN") //Define o nome do tema, se não inserir, será considerado o tema padrão
    oApp:cStartProg    	:= 'U_FuncaoSecundaria' //Instancia a função que será executada após a abertura do programa
    oApp:lMessageBar	:= .T. 
    oApp:cModDesc		:= cModulo
    __lInternet 		:= .T.
    lMsFinalAuto 		:= .F.
    oApp:lMessageBar	:= .T. 
    oApp:Activate() //Executa
Return

User Function FuncaoSecundaria()
 /*seu código*/
Return
 
Artigos relacionados
Abrindo programas na tela inicial do smartclient sem precisar criar menu

 

Deixe uma resposta