Gerar Pdf Automatico

[ALA]

Senhores, boa tarde. Estou utilizando as funções abaixo para enviar e imprimir o CT-e. Sem problemas, mas o PDF não esta sendo gerado. Existe alguma configuração para resolver este problema.

ACBrCte.Enviar( Cte.FieldByName( 'CTR_NUMERO' ).AsInteger, False )

ACBrCte.Conhecimentos.Imprimir;
 ACBrCte.Conhecimentos.ImprimirPDF;
     

Obs.: No Acbr_Demo tb não esta funcionando.

Editado 24 Julho, 2013 por ALA

[Italo Giurizzato Junior]

Boa tarde ALA,

 

Qual gerado de relatório você esta utilizando ?

 

Melhor dizendo, você esta utilizando o DACTE feito em Quick Report?

 

Se sim, qual é a versão?

 

Se for posterior a 3.0 de uma olhada no arquivo ACBr.inc que encontra-se dentro da pasta ...\Fontes\ACBrComum.

Abra esse arquivo com bloco de notas e vá até o final, existe uma deritiva de compilação que deve ser descomentada para que o PDF seja gerado.

 

Lembre-se de compilar a aplicação com a opção Build após descomentar a diretiva.

[ALA]

ok, obrigado, funcionou.blz.

Outra duvida, o DANCTE não esta abrindo em tela cheia, existia alguma configuração. Estou utilizando o Quick Report no Delphi 2007.

[Wislei de Brito Fernandes]

Boa tarde.

 

Gostaria de aproveitar o post para fazer uma pergunta sobre impressão do DACTE também.

 

Estou tentando informar na propriedade DACTe.NumCopias a quantidade de cópias que quero, porém, não está funcionando.

 

Ex: ACBrCTe.DACTe.NumCopias := 2;

 

Estou utilizando o FastReport. 

 

Há algum mais que eu devo verificar para alterar a quantidade de cópias ?

[sesistemas]

Alguém já teve este problema citado pelo Wislei?

 

Também não estou conseguindo setar a quantidade de cópias para o DACTE em FastReport desta forma.

[Wislei de Brito Fernandes]

Ainda continuo com o mesmo problema, alguém conseguiu informar o número de cópias do DACTE utilizando o FastReport ?

[Juliomar Marchetti]

Ainda continuo com o mesmo problema, alguém conseguiu informar o número de cópias do DACTE utilizando o FastReport ?

Acho que você já escreveu em um post sobre isso certo? até lá fala sobre Fortes Report e você está com problema no Fast!

chegou a debugar os fontes e achar onde está passando ao componente o número de copias?

 

[Wislei de Brito Fernandes]

Boa tarde Juliomar,

 

Peço desculpas pelo post em duplicidade, pois na minha primeira consulta não tinha visto o post sobre o FortesReport.

 

Mas analisando melhor consegui encontrar o problema.

 

Na procedure ImprimirDACTE(CTE: TCTe); da unit ACBrCTeDACTEFR está com o valor fixo 1, e por isso não atribui o valor informado na propriedade NumCopias.

 

Creio que o ideal também seria passar o valor do número de cópias para o início da procedure, assim o valor será atribuído mostrando o preview ou não.

 

Segue procedure corrigida e unit em anexo.

procedure TACBrCTeDACTEFR.ImprimirDACTE(CTE: TCTe);
begin
  if PrepareReport(CTE) then
  begin
    dmDacte.frxReport.PrintOptions.Copies := NumCopias;
    if MostrarPreview then
      dmDacte.frxReport.ShowPreparedReport
    else
      begin
      // dmDacte.frxReport.PrepareReport(false);
        if MostrarStatus then
          dmDacte.frxReport.PrintOptions.ShowDialog := True
        else
          dmDacte.frxReport.PrintOptions.ShowDialog := False;
        dmDacte.frxReport.PrintOptions.Printer := Impressora;
        dmDacte.frxReport.Print;
      end;
  end;
end;

Atenciosamente.

ACBrCTeDACTEFR.pas

Editado 6 Maio, 2014 por Wislei de Brito Fernandes

[Juliomar Marchetti]

Boa tarde

Correção no svn 

obrigado pela contribuição

[Wislei de Brito Fernandes]

Incrível a velocidade de resposta de vocês!  

 

Deu tudo certinho, muito obrigado!