Renato Rubinho

Bom dia Italo, Ainda não fiz testes em produção, mas segue https://reinf.receita.fazenda.gov.br/WsREINF/RecepcaoLoteReinf.svc Com relação à versão, até esta última, sempre que implementaram uma nova descontinuaram a anterior.

Bom dia @Italo Jurisato Junior, Atualizei o componente, validei todos os eventos e está tudo ok. Segue o programa de exemplo com a implementação da opção de Limpeza da Base disponível apenas para "Produção Restrita" ACBr.rar

Pode ser algum erro no seu ambiente. Para mim funciona normalmente com A1 e A3 Seguem algumas sugestões para você tentar identificar o que está errado aí: 1. Tem que assinar com LibXml2 2. Envia com o programa de exemplo e veja se não tem algum detalhe de configuração que está esquecendo 3. Veja os caminhos dos schemas, se estiverem na rede, tem que estar com unidade mapeada 4. Veja se consegue abrir wsdl com seu certificado https://preprodefdreinf.receita.fazenda.gov.br/WsREINF/RecepcaoLoteReinf.svc

Boa tarde Paulo, As urls do seu xml estão erradas: <Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/envioLoteEventos/v1_03_00"> <Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/evtInfoContribuinte/v1_03_00"> deveriam ser <Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/envioLoteEventos/v1_03_02"> <Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/evtInfoContribuinte/v1_03_02"> * Ou seu fonte não está atualizado * Ou você não reinstalou o componente após atualizar os fontes que passei. * Ou falta apenas informar a versão correta no componente ACBrReinf1.Configuracoes.Geral.VersaoDF := v1_03_02; // nova

Bom dia @Italo Jurisato Junior, Seguem fontes com implementações do Reinf: 1. Configurada versão 1_03_02 2. Removida opção de Dados Fictícios 3. Configuradas novas urls 4. Adicionada opção para "Limpar base de dados para o contribuinte - Produção Restrita" Obs: Fiz testes nos eventos e apenas o 2099 parece não estar funcionando perfeitamente, pois consultando o protocolo retorna "Em Processamento" permanentemente (até o momento que fiz o último teste, 30min após enviar o 2099). ACBR.rar

Confirma se seu caminho está correto realmente. O que você postou: C:\ACBR_Atualizado\Exemplos\ACBrDFe\ACBrReinf\Delphi\Schemas está fora do padrão do componente "..\Acbr\Exemplos\ACBrDFe\Schemas\Reinf"

Boa tarde Italo, Segue fonte com correção da consulta. @RKawano, obrigado pela ajuda. ACBrReinf_R5011.rar XmlsExemplo.rar

Da uma olhada se a forma como fiz o GetEvento no Reinf ( interface + TR5001 + TR5011 ) está de acordo. Já está no svn. Caso precise fazer algo diferente, vamos implementar no Reinf tbm para padronizar este tipo de tratamento. Veja se acha melhor alterar de interface para uma classe ancestral em comum que resolveria o problema sem necessidade da função.

Não acredito que seja algo tão simples, mas espero seja... Como você disse que no eSocial funciona, já é uma boa notícia. Obs: O problema aparentemente não está no id apenas. A menos que o erro no id (mesmo sem ser acionado) desencadeie erros nas demais propriedades. Qualquer propriedade do EvtTotal apresenta o mesmo problema. Segue outro exemplo, comentei a linha da leitura do id e a próxima também apresentou o mesmo problema. Seguem links sobre o que falei a respeito do problema de cast no Delphi 7: http://hallvards.blogspot.com.br/2004/07/hack-7-interface-to-object-in-delphi.html http://blog.barrkel.com/2011/03/ugly-alternative-to-interface-to-object.html

Bom dia, Efetuei o teste novamente conforme exemplo abaixo e, mesmo atribuindo à variável ( R5001: TR5001) ocorre access violation ao tentar ler as propriedades.

Obrigado pelo retorno Rafael. Eu também havia testado atribuindo à variável conforme seu exemplo, não dá erro para compilar mas também dava access violation ao tentar ler as propriedades. Vi agora que no exemplo que passei não coloquei o índice da collection, mas no meu sistema tenho quase certeza que estava correto senão nem compilaria. Cheguei a encontrar artigos na internet referente a problemas de cast com interface no Delphi 7, dando como solução, funções monstruosas para resolver o problema. Não estou com o ambiente aqui para testar, na segunda-feira eu testo novamente e aviso.

Bom dia Italo, Ok. Vou ver, estou em outro projeto é assim que possível vejo se coloco essa consulta no componente. Quando criei as outras classes, não tinha o 5011 ainda na versão 1_02. Quando puder, só dá uma olhada no cast por favor, para ver se deixamos com a função para retornar o objeto, se substituimos a interface por classe ou se tem alguma forma de fazer o cast como está agora. Pelo que pesquisei, do jeito que tá só vi opção criando uma função.

Só vou consegui testar segunda-feira, mas ainda não fiz nada do 5011. Você pode passar o exemplo que está utilizando?

Boa tarde Italo, Não vi que havia a leitura na 5001 após mudarem o "TEnvioLote.TratarResposta". Desculpe mais uma vez. Por favor, desconsidere as alterações da unit pcnReinfRetEventos, o problema em si é no item (2) para ler as propriedades após o envio. Não consigo fazer o cast sem essa implementação que mandei (gera access violation). Sabe se existe alguma alternativa para conseguir ler as propriedades através da Interface ? Estou mandando a unit do demo junto deste novo fonte com o cenário do problema para você entender, detalhes abaixo Exemplo: if ACBrReinf1.Enviar then begin for i:=0 to ACBrReinf1.WebServices.EnvioLote.RetEnvioLote.evento.Count - 1 do begin // 1. Funcionando: com a implementação da nova função GetEvento // with TR5001( ACBrReinf1.WebServices.EnvioLote.RetEnvioLote.evento.Items.Evento.GetEvento ) do // 2. Não funcionando: com o fonte anterior, fazendo o cast do Evento dá access violation em qualquer propriedade. Ex: EvtTotal.id with TR5001( ACBrReinf1.WebServices.EnvioLote.RetEnvioLote.evento.Items.Evento ) do begin mmoRet.Lines.Add('EvtTotal.id: '+ EvtTotal.id); mmoRet.Lines.Add('cdRetorno: '+ EvtTotal.IdeStatus.cdRetorno); mmoRet.Lines.Add('descRetorno: '+ EvtTotal.IdeStatus.descRetorno); mmoRet.Lines.Add('nrRecArqBase: '+ EvtTotal.InfoTotal.nrRecArqBase); end; end; Obrigado ACBrReinf003.rar

Boa tarde @Italo Jurisato Junior, Desculpe, sempre atualizo os fontes antes de dar manutenção, tinha atualizado segunda-feira e acabei não checando se houveram novas implementações até ontem. 1. Seguem implementações, com o fonte atual, alimentando as propriedades: EvtTotal.id EvtTotal.IdeStatus.cdRetorno EvtTotal.IdeStatus.descRetorno EvtTotal.IdeStatus.regOcorrs.tpOcorr EvtTotal.IdeStatus.regOcorrs.localErroAviso EvtTotal.IdeStatus.regOcorrs.codResp EvtTotal.IdeStatus.regOcorrs.dscResp EvtTotal.infoRecEv.nrProtEntr EvtTotal.infoRecEv.dhProcess EvtTotal.infoRecEv.tpEv EvtTotal.infoRecEv.idEv EvtTotal.infoRecEv.hash EvtTotal.InfoTotal.nrRecArqBase 2. IEventoReinf >>> function GetEvento: TObject; Como a propriedade TeventoCollectionItem.FEvento foi criada como interface não é possível fazer o cast para os respectivos eventos (5001 ou 5011) para poder preencher as propriedades. Para conseguir fazer o cast, criei a função GetEvento para devolver o objeto. A alternativa seria herdar a 5001 e 5011 de uma classe principal e declarar o TeventoCollectionItem.FEvento como a classe principal ao invés da Interface. Att ACBrReinf002.rar