Nada de especial... criei um método próprio dentro do PDV... e devo sempre usa-lo ao invez de chamar os comandos diretos do ACBrECF...
Exemplo, para leituraX temos:
{-----------------------------------------------------------------------------}
procedure TFrVenda.aLeituraXExecute(Sender: TObject);
begin
if errECFConfig in PDVErros then
exit ;
UIMemoProduto := '' ;
{ Grava o Documento no SQLite }
Documento.Novo( StrToInt( ACBrECF1.NumCOO )+1, 'LX', Now, 'Leitura X' );
ACBrTEFD1.BloquearMouseTeclado( True ) ;
try
try
ACBrECF1.LeituraX ;
Documento.Finaliza( now );
dml.GravaAuditoria('PDV_ECF_LX','Leitura X') ;
except
{ Se não imprimiu no ECF, Cancele tudo }
Documento.Exclui ;
raise ;
end ;
finally
ACBrTEFD1.BloquearMouseTeclado( False ) ;
end ;
{ Descarrega registros do SQLite para o FireBird... se houver conexão válida }
dml.GravarArquivos ;
end;
[/code]