Protheus :: Chamando Funções do Menu Diretamente e sem a Necessidade de Login

Ferne$ perguntou: "...é possível abrir alguma rotina do sistema sem solicitar login ao usuário, como por exemplo a rotina MATA010..."

Sim Ferne$, é possível sim. Abaixo um Exemplo para a Chamada à função MATA010 sem a necessidade de Login no sistema.

#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" /*/ Funcao: MATA010Ex Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Executar a Funcao MATA010 diretamente sem a necessidade de LOGIN no Protheus Sintaxe: 1 ) U_MATA010Ex ( Chamada diretamente na Tela de Entrada do Sistema ) ; ou 2 ) totvsclient.exe -q -p=u_MATA010Ex -a=01;01 -c=rnp_local -e=rnp -m -l ( Chamada Via Linha de Comando ) /*/ User Function MATA010Ex( cEmpFil ) Local aEmpFil Local bWindowInit := { || __Execute( "MATA010()" , "xxxxxxxxxxxxxxxxxxxx" , "MATA010" , "SIGAFAT" , "SIGAFAT", 1 , .T. ) } Local cEmp Local cFil Local cMod Local cModName := "SIGAFAT" DEFAULT cEmpFil := "01;01" aEmpFil := StrTokArr( cEmpFil , ";" ) cEmp := aEmpFil[1] cFil := aEmpFil[2] SetModulo( @cModName , @cMod ) PREPARE ENVIRONMENT EMPRESA( cEmp ) FILIAL ( cFil ) MODULO ( cMod ) InitPublic() SetsDefault() SetModulo( @cModName , @cMod ) DEFINE WINDOW oMainWnd FROM 001,001 TO 400,500 TITLE OemToAnsi( FunName() ) ACTIVATE WINDOW oMainWnd MAXIMIZED ON INIT ( Eval( bWindowInit ) , oMainWnd:End() ) RESET ENVIRONMENT Return( NIL ) /*/ Funcao: SetModulo Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Setar o Modulo em Execucao Sintaxe: SetModulo( @cModName , @cMod ) /*/ Static Function SetModulo( cModName , cMod ) Local aRetModName := RetModName( .T. ) Local cSvcModulo Local nSvnModulo IF ( Type("nModulo") == "U" ) _SetOwnerPrvt( "nModulo" , 0 ) Else nSvnModulo := nModulo EndIF cModName := Upper( AllTrim( cModName ) ) IF ( nModulo <> aScan( aRetModName , { |x| Upper( AllTrim( x[2] ) ) == cModName } ) ) nModulo := aScan( aRetModName , { |x| Upper( AllTrim( x[2] ) ) == cModName } ) IF ( nModulo == 0 ) cModName := "SIGAFAT" nModulo := aScan( aRetModName , { |x| Upper( AllTrim( x[2] ) ) == cModName } ) EndIF EndIF IF ( Type("cModulo") == "U" ) _SetOwnerPrvt( "cModulo" , "" ) Else cSvcModulo := cModulo EndIF cMod := SubStr( cModName , 5 ) IF ( cModulo <> cMod ) cModulo := cMod EndIF Return( { cSvcModulo , nSvnModulo } )

Para executá-la chame-a diretamente na Tela de Entrada do sistema como U_MATA010Ex ou através de linha de comando como: totvsclient.exe -q -p=u_MATA010Ex -a=01;01 -c=rnp_local -e=rnp -m -l

Generalizando, poderíamos ter uma função de Propósito Geral para esse fim como em:

#INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" #DEFINE TOKEN_VALUE Chr(63) #DEFINE TOKEN_PARAMETERS Chr(38) /*/ Funcao: EvalPrg Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Executar a Funcao diretamente sem a necessidade de LOGIN no Protheus Sintaxe: totvsclient.exe -q -p=U_EvalPrg a="Emp?01&Fil?01&FunName?MATA010&ModName?SIGAFAT" -c=rnp_local -e=rnp -m -l ( Chamada Via Linha de Comando ) /*/ User Function EvalPrg( cParameters ) Local aParameters Local bWindowInit := { || __Execute( cFunName+"()" , "xxxxxxxxxxxxxxxxxxxx" , cFunName , cModName , cModName , 1 , .T. ) } Local cEmp Local cFil Local cMod Local cParam Local cFunName Local cModName Local cTknValue := TOKEN_VALUE Local cTknParameters := TOKEN_PARAMETERS Local nParam Local nParameters DEFAULT cParameters := "Emp?01&Fil?01&FunName?MATA010&ModName?SIGAFAT" aParameters := StrTokArr( cParameters , TOKEN_PARAMETERS ) nParameters := Len( aParameters ) For nParam := 1 To nParameters cParam := Lower( aParameters[ nParam ] ) DO CASE CASE ( "emp" $ cParam ) cEmp := StrTokArr( cParam , TOKEN_VALUE )[2] CASE ( "fil" $ cParam ) cFil := StrTokArr( cParam , TOKEN_VALUE )[2] CASE ( "funname" $ cParam ) cFunName := StrTokArr( cParam , TOKEN_VALUE )[2] CASE ( "modname" $ cParam ) cModName := StrTokArr( cParam , TOKEN_VALUE )[2] ENDCASE Next nParam DEFAULT cEmp := "01" DEFAULT cFil := "01" DEFAULT cFunName := "MATA010" DEFAULT cModName := "SIGAFAT" SetModulo( @cModName , @cMod ) PREPARE ENVIRONMENT EMPRESA( cEmp ) FILIAL ( cFil ) MODULO ( cMod ) InitPublic() SetsDefault() SetModulo( @cModName , @cMod ) DEFINE WINDOW oMainWnd FROM 001,001 TO 400,500 TITLE OemToAnsi( FunName() ) ACTIVATE WINDOW oMainWnd MAXIMIZED ON INIT ( Eval( bWindowInit ) , oMainWnd:End() ) RESET ENVIRONMENT Return( NIL ) /*/ Funcao: SetModulo Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Setar o Modulo em Execucao Sintaxe: SetModulo( @cModName , @cMod ) /*/ Static Function SetModulo( cModName , cMod ) Local aRetModName := RetModName( .T. ) Local cSvcModulo Local nSvnModulo IF ( Type("nModulo") == "U" ) _SetOwnerPrvt( "nModulo" , 0 ) Else nSvnModulo := nModulo EndIF cModName := Upper( AllTrim( cModName ) ) IF ( nModulo <> aScan( aRetModName , { |x| Upper( AllTrim( x[2] ) ) == cModName } ) ) nModulo := aScan( aRetModName , { |x| Upper( AllTrim( x[2] ) ) == cModName } ) IF ( nModulo == 0 ) cModName := "SIGAFAT" nModulo := aScan( aRetModName , { |x| Upper( AllTrim( x[2] ) ) == cModName } ) EndIF EndIF IF ( Type("cModulo") == "U" ) _SetOwnerPrvt( "cModulo" , "" ) Else cSvcModulo := cModulo EndIF cMod := SubStr( cModName , 5 ) IF ( cModulo <> cMod ) cModulo := cMod EndIF Return( { cSvcModulo , nSvnModulo } )

Neste caso, executaríamos sempre via linha de comando.

Lembrando que os "Parâmetros" do Remote, em linha de Comando são:

Parâmetros da Linha de Comando do Protheus Remote Ao ser iniciado, o Protheus Remote exibe a tela de parâmetros iniciais, para identificação do Ambiente, da Conexão e do APO inicial. Porém, tais informações podem ser informadas através da linha de comando do ícone de acesso ao Protheus Remote. As opções de linha de comando do Protheus Remote são: -Q (Quiet): Indica que o Protheus Remote não deve mostrar o Splash (imagem de apresentação) e a tela de identificação de parâmetros iniciais necessita ser acompanhada da cláusula –P; -P (Main Program): Identifica o programa (APO) inicial; -R (CfgSection): Nome da seção de configuração. Por default, é “Config”; -E (Environment): Nome da seção de environment no .INI do Server que será utilizada para definições gerais; -C (Connection): Nome da seção de conexão que será utilizada para a conexão ao Protheus Server; -A (Parâmetros para o Programa Inicial): Identifica um parâmetro que será passado para o programa inicial; -L (MP8 Remote Log File): Para não-conformidades que ocorram no Protheus Remote (antes que este possa se conectar ao Protheus Server), é gerado um arquivo de log no diretório de execução deste aplicativo. Este arquivo tem o nome definido pela identificação do executável (MP8Rmt) + um caracter de underline (_) + o nome da máquina em que o Protheus Remote está sendo executado (com extensão .LOG). Esta opção permite informar um nome específico para a geração deste arquivo de log, visando automatizações específicas que necessitem saber quando uma não- conformidade ocorreu no Protheus Remote (por exemplo, impossibilidade de conexão). -M (AllowMultiSession): Permite múltiplas instâncias (Cópias) do Protheus Remote na mesma máquina (Default: não permite); Por exemplo, pode-se utilizar a seguinte linha de comando: totvsclient.exe -Q -P=SIGAEST -E=ENV_TOP_ENGLISH

Para baixar os exemplos, clique aqui.

[]s

иαldσ dj

Ps.: Considerando que alguns programas possuem tratamento especifico na abertura do Módulo, por exemplo PMS410, pode ocorrer, na chamada direta, uma "Exception". Sendo assim, recomendo que esse método só seja usado para programas "customizados" ou no qual tenha a plena certeza de que todas as dependências sejam carregadas na execução da própria função.