Serviço travando ao emitir CCe (carta de correção eletrônica)

[lucas.belo]

Estava com um problema em um cliente que, ao emitir uma CCe a aplicação travava. 

Descobri onde está o problema. O método "PrepareReportEvento" não trata o evento "ShowDialog" e "ShowProgress", e também não seta a impressora do frxReport.

Sugiro a seguinte correção:

Unit: ACBrNFeDANFEFR

Classe: TACBrNFeDANFEFR

Método: PrepareReportEvento

if Assigned(ACBrNFe) then

begin

-----------------------------

Result := FdmDanfe.frxReport.PrepareReport;

    {*****************| ALTERAÇÕES FEITAS POR LUCAS M. BELO |******************}
    FdmDanfe.frxReport.PrintOptions.ShowDialog := FShowDialog;
    FdmDanfe.frxReport.ShowProgress := FMostrarStatus;

    // Define a impressora
    if Length(Impressora) > 0 then
      FdmDanfe.frxReport.PrintOptions.Printer := FImpressora;
    {***************************************************************************}

end 

--------------------------

*Obs: nossa aplicação roda como serviço windows.

[Juliomar Marchetti]

Anexe o arquivo alterado para efetuar comparação e merge e testar as sugestões

[lucas.belo]

Segue anexo

ACBrNFeDANFEFR.pas

[Juliomar Marchetti]

10 minutos atrás, lucas.belo disse:

Segue anexo

ACBrNFeDANFEFR.pas

Boa tarde

fiz uma rápida comparação e seu arquivo está desatualizado do que existe hoje no svn!

atualize, aplique suas alterações e volte a anexar aqui! pois tem coisas que já estão no svn

[lucas.belo]

Percebi que na atualização já possui a configuração da propriedade "ShowDialog", porém não contem as outras duas.

Segue novo anexo

ACBrNFeDANFEFR.pas

[Juliomar Marchetti]

Obrigado pela colaboração

já está no svn! favor atualizar e testar

 

[lucas.belo]

Obrigado, Juliomar