S-5002 - Erro Carregamento XML

[Hudson G Leite]

Em ALTERAÇÕES EFETUADAS NOS LEIAUTES, TABELAS E REGRAS DE VALIDAÇÃO de 21/07/2022

Criado o grupo {totApurMen} e respectivos campos. Na versão atual das units { pcesS5002.pas, pcesRetConsultaLote.pas} não está carregando corretamente os valores do retorno S-5002 pois atualmente no procedimento < TRetConsultaLote.LerXml > na linha 487 a função : RetornarConteudoEntre(Leitor.Grupo, '>', '</tot') não retorna corretamente o conteúdo envolvido em <tot> ... </tot> pelo fato de encontrar a tag de fechamento </totApurMen>.

alterado para : RetornarConteudoEntre(Leitor.Grupo, '>', '</tot>')

Segue xml de retorno [ 20221024093348-sit-soap.xml ] e alteração das units { pcesS5002.pas, pcesRetConsultaLote.pas } 

 

Por favor verificar a viabilidade do código.

20221024093348-sit-soap.xml pcesS5002.pas pcesRetConsultaLote.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3191

[EMBarbosa]

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN

Em 24/10/2022 at 18:22, Hudson G Leite disse:

Em ALTERAÇÕES EFETUADAS NOS LEIAUTES, TABELAS E REGRAS DE VALIDAÇÃO de 21/07/2022

Criado o grupo {totApurMen} e respectivos campos. Na versão atual das units { pcesS5002.pas, pcesRetConsultaLote.pas} não está carregando corretamente os valores do retorno S-5002 pois atualmente no procedimento < TRetConsultaLote.LerXml > na linha 487 a função : RetornarConteudoEntre(Leitor.Grupo, '>', '</tot') não retorna corretamente o conteúdo envolvido em <tot> ... </tot> pelo fato de encontrar a tag de fechamento </totApurMen>.

alterado para : RetornarConteudoEntre(Leitor.Grupo, '>', '</tot>')

Segue xml de retorno [ 20221024093348-sit-soap.xml ] e alteração das units { pcesS5002.pas, pcesRetConsultaLote.pas } 

 

Por favor verificar a viabilidade do código.

20221024093348-sit-soap.xml 10.48 kB · 1 download pcesS5002.pas 24.28 kB · 1 download pcesRetConsultaLote.pas 23.95 kB · 1 download

.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.