Alteração arquivo ACBrDANFCeFortesFr.pas

[Itajahy]

Bom dia pessoal,

fiz uma pequena correção no procedimento TACBrNFeDANFCeFortesFr.rlVendaBeforePrint do arquvio ACBrDANFCeFortesFr.pas, adicionei  imgLogo.Height no calculo do TotalPaginaPixel,

pra corrigir o erro de criar 2 paginas quando usa logo marca.  

 

  TotalPaginaPixel := rlbsCabecalho.Height +
                      rlbRodape.Height +
                      rlbLegenda.Height +
                      rlbPagamento.Height +
                      rlbLei12741.Height +
                      rlbMensagemContribuinte.Height +
                      rlbMensagemFiscal.Height +
                      rlbConsumidor.Height +
                      rlsbDetItem.Height +
                      imgLogo.Height +
                      Trunc(rlbDetItem.Height * ACBrNFeDANFCeFortes.FpNFe.Det.Count) ;

 

Alguém poderia corrigir no tortoise?  Sempre q baixa uma nova versão tenho que lembrar de alterar isso novamente.

ACBrDANFCeFortesFr.rar

[Régys Silveira]

Você está considerando quando a logo está invisível? Não seria o caso de testar se tem logo e adicionar ou não conforme?

[Itajahy]

verdade,