EFD-Reinf versão 2.1.1 Erro no R-4020

[magistech]

 Estou testando o componente sped Reinf e não estou tendo o retorno do recibo para o registro R4020, consulta feita pelo protocolo. O erro acontece na pcnReinfR9005, na function TevtRet.LerXML: boolean. Estou com projeto atualizado.

Obs.... Testei os registo 1000, 2010 2050 e 2055 e todos eles funcionando perfeitamente. Em anexo vou colocar o arquivo SOAP, gerado para R-4020.

Obrigado

20230213105806-sit-soap.xml

[Diego Foliene]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

Foi criada a #TK-3606 para uma análise mais aprofundada e parecer do consultor responsável.

[Renato Rubinho]

Boa tarde @Diego Foliene

É muito provável que seja o mesmo erro deste outro tópico que já contém o fonte aguardando análise para envio ao SVN.

 

[Diego Foliene]

Foi enviado na Rev-28497, alteração para corrigir o problema de List Index Out of Bonds.

A questão de não retornar o recibo para o registros da nova família 4000 ainda está em análise.

[Diego Foliene]

Boa tarde @magistech!
Por favor, pode atualizar seus fontes, reinstalar o ACBr e realizar novos testes?

Fiz alguns testes aqui e as informações do grupo infoRecEv, Informações de processamento dos eventos de acordo com o layout do R-9005, estão sendo lidas nas propriedades do objeto infoRecEvento.
Acessíveis via fonte

ACBrReinf.WebServices.Consultar.RetEnvioLote.evento.Items[Indice].evtRet.InfoRecEv.XXXX

[magistech]

Diego dentro InfoRecEv eu não tenho a propriedade do recibo. Pegando o código exemplo disponibilizado. 

Não sei o q to fazendo de errado:

with ACBrReinf1.WebServices.Consultar.RetEnvioLote do
begin
  for i:=0 to evento.Count - 1 do
  begin
    with evento.Items[i] do
     begin

     with mmoDados.Lines do
        begin
            if evtRet.Id <> '' then
            begin
              Add('');
              Add(' Evento: 9005');
               Add(' Evento Id: ' + Id);

               with evtTotal do
                begin
                  Add('   Id...........: ' + Id);
                  Add('   Cód Retorno..: ' + IdeStatus.cdRetorno);
                  Add('   Descrição....: ' + IdeStatus.descRetorno);
                   Add('   Nro Recibo...: ' + InfoTotal.nrRecArqBase);

                    Add('');
                    Add(' **Ocorrencias');

                     for j := 0 to IdeStatus.regOcorrs.Count - 1 do
                     begin
                     with IdeStatus.regOcorrs.Items[j] do
                       begin
                          Add('   Tipo............: ' + Inttostr(tpOcorr));
                           Add('   Local Erro Aviso: ' + localErroAviso);
                            Add('   Código Resp.... : ' + codResp);
                                Add('   Descricao Resp..: ' + dscResp);
                              end;
                            end;

                            Add('');
                            Add(' **Informações de processamento dos eventos ');

                            with InfoRecEv do
                            begin
                              Add('   Num. Protocolo de Entrega do Evento.: ' + nrProtEntr);
                              Add('   Data/Hora do Processamento do Evento: ' + DateTimeToStr(dhProcess));
                              Add('   Tipo do Evento......................: ' + tpEv);
                              Add('   ID do Evento........................: ' + idEv);
                              Add('   Hash do arquivo processado..........: ' + hash);
                            end;
                          end;
                        end;
                      end;
 

[Diego Foliene]

6 minutos atrás, magistech disse:

Diego dentro InfoRecEv eu não tenho a propriedade do recibo. Pegando o código exemplo disponibilizado. 

Não sei o q to fazendo de errado:

with ACBrReinf1.WebServices.Consultar.RetEnvioLote do
begin
  for i:=0 to evento.Count - 1 do
  begin
    with evento.Items[i] do
     begin

     with mmoDados.Lines do
        begin
            if evtRet.Id <> '' then
            begin
              Add('');
              Add(' Evento: 9005');
               Add(' Evento Id: ' + Id);

               with evtTotal do
                begin
                  Add('   Id...........: ' + Id);
                  Add('   Cód Retorno..: ' + IdeStatus.cdRetorno);
                  Add('   Descrição....: ' + IdeStatus.descRetorno);
                   Add('   Nro Recibo...: ' + InfoTotal.nrRecArqBase);

                    Add('');
                    Add(' **Ocorrencias');

                     for j := 0 to IdeStatus.regOcorrs.Count - 1 do
                     begin
                     with IdeStatus.regOcorrs.Items[j] do
                       begin
                          Add('   Tipo............: ' + Inttostr(tpOcorr));
                           Add('   Local Erro Aviso: ' + localErroAviso);
                            Add('   Código Resp.... : ' + codResp);
                                Add('   Descricao Resp..: ' + dscResp);
                              end;
                            end;

                            Add('');
                            Add(' **Informações de processamento dos eventos ');

                            with InfoRecEv do
                            begin
                              Add('   Num. Protocolo de Entrega do Evento.: ' + nrProtEntr);
                              Add('   Data/Hora do Processamento do Evento: ' + DateTimeToStr(dhProcess));
                              Add('   Tipo do Evento......................: ' + tpEv);
                              Add('   ID do Evento........................: ' + idEv);
                              Add('   Hash do arquivo processado..........: ' + hash);
                            end;
                          end;
                        end;
                      end;
 

@magistech, certo, vamos voltar um pouco e ir por partes.
Por favor, pode esclarecer o que quer dizer com recibo?

Considerando o Soap que disponibilizou para análise do problema.
Ele é lido no evento R-9005.
Se conferirmos o Layout dele(disponível aqui).
No meu entendimento, as informações que podem ser interpretadas como recibo são as do grupo 
ideRecRetorno

e infoRecEv

 

Ambas você pode acessar e verificar o valor depois de consultar, conforme o programa exemplo.

[Renato Rubinho]

Boa tarde,

O problema deve estar aqui

Tente assim

with evtRet do

ao invés de

with evtTotal do

[magistech]

Bom dia Renato e Diego, deu certo. Muito obrigado pelo apoio de vcs.

[Diego Foliene]

Obrigado por reportar.

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