Paulo Alves N Junior

O ambiente de homologação está muito instável, consegui enviar o evento R1000 após algumas tentativas, mas mesmo após várias tentativas não consegui enviar um evento R2020

Não sei se poder ser configuração, eu usei as mesmas do exemplo do ACBr, segue: with Configuracoes do begin WebServices.AguardarConsultaRet := 5000; // tempo padrão que vai aguardar para consultar após enviar a NF-e WebServices.IntervaloTentativas := 3000; // Intervalo entre as tentativas de envio WebServices.Tentativas := 10; // quantidade de tentativas de envio WebServices.AjustaAguardaConsultaRet := True; // ajustar "AguardarConsultaRet" com o valor retornado pelo webservic end;

Boa tarde, não usei o programa exemplo para envio, mas já resolvi o problema, acontece que eu não tinha chamado o método "AssinarEventos". Está tudo funcionando corretamente.

Tente esse número de processo: 06154724520098200001 existem regras para validar o numero do processo http://wiki.tjro.jus.br/artigos/Número_Único_do_Processo_Judicial

Boa tarde, após a atualização dos fontes, não estou conseguindo enviar o R2099, os outros eventos são enviados, cancelados com sucesso. Alguém mais está enfrentando esta dificuldade? Segue em anexo o código que fiz seguindo o exemplo do ACBr r2099.txt

Problema resolvido, eu estava chamando o método "AssinarEventos" somente após gerar todos os eventos do meu lote. Passei a chamar este método após adicionar cada evento individualmente, desta forma consigo recuperar o ID gerado e gravar na minha base de dados, obrigado novamente.

Obrigado pelo retorno, mas o id retorna vazio.

Após a atualização dos fontes, não consigo recuperar o ID gerado antes do envio, como posso obter essa informação?

Parece que a funcionalidade de limpar a base de dados de homologação parou de funcionar, apesar de retornar "Sucesso", ao enviar novamente os eventos, o retorno informa que que já existem registros no período.

É o mesmo problema que tinha ocorrido comigo, descrito acima, faça a atualização dos fontes que o sr. Renato Rubinho postou loga acima, recompile o projeto e tente novamente. Verifique se o arquivo "ACBrReinfServicos.ini" está no diretório da aplicação Note que nome do elemento está incorreto, está enviando o elemento "tpProcRetPrinc", mas deveria enviar o "tpProcRetAdic"

Irei realizar os testes, obrigado. Estou utilizando as seguintes configurações: with SSL do begin DescarregarCertificado; SSLCryptLib := cryWinCrypt; //cryNone, cryOpenSSL, cryCapicom, cryWinCrypt sslhttplib := httpWinHttp; //httpNone, httpWinINet, httpWinHttp, httpOpenSSL, httpIndy SSLXmlSignLib := xsLibXml2; //xsNone, xsXmlSec, xsMsXml, xsMsXmlCapicom, xsLibXml2 end; Certificado do tipo A1, o diretório dos schemas fica local na minha máquina.

Realmente era problema de configuração do componente, mas mesmo assim continuo com o problema de xmlParseDoc. Tentei anexar o arquivo xml, mas está dando erro. <?xml version="1.0" encoding="UTF-8"?> <Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/envioLoteEventos/v1_03_02"> <loteEventos> <evento id="ID1022222222222222222042312551739610"> -<Reinf xmlns="http://www.reinf.esocial.gov.br/schemas/evtInfoContribuinte/v1_03_02">

Obrigado.

Debugando o componente, verifiquei que a URL resultante do envio de lote é 'https://preprodefdreinf.receita.fazenda.gov.br/RecepcaoLoteReinf.svc', no site da receita (http://sped.rfb.gov.br/pagina/show/2635), informa que a url é 'https://preprodefdreinf.receita.fazenda.gov.br/WsREINF/RecepcaoLoteReinf.svc', seria este o possível problema?

Boa tarde, desde a virada para a versão 1.03.02 não consegui enviar mais os eventos. Baixei seu fonte e recompilei o projeto, mas continuo com o mesmo problema, xmlparsedoc, saberia me informar onde está o erro no meu arquivo xmL? 20180423121719-env-lot.xml

Atualizei os esquemas, desde sexta_feira não consigo mais enviar os eventos. Alguém mais está com este problema?

Corrigindo, o evento de fechamento é o R2099 Note que no retorno do fechamento tem o protocolo, tag <nrProtEntr>

Cleyton, quando você recebe o retorno do evento com sucesso (<cdRetorno>0</cdRetorno><descRetorno>SUCESSO</descRetorno>), o número do recibo (<nrRecArqBase>192570-05-2010-1711-192570</nrRecArqBase>) é somente uma confirmação de recebimento do evento, após enviar o fechamento R2098, a receita enviará um xml de retorno informando o status. No meu caso, após enviar o fechamento recebi o xml informando que o lote ficou em processamento e após isso não consegui realizar a consulta do lote.

Consegui enviar o evento para limpar os dados do contribuinte, alterando o valor da tag <classTrib> para 99. Achei que dessa forma todos os eventos já enviados para esse contribuinte seriam apagados, não foi o que aconteceu, após limpar os dados tentei enviar um evento e recebi a mensagem que havia um lote fechado ou em processamento. A primeira imagem é o xml de envio, a segunda é o retorno do webservice, a terceira imagem é a resposta recebida ao tentar enviar um evento R2020

Bom dia, não consegui realizar a exclusão dos dados do contribuinte, seguindo a orientação do manual do desenvolvedor, alguém já efetuou esse procedimento?

Boa tarde, não posso postar toda a Unit, devido cláusula de confidencialidade da empresa onde trabalho, mas segue trecho do código: procedure carregaRetornoEvento(var Reg: RegRetornoEvento; TipoEvento: string; Evento: IEventoReinf); var evtR5001: TR5001; i: integer; mensagem: string; begin if TipoEvento = 'R5001' then begin evtR5001 := TR5001(Evento); Reg.Recibo := evtR5001.EvtTotal.InfoTotal.nrRecArqBase; Reg.TipoEvento := 'R' + evtR5001.EvtTotal.InfoRecEv.tpEv; Reg.xml := evtR5001.Xml; Reg.Ocorrencias.status := StrToInt(evtR5001.EvtTotal.IdeStatus.cdRetorno); if Reg.Ocorrencias.status = 1 then begin Reg.Ocorrencias.QtdOcorencias := evtR5001.EvtTotal.IdeStatus.regOcorrs.Count; for i := 0 to Reg.Ocorrencias.QtdOcorencias - 1 do begin mensagem := FormataString(Reg.TipoEvento, 8, 1); mensagem := mensagem + ' ' + FormataString(Reg.Identificador, 37, 1); mensagem := mensagem + ' ' + FormataString(evtR5001.EvtTotal.IdeStatus.regOcorrs.Items.codResp, 11, 1); mensagem := mensagem + ' ' + FormataString(evtR5001.EvtTotal.IdeStatus.regOcorrs.Items.dscResp, 200, 1); Avisos(mensagem); end; end; end; end;

Não sei se entendi bem essa questão de perder o número de recibo, no retorno do webservice estou recuperando as informações da seguinte forma: var evtR5001: TR5001; SpedReinf: TACBrReinf; SpedReinf.WebServices.EnvioLote.RetEnvioLote.evento.Items.Evento evtR5001 := TR5001(Evento); evtR5001.EvtTotal.InfoTotal.nrRecArqBase

Sim, já enviei os eventos R2010, R2020 e R2060, também consegui excluir estes eventos. Não consegui emitir o evento R1070 e nem o R2099 (fechamento), ocorre erro de 'xmlParseDoc'.

Se eu tivesse recebido o retorno de um lote com vários eventos distintos (R2010, R2020), ao tratar o retorno, como eu conseguiria usar a interface correta para cada tipo de evento, pois sempre está retornando como R5001 if pos('evtTotal', evento.Items(i).ArquivoReinf) > 0 then begin evento.Items(i).Tipo := 'R5001'; evento.Items(i).Evento := TR5001.Create; evento.Items(i]).Evento.Xml := evento.Items(i).ArquivoReinf; end; if pos('evtTotalContrib', evento.Items(i).ArquivoReinf) > 0 then begin evento.Items(i).Tipo := 'R5011'; evento.Items(i).Evento := TR5011.Create; evento.Items(i).Evento.Xml := evento.Items(i).ArquivoReinf; end;

Bom dia, após realizar o envio de um evento R2010, notei que a Unit pcnReinfRetEventos, verifica se existe a string "evtTotal" no xml, caso positivo é gerado o evento "R5001", mas dessa forma não consigo gerar corretamente as mensagens de validação para meu usuário, pois ao recuperar o tipo do evento, o retorno é o R5001 e não o R2010 enviado. Alguém sabe me informar se procede essa alteração do tipo do evento? if pos('evtTotal', evento.Items.ArquivoReinf) > 0 then begin evento.Items.Tipo := 'R5001'; evento.Items.Evento := TR5001.Create; evento.Items.Evento.Xml := evento.Items.ArquivoReinf; end;