Boa Noite. (De já hoje ter enviado uma mensagem direto e tu barbosa).
A versão encaminhada, esta com problema, no meu cenario, quanto ao uso em tef, para escecf, epson, e fiscnet, esta entrando em loop (não indo para estado de pagamento) a função subtotalizaCupom pois ao mandar "0", no desconto acrescimo, já entra em exit;
Acabei apenas colocando o código "fsEmPagamento := True ;" novamente no início da função
Mais creio que o esquemo do roberto passado tbm serveria....
if DescontoAcrescimo = 0 then
begin
fsEmPagamento := True ;
exit ;
end;