Consulta de Recibo da GNRE não está carregando os dados da tag "motivosRejeicao"

[RP INFO Sistemas]

Olá,

A consulta de recibo da GNRE não está carregando os dados da tag "motivosRejeicao", e por este motivo não está recuperando os reais motivos da rejeição do lote.

Segue arquivo com a resposta do WebService.

 

 

RespostaConsultaRecibo

[Italo Giurizzato Junior]

Bom dia,

Você esta salvando os XMLs no banco de dados, correto?

Já abriu esse arquivo que você anexou com o Bloco de Notas?

Se não abriu, abra.

Vai notar que existe espaços em branco entre as tags e alguns caracteres que acredito que seja de formatação.

Suspeito que ao salvar ou carregar o XML do banco de dados esteja provocando a inserção desses espaços e caracteres.

[RP INFO Sistemas]

21 horas atrás, Italo Jurisato Junior disse:

Bom dia,

Você esta salvando os XMLs no banco de dados, correto?

Já abriu esse arquivo que você anexou com o Bloco de Notas?

Se não abriu, abra.

Vai notar que existe espaços em branco entre as tags e alguns caracteres que acredito que seja de formatação.

Suspeito que ao salvar ou carregar o XML do banco de dados esteja provocando a inserção desses espaços e caracteres.

Bom dia,

 

O Xml anexado é direto do componente, não é salvo em banco de dados.

 

Obrigado.

[RP INFO Sistemas]

21 horas atrás, Italo Jurisato Junior disse:

Bom dia,

Você esta salvando os XMLs no banco de dados, correto?

Já abriu esse arquivo que você anexou com o Bloco de Notas?

Se não abriu, abra.

Vai notar que existe espaços em branco entre as tags e alguns caracteres que acredito que seja de formatação.

Suspeito que ao salvar ou carregar o XML do banco de dados esteja provocando a inserção desses espaços e caracteres.

Segue imagem com o inspect da variável "FPRetornoWS"  referente a consulta de recibo da GNRE.

Note que na memória já possuem espaços no xml.

[RP INFO Sistemas]

21 horas atrás, Italo Jurisato Junior disse:

Bom dia,

Você esta salvando os XMLs no banco de dados, correto?

Já abriu esse arquivo que você anexou com o Bloco de Notas?

Se não abriu, abra.

Vai notar que existe espaços em branco entre as tags e alguns caracteres que acredito que seja de formatação.

Suspeito que ao salvar ou carregar o XML do banco de dados esteja provocando a inserção desses espaços e caracteres.

Olá, eu fiz a implementação para carregar os motivos da rejeição, segue unit em anexo.

Apenas adicionei esse trecho de código na linha 558:

 

      if Leitor.rExtrai(4, 'motivosRejeicao') <> '' then
      begin
        j:=0;
        while Leitor.rExtrai(5, 'motivo', '', j + 1) <> '' do begin
          resRejeicaoGuia.New;
          resRejeicaoGuia.Items[j].CodMotivoRejeicao      := Leitor.rCampo(tcInt, 'codigo');
          resRejeicaoGuia.Items[j].DescMotivoRejeicao     := Leitor.rCampo(tcStr, 'descricao');
          resRejeicaoGuia.Items[j].NomeCampo              := Leitor.rCampo(tcStr, 'campo');
          Inc(j);
        end;
      end;

 

pgnreRetConsResLoteGNRE.pas

[Italo Giurizzato Junior]

Bom dia,

Se esse XML é o que esta sendo retornado pelo webservice, então é ele que esta gerando essa sujeira toda.

Vou analisar a sua contribuição, estando tudo OK, vou enviar para o repositório.

Desde já muito obrigado.

[Italo Giurizzato Junior]

A alteração que você fez me parece correta, já envie para o repositório.

[RP INFO Sistemas]

1 hora atrás, Italo Jurisato Junior disse:

A alteração que você fez me parece correta, já envie para o repositório.

Eu testei aqui em uma transmissão de Gnre e carregou com sucesso os objetos.

 

 

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.