Impressão Inutilização Fast Report

[robsoncoutinho]

Boa tarde pessoal,

 

Alguém ai sabe me dizer se existe uma implementação da impressão da inutilização em Fast Report? 

 

Muito obrigado.

[Juliomar Marchetti]

Boa tarde

não tem,

mas para quando precisar consultar algo basta olhar os fontes do svn!

lá tem toda a informação do que está ou não implementado!

caso queira contribuir basta criar o mesmo e anexar aqui que avaliamos e subimos ao svn

[robsoncoutinho]

Muito obrigado Juliomar, eu olhei os fontes e vi que não tinha, mas talvez alguém pudesse ter implementado.

Vou tentar instalar outro componente de relatório e ver se implemento pra fast.

 

Muito obrigado

[assdias]

Bom dia a todos!

Terminei agora pouco a implementação da impressão da Inutilização no Fast Report, como não quis depender de uma NFe para carregar os dados do emitente, limitei a apresentar apenas o CNPJ do Emitente, vou disponibilizar os fontes para todos, caso o Projeto ACBr queira melhorar e implementar no projeto fiquem a vontade.

Segue...

** Os dados de parâmetros estão sendo carregados, coloquei  algumas condições "Assigned(FNFe)" em "CarregaParametros" para evitar Access Violation.

Exemplo de uso:

  OpenDialog1.Title := 'Selecione a Inutilização';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathInu;
  if OpenDialog1.Execute then
  begin
    ACBrNFeDANFEFR1.Sistema := 'ACBr';
    ACBrNFe1.InutNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFeDANFEFR1.ImprimirInutilizacao;
	//ACBrNFeDANFEFR1.ImprimirInutilizacaoPDF;
  end;

 

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFRDM.pas

ACBrNFeDANFEFRReg.pas

INUTILIZACAO.fr3

Editado 15 Janeiro, 2016 por assdias

[Juliomar Marchetti]

1 hora atrás, assdias disse:

Bom dia a todos!

Terminei agora pouco a implementação da impressão da Inutilização no Fast Report, como não quis depender de uma NFe para carregar os dados do emitente, limitei a apresentar apenas o CNPJ do Emitente, vou disponibilizar os fontes para todos, caso o Projeto ACBr queira melhorar e implementar no projeto fiquem a vontade.

Segue...

** Os dados de parâmetros estão sendo carregados, coloquei  algumas condições "Assigned(FNFe)" em "CarregaParametros" para evitar Access Violation.

Exemplo de uso:

  OpenDialog1.Title := 'Selecione a Inutilização';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathInu;
  if OpenDialog1.Execute then
  begin
    ACBrNFeDANFEFR1.Sistema := 'ACBr';
    ACBrNFe1.InutNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFeDANFEFR1.ImprimirInutilizacao;
	//ACBrNFeDANFEFR1.ImprimirInutilizacaoPDF;
  end;

 

ACBrNFeDANFEFR.pas

ACBrNFeDANFEFRDM.pas

ACBrNFeDANFEFRReg.pas

INUTILIZACAO.fr3

Obrigado pela colaboração!

já se encontra no svn

[Claudio J. F. Santos]

Posso não ter procurado corretamente, talvez até por inexperiência no assunto, mas, estou com a versão atualizada e prossigo sem a possibilidade de impressão da Inutilização no Fast Report...

Alguém teria um norte para me guiar?

[Italo Giurizzato Junior]

Boa noite Claudio,

Se tratando do Fast Report dentro da pasta: ...\Exemplos\ACBrDFe\ACBrNFe\Delphi\Report  temos o arquivo INUTILIZACAO.fr3