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
=====