Gerar PDF e imprimindo 2 vezes.

[tricon.paulo]

Boa tarde.

1. O que é necessário para gerar o arquivo PDF, pois mesmo infomarmando o DaCTe.PathPDF não esta gerando os arquivos.

2. Depois de gerar todo o CTe finalizo cfe. abaixo, mas sempre mostra 2 vezes o DaCTe na tela, o que pode ser?

// Assinar

CTe.Conhecimentos.Assinar;

// Validar dados

CTe.Conhecimentos.Valida;

// Enviar Lote

CTe.Enviar(IBQCTeNUMERO.Value);

//Salvar XML

CTe.Conhecimentos.Items[0].SaveToFile;

CTe.Conhecimentos.Items[0].Imprimir;

Paulo

[Italo Giurizzato Junior]

Boa noite Paulo,

O numero de cópias a ser impresso é definido na propriedade:

DACTe.NumCopias := Copias; // Copias variável do tipo Integer

Se você deseja apenas uma via do DACTe deve-se atribuir o valor 1 a essa propriedade.

Para imprimir utilizo o comando:

CTe.Conhecimentos.Imprimir;

Não se faz necessário utilizar o comando: SaveToFile, pois o comando Assinar se encarrega de gerar o XML, assinar e salvar no disco.

Quanto a gerar o Arquivo PDF, qual a versão do Quick Report instalado?

Se for superior a versão 3 você deve:

1. Editar o arquivo ACBr.inc que encontra-se na pasta: ...\Fontes\ACBrComum

No final do arquivo temos:

//------------------------------------------------------------------------------

// Definições para o Quick Report

//------------------------------------------------------------------------------


// Descomente a linha abaixo caso o Quick Report tenha suporte a PDF

//{$DEFINE QReport_PDF}

2. Utilizar o comando abaixo para gerar o PDF:

CTe.Conhecimentos.ImprimirPDF;

3. Abra o seu projeto e compile novamente usando a opção Build, para que as rotinas para gerar o PDF sejam incorporadas ao componente.

Espero ter ajudado.

[tricon.paulo]

Bom dia, Italo.

Descobri o motivo de imprimir 2 vezes.

o CTe.Enviar já gera a impessão, por isso depois com o CTe.Conhecimentos.Imprimir gerava impressão de novo.

Quanto a gerar PDF não esta gerando com o CT.Conhecimentos.ImprimirPDF;

Então fiz a alteração que sugeriu e deu [Fatal Error] ACBrCTeDACTeQR.pas(61): File not found: 'QRPDFFilt.dcu'.

Uso Delphi 7 e o QuickReport esta versão 3.0.

[Italo Giurizzato Junior]

Boa tarde Paulo,

A versão 3.0 do Quick Report, que é a que vem junto com o Delphi 7, não tem suporte para gerar arquivos PDF.

Lembre-se a alteração no arquivo ACBr.inc só vai funcionar caso você tenha uma versão posterior a 3.0, por exemplo Quick Report 4.0 para o Delphi 7.

[walter faria]

Boa tarde, Italo

Você tem o link para atualizar o Quick Report ?

Obrigado.

[tricon.paulo]

Então com Delphi 7 e QuickReport 3 não vou conseguir gerar PDF?

[Italo Giurizzato Junior]

Boa tarde Walter,

O Quick Report não é Free. Desconheço algum link onde alguem tenha disponibilizado.

[Italo Giurizzato Junior]

Boa tarde Paulo,

Não tem como o QR 3 não possui o filtro para gerar o PDF, você precisa de uma versão posterior a 3 do Quick Report.

[tricon.paulo]

Eu tentei atualizar o Quick Report mas parou de funcionar os relatórios que eu usa Chart para gráficos.

Alguém usa a versão FR do DaCTe?