Ir para conteúdo
  • Cadastre-se

dev botao

AcbrTEF Impressão sem Corte das Vias


Ver Solução Respondido por Juliomar Marchetti,
  • Este tópico foi criado há 1085 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde pessoal!
Estou com um problema no acbrTEFD ou algo assim.

Quando meu cliente faz uma venda no cartão, que é autorizado a compra, é impresso uma via do Cliente e uma via do Estabelecimento, porém essas vias eram cortadas na guilhotina da impressora, atualmente esta imprimindo as duas vias, sem fazer o corte!
Já olhei nas configurações do Gerenciador do Cartão (Que no caso é o Cappta) e no fonte do acbrTEFD...
Alguma dica ?

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Então basta tu pegar e mandar o comando no meio das vias

vai depende de como está programando a impressão se ESC POS é só mandar

no caso do ACBrTEFD senão me engano foi juntado para evitar problemas com algumas ECF na época

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

27 minutos atrás, Juliomar Marchetti disse:

Então basta tu pegar e mandar o comando no meio das vias

vai depende de como está programando a impressão se ESC POS é só mandar

no caso do ACBrTEFD senão me engano foi juntado para evitar problemas com algumas ECF na época

Essa é a questão... não estou encontrando aonde eles foram juntados!
Meu código totalmente igual ao fonte raiz do ACBRTEFD, so não encontrei ainda aonde ele unificou! rsrs

Link para o comentário
Compartilhar em outros sites

10 minutos atrás, Juliomar Marchetti disse:

Mas olha no evento do ACBrTEFD o imprimirvia evento

procedure TDmsive.ACBrTEFD1ComandaECFImprimeVia(
  TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer;
  ImagemComprovante: TStringList; var RetornoECF: Integer);

var vcount:integer;
begin
 try
    if debug = 1 then
      ShowMessage('Verifique os arquivos do TEF de retorno');

    DmVendas.CdsImagemComprovanteTEf.EmptyDataSet;
    for vcount := 0 to ImagemComprovante.Count - 1 do
    begin
      DmVendas.CdsImagemComprovanteTEf.Append;
      DmVendas.CdsImagemComprovanteTEfTexto.AsString := ImagemComprovante[vcount];
      DmVendas.CdsImagemComprovanteTEf.Post;
    end;

    Dmreports.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName) + 'relatorios\Gerencial\ComprovanteTef.fr3');
   
    Dmreports.frxReport.PrintOptions.ShowDialog := False;
    Dmreports.frxReport.PrepareReport(true);
    Dmreports.frxReport.Print;   

    Dmreports.frxReport.Clear;


    RetornoECF := 1;
  except
    RetornoECF := 0;
  end;
end;

 

 

Eu fiz assim.. rsrs

Link para o comentário
Compartilhar em outros sites

Em 06/04/2021 at 17:48, Marcus Mendes disse:

procedure TDmsive.ACBrTEFD1ComandaECFImprimeVia(
  TipoRelatorio: TACBrTEFDTipoRelatorio; Via: Integer;
  ImagemComprovante: TStringList; var RetornoECF: Integer);

var vcount:integer;
begin
 try
    if debug = 1 then
      ShowMessage('Verifique os arquivos do TEF de retorno');

    DmVendas.CdsImagemComprovanteTEf.EmptyDataSet;
    for vcount := 0 to ImagemComprovante.Count - 1 do
    begin
      DmVendas.CdsImagemComprovanteTEf.Append;
      DmVendas.CdsImagemComprovanteTEfTexto.AsString := ImagemComprovante[vcount];
      DmVendas.CdsImagemComprovanteTEf.Post;
    end;

    Dmreports.frxReport.LoadFromFile(ExtractFilePath(Application.ExeName) + 'relatorios\Gerencial\ComprovanteTef.fr3');
   
    Dmreports.frxReport.PrintOptions.ShowDialog := False;
    Dmreports.frxReport.PrepareReport(true);
    Dmreports.frxReport.Print;   

    Dmreports.frxReport.Clear;


    RetornoECF := 1;
  except
    RetornoECF := 0;
  end;
end;

 

 

Eu fiz assim.. rsrs

 


Eu vou tentar desmembrar nesse codigo mesmo... para não alterar nada no que vem do ACBR. 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1085 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...