Danfe em fast Report

[cwfsa]

Bom dia, estou fazendo alterações no meu sistema emissor de notas e dentre as mudanças estou passando a usar o Danfe em Fast, porém estou com um probleminha: a logo marca no fast não está ficando expandida, eu marco a propriedade expandido para true porém ela sai pequena no lado esquerdo. no rave funcionava direitinho. Alguém sabe se é um problema no arquivo do Fast, ou é alguma cabeçada minha?

Grato.

[Juliomar Marchetti]

Bom dia

Estive olhando os fontes e ele não foi implementado ainda pelo que percebi

se quiser contribuir com a alteração .

[cwfsa]

mexi aqui e consegui contornar o problema. Eis meus dois centavos de colaboração:

na Unit ACBrNFeDANFEFRDM.pas

na procedure CarregaParametros adicionei a seguinte linha

FieldDefs.Add('LogoExpandido', ftString, 1);

na mesma procedure logo abaixo onde tem o segunite comentário e o comando

// Carregamento da imagem

if DANFEClassOwner.Logo <> '' then

FieldByName('Imagem').AsString := DANFEClassOwner.Logo;

acrescentei o seguinte comando:

if DANFEClassOwner.ExpandirLogoMarca then

FieldByName('LogoExpandido').AsString := '1'

else

FieldByName('LogoExpandido').AsString := '0';

no arquivo Danfe.fr3 no evento PageHeader1OnBeforePrint, acrescentei as seguintes linhas

if Trim() = '1' then

begin

Memo10.Visible := False;

Memo11.Visible := False;

imgLogomarca.Width := imgLogomarca.Width+Memo10.Width;

end;

Não sei se é modo correto, mas funcionou.

Grato.

[Juliomar Marchetti]

Anexa a Unit alterada e o arquivo do fast report para que pessoal possa analisar e fazer o merge nos fontes

e desde já fica o agradecimento com a colaboração

[cwfsa]

Segue a unit e o arquivo do danfe para ser analisada

Foi um prazer contribuir, espero que seja útil. Eu é que agradeço pelo excelente componente que temos.

[ ]'s

Carlos Wilson.

DanfeFast.zip