danfe Alterações no DANFE FastReport

[levi]

Fiz uma alterações em alguns arquivos pois estava com problema na impressão do danfe. Foi adicionada um método para montar a impressão dos documentos referenciados e imprimir nas info. adicionais da NFe. O problema é que quem já fazia isso manualmente ficou com dados duplicados nas info. adicionais do Danfe.

Segue anexo os arquivos.

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFR-change-log.txt

ACBrNFeDANFEFRDM.pas

[hleorj]

@levi 

Sua sugestão se encontra em analise.

Ps:   

   Novas propriedades, requerem utilização nas danfe's desenvolvidas em fortes report e Fast report .

Grato

 

 

 

[hleorj]

Observações em analise e a implementar 

• Implementar na danfe paisagem ( danfe fortes report )
• Implementar na danfe Fast report ( danferetrato.fr3, danferetratonovo.fr3, danfepaisagem.fr3)
• Fora do padrão de implementação.

     wObs  := '';
      if FImprimirDadosDocReferenciados then
        wObs := ManterDocreferenciados;

  Teste 

   wObs := ManterDocreferenciados;
  
  Function TACBrNFeFRClass.ManterDocreferenciados : String;
  ..
  ..
  begin
   Result := '';
    if ( FImprimirDadosDocReferenciados ) and FNFe.Ide.NFref.Count > 0 then
    begin
  ....
  ...
    end;
  end;

   

[levi]

Seguem arquivos do Fast corrigidos, e os do Fortes com a adição do parâmetro.
Como o parâmetro altera o método que gera o conteúdo das informações adicionais, não é necessário alterar os modelos .fr3.

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFR-change-log.txt

ACBrNFeDANFEFRDM.pas

ACBrNFeDANFeRL.pas

ACBrNFeDANFeRL-change-log.txt

ACBrNFeDANFeRLClass.pas

[hleorj]

@levi

O seu arquivo ACBrNFeDANFeRLClass.pas  possui algumas divergências para o arquivo no SVN.

Favor proceder os ajustes.

Grato

[levi]

@hleorj, estou fazendo um Diff da minha versão com a do servidor e está apontando apenas as minhas alterações. Pode me informar onde estão as divergências ou a maneira correta de identificá-las?

[hleorj]

@levi

na sua versão 

procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil);
...
...

          fAlternaCoresProdutos,
          fCorDestaqueProdutos,
          200,
          200,
          10,
          10,
          False,
          10,
          0,
          FImprimirDadosDocReferenciados);
        end;
else
begin
...
..
      fCorDestaqueProdutos,
      200,
      200,
      10,
      10,
      False,
      10,
      0,
      FImprimirDadosDocReferenciados);
    end;
 finally
   FreeAndNil(frlDANFeRL);
 end;
end;

no SVN .. 

procedure TACBrNFeDANFeRL.ImprimirDANFEPDF(NFE : TNFe = nil);
...
...

		fCorDestaqueProdutos );
        end;
else
begin
...
      fCorDestaqueProdutos );
    end;
 finally
   FreeAndNil(frlDANFeRL);
 end;
end;

 

[hleorj]

@levi

Fiz alguns ajustes para o problema acima.

Se não houve erros em testes / novos comentários envio ao svn.

Grato

ACBrNFeDANFEClass.pas

ACBrNFeDANFeRLClass.pas

ACBrNFeDANFeRL.pas

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFRDM.pas

[Herik]

Bom dia!

Atualizei o hj os fontes e fiquei com o seguinte problema:

---------------------------
Erro
---------------------------
Classe não encontrada Datasets
Classe não encontrada Formats
---------------------------
OK   
---------------------------
Atualizei todos os .fr3, e alterei o método FastFile do objeto DANFE para DANFeRetrato.fr3 (antes estava DANFE.fr3).

Mesmo voltando para o DANFE.fr3 agora atualizado, da apenas um erro: "Classe não encontrada Datasets".

A versão do meu fastReport é 4.10.5

[hleorj]

@Herik

Bom dia

1 - seu problema está relacionado ao cometários do post?

2 - pesquisou no fórum se o problema foi solucionado em algum post.

3 - sempre abra um NOVO post.

Grato.

[Herik]

35 minutos atrás, hleorj disse:

@Herik

Bom dia

1 - seu problema está relacionado ao cometários do post?

R: Título do POST = ALTERAÇÕES DO DANFE FAST REPORT. Problema relatado por mim = DANFE FAST REPORT.

2 - pesquisou no fórum se o problema foi solucionado em algum post.

R: Sim, do contrário não postaria aqui. Se existe algo a respeito do mesmo problema, talvez eu não tenha encontrado.

3 - sempre abra um NOVO post.

R: Porque foi apresentado aqui o erro? Porque o título coincide no momento em que fiz o update, se o problema não tem nada relacionado, me desculpe, mas se eu tivesse aberto outro tópico relacionado a problema de DANFE iriam pedir pra mim pesquisar, o que fiz e tentei reaproveitar o tópico acreditando ter algo que justificasse o erro. Já que o título remete-se a alteração no DANFE.

Grato.

Tenha um bom dia!

Grato,

Só pra constar e dar por encerrado o problema citado por mim:

Resolvi o problema retornando os arquivos anteriores do fast (.fr3) "aparentemente" os atuais estão em uma versão superior a 4.10.5.

Editado 13 Junho, 2017 por Herik

[Juliomar Marchetti]

2 horas atrás, Herik disse:

Tenha um bom dia!

Grato,

Só pra constar e dar por encerrado o problema citado por mim:

Resolvi o problema retornando os arquivos anteriores do fast (.fr3) "aparentemente" os atuais estão em uma versão superior a 4.10.5.

Sim exatamente!

a gente usa sempre a última versão e sim está na 5.6 superior

[levi]

@hleorj

Fiz os testes na minha máquina com os fontes que você anexou em: 

E os relatórios funcionaram corretamente.

[hleorj]

@levi, já no SVN

grato pela sua contribuição.