Jump to content
Notícias do ACBr

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

click.png

click.png

click.png

click.png

click.png

click.png

AutoSize dos campos Uso Exclusivo do Emissor do CT-e (ObsCont) e Reservado ao Fisco (ObsFisco)


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

Recommended Posts

Bom dia,

Após realização de alguns testes foi identificado problema na impressão das informações dos campos Uso Exclusivo do Emissor do CT-e (ObsCont) e Reservado ao Fisco (ObsFisco). Ao incluir mais de 4 registros a qualquer um dos campos ocorrem inconsistências na impressão com o componente FortesReport.

O campo Uso Exclusivo do Emissor do CT-e (ObsCont) corta a informação do quinto registro e não exibe os registros do sexto ao décimo, e, o campo Reservado ao Fisco (ObsFisco), exibe uma linha em branco antes de imprimir as informações cadastradas pelo usuário e, não exibe os registros do quarto ao décimo.

Os fontes do ACBr foram atualizados no dia de hoje 07/12/2018 às 10h30.

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 rlb_16_DadosExcEmitente: TRLBand
      Left = 26
      Top = 1985
      Width = 742
      Height = 70
      AutoSize = True
      BandType = btHeader
      Color = clWhite
      ParentColor = False
      BeforePrint = rlb_16_DadosExcEmitenteBeforePrint
      object RLDraw71: TRLDraw
        Left = 0
        Top = 1
        Width = 741
        Height = 67
        Brush.Style = bsClear
      end
      object RLLabel165: TRLLabel
        Left = 566
        Top = 4
        Width = 102
        Height = 12
        Caption = 'RESERVADO AO FISCO'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        Transparent = False
      end
      object RLLabel7: TRLLabel
        Left = 142
        Top = 4
        Width = 171
        Height = 12
        Caption = 'USO EXCLUSIVO DO EMISSOR DO CT-E'
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Times New Roman'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        Transparent = False
      end
      object rlmObsExcEmitente: TRLMemo
        Left = 5
        Top = 17
        Width = 492
        Height = 49
		AutoSize = True
        Behavior = [beSiteExpander]
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Times New Roman'
        Font.Style = []
        IntegralHeight = True
        Lines.Strings = (
          'OBS LINHA 1'
          'OBS LINHA 2')
        ParentColor = False
        ParentFont = False
      end
      object RLDraw27: TRLDraw
        Left = 1
        Top = 15
        Width = 740
        Height = 1
        HelpContext = 1
        Brush.Style = bsClear
        DrawKind = dkLine
      end
      object RLDraw3: TRLDraw
        Left = 500
        Top = 1
        Width = 1
        Height = 67
        Angle = 90.000000000000000000
        Brush.Style = bsClear
        DrawKind = dkLine
      end
      object rlmObsFisco: TRLMemo
        Left = 509
        Top = 17
        Width = 228
        Height = 49
		AutoSize = True
        Behavior = [beSiteExpander]
        Color = clWhite
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -9
        Font.Name = 'Times New Roman'
        Font.Style = []
        IntegralHeight = True
        Lines.Strings = (
          'OBS LINHA 1'
          'OBS LINHA 2')
        ParentColor = False
        ParentFont = False
      end
    end

 

ACBrCTeDACTeRLRetrato.pas (linha 2333)

procedure TfrmDACTeRLRetrato.rlb_16_DadosExcEmitenteBeforePrint(Sender: TObject;
  var PrintIt: boolean);
var
  i, vHeight: integer;
begin
  inherited;
  PrintIt := RLCTe.PageNumber = 1;

  rlmObsExcEmitente.Lines.BeginUpdate;
  rlmObsExcEmitente.Lines.Clear;
  rlmObsFisco.Lines.BeginUpdate;
  rlmObsFisco.Lines.Clear;

  for i := 0 to (fpCTe.Compl.ObsCont.Count - 1) do
    with fpCTe.Compl.ObsCont.Items[i] do
    begin
      rlmObsExcEmitente.Lines.Add(StringReplace(xCampo, '<BR>',
        #13#10, [rfReplaceAll, rfIgnoreCase]) + ': ' +
        StringReplace(xTexto, '<BR>', #13#10, [rfReplaceAll, rfIgnoreCase]));
    end;

  rlmObsExcEmitente.Lines.Text :=
    StringReplace(rlmObsExcEmitente.Lines.Text, ';', #13, [rfReplaceAll]);
  rlmObsExcEmitente.Lines.EndUpdate;

  // Incluido por Italo em 17/09/2012
  if Length(Trim(fpCTe.Imp.infAdFisco)) > 0 then
    rlmObsFisco.Lines.Add(StringReplace(fpCTe.Imp.infAdFisco, '<BR>',
      #13#10, [rfReplaceAll, rfIgnoreCase]));

  for i := 0 to (fpCTe.Compl.ObsFisco.Count - 1) do
    with fpCTe.Compl.ObsFisco.Items[i] do
    begin
      rlmObsFisco.Lines.Add(StringReplace(xCampo, '<BR>', #13#10,
        [rfReplaceAll, rfIgnoreCase]) + ': ' + StringReplace(xTexto,
        '<BR>', #13#10, [rfReplaceAll, rfIgnoreCase]));
    end;

  rlmObsFisco.Lines.Text := StringReplace(rlmObsFisco.Lines.Text, ';',
    #13, [rfReplaceAll]);
  rlmObsFisco.Lines.EndUpdate;

  if (rlmObsExcEmitente.Lines.Count > 0) or (rlmObsFisco.Lines.Count > 0) then
  begin
    vHeight := rlmObsExcEmitente.Height + 20;
    if rlmObsFisco.Height > rlmObsExcEmitente.Height then
      vHeight := rlmObsFisco.Height + 20;

    RLDraw71.Height := vHeight;
    RLDraw3.Height  := vHeight;
  end;
end;

A validação abaixo foi incluída para remover a linha em branco adicionada automaticamente ao imprimir o documento fiscal

// Incluido por Italo em 17/09/2012
if Length(Trim(fpCTe.Imp.infAdFisco)) > 0 then
  rlmObsFisco.Lines.Add(StringReplace(fpCTe.Imp.infAdFisco, '<BR>',
    #13#10, [rfReplaceAll, rfIgnoreCase]));

 

ACBrCTeDACTeRLRetrato.dfm

ACBrCTeDACTeRLRetrato.pas

  • Like 2
Link to comment
Share on other sites

  • Consultores

Bom dia Rodrigo,

Muito obrigado pela colaboração, ainda hoje estarei analisando e se estiver tudo OK, vou enviar para o repositório.

  • Like 1
Consultor SAC ACBr Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Link to comment
Share on other sites

  • Este tópico foi criado há 961 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.