Páginas filhas
  • DFWKLOGIX-580 DT [LGPD] função SGDPCommandUtil_checkSQLQuerySyntax() acusando erro de SUBSTRING

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Ao executar a função __SGDPCommandUtil_checkAllSQLQuerySyntax.4GL ocorre o seguinte erro:


Informações

[Info  - 15:25:43] [15:25:43] ERROR: t4GLSubstr - A character variable has referenced subscripts that are out of range in file C:\bamboo\xml-data\build-dir\TP11-R2H-TECXWIN64\logix\logixfuncs.cpp at line 1309

__SGDPCOMMANDUTIL_REPLACEDOCUMENTVALUEINQUERY@SGDPCOMMANDUTIL.4GL - SGDPCOMMANDUTIL.4GL(1898) - Params: L_QUERY:AND NOT EXISTS (SELECT DISTINCT 1 FROM fat_nf_mestre WHERE fat_nf_mestre.cliente = clientes.cod_cliente AND fat_nf_mestre.dat_hor_emissao > {TEMPO:formatDateAsDbDttimeY2S}) AND NOT EXISTS (SELECT fat_nf_mestre.cliente FROM fat_nf_mestre WHERE fat_nf_mestre.cliente = clientes.cod_cliente AND fat_nf_mestre.tip_nota_fiscal IN ('SOLSERV','SOLPRDSV')) AND NOT EXISTS (SELECT DISTINCT 1 FROM pedidos WHERE pedidos.cod_cliente = clientes.cod_cliente AND pedidos.dat_emis_repres > {TEMPO} ) AND NOT EXISTS (SELECT DISTINCT 1 FROM pedidos, ped_itens WHERE pedidos.cod_cliente = clientes.cod_cliente AND pedidos.num_pedido = ped_itens.num_pedido AND (ped_itens.qtd_pecas_solic - ped_itens.qtd_pecas_atend - ped_itens.qtd_pecas_cancel) > 0),L_DOCUMENT_NAME:01/01/2022,L_DOCUMENT_VALUE:01/01/2022,L_OTHER_DOCUMENT:NIL )
[email protected] - SGDPCOMMANDUTIL.4GL(1839) - Params: L_QUERY:SELECT DISTINCT 1 FROM clientes WHERE clientes.num_cgc_cpf = '000.010.120/0000-22',L_TABLE_NAME: clientes,L_DOCUMENT_NAME:1,L_DOCUMENT_VALUE:1,L_QUERY_ANONYMIZATION:AND NOT EXISTS (SELECT DISTINCT 1 FROM fat_nf_mestre WHERE fat_nf_mestre.cliente = clientes.cod_cliente AND fat_nf_mestre.dat_hor_emissao > {TEMPO:formatDateAsDbDttimeY2S}) AND NOT EXISTS (SELECT fat_nf_mestre.cliente FROM fat_nf_mestre WHERE fat_nf_mestre.cliente = clientes.cod_cliente AND fat_nf_mestre.tip_nota_fiscal IN ('SOLSERV','SOLPRDSV')) AND NOT EXISTS (SELECT DISTINCT 1 FROM pedidos WHERE pedidos.cod_cliente = clientes.cod_cliente AND pedidos.dat_emis_repres > {TEMPO} ) AND NOT EXISTS (SELECT DISTINCT 1 FROM pedidos, ped_itens WHERE pedidos.cod_cliente = clientes.cod_cliente AND pedidos.num_pedido = ped_itens.num_pedido AND (ped_itens.qtd_pecas_solic - ped_itens.qtd_pecas_atend - ped_itens.qtd_pecas_cancel) > 0))
[email protected] - SGDPCOMMANDUTIL.4GL(2062)


03. SOLUÇÃO

Foram corrigidos os problemas para não afetar produto padrão, como por exemplo, carregar a lista de erros da REQUESTID da base de dados e retornar o bloco JSON de erros da requisição pra usar na resposta para o TPD e, registrar todos erros no arquivo de LOG do processo em execução.

...