Dados de duplicata em danfe fastreport não aparece

[Igor Cibiac]

Ao gerar o DANFE FastReport, não é dastacado as informações de duplicata.

 

Verificado no arquivo ACBrNFeDAFEFRDM existe o método CarregaDuplicatas, onde está com o seguinte código:

 

procedure TACBrNFeFRClass.CarregaDuplicatas;
var
  i: Integer;
begin
  cdsDuplicatas.Close;
  cdsDuplicatas.CreateDataSet;
  if (FDANFEClassOwner is TACBrNFeDANFEClass) and
     Not ((TACBrNFeDANFEClass(FDANFEClassOwner).ExibeCampoFatura) and
          (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10)) then
  begin

    with cdsDuplicatas do
    begin
      for i := 0 to (NFe.Cobr.Dup.Count - 1) do
      begin
        Append;
        with FNFe.Cobr.Dup[i] do
        begin
          FieldByName('ChaveNFe').AsString  := FNFe.infNFe.ID;
          FieldByName('NDup').AsString      := NDup;
          FieldByName('DVenc').AsString     := FormatDateBr(DVenc);
          FieldByName('VDup').AsFloat       := VDup;
        end;
        Post;
      end;
    end;
  end;
end;

 

 

Alterado para:

 

procedure TACBrNFeFRClass.CarregaDuplicatas;
var
  i: Integer;
begin
  cdsDuplicatas.Close;
  cdsDuplicatas.CreateDataSet;
  if   Not ((TACBrNFeDANFEClass(FDANFEClassOwner).ExibeCampoFatura) and
          (FNFe.Ide.indPag = ipVista) and (FNFe.infNFe.Versao <= 3.10)) then
  begin

    with cdsDuplicatas do
    begin
      for i := 0 to (NFe.Cobr.Dup.Count - 1) do
      begin
        Append;
        with FNFe.Cobr.Dup[i] do
        begin
          FieldByName('ChaveNFe').AsString  := FNFe.infNFe.ID;
          FieldByName('NDup').AsString      := NDup;
          FieldByName('DVenc').AsString     := FormatDateBr(DVenc);
          FieldByName('VDup').AsFloat       := VDup;
        end;
        Post;
      end;
    end;
  end;
end;

É apresentado corretamente da forma citada, para facilitar irei anexar os dois arquivos, com e sem modificação.

Caso tenha alguma sugestão ou orientação, favor compartilhar.

 

Grato!ACBrNFeDANFEFRDM.pasACBrNFeDANFEFRDM Modificado.pasACBrNFeDANFEFRDM Modificado.pasACBrNFeDANFEFRDM.pas