Bom dia,
Tenho uma fórmula (calcula valores para plano de saúde) que ao ser executada ou quando peço recalculo de envelope no RM Labore, apresenta a seguinte mensagem "Consulta 'NumDepend' não foi aberta", mas mesmo assim a formula retorna o valor correto. Segue abaixo o texto da minha formula e em seguida o texto da consulta 'NumDepend'
FORMULA
DECL NUMDEP, VALOR, PR1, PR5;
SETVAR(NUMDEP,0);
SETVAR(VALOR,0);
SETVAR(PR1,1);
SETVAR(PR5,5);
SE EXECSQL ('NumDepend') = VERDADE
ENTAO
REPITA
SETVAR(NUMDEP, RESULTSQL ('NumDepend' , 'NRODEPEND'));
SE TABCOMPL ('TIPOPLANO' , 'S') = 'UNI1' E INCDEP (RESULTSQL('NumDepend', 'NRODEPEND'),PR1) = 1
ENTAO
F('0008');
SALVAVALDEP (NUMDEP, F('0008'));
SETVAR(VALOR, VALOR+F('0008'))
SENAO
SE TABCOMPL ('TIPOPLANO' , 'S') = 'UNI2' E INCDEP (RESULTSQL('NumDepend', 'NRODEPEND'),PR5) = 1
ENTAO
FOR('FAIXA_D1');
SALVAVALDEP (NUMDEP, VALOR+ FOR('FAIXA_D1'));
SETVAR(VALOR, VALOR+ FOR('FAIXA_D1'))
FIMSE
FIMSE
ATE
PROXREGSQL ('NumDepend') = FALSO;
VALOR
SENAO 0
FIMSE
CONSULTA SQL
SELECT P.NRODEPEND NRODEPEND
FROM PFUNC F (NOLOCK), PFDEPEND P (NOLOCK)
WHERE P.CHAPA =:FRM_CHAPA
AND F.CODCOLIGADA = P.CODCOLIGADA
AND F.CHAPA = P.CHAPA
Obrigada pela ajuda desde já!
Abraços