TEF - Identificar tipo da VIA na impressão

[Renan S]

Boa tarde a todos,

Gostaria de saber se existe alguma maneira de saber o tipo do impresso (Via do Cliente ou Via do Estabelecimento), dentro da ComandaECFImprimeVia.

*Obs.: Como alternativa, pensei em fazer o POS, procurando o texto de via do Estabelecimento ou via do Cliente, porém não sei se seria a melhor opção...

 

Desde já, obrigado a todos!

[Juliomar Marchetti]

Mas qual seria a necessidade dessa identificação? pois as mesmas devem ser impressas

[Renan S]

5 minutos atrás, Juliomar Marchetti disse:

Mas qual seria a necessidade dessa identificação? pois as mesmas devem ser impressas

Existem duas situações que estão sendo solicitadas:
-Cliente não quer realizar a impressão da via do estabelecimento (Verificado no suporte da Auttar, é recomendado a impressão porém não é algo mais obrigatório, fica a critério do cliente o risco)
-Realizar a impressão em outra impressora

Por isso, precisava saber oque estou imprimindo para aplicar a logica necessária. 

[Daniel Simoes]

no componente ACBrTEFD
 

ACBrTEFD.Resp.ImagemComprovante1aVia.Text - Estabelecimento
ACBrTEFD.Resp.ImagemComprovante2aVia.Text - Cliente

 

[Renan S]

9 minutos atrás, Daniel Simoes disse:

no componente ACBrTEFD
 

ACBrTEFD.Resp.ImagemComprovante1aVia.Text - Estabelecimento
ACBrTEFD.Resp.ImagemComprovante2aVia.Text - Cliente

 

Entendi, mas teria como acessar pelo Evento ?
Pois a impressão faço pela ComandaECFImprimeVia

[Juliomar Marchetti]

Sim com o trecho de código acima

[Daniel Simoes]

Você recebe no evento, o número da via...

procedure TFormPrincipal.ACBrTEFD1ComandaECFImprimeVia(
  TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer;   // <----------- AQUI ----------
  ImagemComprovante: TStringList; var RetornoECF: Integer);
begin
  AdicionarLinhaLog( 'ACBrTEFD1ComandaECFImprimeVia: '+IntToStr(Via) );
  AdicionarLinhaImpressao( ImagemComprovante.Text );
  RetornoECF := 1 ;
end;    

 

[Renan S]

1 hora atrás, Daniel Simoes disse:

Você recebe no evento, o número da via...

procedure TFormPrincipal.ACBrTEFD1ComandaECFImprimeVia(
  TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer;   // <----------- AQUI ----------
  ImagemComprovante: TStringList; var RetornoECF: Integer);
begin
  AdicionarLinhaLog( 'ACBrTEFD1ComandaECFImprimeVia: '+IntToStr(Via) );
  AdicionarLinhaImpressao( ImagemComprovante.Text );
  RetornoECF := 1 ;
end;    

 

Obrigado!!

Era isso mesmo que precisava!

Obrigado!

[Daniel Simoes]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.