Impressao do comprovante do TEF imprimindo em duplicidade

[amarildolacerda]

 

procedure TACBrECFVirtualBufferClass.LinhaRelatorioGerencial(Linha: AnsiString; IndiceBMP: Integer);
begin
  inherited;
  Imprimir( AjustaLinhaColunas(Linha) );
end;

procedure TACBrECFVirtualBufferClass.LinhaCupomVinculado(Linha: AnsiString);
begin
  inherited;    // Amarildo Lacerda... estava duplicando a impressao
  //LinhaRelatorioGerencial( Linha, 0 );
end;

 

ACBrECFVirtualBuffer.pas

Editado 28 Agosto, 2015 por amarildolacerda

[Daniel Simoes]

Obrigado Amarildo... já enviei para o SVN, (com pequenas modificações)