ConsultaReciboEvento

[Lucas Peres da Silva]

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

[Italo Giurizzato Junior]

Bom dia,

Favor anexar as units alteradas.

[Lucas Peres da Silva]

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

[Italo Giurizzato Junior]

Boa tarde, 

Muito obrigado pela colaboração, ainda hoje estarei enviando para o repositório.

[Lucas Peres da Silva]

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 March 13, 2019 by mysyfy

[Italo Giurizzato Junior]

Boa tarde,

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

[Lucas Peres da Silva]

Boa tarde, 

Seguem as units alteradas conforme a sugestão:

Nessa versão já liberei a consulta dos registros R2030, R2040 e R2050 que não estavam consultando (estavam sem preenchimento no pcnReinfConsulta.pas).

 

Att

ACBrReinfWebServices.pas pcnReinfConsulta.pas

[Italo Giurizzato Junior]

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.

[Lucas Peres da Silva]

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

[Juliana Tamizou]

Bom dia,

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

Att.

[Italo Giurizzato Junior]

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.

[Lucas Peres da Silva]

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).

 

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pelo retorno, vou envia a sua colaboração para o repositório.