Chegou a programar o evento ComandaECF do ACBrTEFD?
procedure TForm1.ACBrTEFD1ComandaECF(Operacao : TACBrTEFDOperacaoECF;
Resp : TACBrTEFDResp; var RetornoECF : Integer );
Var
Est : TACBrECFEstado ;
P : Integer;
Linha, CodFPG : String ;
ValorFPG : Double ;
begin
Memo1.Lines.Add('ComandaECF: '+GetEnumName( TypeInfo(TACBrTEFDOperacaoECF),
integer(Operacao) ));
try
Est := ACBrECF1.Estado;
case Operacao of
opeAbreGerencial :
ACBrECF1.AbreRelatorioGerencial ;
opeCancelaCupom :
if Est = estNaoFiscal then
ACBrECF1.CancelaNaoFiscal
else
ACBrECF1.CancelaCupom;
opeFechaCupom :
if Est = estNaoFiscal then
ACBrECF1.FechaNaoFiscal('Projeto ACBr|http://acbr.sf.net')
else
ACBrECF1.FechaCupom('Projeto ACBr|http://acbr.sf.net');
opeSubTotalizaCupom :
if Est = estNaoFiscal then
ACBrECF1.SubtotalizaNaoFiscal( 0, 'Projeto ACBr|http://acbr.sf.net' )
else
ACBrECF1.SubtotalizaCupom( 0, 'Projeto ACBr|http://acbr.sf.net' );
opeFechaGerencial, opeFechaVinculado :
ACBrECF1.FechaRelatorio ;
opePulaLinhas :
begin
ACBrECF1.PulaLinhas( ACBrECF1.LinhasEntreCupons );
ACBrECF1.CortaPapel( True );
Sleep(200);
end;...