Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.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

click.png

click.png

click.png

AutoSize do campo Observações (xObs) na impressão utilizando FortesReport


wmrodrigo
Go to solution Solved by Juliomar Marchetti,
  • Este tópico foi criado há 836 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Boa Tarde,

Após relato de cliente sobre problemas na impressão das informações do campo Observações, identificou-se que, dependendo da formatação da String setada no campo "ACBrCTe1.Conhecimentos.Add.CTe.Compl.xObs" a impressão do CT-e com o componente FortesReport apresentou alguns comportamentos inconsistentes.

Ao setar o campo "xObs" com String no formato "1000_caracteres_aleatórios" + #13 + "500_caracteres_aleatórios" resulta na impressão dos primeiros 1000 caracteres e os demais não são exibidos.

Ao setar o campo "xObs" com String no formato "1000_caracteres_aleatórios" + "1000_caracteres_formatados_com_diversos_parágrafos" resulta na impressão de parte da informação e parte da informação extrapola o limite do campo Observações (imagem em anexo).

Para solucionar o descrito, realizei algumas modificações no arquivo acbr/code/trunk2/Fontes/ACBrDFe/ACBrCTe/DACTE/Fortes/ACBrCTeDACTeRLRetrato.pas e no arquivo acbr/code/trunk2/Fontes/ACBrDFe/ACBrCTe/DACTE/Fortes/ACBrCTeDACTeRLRetrato.dfm (ambos em anexo).

ACBrCTeDACTeRLRetrato.dfm

object rlmObs: TRLMemo
	Left = 5
	Top = 19
	Width = 730
	Height = 45
	AutoSize = True
	Behavior = [beSiteExpander]
	Color = clWhite
	Font.Charset = DEFAULT_CHARSET
	Font.Color = clWindowText
	Font.Height = -8
	Font.Name = 'Times New Roman'
	Font.Style = []
	IntegralHeight = True
	Lines.Strings = (
	  'OBS LINHA 1'
	  'OBS LINHA 2'
	  'OBS LINHA 3'
	  'OBS LINHA 4')
	ParentColor = False
	ParentFont = False
  end

ACBrCTeDACTeRLRetrato.pas (linha 2113)

// Ajusta o tamanho do quadro conforme a OBS
rlsQuadro08.Height := rlmObs.Height + 20;

 

 

inconsistência_observações.jpg

ACBrCTeDACTeRLRetrato.dfm

ACBrCTeDACTeRLRetrato.pas

  • Like 2
Link to comment
Share on other sites

  • Consultores
  • Solution

Boa noite.

sua sugestão foi incorporada aos fontes do svn .

apliquei também para o lazarus

  • Like 2
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 comment
Share on other sites

  • 3 months later...

Bom dia,

Após a atualização do componente, a impressão em modo de homologação começou a "Não" aparecer a mensagem de "AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL" na parte da observação, mas somente quando não havia observação informada, devido ao componente "rlmObs" ter sido alterado a propriedade "AutoSize=True".

Portanto ao emitir um cte em homologação e não contem observação, deve-se adicionar linhas em branco no componente "rlmObs" para ele ficar do tamanho onde a mensagem de homologação caiba.

// ACBrCTeDACTeRLRetrato

Var i : integer;

begin
   ....
Linha 1746
// Mensagem para modo Homologacao.
  rllMsgTeste.Visible := False;
  rllMsgTeste.Enabled := False;

  if fpCTe.Ide.tpAmb = taHomologacao then
  begin
    if rlmObs.Lines.Count < 5  then
    begin
       rlmObs.Lines.BeginUpdate;
       for i:=rlmObs.Lines.Count to 5 do
          rlmObs.Lines.Add('');
       rlmObs.Lines.EndUpdate;
    end;
    rllMsgTeste.Caption := ACBrStr('AMBIENTE DE HOMOLOGAÇÃO - SEM VALOR FISCAL');
    rllMsgTeste.Visible := True;
    rllMsgTeste.Enabled := True;
  end
  else ...

 

Por favor  ,se puderem efetuar o teste @wmrodrigo e @Juliomar Marchetti caso haja outro modo de fazer ou corrigir;

 

Edited by elrond
Link to comment
Share on other sites

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

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...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.