ACBRNFe erro na impressão das duplicatas no DANFE em FastReport (A vista) (TRUNK2)

[windsoft]

Corrigi um erro na impressão das duplicatas do DANFE em fastreport na trunk2.

Foi modificada a função: CarregaDuplicatas da unit ACBRNFeDANFEFRDM, na trunk1 era assim:

  with cdsDuplicatas do
  begin
    Close;
    CreateDataSet;

    for i := 0 to NFe.Cobr.Dup.Count - 1 do
    begin

  ...

Na trunk2 está assim:

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

    with cdsDuplicatas do
    begin
      Close;
      CreateDataSet;

      for i := 0 to NFe.Cobr.Dup.Count - 1 do
      begin
        Append;

...

O problema é que como o dataset "cdsDuplicatas" não é inicializado quando o pagamento é a vista, se antes de imprimir uma NF a vista você tiver imprimido uma NF a prazo, as duplicatas da NF a prazo são exibidas na NF a vista.

A unit corrigida está anexo. Favor disponibilizar para todos.

 

ACBrNFeDANFEFRDM.pas

ACBrNFe-change-log.txt

[Juliomar Marchetti]

No svn a correção

obrigado