Impressão do CTe Rodoviário com Fortes Report

[sergiom]

Boa noite

Qual o problema em modificar de 4 para 10, aumentando a quantidade de NFe na impressão no Fortes Reports modo Retrato?

cdsDocumentos.recNo > 4     ->>>>    cdsDocumentos.recNo > 10
 

Tenho alguns clientes que reclamam que dá 2 páginas,a impressão do CTe e sobra espaço em branco no final da primeira página.

Atenciosamente

Sérgio

Unit   ACBrCTeDACTeRLRetrato.Pas  localizada em ACBr\Fontes\ACBrDFe\ACBrCTe\DACTE\Fortes.

 

procedure TfrmDACTeRLRetrato.rlb_07_HeaderItensBeforePrint(Sender: TObject;
  var PrintIt: boolean);
begin
  inherited;

  rlb_07_HeaderItens.Enabled :=
    (((fpCTe.Ide.tpCTe = tcNormal) or (fpCTe.Ide.tpCTe = tcComplemento) or
    (fpCTe.Ide.tpCTe = tcSubstituto)) and (fpCTe.ide.modelo <> 67));
  if (rlb_07_HeaderItens.Enabled) then
  begin

    rlDocOrig_tpDoc1.Lines.Clear;
    rlDocOrig_tpDoc2.Lines.Clear;

    if (RLCTe.PageNumber <= 1) then
      cdsDocumentos.First
    else
      PrintIt := (not cdsDocumentos.EOF);

    while not cdsDocumentos.EOF do
    begin
      if cdsDocumentos.FieldByName('TIPO_1').AsString <> '' then
      begin
        rlDocOrig_tpDoc1.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_1').AsString,
          33, ' ') + PadRight(cdsDocumentos.FieldByName('CNPJCPF_1').AsString, 54, ' ') +
          cdsDocumentos.FieldByName('DOCUMENTO_1').AsString);
      end;
      if cdsDocumentos.FieldByName('TIPO_2').AsString <> '' then
      begin
        rlDocOrig_tpDoc2.Lines.Add(PadRight(cdsDocumentos.FieldByName('TIPO_2').AsString,
          33, ' ') + PadRight(cdsDocumentos.FieldByName('CNPJCPF_2').AsString, 54, ' ') +
          cdsDocumentos.FieldByName('DOCUMENTO_2').AsString);
      end;
      cdsDocumentos.Next;

      if (RLCTe.PageNumber > 1) then
        Inc(Linhas);
      if ((cdsDocumentos.recno > 10) and (RLCTe.PageNumber = 1) or (Linhas > 70)) then
        break;

    end;

    rlDocOrig_tpDoc1.Height := Round(rlDocOrig_tpDoc1.Lines.Count * 12);
    rlDocOrig_tpDoc2.Height := Round(rlDocOrig_tpDoc2.Lines.Count * 12);
    rld_07_headerItens.Height := rlb_07_HeaderItens.Height - 12;

  end
  else
  begin
    rlb_07_HeaderItens.AutoSize := False;
    rlb_07_HeaderItens.Height := 0;
  end;
end;

 

procedure TfrmDACTeRLRetrato.rlb_11_ModRodLot104AfterPrint(Sender: TObject);
begin
  inherited;

  if ((cdsDocumentos.recNo > 10) and (rlCte.PageNumber = 1)) then
    RLCte.newpage;
end;

 

[Juliana Tamizou]

Bom dia.

Por favor anexe o arquivo alterado e um pdf com exemplo de como ficou após a alteração.

Att.

[sergiom]

Bom dia,

eu só alterei o texto em vermelho, trocando de 4 para 10.
A imagem do CTe, anexei a parte da metade para baixo, apagando alguns dados, pois meus clientes são muito chatos com divulgação de informação da empresa, por conta da grande concorrência atual.

Se precisar, no privado te envio a informação completa.

Grato

Sérgio

 

cteteste.pdf ACBrCTeDACTeRLRetrato.pas ACBrCTeDACTeRLRetrato.dfm

[Italo Giurizzato Junior]

Boa tarde Sergio,

Me envia no privado um XML que sem a sua alteração estava imprimindo 2 folhas.

[Italo Giurizzato Junior]

Bom dia Sergio,

Muito obrigado pela colaboração, já enviei para o repositório.