Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

Postado

estou usando Fortes.
 

procedure TACBrNFeDANFCeFortesFr.FormataTextoItemParaNormal(out LinhaItem: string; out LinhaTotal: string);
var
  infoAdProd: string;
begin
  with ACBrNFeDANFCeFortes.FpNFe.Det.Items[fNumItem] do
  begin
    LinhaItem := IntToStrZero(Prod.nItem, 3) + ' ' + // DEBUG {IntToStr(mLinhaItem.Width) + ','+}
                 ACBrNFeDANFCeFortes.ManterCodigo(Prod.cEAN, Prod.cProd) + ' ' + Trim(Prod.xProd);

    infoAdProd := ACBrNFeDANFCeFortes.ManterinfAdProd(ACBrNFeDANFCeFortes.FpNFe, fNumItem);
    if Trim(infoAdProd) <> '' then
      LinhaItem := LinhaItem + infoAdProd;
    LinhaTotal := '|' + ACBrNFeDANFCeFortes.FormatarQuantidade(Prod.qCom, False) + '|' +
                  Trim(Prod.uCom) + ' X ' + ACBrNFeDANFCeFortes.FormatarValorUnitario(Prod.vUnCom) +
                  '|' + FormatFloatBr(Prod.vProd);
    LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 24, mLinhaTotalItem.Font);
  end;
end;

mLinhaTotalItem.Width - 24 ficou legal. mas nao sei o porque

esta cortando a linha total.

 

setei as margens. tanto que imprimir esta normal.

 

  • Este tópico foi criado há 1390 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.