Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

AcbrTEF Impressão sem Corte das Vias


Go to solution Solved by Juliomar Marchetti,

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 to post
Share on other sites

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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other 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 to post
Share on other 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 to post
Share on other sites

Sim. então é mesmo no código que juntamos e para manter compatibilidade está assim.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other 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 to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...