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