Renato Rubinho

Boa noite,
Utilize o método GerarToken.
Veja no programa de exemplo, na aba Outros.

Boa tarde,
Banco do Brasil, a origem do valor não é considerada, apenas a instituição relacionada à empresa responsável pela geração dos dados.

Boa noite Rogerio,
Somente alterei a ordem das propriedades, seguindo o manual, para melhor entendimento e manutenção futura.
Foi enviado ao SVN na Rev-28796
Por favor, queira atualizar seus fontes, reinstalar o ACBr, verificar e reportar se ficou tudo ok.

Está ok.
O intuito era confirmar se estava usando um arquivo .pfx.
Tenho um cliente em BH, não tenho acesso à base mas basta configurar o pfx para emitir.
Existem cadastros distintos para emissão em produção e homologação.
Confirme se o cadastro está habilitado para o ambiente que está utilizando.
 

Boa tarde,
Instale novamente os componentes desmarcando a opção “Deixar somente a pasta LibXX no Libray Path do Delphi”.
Veja este link do Regys com maiores informações sobre o instalador.
https://regys.com.br/acbr-conhecendo-melhor-as-opcoes-do-acbrinstall/?amp=1

Não, a sefaz não disponibiliza webservice para isso.

Boa tarde,
Até o momento o ambiente de produção não havia sido liberado para a versão 2.1.
Foram feitos testes em produção restrita e não apresentou este tipo de problema.
Caso não esteja com os fontes mais recentes, experimente atualizar, reinstalar os componentes e fazer uma nova transmissão para avaliar.
Se o problema persistir, favor anexar os soaps do envio e retorno para análise ou se considerar que sejam dados sensíveis, envie para o e-mail [email protected]

Boa noite @Sistema Auditor
Validados os ajustes enviados nas Rev. 28666 e 28667 para não levantar exceção quando a resposta estiver fora de 200..202.
Por favor, atualize seus fontes e reinstale os componentes para novos testes.
 

Boa noite,
Já está no SVN.
 

Boa tarde,
Veja se este código é útil para você.
 
 

Boa tarde,
Você consegue gerá-los com o programa de exemplo, exceto os 9000 que são retornos que você terá ao consultar os protocolos gerados nos envios dos demais.

Boa noite,
Está correto, este .reg adiciona no registro do Windows os caminhos das bpls geradas.
Quando você deu um clique duplo nele, qual foi a mensagem?
Verifique no registro do Windows se as informações foram adicionadas em:
HKEY_CURRENT_USER\Software\Embarcadero\BDS\21.0\Known Packages
Caso o problema persista, para fazer manualmente o mesmo que o .reg faz, após o Build ALL, clique com o botão direto sobre cada pacote iniciado com "DCL" e clique em instalar.

Bom dia,
Os xmls que anexou possuem apenas eventos e resumos de eventos.
A propriedade que você está buscando informações é referente ao resumo da NFe.
Veja um trecho do programa de exemplo, botão de consulta por último nsu, como identificar o schema relacionado ao NSU recebido.
for i := 0 to docZip.Count -1 do begin case docZip[i].schema of schresNFe: MemoDados.Lines.Add(IntToStr(i+1) + ' NSU: ' + docZip[i].NSU + ' (Resumo Nota) Chave: ' + docZip[i].resDFe.chDFe); schprocNFe: MemoDados.Lines.Add(IntToStr(i+1) + ' NSU: ' + docZip[i].NSU + ' (Nota Completa) Chave: ' + docZip[i].resDFe.chDFe); schresEvento: MemoDados.Lines.Add(IntToStr(i+1) + ' NSU: ' + docZip[i].NSU + ' (Resumo Evento) Chave: ' + docZip[i].resEvento.chDFe); schprocEventoNFe: MemoDados.Lines.Add(IntToStr(i+1) + ' NSU: ' + docZip[i].NSU + ' (Evento Completo) ID: ' + docZip[i].procEvento.Id); end; end;  

Sem problemas, são só avisos para melhorar o uso do fórum.
Tente assim:
//cnProtestarCorrido
CodigoNegativacao=1
//diCorridos
TipoDiasProtesto=0           
DataProtesto=dd/mm/yyyy
DiasDeProtesto=NN
 
*** Para entender o contexto, veja o código do componente que trata o preenchimento destes valores.
{C�digo para Protesto / Negativa��o} case CodigoNegativacao of cnProtestarCorrido : ACodProtesto := '1'; cnProtestarUteis : ACodProtesto := '2'; cnNegativar : ACodProtesto := '8'; cnNaoProtestar : ACodProtesto := '3'; else case TipoDiasProtesto of diCorridos : ACodProtesto := '1'; else ACodProtesto := '2'; end; end; {Data e Dias de Protesto / Negativa��o} if (ACodProtesto = '8') then begin DataProtestoNegativacao := DateToStr(DataNegativacao); DiasProtestoNegativacao := IntToStr(DiasDeNegativacao); end else begin if (ACodProtesto <> '3') then begin DataProtestoNegativacao := DateToStr(DataProtesto); DiasProtestoNegativacao := IntToStr(DiasDeProtesto); end else begin DataProtestoNegativacao := ''; DiasProtestoNegativacao := '0'; end; end; Composição do segmento.
IfThen((DataProtestoNegativacao <> '') and (StrToInt(DiasProtestoNegativacao) > 0), ACodProtesto, '3') + // 221 - C�digo de protesto IfThen((DataProtestoNegativacao <> '') and (StrToInt(DiasProtestoNegativacao) > 0), PadLeft(DiasProtestoNegativacao, 2, '0'), '00') + // 222 a 223 - Prazo para protesto (em dias)  

Boa tarde,
O problema deve estar aqui
Tente assim
with evtRet do
ao invés de
with evtTotal do

Boa tarde,
Leia o manual de orientação, especialmente o item  a respeito de uso abusivo / rate limiting.
Uma sugestão é colocar um tempo de espera entre as consultas, pois fatalmente um dia poderá ser penalizado por essa prática.
http://sped.rfb.gov.br/estatico/89/C87BFB863314B3BDF6692D6D68AE360836F41B/ManualOrientacaoDesenvolvedor-REINF-v2.2.pdf
Não, a consulta interna/automática seria realizar um novo evento e fica a critéria de cada aplicação fazer como achar melhor.
Acredito que receita alterou para ser assíncrono, pois o processamento pode não ser imediato e muito provavelmente nunca será, só tendendo a piorar quanto maior for a demanda.
 

O certificado foi instalado no perfil do usuário logado, mas o serviço deve estar utilizando o usuário "System" ou algo parecido, que não tem o certificado instalado.
Vá nas propriedades do serviço instalado no Windows, configure para logar com o mesmo usuário e senha que foi instalado o certificado e deve funcionar.
Lembrando que o A3 é só dor de cabeça, ainda mais em situações como essa, fale para o cliente comprar um A1, utilize OpenSSL, arquivo pfx e acabe com seus problemas.

Boa tarde,
Se for A3, mantenha essas configurações como estão e seguem sugestões:
* Reinstale o driver da leitora, confirme se está com o driver mais recente
* Faça todas as atualizações do Windows
Se for A1, tente com OpenSSL:
SSLLib := libOpenSSL
SSLCryptLib := cryOpenSSL
SSLHttpLib := httpOpenSSL
Copie as dlls atuais na pasta do seu exe.
trunk2/DLLs/OpenSSL/1.1.1.10/
Lembrando, se a sua aplicação for x86, use as dlls x86, mesmo que o S.O. seja 64.

Preencha o COD_VER com o valor esperado pelo validador.
../trunk2/Fontes/ACBrTXT/ACBrSPED/ACBrSPEDPisCofins/ACBrEPCBlocos.pas
unit ACBrEPCBlocos; interface uses SysUtils, Classes, DateUtils, ACBrTXTUtils; type /// Vers�o do Leiaute do arquivo - TRegistro0000 TACBrCodVer = ( vlVersao100, // C�digo 001 - Vers�o 100 ADE Cofis n� 31/2010 de 01/01/2011 vlVersao101, // C�digo 002 - Vers�o 101 ADE Cofis n� 34/2010 de 01/01/2011 vlVersao200, // C�digo 002 - Vers�o 200 ADE Cofis n� 20/2012 vlVersao201, // C�digo 003 - Vers�o 201 ADE Cofis n� 20/2012 de 14/03/2012 vlVersao202, // C�digo 004 vlVersao310, // C�digo 005 - ADE Cofis n� 82/2018 - Apura��o em 01/01/2019 vlVersao320 // C�digo 006 - ADE Cofis ??? - Apura��o em 01/01/2020 ); TACBrVersaoLeiaute = TACBrCodVer;  

Boa tarde,
Está recebendo alguma rejeição específica?
Veja se está preenchendo o NFe.infRespTec.CNPJ, que é condição para gerar esse grupo de informações.
../trunk2/Fontes/ACBrDFe/ACBrNFe/PCNNFe/pcnNFeW.pas
procedure TNFeW.GerarinfRespTec; begin if (NFe.infRespTec.CNPJ <> '') then begin Gerador.wGrupo('infRespTec', '#081'); Gerador.wCampoCNPJ('#82', NFe.infRespTec.CNPJ, CODIGO_BRASIL, True); Gerador.wCampo(tcStr, '#083', 'xContato', 02, 60, 1, NFe.infRespTec.xContato, DSC_XCONTATO); Gerador.wCampo(tcStr, '#084', 'email ', 06, 60, 1, NFe.infRespTec.email, DSC_EMAIL); Gerador.wCampo(tcStr, '#085', 'fone ', 07, 12, 1, NFe.infRespTec.fone, DSC_FONE); if (idCSRT <> 0) and (CSRT <> '') then begin Gerador.wCampo(tcInt, '#086', 'idCSRT ', 02, 02, 1, idCSRT, DSC_IDCSRT); Gerador.wCampo(tcStr, '#087', 'hashCSRT', 28, 28, 1, CalcularHashCSRT(CSRT, FChaveNFe), DSC_HASHCSRT); end; Gerador.wGrupo('/infRespTec'); end; end;  

Veja se falta instalar a LibXml2 e/ou OpenSSL.
Veja se este tópico lhe ajuda.
Se 

Debugue esse ponto e veja se não estão chegando ambas com espaço ao invés de vazias.
Só vai gerar essa exceção se ambas estiverem preenchidas e forem iguais.
Com ambas em branco não levanta essa exceção de acordo com esse trecho de código que você colou.
 

Boa tarde,
Atualize seus fontes, reinstale os componentes e veja se o problema persiste.
Veja que para este provedor já está configurado para levar o código formatado e sem zeros à esquerda.
../trunk2/Fontes/ACBrDFe/ACBrNFSeX/Provedores/ISSIntel.GravarXml.pas
procedure TNFSeW_ISSIntel.Configuracao; begin inherited Configuracao; DivAliq100 := True; FormatoItemListaServico := filsComFormatacaoSemZeroEsquerda; end;  

Boa noite,
Utilize a DistribuicaoDFePorUltNSU.
Ela irá baixar todos dos documentos pendentes em lotes de até 50 registros.
Leia o tópico a seguir e a NT, também indicada nele, para entender como o processo funciona.
 

Boa tarde,
Atualize seus fontes, pois os eventos foram já implementados, mas a transmissão na nova versão está em análise para desenvolvimento.
Acompanhe o tópico a seguir para quando houverem novidades.