Visualização do CT-e

[_asseinfo]

Olá,

Quando realizo a impressão do CT-e (DACTe.ImprimirDACTe) e a diretiva {$DEFINE QReport_PDF} está definida, a tela do QuickReport abre maximizada. Porém, quando a diretiva não está definida, a tela abre pequena como mostra na imagem anexo.

Att.

[Italo Giurizzato Junior]

Bom dia,

A diretiva QReport_PDF tem como objetivo principal habilitar as rotinas para gerar o DACTE em PDF.

Para aqueles que possuem Quick Report versão 4 ou posterior, que deve ser o seu caso.

Sendo assim sugiro manter a diretiva definida.

[_asseinfo]

Não sei se o trecho de código a seguir deveria estar disponível somente quando a diretiva "QReport_PDF" esta definida.

// Incluido por Italo em 13/01/2011

{$IFDEF QReport_PDF}

QRCTe.PrevShowSearch := False;

QRCTe.PrevShowThumbs := False;

QRCTe.PreviewInitialState := wsMaximized;

QRCTe.PrevInitialZoom := qrZoomToWidth;

A meu ver, essas configurações do preview (PrevShowSearch, PrevShowThumbs, PreviewInitialState e PrevInitialZoom) deveriam ser padrão OU ter um meio de o programador optar por usá-las.

Será que a diretiva "QReport_PDF" não deveria somente dar a opção de PDF sim ou não, pois como esta hoje, ela esta alterado um comportamento que não tem a ver com PDF?

Obrigado!

[Italo Giurizzato Junior]

As propriedades:

QRCTe.PrevShowSearch := False;

QRCTe.PrevShowThumbs := False;

QRCTe.PreviewInitialState := wsMaximized;

QRCTe.PrevInitialZoom := qrZoomToWidth;

estão condicionadas ao {$IFDEF QReport_PDF} visto que elas não existem no Quick Report versão 3.0 que vem com o Delphi 7.

Se tirarmos a condição vai ocorrer erro ao compilar, para quem tem a versão 3.0 do Quick Report.

[_asseinfo]

Bom dia Ítalo,

Entendo a dificuldade e agradeço a atenção!

Muito obrigado!

[Marcos Gerene]

Bom dia a todos,

Estou com um problema com os PDFs também...

Os XMLs estão sendo salvos corretamente na pasta que eu indiquei,

mas não consigo salvar o PDF dos CTe's...

A minha versão do Quick Report é a 4.06, já descomentei a linha conforme falou o Ítalo

mas mesmo assim se eu no comando "CTE.Conhecimentos.ImprimirPDF;" expandir até o

momento em que gera o PDF o cursor nunca execura o que está dentro do {$IFDEF QReport_PDF}...

Código (estou usando o Demo)

{$IFDEF QReport_PDF}

var

qf : TQRPDFDocumentFilter;

i : Integer;

{$ENDIF}

begin

{$IFDEF QReport_PDF}

with Create ( nil ) do

try

FCTe := ACTe;

FLogo := ALogo;

FEmail := AEmail;

FImprimeHoraSaida := AImprimeHoraSaida;

FHoraSaida := AHoraSaida;

FResumoCanhoto := AResumoCanhoto;

FFax := AFax;

FNumCopias := ANumCopias;

FSistema := ASistema;

FUrl := AUrl;

FUsuario := AUsuario;

FMargemSuperior := AMargemSuperior;

FMargemInferior := AMargemInferior;

FMargemEsquerda := AMargemEsquerda;

FMargemDireita := AMargemDireita;

FExpandirLogoMarca := AExpandirLogoMarca;

FPosRecibo := APosRecibo;

for i := 0 to ComponentCount -1 do

begin

if (Components is TQRShape) and (TQRShape(Components).Shape = qrsRoundRect) then

begin

TQRShape(Components).Shape := qrsRectangle;

TQRShape(Components).Pen.Width := 1;

end;

end;

AfterPreview := True;

QRCTe.Prepare;

qf := TQRPDFDocumentFilter.Create(AFile);

qf.CompressionOn := False;

QRCTe.QRPrinter.ExportToFilter( qf );

qf.Free;

finally

Free;

end;

{$ENDIF}

----------

Agradeço desde já a ajuda,

Att, Marcos Spirito.

[Italo Giurizzato Junior]

Bom dia Marcos,

Desculpa não entendi o que você quiz dizer com:

mas mesmo assim se eu no comando "CTE.Conhecimentos.ImprimirPDF;" expandir até o

momento em que gera o PDF o cursor nunca execura o que está dentro do {$IFDEF QReport_PDF}...

[Marcos Gerene]

o código que te descrevi acima só executa se o IF que está entre {} for verdadeiro, e este if nunca é verdadeiro, mesmo como define estando descomentado no .inc que voce comentou... eu quis dizer que o codigo não é executado (cursor com F7/F8 não entra)...

[Italo Giurizzato Junior]

Marcos,

Verifique se não existe mais de um ACBr.inc

Devemos ter apenas 1 e ele deve ficar dentro da pasta ...\Fontes\ACBrComum

[Marcos Gerene]

Puts, tem varios mas estão todos em pasta de fontes (fontes que nao são meus) , acredito que nao vao interferir, na pasta do ACBR so existe este e devidamente alterado...

[Italo Giurizzato Junior]

Marcos,

Como dito anteriormente, só pode existir apenas 1 e deve ficar na pasta ...\Fontes\ACBrComum

Caso contrario você vai ter problemas.

[Marcos Gerene]

Consegui resolver o problemas. Tentei de varias formas com o .inc conforme o Ítalo falou,

mas não obtive sucesso, entao barrei o IF do define QReport_PDF em todos os lugares que

ele me impedia de fazer algo e funcionou perfeitamente, está gerando o PDF perfeitamente

no lugar correto, o arquivo está ok, consigo visualizar e imprimir normalmente.

Obrigado a todos pela força e até mais =)

[Nelsao2011]

Bom dia

 

Italo, instalei o Quick Reports 5.2 e esta dando problema, no trecho abaixo  em negrito

 

  {$IFDEF QReport_PDF}
           frmDACTeQRRetrato.QRCTe.Page.PaperSize := A5Trans;
          {$ELSE}
           frmDACTeQRRetrato.QRCTe.Page.PaperSize := A5;

 

 

Nao esta encontrando A5Trans.

 

Pode me ajudar

 

[Italo Giurizzato Junior]

Boa tarde Nelsao2011,

 

O que pode estar ocorrendo é que a versão 5.2 do Quick Report não possui esse valor definido, você vai ter que descobrir qual é agora.

 

Para variar eles devem ter mudado o nome.