Ajuste em ACBReSocialWebServices-> function TConsultaLote.TratarResposta: Boolean;

[Sandro Felipe Adad]

Precisei efetuar um ajuste no fonte da unit: ACBreSocialWebServices:

Local: function TConsultaLote.TratarResposta: Boolean;

Estava gravando na o mesmo código,descrição,tipo e localização  de ocorrência para todas as instâncias da tag ocorrencia retornadas pela consulta.

Na parte que trata as ocorrências:

while reader.rExtrai(1, 'ocorrencia', '', j + 1) <> '' do
          begin
            Processamento.Ocorrencias.Add;
            Processamento.Ocorrencias.Items[j].xml := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Arquivo := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Grupo := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].LerXml;
            inc(j);
          end;

troquei por:

while Leitor.rExtrai(1, 'ocorrencia', '', j + 1) <> '' do
          begin
            Processamento.Ocorrencias.Add;
            Processamento.Ocorrencias.Items[j].xml := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Arquivo := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Grupo := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].LerXml;
            inc(j);
          end;

 

 

 

[Juliomar Marchetti]

Ainda não está disponível o componente!

esperem está sendo trabalhado! 

[arce]

Este mesmo método (Local: function TConsultaLote.TratarResposta: Boolean) tem uma outra falha de leitura. Ao ler o retorno da consulta, não estava percorrendo todos os eventos de retorno.

     (...)

      Leitor.Arquivo := FPRetWS;
      Leitor.Grupo := Leitor.rExtrai(1, 'retornoEventos');
      i:=0;
      while Leitor.rExtrai(1, 'evento', '', i + 1) <> '' do
      begin
        //recepcao
        Reader := TLeitor.Create;
        try
          Reader.Arquivo := Leitor.Grupo;
          retEvento := FRetProcLote.retEventos.Add;
          retEvento.IDEvento := Leitor.rAtributo('Id', 'evento');
          Reader.Grupo := Reader.rExtrai(1, 'recepcao');
          retEvento.FRecepcao.FtpAmb := TpTpAmb(Integer(Leitor.rCampo(tcInt, 'tpAmb')));
          retEvento.FRecepcao.FdhRecepcao :=  ISO8601ToDateTime(Leitor.rCampo(tcStr, 'dhRecepcao',''));
          retEvento.FRecepcao.FversaoAplicRecepcao := Leitor.rCampo(tcStr, 'versaoAppRecepcao');
          retEvento.FRecepcao.Fprotocolo := Leitor.rCampo(tcStr, 'protocoloEnvioLote');

    (...)

[arce]

@Sandro Felipe Adad 

Neste mesmo evento que eu e vc citamos, existe outra pequena correção a se fazer. Ao transmitir dois eventos em que ambos continham erros, o componente estava associando todas as ocorrências à todos os eventos:

Citar

while reader.rExtrai(1, 'ocorrencia', '', j + 1) <> '' do
          begin
            Processamento.Ocorrencias.Add;
            Processamento.Ocorrencias.Items[j].xml := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Arquivo := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Grupo := Leitor.Grupo;
            Processamento.Ocorrencias.Items[j].LerXml;
            inc(j);
          end;

troquei por:

while reader.Extrai(1, 'ocorrencia', '', j + 1) <> '' do
          begin
            Processamento.Ocorrencias.Add;
            Processamento.Ocorrencias.Items[j].xml := reader.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Arquivo := reader.Grupo;
            Processamento.Ocorrencias.Items[j].FLeitor.Grupo := reader.Grupo;
            Processamento.Ocorrencias.Items[j].LerXml;
            inc(j);
          end;

Desta forma cada retEvento terá suas ocorrências referenciadas. Segue exemplo do arquivo de retorno que utilizei como exemplo para identificar o problema.

 

RespConsulta_Soap.xml