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: