Jump to content

dia-do-acbr-online.png

Ganhe acesso a todas Palestras
Assinando o Suporte ACBr Comercial

Saiba Mais


dia-do-acbr-online.png

logo_acbr_paygo.png

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


botao.png

beneficios.png

Impressão em Duas Linhas NFC-e


Go to solution Solved by José M. S. Junior,

Recommended Posts

  • Usuários SAC

Olá,

Estou precisando imprimir em duas linhas NFC-e devido algumas características de alguns itens  que possui garantias, ai o cliente que e saia impresso. 

Ativei a propriedades

 ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas   := True;
 ACBrNFeDANFCeFortes.ImprimeEmUmaLinha     := False;

imprime somente a primeira linha. 

Existem alguma outra propriedade para ser configurada?

ACBrNFeDANFCeFortes.MargemInferior        := 1;
ACBrNFeDANFCeFortes.MargemSuperior      := 1;
ACBrNFeDANFCeFortes.MargemEsquerda    := 1;
ACBrNFeDANFCeFortes.MargemDireita         := 1;
 

Link to post
Share on other sites

Bom dia, para que imprima a descrição em duas linhas, basta deixar a propriedade: ImprimeEmUmaLinha   false mesmo. Desde que a descrição ultrapasse o limite da primeira linha?

Como está imprimindo seu cupom? se possivel anexe um print e o seu XML .

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to post
Share on other sites
  • Usuários SAC

Informei a propriedade

ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas   := False;
 ACBrNFeDANFCeFortes.ImprimeEmUmaLinha     := False;

 

Depurando, chega nessa unit 

ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas com verdadeiro

ai não cai no else para FormataTextoItemParaNormal..

 

Forcei manual ai imprimiu corretamente para teste ...

 

procedure TACBrNFeDANFCeFortesFr.rlbDetItemBeforePrint(Sender: TObject;
  var PrintIt: Boolean);
var
  LinhaItem, LinhaTotal: string;
begin
  PrintIt := not Resumido;
  if not PrintIt then exit;

  mLinhaItem.Lines.Clear ;

// teste

ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas := false;

 

  if ACBrNFeDANFCeFortes.ImprimeEmUmaLinha then
  begin
    FormataTextoItemParaUmaLinha(LinhaItem);
    mLinhaItem.Lines.Text := LinhaItem;
  end
  else if ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas then
  begin
    FormataTextoItemParaDuasLinhas(LinhaItem, LinhaTotal);
    mLinhaItem.Lines.Text      := LinhaItem;
    mLinhaTotalItem.Lines.Text := LinhaTotal;
  end
  else
  begin
    FormataTextoItemParaNormal(LinhaItem, LinhaTotal);
    mLinhaItem.Lines.Text      := LinhaItem;
    mLinhaTotalItem.Lines.Text := LinhaTotal;
  end;
end;

Link to post
Share on other sites
  • Solution

É possível simular o problema utilizando o demo ACBrNFe? Verificando aqui funcionou normal essas propriedades setando direto no componente.

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to post
Share on other sites
×
×
  • Create New...