DANFE FastReport

[Gandalf]

Bom dia, atualizei os componentes e percebi que foi tornada privada a propriedade dmDanfe. O problema agora é que quando eu tento acessar a propriedade PreparedReport, não consigo, porque ela está nula. Eu vi que já teve um tópico igual aqui, mas o usuário relatou que conseguiu resolver e o tópico foi fechado. Infelizmente ele não postou como conseguiu resolver. Abaixo vai meu código. Minha classe herda da TACBrNFe.

 

var
  Fixos: TDadosFixos;
  OK: Boolean;
  VersaoDF: TpcnVersaoDF;

begin
  inherited;
  PegouCertificado                       := False;
  Fixos                                  := TDadosFixos.Consulta;

  if (not Fixos.VersaoNFe.HasValue) or (Fixos.VersaoNFe = '3.10') then
    VersaoDF := ve310
  else if Fixos.VersaoNFe = '4.00' then begin
    VersaoDF := ve400;
    Configuracoes.Arquivos.PathSchemas := Fixos.EndSchemas + '\Schemas';
  end
  else
    raise Exception.Create('Versão NFe não definida na classe MeuACBrNFe');

  Configuracoes.Geral.Salvar             := True;
  Configuracoes.Geral.VersaoDF           := VersaoDF;
  Configuracoes.Arquivos.Salvar          := True;
  Configuracoes.Certificados.NumeroSerie := Fixos.NSerieCertDigital;
  Configuracoes.WebServices.UF           := Fixos.Cidade.UF;
  Configuracoes.WebServices.Ambiente     := StrToTpAmb(OK, IntToStr(Fixos.TIPONFELETRONICA));
  Configuracoes.WebServices.TimeOut      := 15000;
  Configuracoes.Geral.FormaEmissao       := StrToTpEmis(OK, IntToStr(Fixos.TIPOEMISSAONFE + 1));
  Configuracoes.Geral.RetirarAcentos     := True;

  //Configuracoes.Geral.SSLLib             := libCapicom;
  Configuracoes.Geral.SSLLib             := libWinCrypt;
  Configuracoes.Geral.SSLXmlSignLib      := xsMsXML;
  if Fixos.UsarTSL12 then
    SSL.SSLType := LT_TLSv1_2;

  //DownloadNFe.Download.CNPJ              := Fixos.CNPJ;
  MinhaDANFE                             := TACBrNFeDANFEFR.Create(nil);
  MinhaDanfe.IncorporarBackgroundPdf     := False; // feito para diminuir o tamanho da danfe
  MinhaDANFE.IncorporarFontesPdf         := False; // feito para diminuir o tamanho da danfe

  //MinhaDANFE. ImprimirUnQtVlComercial     := iuComercial;
  with MinhaDANFE do begin
    FastFile := Fixos.ArquivoDANFE;
    FastFileEvento := Fixos.ArquivoDANFE;
    Sistema            := 'GAF - Gerenciador Administrativo Financeiro';
    MostraPreview      := False;
    Logo               := Fixos.ArquivoLogoDANFE;
  end;

  Self.DANFE := MinhaDANFE;
  if Fixos.MensagemRodapeNFe <> '' then
    (Self.DANFE as TACBrNFeDANFEFR).PreparedReport.Script.Variables['MensagemRodape'] := Fixos.MensagemRodapeNFe ---> aqui já dá o erro
  else
    (Self.DANFE as TACBrNFeDANFEFR).PreparedReport.Script.Variables['MensagemRodape'] := '';

  FreeAndNil(Fixos);

[BigWings]

10 minutos atrás, Gandalf disse:

    (Self.DANFE as TACBrNFeDANFEFR).PreparedReport.Script.Variables['MensagemRodape'] := Fixos.MensagemRodapeNFe ---> aqui já dá o erro

Isso provavelmente não vai funcionar já que o método PreparedReport executa internamente o PrepareReport do relatório. Se no seu DANFE essa variável é necessária o método vai falhar e retornar nil.

[Gandalf]

Obrigado pela resposta,

Como é possível então acessar variáveis na DANFE? Antes era possível com a propriedade dmDanfe.

[Ernaniw]

Estou com o mesmo problema variaveis que eu tinha no DANFE não consigo mais acessar.

 

Aguardando