Svn Corrigir Retorno Consulta Lote

[EdmarFrazao]

Fui mudado a maneira de retorno das msg e ocorrência no componente.

 

Não esta retornado os valores nas propriedades correspondente de Envio e Retorno.

 

No exemplo Acbr, foi simplesmente comentado os retorno.

Agora o componente não funciona, pois não temos os retornos.

 

o Exemplo acbr esta assim todos os retornos comentados,

so retorno o xml, as propriedades do componente não são preenchidas.

 

ps. vou ter que passar a fazer backup do esocial antes de atualizar os fontes, porque agora não tenho como gerar mais o esocial.

 

MemoResp.Lines.Text := ACBreSocial1.WebServices.ConsultaLote.RetWS;
    (*
    with MemoDados.Lines do
    begin
      Add('');
      Add('Código Retorno: ' +
        IntToStr(ACBreSocial1.WebServices.ConsultaLote.RetProcLote.Status));
      Add('Mensagem: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
        Descricao);
      if ACBreSocial1.WebServices.ConsultaLote.RetProcLote.Status in ([201, 202])
      then
      begin
        Add('ideEmpregador');
        Add(' - TpInsc: ' +
          IntToStr(ord(ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
          IdeEmpregador.TpInsc)));
        Add(' - NrInsc: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
          IdeEmpregador.NrInsc);
        Add('ideTransmissor');
        Add(' - TpInsc: ' + eSTpInscricaoToStr(
          ACBreSocial1.WebServices.ConsultaLote.RetProcLote.IdeTransmissor.TpInsc));
        Add(' - NrInsc: ' + ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
          IdeTransmissor.NrInsc);
        Add('dadosRecepcaoLote');
        Add(' - dhRecepcao: ' + DateTimeToStr
          (ACBreSocial1.WebServices.ConsultaLote.RetProcLote.dadosRecLote.
          dhRecepcao));
        Add(' - versaoAplicativoRecepcao: ' +
          ACBreSocial1.WebServices.ConsultaLote.RetProcLote.dadosRecLote.
          versaoAplicRecepcao);
        Add(' - protocoloEnvio: ' + ACBreSocial1.WebServices.ConsultaLote.
          RetProcLote.dadosRecLote.Protocolo);

        for Index := 0 to ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
          retEventos.Count - 1 do
        begin
          retEvento := ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
            retEventos.Items[Index];
          if retEvento.Processamento.cdResposta <> EmptyStr then
          begin
            Add('Processamento');
            Add(' - cdResposta: ' + retEvento.Processamento.cdResposta);
            Add(' - descResposta: ' + retEvento.Processamento.descResposta);
            Add(' - versaoAplicProcLote: ' +
              retEvento.Processamento.versaoAplicProcLote);
            Add(' - dhProcessamento: ' +
              DateTimeToStr(retEvento.Processamento.dhProcessamento));
            Add('Recibo');
            Add(' - nrRecibo: ' + retEvento.Recibo.FnrRecibo);
            Add(' - hash: ' + retEvento.Recibo.Fhash);
          end;
          if retEvento.Processamento.Ocorrencias.Count > 0 then
          begin
            Add('Ocorrencias');
            for J := 0 to retEvento.Processamento.Ocorrencias.Count - 1 do
            begin
              Add(' Ocorrencia ' + IntToStr(J));
              Add('   Código:' +
                IntToStr(retEvento.Processamento.Ocorrencias.Items[J].Codigo));
              Add('   Descrição: ' + retEvento.Processamento.Ocorrencias.Items
                [J].Descricao);
              Add('   Tipo: ' +
                IntToStr(retEvento.Processamento.Ocorrencias.Items[J].Tipo));
              Add('   Localização:' + retEvento.Processamento.Ocorrencias.Items
                [J].Localizacao);
            end;
          end;
        end;
      end
      else
      begin
        for Index := 0 to ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
          retEventos.Count - 1 do
        begin
          retEvento := ACBreSocial1.WebServices.ConsultaLote.RetProcLote.
            retEventos.Items[Index];
          Add('Ocorrencias');
          for J := 0 to retEvento.Processamento.Ocorrencias.Count - 1 do
          begin
            Add(' Ocorrencia ' + IntToStr(J));
            Add('   Código:' +
              IntToStr(retEvento.Processamento.Ocorrencias.Items[J].Codigo));
            Add('   Descrição: ' + retEvento.Processamento.Ocorrencias.Items[J]
              .Descricao);
            Add('   Tipo: ' + IntToStr(retEvento.Processamento.Ocorrencias.Items
              [J].Tipo));
            Add('   Localização:' + retEvento.Processamento.Ocorrencias.Items[J]
              .Localizacao);
          end;
        end;
      end;
    end;
    *)

[Italo Giurizzato Junior]

Bom dia Edmar,

Por favor faça um backup e atualiza os fontes e faça novos testes com o programa exemplo, tanto de envio do lote quanto de consulta.

[EdmarFrazao]

na unit pcesRetConsultaLote

quando a retorno com ocorrencias da um erro.

 

 RetEventos.Add;
          RetEventos.Items.IDEvento := FLeitor.rAtributo('Id=', 'evento');

  ate aqui funciona.

quando vai adicionar qualquer evento da erro, creio que o item "TRetEventosCollectionItem"

se tentar acessar qualquer propriedade de "TRetEventosCollectionItem" da erro.

 

          if leitor.rExtrai(4, 'recepcao') <> '' then
          begin
          {  RetEventos.Items.Recepcao.tpAmb               := eSStrTotpAmb(Ok, Leitor.rCampo(tcStr, 'tpAmb'));
            RetEventos.Items.Recepcao.dhRecepcao          := Leitor.rCampo(tcDatHor, 'dhRecepcao', '');
            RetEventos.Items.Recepcao.versaoAplicRecepcao := Leitor.rCampo(tcStr, 'versaoAppRecepcao');
            RetEventos.Items.Recepcao.Protocolo           := Leitor.rCampo(tcStr, 'protocoloEnvioLote');
            }
          end;

 

[EdmarFrazao]

Acho que as propriedade não foram atribuídas todas estão com nil

recepção esta nil

processamento esta nil

recibo esta nil

[Italo Giurizzato Junior]

Bom dia Edmar,

Você poderia anexar o XML de retorno referente a consulta?

[EdmarFrazao]

Segue em anexo.

 

Obrigado.

20180206113150-sit.xml

[EdmarFrazao]

Este outro não tem ocorrências

mas o recibo tem que ser lido, creio que o recibo tem que esta em um propriedade separada

20180206131240-sit.xml

[Rafael Dias]

Tente com esta unit.

pcesRetConsultaLote.pas

[EdmarFrazao]

esta unit da erro na leitura do retorno também

erro apartir da linha

 RetEventos.Items.evtDupl :=
            StrToBool(FLeitor.rAtributo('evtDupl=', 'evento'));

          if Leitor.rExtrai(4, 'retornoEvento') <> '' then

 

e não pega os protocolos ( veja exemplo acima de xml de retorno)

[EdmarFrazao]

se mudar na unit  

de:

 if Leitor.rExtrai(5, 'eSocial') <> '' then

para

if Leitor.rExtrai(4, 'eSocial') <> '' then

passar a ler a tab

mas ainda da erro ,

RetEventos.Items.Recepcao ( todos)

RetEventos.Items.Processamento(todos)

 RetEventos.Items.Recibo.nrRecibo(todos)

todos estão com nil, acho que a classe não foi declarada(não tenho certeza)

[Paulo Aguiar Junior]

O erro está exatamente onde o Edmar disse...

RetEventos.Items.evtDupl := StrToBool(FLeitor.rAtributo('evtDupl=', 'evento'));

O leitor não encontra o "evtDupl" e aí a função tenta converter uma String '' p/ Boolean e da o erro.

Pelo que percebi, o XML de retorno não está vindo com a Tag evtDupl...embora no layout a ocorrência dele esteja 1, e não 0-1.

E aí como da erro nessa linha, não está sendo executado o que está abaixo, que é onde iria atribuir os valores para Processamento, Recepcao e Recibo

 

Editado 6 Fevereiro, 2018 por Paulo Aguiar Junior

[Rafael Dias]

Na verdade a informação é ambígua ele diz que o atributo é obrigatório mais na descrição diz que só vem se for verdadeiro ou seja governo fazendo merda até na documentação.

[EdmarFrazao]

mas o problema não e so esta.

todos os objetos abaixo desta não aceita ter informações é como se não tivessem sido definidos.

 

RetEventos.Items.Recepcao ( todos)

RetEventos.Items.Processamento(todos)

 RetEventos.Items.Recibo.nrRecibo(todos)

[Paulo Aguiar Junior]

1 minuto atrás, EdmarFrazao disse:

mas o problema não e so esta.

todos os objetos abaixo desta não aceita ter informações é como se não tivessem sido definidos.

 

RetEventos.Items.Recepcao ( todos)

RetEventos.Items.Processamento(todos)

 RetEventos.Items.Recibo.nrRecibo(todos)

Esse problema eu corrigi, vou postar aqui p/ análise.

Agora o único problema está nos níveis do Leitor.Extrai.

O Extrai da forma que está não sei se vai dar certo, pois por exemplo, quando houver a tag Ocorrencias, o nível do Recibo será um, quando não houver, será outro.

[Paulo Aguiar Junior]

1 hora atrás, Rafael Dias disse:

Na verdade a informação é ambígua ele diz que o atributo é obrigatório mais na descrição diz que só vem se for verdadeiro ou seja governo fazendo merda até na documentação.

Dá uma analisada nessa unit, está corrigido o problema dos access violation referente a Recepcao, Processamento e Recibo.

O problema era que não estava passando no TRetEventosCollectionItem.Create.

Agora precisamos acertar os erros dos níveis do Leitor.Extrai

pcesRetConsultaLote.pas

[EdmarFrazao]

ok resolveu o retorno.

Acho que o Recibo deveria ter uma hierarquia acima.

 

veja os dois xml que postei o 2o o recibo esta na mesma hierarquia de "<processamento>"

[Paulo Aguiar Junior]

Fiz o teste de um retorno com Ocorrencias, e de um apenas com o Recibo.

Ambos deu certinho.

Faz novamente por favor o teste Edmar..

[Italo Giurizzato Junior]

Boa tarde pessoal,

Vou enviar para o repositório a correção da unit mais a atualização do programa exemplo, favor atuar e fazer novos testes.

Desde já muito obrigado.

[EdmarFrazao]

ok  envio e retorno ok
protocolo
recibo
ocorrencias.
mensagems

Testes com os Eventos
S1000
S1005
S1010
S1020
S1030
S1050

Inclusive com o SEQUENCIAL implementado

Obrigado a todos pelo excelente trabalho.