ERP – WebServices – Ao depurar regra que consta atribuição de campo data para WebServices ocorre mensagem: Erro nas funções de programador: Erro na variável de registro, falta '.'
Incidente
No sistema Gestão Empresarial | ERP ao depurar alguma regra que consta atribuição de campo data para WebServices ocorre mensagem:
Erro nas funções de programador: Erro na variável de registro, falta '.'.
Com isso o retorno do WebServices vem com OK porém não acatou a data atribuída na regra:
Causa
Esta mensagem é retornada, pois o formato como a data foi passada na regra está incompatível.
Solução
Para que a mensagem não seja apresentada ao depurar a regra e grave a informação corretamente, realize os passos a seguir:
1. Acesse o menu Recursos\Implementações\Regras\Editar;
2. Abra a regra em questão;
3. Faça o ajuste conforme exemplo, utilize a função ConvDataInt para receber a data fixa:
Definir interno.com.senior.g5.co.mfi.cre.alteratituloscr.AlteraTitulosCR saltcre;
Definir alfa aVarAux;
Definir alfa aVctPro;
Definir data dVctPro;
saltcre.gridtitulosalterar.criarlinha();
saltcre.codemp=1;
saltcre.gridtitulosalterar.codfil=1;
saltcre.gridtitulosalterar.numtit="081222B";
saltcre.gridtitulosalterar.codtpt="01";
saltcre.gridtitulosalterar.codcli=1;
aVctPro = "30/12/2022";
ConvDataInt(aVctPro, dVctPro);
saltcre.gridtitulosalterar.vctpro=dVctPro;
saltcre.gridtitulosalterar.vlrori=300;
sAltCre.modoexecucao = 1;
sAltCre.Executar();
aVarAux =sAltCre.Resultado;
LimpaEspacos(aVarAux);
nQtdLin =sAltCre.GridRetorno.QtdLinhas;
Para(m=0;m<nQtdLin;m++)
Inicio
sAltCre.GridRetorno.LinhaAtual =m;
aVarAux =sAltCre.GridRetorno.TxtRet;
a=1;
Fim;
x=y;