Atualizando essa situação...
Resolvi o problema (ou melhor, fugi dele) desabilitando a opção Mostrar Status do componente ACBrNFeDANFeFR. Isso faz com que não seja apresentada a tela com o progresso da impressão. O problema deve estar neste form. Não tive ainda como olhar mais a fundo.
Fiz a seguinte alteração:
removi a definição da variável Liquidação e sua inicialização e alterei o teste dessa forma:
For i:=0 to ACBrBoleto1.ListadeBoletos.Count -1 do
if ACBrBoleto1.ListadeBoletos.OcorrenciaOriginal.Tipo in [toRetornoLiquidado,
toRetornoLiquidadoEmCartorio,
toRetornoLiquidadoParcialmente,
toRetornoLiquidadoSaldoRestante,
toRetornoLiquidadoSemRegistro,
toRetornoLiquidadoPorConta,
toRetornoLiquidadoEmCartorio,
toRetornoLiquidadoAposBaixaOuNaoRegistro] then
begin
end;
Pelo menos não existiu nenhum erro na compilação. Acredito que funcione sem problemas. Seria uma boa prática? Só penso no caso de existir a necessidade de teste em mais lugares. Teria que reescrever sempre.
Obrigado.
Claudiney
Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.