Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Lucas Peres da Silva

ConsultaReciboEvento

Recommended Posts

Notei um problema na utilização do método: ACBrReinf.consultarRecibo. De acordo com a implementação o método deve receber 3 parâmetros: 

TACBrReinf.ConsultaReciboEvento(const APerApur: String;  ATipoEvento: TTipoEvento; ACnpjPrestadorTomador:String='')

Porém de acordo com o layout do Reinf os eventos R2010 e o R2020 são enviados agrupados por CNPJ prestador e inscrição do estabelcimento/obra, não consegui obter o recibo correto no caso de ter mais de uma obra para um mesmo prestador/tomador.

Passando apenas o CNPJ do prestador obtenho o retorno:

<?xml version="1.0" encoding="UTF-8"?>
<Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/retornoRecibosChaveEvento/v1_04_00">
	<ideStatus>
		<cdRetorno>1</cdRetorno>
		<descRetorno>Um ou mais eventos encontrados</descRetorno>
	</ideStatus>

Que no caso acredito que devido ao fato de já ter enviado para envetos com o obras distintas para o mesmo prestador no mesmo período de apuração, acabo não conseguindo saber ao certo qual é o recibo correto para aquele CNO de obra.

 

Nesse caso acredito ser necessário acrescentar +1 parâmetro para indicar qual a inscrição do estabelecimento/obra para aquele evento e aquele cnpj prestador/tomador.

Seguem em anexo as alterações que fiz para analise e contribuição caso seja útil para mais alguém.

Obrigado


Att

reinf_consultaReciboEvento.patch

Share this post


Link to post
Share on other sites

Olá seguem as units:

ACBrReinf in '..\..\..\..\Fontes\ACBrDFe\ACBrReinf\ACBrReinf.pas',

pcnReinfConsulta in '..\..\..\..\Fontes\ACBrDFe\ACBrReinf\PCNReinf\pcnReinfConsulta.pas',

ACBrReinfWebServices in '..\..\..\..\Fontes\ACBrDFe\ACBrReinf\ACBrReinfWebServices.pas',

ACBrReinf.pas pcnReinfConsulta.pas ACBrReinfWebServices.pas

  • Like 1
  • Thanks 1

Share this post


Link to post
Share on other sites

Legal, obrigado Italo,

Atualizei o demo do AcbrReinf, para passar esse novo parâmetro, e também tive que fazer +1 alteração para consultar o R2020. 

Seguem os arquivos para analise.

acbr\Exemplos\ACBrDFe\ACBrReinf\Delphi\uExemploReinf.pas
acbr\Fontes\ACBrDFe\ACBrReinf\PCNReinf\pcnReinfConsulta.pas

Att

 

 

pcnReinfConsulta.pas uExemploReinf.pas pcnReinfConsulta.pas.patch

Edited by mysyfy
  • Like 1

Share this post


Link to post
Share on other sites

Boa tarde,

Esta ficando confuso essas trocas de propriedades, sugiro atribuir nomes iguais aos das tags, para evitar confusões futuras.

  • Like 1

Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites

Bom dia,

Por favor faça uma copia da sua implementação e atualize os fontes, ontem achei o manual que traz as especificações dessa consulta e fiz varias alterações, inclusive acrescentei a consulta de alguns eventos que ainda não tinham sido implementados.

Vou analisar o que você fez, desde já muito obrigado.

  • Like 1

Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites

Bom dia, tive que fazer 2 pequenas alterações para consultar o R2010 e R2020, pois estava retornado as seguintes rejeições:

Para o R2010:

<?xml version="1.0" encoding="UTF-8"?>
<Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/retornoRecibosChaveEvento/v1_04_00">
	<ideStatus>
		<cdRetorno>3</cdRetorno>
		<descRetorno>ERRO</descRetorno>
		<regOcorrs>
			<tpOcorr>1</tpOcorr>
			<localErroAviso/>
			<dscResp>Número de inscrição do estabelecimento em desacordo com o tipo de inscrição. Para tipo de inscrição CNPJ devem ser informados 14 dígitos e para tipo inscrição CNO devem ser informadas 12 dígitos</dscResp>
		</regOcorrs>
	</ideStatus>
</Reinf>

e para o R2020:

<?xml version="1.0" encoding="UTF-8"?>
<Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/retornoRecibosChaveEvento/v1_04_00">
	<ideStatus>
		<cdRetorno>3</cdRetorno>
		<descRetorno>ERRO</descRetorno>
		<regOcorrs>
			<tpOcorr>1</tpOcorr>
			<localErroAviso/>
			<dscResp>CNPJ inválido.</dscResp>
		</regOcorrs>
	</ideStatus>
</Reinf>

 

Alterações em anexo:

pcnReinfConsulta.pas.patch pcnReinfConsulta.pas

  • Like 2

Share this post


Link to post
Share on other sites

Bom dia,

Obrigada pela contribuição, alterações adicionadas para análise.

Att.

  • Like 2

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Share this post


Link to post
Share on other sites

Bom dia mysyfy,

Com essa alteração não vai gerar efeito colateral ao consultar os eventos: 2050, 2060 e 3010?

Visto que esses três eventos que mencionei também devemos informar o nrInscEstab.


Consultor SAC ACBr Italo Jurisato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Share this post


Link to post
Share on other sites

Bom dia Italo,

De acordo com o Manual de Orientação do Desenvolvedor 1.4, o layout da mensagem de entrada p/ todos os registros consultáveis, o campo: número de inscrição do estabelecimento é sempre de 12 ou 14 posições, e também o nrInscTomador no caso do 2010 e do 2020. O único campo é cortado nas primeiras 8, é a inscrição do contribuinte.

http://sped.rfb.gov.br/estatico/86/04B49C6BED90C5DACC3EDFB499938D35003FB2/ManualOrientacaoDesenvolvedor-REINF v1.04.00.pdf

nrInscEstab Obrigatório Número de inscrição do estabelecimento (14 posições completado com zeros à esquerda)

A alteração foi a seguinte:

Index: pcnReinfConsulta.pas
===================================================================
--- pcnReinfConsulta.pas	(revision 16818)
+++ pcnReinfConsulta.pas	(working copy)
@@ -110,7 +110,6 @@
 
   if Length(nrInscEstab) = 14 then
   begin
-    nrInscEstab := Copy( nrInscEstab, 1, 8 );
     FtpInscEstab := '1';
   end
   else
@@ -118,7 +117,6 @@
 
   if Length(nrInscTomador) = 14 then
   begin
-    nrInscTomador := Copy( nrInscTomador, 1, 8 );
     FtpInscTomador := '1';
   end
   else

 

Manual de Orientação do Desenvolvedor, pág. 49. Layout msg entrada consulta registro R2050:

nrInscEstab Obrigatório Número de Inscrição do Estabelecimento que Comercializou a Produção (14 posições completado com zeros à esquerda).

Layout msg entrada consulta registro R2060:

nrInscEstab Obrigatório Número de inscrição do estabelecimento que auferiu a receita bruta (12 ou14 posições completado com zeros à esquerda)

Layout msg entrada consulta registro R3010:

InscEstab Obrigatório Número de inscrição do estabelecimento 55 (14 posições completado com zeros à esquerda).

 

  • Like 1

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...