Exemplos de formas para testar pontos de entrada e execauto

Produto:

Microsiga Protheus®

Ambiente:

Faturamento (SIGAFAT)

Ocorrência:

Exemplos de teste e informações sobre teste de Pontos de entrada e ExecAuto

Passo a passo:

Card

default	true
id	Custo Médio
label	1. LIMITE DE CRÉDITO

Deck of Cards

startHidden	false
effectDuration	0.5
id	Cards
effectType	horizontal
loopCards	true

Card

default	true
id	Custo Médio
label	Pontos de Entrada

Card

default	true
id	0607202023
label	ExecAuto

Conceito (O que é um ExecAuto?)

Expandir

title	Como saber se um fonte possui ExecAuto?

Basicamente, as funções que recebem parâmetros podem ser chamadas via ExecAuto, parâmetros são passados entre parênteses após o nome da função.

Exemplo de Função que possui parâmetros:

Exemplo de função que não possui parâmetros:

Após verificar se a função tem parâmetros, deve-se verificar se existe um Modelo de ExecAuto para esta função publicado no TDN.

Páginas de Rotinas Automáticas (ExecAuto):

Aviso

title	Atenção

Caso a rotina possua parâmetros e não possua um exemplo publicado no TDN, é necessário solicitar a documentação do ExecAuto ao time de desenvolvimento através de uma Issue de Documentação.

Card

default	true
id	0607202023
label	Execauto Via API REST

Para testes de chamada de execauto via API REST, siga os passos abaixo:

Deck of Cards

id	VIA API REST

Card

label	1 - Fonte de exemplo

Fonte de exemplo de API REST para chamada de execauto:

#INCLUDE'PROTHEUS.CH'
#INCLUDE 'TOTVS.CH'
#INCLUDE 'RESTFUL.CH'
#INCLUDE 'RWMAKE.CH'
#INCLUDE 'TOPCONN.CH'
#INCLUDE "FWMVCDEF.CH"

// API para chamar execauto via REST

WSRESTFULEXECTST2DESCRIPTION"TESTE"
WSMETHODGETDESCRIPTION"TESTE"WSSYNTAX"/EXECTST"
ENDWSRESTFUL

WSMETHODGETWSSERVICEEXECTST2
U_MyMata410() //Função a ser chamada
Return

1 - Salvar o fonte com o nome "execviarest.prw".

2 - Na "Função a ser chamada" colocar o nome da função do execauto que irá utilizar:

Exemplo: U_MyMata410()

Card

label	2 - Ajustes no fonte

Ajustes a serem feitos no fonte do execauto:

1 - Não fazer a abertura do ambiente: PREPARE ENVIRONMENT ou RpcSetEnv.

2 - Fazer o tratamento para a função "MostraErro" conforme documentação abaixo:

Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Erro: job threads doesn't support remoto/visual components

Card

label	3 - Compilação dos fontes

Compilar os fontes:

1 - Fonte da API: execviarest.prw

2 - Fonte do execauto "ajustado"

Card

label	4 - REST

Subir um serviço de REST, para isso utilize o exemplo abaixo:

;=====================================
;============== WEB REST ===============
;=====================================

[HTTPV11]
Enable=1
AddressFamily=1
Sockets=HTTPREST

[HTTPREST]
Port=8086 <<-- Porta do REST
IPsBind=
MaxQueue=10
URIs=HTTPURI
SECURITY=1

[HTTPURI]
URL=/rest
PrepareIn=ALL
Instances=1,10
OnStart=REST_START
OnConnect=REST_CONNECT
OnExit=REST_EXIT

[HTTPJOB]
MAIN=HTTP_START
ENVIRONMENT=12.1.2310 <<-- Nome do seu ambiente

[ONSTART]
jobs=HTTPJOB
RefreshRate=120

;=====================================

Não se esqueça de validar se o REST está no ar, feche o console do App Server e abra novamente verificando se exibe a mensagem de REST, validando também se o REST está no ar através do navegador da internet, conforme demonstrado no vídeo.

Dica

title	Dica

Temos também uma documentação complementar sobre a configuração através do APWebWizard: Passo 3: Configurando REST

Card

label	5 - Postman

Para fazer a chamada da API iremos utilizar o Postman.

1 - Instalar o Postman: https://www.postman.com/downloads/

2 - Informar os dados de acesso ao Postman, campos a preencher na aba "Headers":

GET: Coloque o endereço de seu REST + o texto: /EXECTST2
Key: tenantid
Value: 99,01 <empresa,filial>

Card

label	6 - Teste

No Postman clique no botão "Send" para executar a API:

Card

default	true
id	0607202023
label	Execauto Via API WebService

Para testes de chamada de execauto via API WebService, siga os passos abaixo:

Deck of Cards

id	VIA API WS

Card

label	1 - Fonte de exemplo

Fonte de exemplo de API WS para chamada de execauto:

#include"protheus.ch" #include"totvs.ch" #include"apwebsrv.ch" // API para chamar execauto via WS WSSERVICEwsteste01 WSDATAcumped ASstring WSDATAcRet ASstring WSDATAUserCodeASString WSMETHODwsteste ENDWSSERVICE WSMETHODwstesteWSRECEIVEUserCode,cumpedWSSENDcRetWSSERVICEwsteste01 U_MyMata410() //função a ser chamada RetURN.T.

1 - Salvar o fonte com o nome "execviaws.prw".

2 - Na "Função a ser chamada" colocar o nome da função do execauto que irá utilizar:

Exemplo: U_MyMata410()

Card

label	2 - Ajustes no fonte

Ajustes a serem feitos no fonte do execauto:

1 - Não fazer a abertura do ambiente: PREPARE ENVIRONMENT ou RpcSetEnv.

2 - Fazer o tratamento para a função "MostraErro" conforme documentação abaixo:

Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Erro: job threads doesn't support remoto/visual components

Card

label	3

Card

label	4

Card

label	5

Pode lhe Interessar:

Árvore de páginas

Versões comparadas

Versão antiga 64

Nova versão 65

Chave

Exemplos de formas para testar pontos de entrada e execauto

Árvore de páginas

Histórico da Página

Versões comparadas

Versão antiga 64

Nova versão 65

Chave

Exemplos de formas para testar pontos de entrada e execauto