Gabriel Bonzanini

Pessoal, agradeço pela ajuda. Vou deixar registrado aqui o que ocorreu, para o caso de mais alguém precisar:
As pastas onde se encontram os arquivos BPL e DCP não podem ser abreviadas, utilizando variáveis do ambiente... No nosso caso, para reduzir a quantidade de caracteres da library, utilizávamos a variável $(BDS), que contém o diretório de instalação do Delphi, e também uma outra varíavel chamada $(BDS_COMP) que continha o diretório dos fontes dos componentes (no nosso caso, C:\Projetos\Componentes). O instalador do ACBr precisa que os caminhos dos arquivos BPL e DCP estejam declarados por extenso, o caminho completo digamos.
Grato pela ajuda de sempre.

Boa tarde pessoal.
Apenas passando para informar que a cidade de Nova Petrópolis/RS (Cód. IBGE 4313201), a qual já é atendida pelo ACBRNFSeX, está descontinuando a emissão pelo provedor Pronim, e aderindo ao webservice nacional:
https://www.novapetropolis.rs.gov.br/noticias/nova-petropolis-avanca-na-modernizacao-fiscal-com-a-adesao-ao-emissor-de-nota-nacional

Depois de muito "bater cabeça", descobri.
Como o conteúdo indesejado iniciava na property Configuracoes.WebService.Ambiente, fiquei desconfiado da mesma. Provavelmente, em algum refactoring, o nome dos elementos deste tipo enumerado foi alterado; como o .dfm já estava salvo com o nome antigo (e atualmente inexistente), o Delphi acabou se perdendo:
 

 
Grato pela ajuda @Antonio Gomes... Às vezes aparecem uns problemas aparentemente "sobrenaturais", mas depois vê-se a lógica dos mesmos hehehe
Acredito que o Delphi poderia avisar que o valor armazenado é atualmente inválido, mas tudo bem.

Boa tarde pessoal!
Na unit ACBrNFSeX.pas, método TACBrNFSeX.Emitir (linha 509 da versão do repositório), existe um sleep que acredito que possa ser evitado, caso o componente já tenha obtido o retorno desejado:
while (Situacao < 3) and (qTentativas < Tentativas) do begin FProvider.ConsultaSituacao; Situacao := StrToIntDef(FWebService.ConsultaSituacao.Situacao, 0); Inc(qTentativas); sleep(Intervalo); <<<<<<< end; Uma sugestão seria adicionar um if com as mesmas condições do laço, pois caso elas tenham sido atendidas, não há motivo para aguardar:
while (Situacao < 3) and (qTentativas < Tentativas) do begin FProvider.ConsultaSituacao; Situacao := StrToIntDef(FWebService.ConsultaSituacao.Situacao, 0); Inc(qTentativas); if (Situacao < 3) and (qTentativas < Tentativas) Then sleep(Intervalo); end; Outro formato, se preferirem, poderia ser utilizando um while True:
while True do begin FProvider.ConsultaSituacao; Situacao := StrToIntDef(FWebService.ConsultaSituacao.Situacao, 0); Inc(qTentativas); if (Situacao < 3) and (qTentativas < Tentativas) then sleep(Intervalo) else break; end;  
Abraço, e obrigado pelo trabalho de vocês, seus componentes são de grande ajuda!

Olá Andrey.
 
Vou anexar aqui as duas units atualizadas, pois a comunidade fez algumas alterações neste meio-tempo.
 
 
 
ACBrTEFD.pas
ACBrTEFDClass.pas