Dica Para Impressão Danfe Em Rave Arquivo

[juaumkiko]

Aos usuários do RAVE 7.6 (DELPHI 2009), RAVE 7.7 (DELPHI 2010) e/ou RAVE 9.0 (DELPHI XE), que estão com problemas para imprimir o DANFE em RAVE ARQUIVO (DANFE_Rave513.rav), e que recebem uma das (ou as duas) mensagens de erro:

"Bitmap is not valid"

"is not a valid floating point value"

Realizem os seguintes procedimentos para utilizar o DANFE_Rave513.rav:

1) Atualize o RAVE para a versão 7.6.2 BE (somente se o RAVE for versão 7.6)

2) Abra o DANFE_Rave513.rav na IDE do seu RAVE

3) Localize no centro da tela, logo abaixo da paleta de botões, um botão chamado EVENT EDITOR

4) Clique nele e depois clique em COMPILE

5) Salve o DANFE_Rave513.rav e utilize o mesmo.

[IdealB]

João, obrigado pelo retorno.

 

Se fosse um problema de versão do RAVE o ACBrNFeMonitor não deveria funcionar, correto?

A unica diferença do meu projeto e do monitor é que encapsulei os componentes na minha classe criando-os em tempo de execução.

 

Você vê algum problema nisso?

  FNFe:= TACBrNFe.Create(Screen.ActiveForm);
  FDanfe:= TACBrNFeDANFERavecb.Create(FNFe);

  FNFe.DANFE:= FDanfe;
//FDanfe.RavFile                                          := 'Report\DANFE_Rave513.rav';
  FNFe.Configuracoes.Certificados.NumeroSerie             := FEmpresa.CertificadoDig;
  FNFe.Configuracoes.Geral.AtualizarXMLCancelado          := True;
  FNFe.Configuracoes.Geral.FormaEmissao                   := TpcnTipoEmissao(ConfigSys.TipoEmissaoNFe);
  FNFe.Configuracoes.WebServices.UF                       := FEmpresa.Cidade.Estado;
  FNFe.Configuracoes.WebServices.Ambiente                 := TpcnTipoAmbiente(FEmpresa.AmbienteNFe);
  FNFe.Configuracoes.WebServices.Visualizar               := False;
  FNFe.Configuracoes.WebServices.AguardarConsultaRet      := 1000;
  FNFe.Configuracoes.WebServices.Tentativas               := 10;
  FNFe.Configuracoes.WebServices.IntervaloTentativas      := 1000;
  FNFe.Configuracoes.WebServices.AjustaAguardaConsultaRet := True;
  FNFe.Configuracoes.Arquivos.PathEvento                  := theApp.PathXmlCanc;
  FNFe.Configuracoes.Arquivos.PathNFe                     := theApp.PathXmlDest;
  FNFe.Configuracoes.Arquivos.PathCan                     := theApp.PathXmlCanc;
  FNFe.Configuracoes.Arquivos.PathInu                     := theApp.PathXmlInut;
  FNFe.Danfe.PathPDF                                      := theApp.PathPDF;
  FNFe.Danfe.Logo                                         := ALogo;
  FNFe.Configuracoes.Arquivos.Salvar                      := True;
  FDanfe.ExibirResumoCanhoto                              := True;
  FDanfe.TipoDANFE                                        := tiRetrato;
  FDanfe.MostrarPreview                                   := False;
  FDanfe.MostrarStatus                                    := False;