Ir para conteúdo
  • Cadastre-se

dev botao

como mudar de escpos para fast report e depois continuar com escpos


geanjesus
Ver Solução Respondido por Daniel Simoes,
  • Este tópico foi criado há 1634 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Ola Srs do acbr..gostaria de saber como fazer para mudar para fast report ,,quando estiver 

emitindo o sat usando escpos...

isso e para poder gerar e salvar o cupom em pdf..uma vez que pelo escpos ..isso nao é possivel...

eu imagino que seria isso, estou gerando e imprimindo com escpos, mas em dado momento

preciso gerar e salvar o pdf..para poder enviar para o cliente.. e ...entao..eu teria que mudar

para fast report gerar e salvar o pdf do cupom e logo em seguida voltar para o escpos...

preciso de uma luz sobre isso...pois somente agora que um cliente me pediu isso..

uso programacao atraves dos  componentes....

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Não tem componente para impressão do extrato SAT em FastReport.

Você pode tentar a versão em Fortes.

Para trocar é simples:

// Em Fortes
ACBrSAT1.Extrato := ACBrSATExtratoFortes1;

// Em Esc/Pos
ACBrSAT1.Extrato := ACBrSATExtratoESCPOS1;

Só não sei dizer se o componente em Fortes tem rotina para exportar o PDF.

  • Curtir 2
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Fundadores
8 horas atrás, BigWings disse:

Só não sei dizer se o componente em Fortes tem rotina para exportar o PDF.

Tem sim...  ;)

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
23 horas atrás, BigWings disse:

Não tem componente para impressão do extrato SAT em FastReport.

Você pode tentar a versão em Fortes.

Para trocar é simples:


// Em Fortes
ACBrSAT1.Extrato := ACBrSATExtratoFortes1;

// Em Esc/Pos
ACBrSAT1.Extrato := ACBrSATExtratoESCPOS1;

Só não sei dizer se o componente em Fortes tem rotina para exportar o PDF.

Deixa ver se eu entendi...vou ter que encontrar ,instalar e configurar  o fortes report...no meu delphi 7  e ainda desinstalar e instalar novamente todo o acbr

e ainda refazer todas as minhas alteracoes no acbr que so funcionam no meu sistema?...é isso?..

e depois  assim que gerar em escpos o cupom...eu alterno para o fortes e gero em pdf e  mando salvar e depois volto para escpos...é isso?...

Não tem mesmo em Fast Report ?

Link para o comentário
Compartilhar em outros sites

  • Moderadores
16 minutos atrás, geanjesus disse:

Deixa ver se eu entendi...vou ter que encontrar ,instalar e configurar  o fortes report...no meu delphi 7  e ainda desinstalar e instalar novamente todo o acbr

Se você não tem o Fortes instalado, sim, precisa baixar e instalar.

O instalador é semelhante ao instalador do ACBr então você provavavelmente não vai ter dificuldade:

 

17 minutos atrás, geanjesus disse:

e ainda refazer todas as minhas alteracoes no acbr que so funcionam no meu sistema?...é isso?..

Não precisa desinstalar o ACBr, nem refazer nada, só rodar novamente o ACBrInstall_Trunk2.exe e selecionar o componente ACBr_SATExtratoRL.

18 minutos atrás, geanjesus disse:

e depois  assim que gerar em escpos o cupom...eu alterno para o fortes e gero em pdf e  mando salvar e depois volto para escpos...é isso?...

Correto.

  • Curtir 1
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Acho que ja evolui bem, ja estou com o fortes..instalado...estou com o AcbrSatExtratoFortes1..

por enquanto nada traumatico...mas nao tenho ainda a menor ideia de como gerar o pdf e pedir para o acbr gravar em algum lugar...

teria algum exemplo.?..pois no programa de exemplo sat nao gera pdf

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

                                   if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then
                                     begin
                                        gxArqPDF := ?????;
                                        //Aqui acho que eu deveria gerar o pdf e gravar   

                                        GrvInfoCFe('E', xArqTXT, xArqXMLVen, gxArqPDF, gxChave, gxRetorno, xNumSessao,'', xNCupom );
                                        PrepararImpressao;
                                        if not gDanfeResumido then
                                           ACBrSAT1.ImprimirExtrato
                                        else
                                           ACBrSAT1.ImprimirExtratoResumido;
                                        if chkCortarPapel.Checked then
                                          ACBrPosPrinter1.CortarPapel(false);
                                        break;
                                     end;

                       if ACBrSAT1.Resposta.codigoDeRetorno = 7000 then
                         begin
                            gxArqPDF := ?????;
                             //Aqui acho que eu deveria gerar o pdf e gravar   

                            GrvInfoCFe('C', xArqTXT, xArqXMLCan, gxArqPDF, gxChave, gxRetorno, xNSessaoCan,'',xNCupom);
                            PrepararImpressao;
                            ACBrSAT1.ImprimirExtratoCancelamento;
                           if chkCortarPapel.Checked then
                              ACBrPosPrinter1.CortarPapel(false);
                         end;

Alguem se habilita??

eu agradeço...

 

Editado por geanjesus
Link para o comentário
Compartilhar em outros sites

  • Membros Pro

                                 if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then
                                     begin
                                        gxArqPDF := 'cupom.pdf';
                                        //Aqui acho que eu deveria gerar o pdf e gravar   
// aqui mudo para o fortes
                                        ACBrSAT1.extrato := ACBrSatExtratoFortes1;
                                        ACBrSatExtratoFortes1.Filtro := fiPDF;  //deu erro aqui
                                        ACBrSatExtratoFortes1.NomeArquivo := gxArqPdf;
                                        PrepararImpressao;
                                        ACBrSatExtratoFortes1.ImprimirExtrato; //deu erro aqui

                                        GrvInfoCFe('E', xArqTXT, xArqXMLVen, gxArqPDF, gxChave, gxRetorno, xNumSessao,'', xNCupom );

// aqui retorna ao escpos
                                       ACBrSAT1.extrato := ACBrSatExtratoEscPos1;
                                        PrepararImpressao;
                                        if not gDanfeResumido then
                                           ACBrSAT1.ImprimirExtrato
                                        else
                                           ACBrSAT1.ImprimirExtratoResumido;
                                        if chkCortarPapel.Checked then
                                          ACBrPosPrinter1.CortarPapel(false);
                                        break;
                                     end;
 

fiz assim e nao deu certo....

 

Editado por geanjesus
Link para o comentário
Compartilhar em outros sites

  • Moderadores

Qual o erro que ocorre na geração do PDF?

Pode ver um exemplo de tratamento para impressão em ESCPOS e Fortes com PDF nos fontes do ACBrMonitor, veja na unit ACBrMonitor1.pas na procedure "PrepararImpressaoSAT"

  • Curtir 1
Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • Fundadores

notei vários problemas na geração de PDF do Extrato do SAT... a rotina não estava fazendo algumas verificações e usando as propriedades... já estou corrigindo...

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • Fundadores
  • Solution

Enviei para o SVN...

Citar

-- ACBrSATExtratoFortesFr --
[*] Ajuste para atruibuir extensão default para filtros PDF ou HTML
[-] Correção para definir Nome default como CFe+Chave, para PDF, HTML,
    caso o "NomeDocumento" seja vazio
[-] Ajuste para considerar a propriedade "PathPDF", caso o "NomeDocumento"
    não tenha Path informado
[*] Ajuste para criar diretório de criação do PDF, caso o mesmo ainda não
    exista
    (por: DSA)

tente algo como:

procedure TForm1.MenuItem23Click(Sender: TObject);
var
  OldExtrato: TACBrSATExtratoClass;
begin
  OldExtrato := ACBrSAT1.Extrato;
  try
    ACBrSAT1.Extrato := ACBrSATExtratoFortes1;
    ACBrSATExtratoFortes1.Filtro := fiPDF;
    //ACBrSATExtratoFortes1.PathPDF := 'c:\temp\teste.pdf';
    //ACBrSATExtratoFortes1.NomeDocumento := 'teste.pdf';
    ACBrSAT1.ImprimirExtrato;
  finally
    ACBrSAT1.Extrato := OldExtrato;
  end;
end;  

 

  • Curtir 1
Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Finalmente o cupom de venda , deu certo...

ACBrSatExtratoFortes1.filtro := fiPDF;

ACBrSatExtratoFortes1.ImprimirExtrato ..nao deu certo....

mas ...

ACBRSAT1.ImprimirExtrato ..deu certo

Muito Obrigado Daniel e os demais que deram uma força,,,

Ah ..ainda nao testei o cupom cancelado...mas tem como gerar o cupom cancelado em pdf tambem?

Editado por geanjesus
Link para o comentário
Compartilhar em outros sites

  • Membros Pro

Muito Bem...Daniel ..funcionou para cancelamento tambem...

ACBrSatExtratoFortes1.filtro := fiPDF;

ACBRSAT1.ImprimirExtratoCancelamento;

 ..deu certo

Mais uma vez agradeço a todos pela ajuda...

Ah ..Usei o chaveamento entre  fortes e escpos..da forma que o Daniel postou...

e funcionou direitinho....

Editado por geanjesus
  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1634 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.