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

[geanjesus]

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

[BigWings]

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.

[Daniel Simoes]

8 horas atrás, BigWings disse:

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

Tem sim... 

[geanjesus]

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 ?

[BigWings]

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.

[geanjesus]

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

[geanjesus]

                                   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 3 Outubro, 2019 por geanjesus

[geanjesus]

                                 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 3 Outubro, 2019 por geanjesus

[José M. S. Junior]

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"

[Daniel Simoes]

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

[Daniel Simoes]

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;  

 

[geanjesus]

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 4 Outubro, 2019 por geanjesus

[Daniel Simoes]

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

[geanjesus]

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 4 Outubro, 2019 por geanjesus

[Juliana Tamizou]

Obrigado por reportar.

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