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á 599 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á 599 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.

The popup will be closed in 10 seconds...