Danfe FastReport - Quebra de Linha nos Dados Adicionais

[mauriciobng]

Efetuei uma pequena correção nas quebras de linhas dos Dados Adicionais na Danfe do FastReport. 

Ao concatenar as informações dos campos infAdFisco e infCpl não estava quebrando a linha.

Método alterado:

Function TACBrNFeFRClass.ManterInfAdi( swObs : String ) : String;
var
  i : Integer;
  TmpStr, TmpInfoFisco : String;
begin
  result := swObs;
  TmpStr := '';
  TmpInfoFisco := '';
  with FNFe.InfAdic do
  begin

    for i := 0 to ObsFisco.Count - 1 do
    begin
      with ObsFisco.Items do
        TmpStr := TmpStr + XCampo + ': ' + XTexto + ';';
    end;

    //Fisco
    if Length(InfAdFisco) = 0 then
      TmpInfoFisco := ''
    else
      TmpInfoFisco := InfAdFisco + ';';

    result  := result + TmpStr + TmpInfoFisco;
    TmpStr  := '';
    for i := 0 to ObsCont.Count - 1 do
    begin
      with ObsCont.Items do
        TmpStr := TmpStr + XCampo + ': ' + XTexto + ';';
    end;
    //Inf. Complementar
    if Length(InfCpl) = 0 then InfCpl := '';

    result  := result + TmpStr + InfCpl;
  end;
end;

 

ACBrNFeDANFEFRDM.pas

[Juliomar Marchetti]

Existem muitas diferenças entre seu arquivo e o que está no svn.

 

[Juliana Tamizou]

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.