Rest Tlpp - Como acessar tabelas do Protheus

Ao tentar utilizar utilizar o comando abaixo com a intenção de preparar o ambiente em uma empresa específica para conseguir acessar as tabelas é retornado um erro informando que a função RPCSETENV não existe

PREPARE ENVIRONMENT EMPRESA "01" FILIAL "00"

Segue dados do Rest

onStart.tlpp

#INCLUDE "Tbiconn.ch"
/*
  Função chamada a partir do arquivo appserver.ini

*/
user function onStart() as logical
  local lOK := .T. as logical
  PREPARE ENVIRONMENT EMPRESA "01" FILIAL "00"
return lOK

user function onStartSlave1() as logical
  local lOK := .T. as logical
  PREPARE ENVIRONMENT EMPRESA "01" FILIAL "00"
return lOK

onSelect.tlpp

#include 'tlpp-core.th'
#include 'tlpp-rest.th'
#include 'totvs.ch'
#INCLUDE "Tbiconn.ch"
User function onSelect(  ) as integer

    Local nIndex    :=-1 as integer
    // local aSlaves   := oRest:GetThreadPoolSlaves() as array
    // local nA        := 0 as integer
    // for na := 1 to len(aSlaves)
    //     if ( aSlaves[nA]:ID == 6 ) // logica qualquer
    //         nIndex := nA
    //     endif
    // next
  nIndex:=1
return nIndex

User function onSelectSlave1(  ) as integer

    Local nIndex    :=-1 as integer
return nIndex

Appserver.ini

Servers=HTTP_REST
Log=1
charset=UTF-8
​
[HTTP_REST]
hostname=localhost
port=8095
locations=HTTP_ROOT
ContentTypes=ContentTypes
​
[HTTP_ROOT]
Path=/
RootPath=root/web
ThreadPool=THREAD_POOL
​
[THREAD_POOL]
Environment=environment
MinThreads=1
MaxThreads=4
GrowthFactor=1
UserExits=THREAD_POOL_UEX

[THREAD_POOL_UEX]
OnStart=u_onStart
OnSelect=u_onSelect

[SLAVE_01]
Environment=environment
UserExits=THREAD_POOL_SLAVES_UEX
MinThreads=1
MaxThreads=2
MinFreeThreads=1
GrowthFactor=1
InactiveTimeout=30000
AcceptTimeout=10000

[THREAD_POOL_SLAVES_UEX]
OnStart=u_onStartSlave1
OnSelect=u_onSelectSlave1

[General]
App_Environment=environment

[ContentTypes]
json = text/plain;charset=UTF-8
xml = text/xml;charset=UTF-8
htm = text/html;charset=UTF-8
html = text/html;charset=UTF-8
txt = text/plain;charset=UTF-8

Imagem o erro: erro server1.png

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags tlpp rest ou faça a sua própria pergunta.