Protheus Advpl Agendamento em ambiente de desenvolvimento com erro de execução

Estou programando uma User Function para disparar um email num agendamento.

O nome da função é U_TERCEIRO(), registrada no Cadastro do Schedule.

Está acontecendo um caso curioso para mim que sou iniciante.

a) Se a rotina é simplesmente enviar email, constando no código somente elementos de criação de objetos e 'engessando-se' os destinatários, assunto e corpo, o agendamento executa a função sem problemas e o email é enviado;

b) Se a rotina envolve uma busca em banco de dados para depois enviar o email com base no resultado do SELECT, ocorre erro - o email não é enviado - e no console do servidor aparece como

Alias does not exist: SX2 on RETSQLNAME(APLIB070.PRW)

Há uma informação adicional que fica mais estranho: se abro o DBAccess, acesso o Menu no módulo onde a função está registrada e o executo manualmente, funciona sem problema, isto é, os mesmos códigos tanto em a) quanto em b) acima correm bem. Os emails são enviados sem problema.

criado 02 de Oct de 2021
Mauro Simoes
22 pontos
editado 02 de Oct de 2021

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.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
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.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 1 down
Boa noite!

Ao chamar rotinas pelo Schedule sem utilizar a definição SchedDef (que acredito que seja o seu caso), você deve ser responsável pela abertura do ambiente para uso do programa.

Caso contrário, serão gerados erros de execução caso o sistema tente efetuar acesso a tabelas ou qualquer outra funcionalidade que só esteja disponível ao abrir um ambiente.

Por isso que acontece da função funcionar normalmente via menu ou via Schedule quando não existe menção a querys ou tabelas. Via menu o ambiente é aberto automaticamente pelo Protheus.

Para correção desse problema, você deve usar as funções RpcSetEnv ou Prepare Environment antes de efetuar o processamento da sua rotina. Por exemplo:
```
User Function TERCEIRO

    RpcSetEnv('01','01')

        // efetuar processamento

    RpcClearEnv()

Return
```
Caso sua rotina possa ser executada tanto via Schedule ou pelo menu, você pode realizar uma tratativa usando a função IsBlind para abrir o ambiente antes de efetuar o processamento. A função IsBlind verifica se o programa foi chamado em uma conexão que possui ou não interface gráfica. O código ficaria mais ou menos assim:
```
User Function TERCEIRO

    If(IsBlind())

        RpcSetEnv('01','01')

            fProcess()

        RpcClearEnv()

    Else

        fProcess()

    EndIf

Return

Static Function fProcess

    // efetua o processamento

Return
```
Para maiores informações: https://devforum.totvs.com.br/1632-empresafilial-na-execucao-de-tarefas-do-schedule
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 02 de Oct de 2021
  Giordano Trabach Xavier
  4208 pontos
- 0
  
  Muito obrigado, Giordano. Como iniciante bem raso jamais iria descobrir esta função. Funcionou perfeitamente. Realmente, eu estava usando a função sem parâmetro e sem, no código ADVPL, usar a função SchedDef. Eu só não entendi, mesmo lendo a documentação, o papel do IsBlind() no caso do agendamento, porque o cadastro do agendamento sempre obriga a haver um menu. Como o menu é sempre gráfico e exige uma função de usuário ou do Protheus, não sei como registrar um evento em que não haja interface de usuário, que, no meu caso, seria ideal, por segurança de não haver disparo fora do horário.
  — Mauro Simoes 03 de Oct de 2021
- 0
  
  Bom dia! Quando uma rotina não usa SchedDef e é chamada através do Schedule, o seu ambiente não é aberto automaticamente pelo sistema. Por esse motivo que deve ser feito a abertura pelas funções RpcSetEnv ou Prepare Environment. Caso a sua rotina não seja chamada via menu, não existe a necessidade de usar a função IsBlind(). Essa função é apenas uma verificação, para que caso a rotina possa ser chamada tanto via interface quanto via job, o sistema não faça uma abertura de sistema na chamada via interface, visto que já existe uma conexão aberta.
  — Giordano Trabach Xavier 04 de Oct de 2021
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Protheus Advpl Agendamento em ambiente de desenvolvimento com erro de execução

Comentário

1 resposta

Comentário

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