Jump to content

dev botao

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


Go to solution Solved by Renato Rubinho,
  • Este tópico foi criado há 384 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

 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

Link to comment
Share on other sites

  • Consultores

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.

  • Like 2
Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores

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.

  • Like 2
Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores

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
  • Like 2
Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

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;
 

Link to comment
Share on other sites

  • Consultores
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
image.png

e infoRecEv
image.png

 

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

Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Consultores

Obrigado por reportar.

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

Consultor SAC ACBr

Diego Folieni
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 384 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.