Danfe FastReport [Fatura] - Correção

[hleorj]

Correção do post.

Na unit unit ACBrNFeDANFEFRDM;

- Adicionada a Critica em 

 - Se ExibeCampoFatura  igual  Verdadeiro   e Forma de pagamento igual a vista não apresentar os dados de duplicata.

procedure TACBrNFeFRClass.CarregaDuplicatas;

  if Not ( fExibeCampoFatura and (FNFe.Ide.indPag = ipVista) ) then
  Begin

- Adicionado  em cdsFatura o campo :    FieldDefs.Add('iForma'   , ftInteger);

- Que recebe o valor de Forma de pagamento :   FieldByName('iForma').asInteger := Integer( FNFe.Ide.indPag);

- A iForma é usada dentro das Danfes a seguir : DANFeRetratoNovo.fr3 , DANFeRetratoNovo_Dc.fr3 , DANFeRetrato_Dc.fr3,DANFeRetrato.fr3t

tendo a função seguir : 

procedure Memo190OnBeforePrint(Sender: TfrxComponent);
begin
  Fatura.Visible     := ( VarToStr(<Fatura."iForma">) <> '2');    
  MemoFatura.Visible := ( Trim( VarToStr(<Fatura."nfat">)) <> '');  
end;

-  Adcionado nas Danfes : MemoFatura, 

Visão DANFeRetratoNovo_Dc.fr3

==== Unit === 

Ajustados.rar

=====

Editado 16 Outubro, 2015 por hleorj

[Régys Silveira]

Integrado ao repositório.

Obrigado pela contribuição.