Jump to content

Compre o Delphi
Com até 30% de desconto
e parcelado em até 12x sem juros

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

geanjesus

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

Recommended Posts

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

Share this post


Link to post
Share on other sites

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.

  • Like 2

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites
8 horas atrás, BigWings disse:

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

Tem sim...  ;)

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites
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 ?

Share this post


Link to post
Share on other sites
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.

  • Like 1

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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

 

Edited by geanjesus

Share this post


Link to post
Share on other sites

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

 

Edited by geanjesus

Share this post


Link to post
Share on other sites

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"

  • Like 1

Consultor SAC ACBr

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

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

Share this post


Link to post
Share on other sites

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

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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;  

 

  • Like 1

Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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?

Edited by geanjesus

Share this post


Link to post
Share on other sites

Creio que sim... é o mesmo código fonte, para ambos...


Consultor SAC ACBr

Daniel Simões de Almeida
Ajude o Projeto ACBr crescer - Assine o SAC

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

Share this post


Link to post
Share on other sites

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

Edited by geanjesus
  • Like 2

Share this post


Link to post
Share on other sites

Obrigado por reportar.

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

  • Like 1

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...