Ir para conteúdo
  • Cadastre-se

dev botao

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


Alison Lacerda
Ver Solução Respondido por Victor H. Gonzales - Panda,
  • Este tópico foi criado há 917 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

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

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

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...

Link para o comentário
Compartilhar em outros sites

  • Consultores

vamos abrir uma task para analisar.

de momento utilize o fortesReport

 

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
  • Consultores

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

 

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • Consultores
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 ?

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

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;

 

Link para o comentário
Compartilhar em outros sites

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

 

Erro 1.png

Erro 2.png

Link para o comentário
Compartilhar em outros sites

  • Consultores
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;

 

  • Obrigado 1
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • Consultores
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

 

Erro 1.png

Erro 2.png

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

  • Obrigado 1
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • 4 semanas depois ...
  • 1 mês depois ...

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

Link para o comentário
Compartilhar em outros sites

  • 3 meses depois ...

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

 

Link para o comentário
Compartilhar em outros sites

  • 3 semanas depois ...
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...

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • Consultores

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

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • Consultores

Obrigado por reportar.

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

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 917 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...