Não consigo imprimir SAT, usando o programa de Teste em Fast Report

[Alison Lacerda]

Olá a todos...

Estou iniciando com o ACBr... E meu primeiro projeto é um PDV!!!

Estou estudando o exemplo que vem com o componente...

E estou usando o Emulador SAT (SEFEZ)...

Meu Delphi é o RIO 10.3.1

Bom no exemplo, eu consigo gerar o sat sem problemas... Mas quando peço para "Imprimir Extrato de Venda", não acontece nada...

Não dá erro, mas também não sai nada na impressora ou se quer abre o preview...

Há algo que devo configurar, ou fazer???

Agradeço pela atenção

[Victor H. Gonzales - Panda]

Fastreport precisa ter o fr3 configurado no componente, procure pela propriedade fastfile e aponte o arquivo de relatório.

Pode ser isso que faltou configurar

[Alison Lacerda]

Victor, não localizei essa propriedade que mencionou...

Porém no programa de teste, tem um componente chamado "ACBrSATExtratoFR1", que está ligado ao componente "ACBrSAT1"...

Neste componente, tem as propriedade "FastExtrato", "FastExtratoCancelamento" e "FastExtratoResumido", eu preenchi ambas com o camingo e nome do arquivo que acompanha o exemplo.

"Extrato SAT.fr3"...

Mas mesmo assim, não imprime...

Procurei outras propriedade que possam ter a mesma temática, mas não localizei nada...

Teria outra ideia...

Grato pelo apoio...

[Victor H. Gonzales - Panda]

vamos abrir uma task para analisar.

de momento utilize o fortesReport

 

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

 

[Allan Wolski]

Boa tarde, @Victor H. Gonzales - Panda

Poderia manter o método PreparedReport como público por favor?
Pois esta alteração quebrou a compilação da minha aplicação.

Esse método é público em todas as demais impressões com FastReport.

Obrigado.

[Victor H. Gonzales - Panda]

29 minutos atrás, Allan Wolski disse:

Boa tarde, @Victor H. Gonzales - Panda

Poderia manter o método PreparedReport como público por favor?
Pois esta alteração quebrou a compilação da minha aplicação.

Esse método é público em todas as demais impressões com FastReport.

Obrigado.

Boa tarde

Qual a finalidade que você precisa interceptar o frxReport ?

[Allan Wolski]

Eu tenho um serviço de impressão de DF-e, onde manipulo propriedades como Title e EmbeddedFonts por exemplo.

As quais não podem ser alteradas através das opções existentes de geração de PDF.

var
   PDFExport: TfrxPDFExport;
begin
   FStream.Clear;
   PDFExport := TfrxPDFExport.Create(Self);

   with PDFExport do
   begin
      ShowDialog     := False;
      ShowProgress   := False;
      Stream         := FStream;
      EmbeddedFonts  := FIncluirFonte;
      Title          := FormatarTituloPDF;
   end;

   Result := Report.Export(PDFExport);
end;

 

[Alison Lacerda]

Meus caros...

Fiz a atualização dos fontes, e realizei os testes....

Obtive os seguintes resultados....

1º : Ao configurar a propriedade FastExtrato, apontando para o arquivo do próprio arquivo FR3 do exemplo, ao compilar da um erro, mas deixa executar... Erro1.png

2º Gero o SAT sem problemas, mas ao visualizar ele mostra tanto o extrato do SAT, quanto o extrato de cancelamento (sendo que não fiz o cancelamento).

E o tanto que se visualiza, vai aumentando as páginas. Erro2.png

Espero ter ajudado...

Agradeço pela atenção.

Abraços

 

[Victor H. Gonzales - Panda]

13 minutos atrás, Allan Wolski disse:

Eu tenho um serviço de impressão de DF-e, onde manipulo propriedades como Title e EmbeddedFonts por exemplo.

As quais não podem ser alteradas através das opções existentes de geração de PDF.

var
   PDFExport: TfrxPDFExport;
begin
   FStream.Clear;
   PDFExport := TfrxPDFExport.Create(Self);

   with PDFExport do
   begin
      ShowDialog     := False;
      ShowProgress   := False;
      Stream         := FStream;
      EmbeddedFonts  := FIncluirFonte;
      Title          := FormatarTituloPDF;
   end;

   Result := Report.Export(PDFExport);
end;

 

OK, mas é similar ao método que retorna o PDF, mas vou expor em publico.

procedure TACBrSATExtratoFR.ImprimirExtratoPDF(AStream : TMemoryStream = nil);
begin
  if AStream <> nil then
  begin
    frxPDFExport.Stream := AStream;
    AStream.Position    := 0;
    AStream.Clear;
  end;
  frxPDFExport.ShowDialog        := false;
  frxPDFExport.ShowProgress      := MostraStatus;
  frxPDFExport.Author            := Sistema;
  frxPDFExport.Creator           := Sistema;
  frxPDFExport.Producer          := Sistema;
  frxPDFExport.Title             := 'Extrato SAT';
  frxPDFExport.Subject           := frxPDFExport.Title;
  frxPDFExport.Keywords          := frxPDFExport.Title;
  frxPDFExport.Background        := false;//False diminui 70% do tamanho do pdf
  frxPDFExport.EmbeddedFonts     := false;

  if EstaVazio(Trim(NomeDocumento)) then
    frxPDFExport.FileName := frxPDFExport.Title
  else
    frxPDFExport.FileName := NomeDocumento;

  frxPDFExport.FileName := PathPDF + frxPDFExport.FileName + '.pdf';

  if frxPDFExport.FileName <> NomeDocumento then
    NomeDocumento := frxPDFExport.FileName;

  if not DirectoryExists(ExtractFileDir(frxPDFExport.FileName)) then
    ForceDirectories(ExtractFileDir(frxPDFExport.FileName));

  frxReport.Export(frxPDFExport);
  FPArquivoPDF := frxPDFExport.FileName;

end;

 

[Victor H. Gonzales - Panda]

10 minutos atrás, Alison Lacerda disse:

Meus caros...

Fiz a atualização dos fontes, e realizei os testes....

Obtive os seguintes resultados....

1º : Ao configurar a propriedade FastExtrato, apontando para o arquivo do próprio arquivo FR3 do exemplo, ao compilar da um erro, mas deixa executar... Erro1.png

2º Gero o SAT sem problemas, mas ao visualizar ele mostra tanto o extrato do SAT, quanto o extrato de cancelamento (sendo que não fiz o cancelamento).

E o tanto que se visualiza, vai aumentando as páginas. Erro2.png

Espero ter ajudado...

Agradeço pela atenção.

Abraços

 

Verifique se o ACBrSATExtratoFR.pas seu não possui conflito com o do servidor, e acabou não fazendo o download e instalando.

Aparenta que está faltando recursos da unit.

por exemplo na

linha 458

Add('dhEmiCanc', ftDateTime);

linha 671 

FieldByName('dhEmiCanc').AsString     := FormatDateTimeBr(dEmi + hEmi, 'DD/MM/YYYY - hh:nn:ss');

 

30 minutos atrás, Allan Wolski disse:

Eu tenho um serviço de impressão de DF-e, onde manipulo propriedades como Title e EmbeddedFonts por exemplo.

As quais não podem ser alteradas através das opções existentes de geração de PDF.

var
   PDFExport: TfrxPDFExport;
begin
   FStream.Clear;
   PDFExport := TfrxPDFExport.Create(Self);

   with PDFExport do
   begin
      ShowDialog     := False;
      ShowProgress   := False;
      Stream         := FStream;
      EmbeddedFonts  := FIncluirFonte;
      Title          := FormatarTituloPDF;
   end;

   Result := Report.Export(PDFExport);
end;

 

no SVN

[José Nilton Pace]

Conseguiu achar o problema de ficar acumulando os cupons no preview ?

 

On 9/9/2021 at 4:48 PM, Alison Lacerda said:

 

 

 

 

 

[Juliomar Marchetti]

Limpar o componente e só carregar um xml?

[José Nilton Pace]

Também achei que seria só isso. hoje está assim:

ACBrSAT.CFe.SetXMLString(FDQ_VDAXML.Value);
ACBrSAT.ImprimirExtrato;
ACBrSAT.CFe.Clear;

E cada vez que chamo essa impressão, ele acrescenta o cupom no preview.

[Luciano César Gimenez]

Ola Pessoal boa tarde, estou fazendo um teste da impressão do Cupom em Fast Report, estou com o mesmo problema acima. estou fazendo assim:

  ACBrSAT1.CFe.Clear;
  ACBrSAT1.CFe.LoadFromFile('C:\temp\AD35180111111111111111591234567890001128242021.xml');
  ACBrSAT1.ImprimirExtrato;

Se eu imprimir e sair do programa blz, mas se eu mandar sem sair do programa ele imprime o cupom 2 vezes, e se mandar novamente 3, tem alguma coisa que estamos fazendo errado?

Desde ja agradeço a atenção.

Luciano

[José Nilton Pace]

Bom dia, segue em anexo a unit alterada para resolver essa "duplicidade" de cupons.

Para quem quiser ler a respeito, esse é o link do manual onde fala do que acontecia: https://www.fast-report.com/documentation/ProgMan/index.html?previewing_a_report.htm

Deixei a linha 333 comentada para o pessoal do ACBr ver a mudança.

ACBrSATExtratoFR.pas

 

[Luciano César Gimenez]

Em 30/03/2022 at 08:13, José Nilton Pace disse:

Bom dia, segue em anexo a unit alterada para resolver essa "duplicidade" de cupons.

Para quem quiser ler a respeito, esse é o link do manual onde fala do que acontecia: https://www.fast-report.com/documentation/ProgMan/index.html?previewing_a_report.htm

Deixei a linha 333 comentada para o pessoal do ACBr ver a mudança.

ACBrSATExtratoFR.pas 27 kB · 3 downloads

 

Ola José boa tarde, baixei a unit e testei funcionou quando da o Preview, mas se mandar direto para impressora continua duplicando os cupons. blz.

Obrigado

Luciano...

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Luciano César Gimenez]

Ola bom dia, atualizei o ACBr e fiz os testes e o problemas foi resolvido. 

Desde ja agradeço a atenção.

Luciano.

[Victor H. Gonzales - Panda]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.