Fast Report - Propriedades novas/removidas

[Antonio Gomes]

Estou utilizando as versoes 4.13.15 do fast report e atualizado para 5.2.3

Porem, ao abrir o programa apresenta a mensagem de erro de Property Transparency not found no componente TFrxPDFExport.

Como solução, alterei na criação do datamodule para instanciar esses 2 componentes manual. São eles TFrxReport e TFrxPDFExport.

Com isso, não dá falta de propriedade não gravada no dfm.

Todas as propriedades foram setadas no evento Create do form.

Segue codigo fonte para analise e apreciação.

ACBrNFSeDANFSeFRDM.dfm

ACBrNFSeDANFSeFRDM.pas

[Juliomar Marchetti]

No svn sua contribuição!

Obrigado

[Antonio Gomes]

Embora voce tenha aceitado a correção, o que acha de não existir esse datamodule e sim apenas uma unit com a classe, e os TFields removidos e criados em tempo de execução?

Eu mudaria isso e enviaria, nunca mais daria problema de propriedade em dfm.

[Juliomar Marchetti]

7 minutos atrás, acgubamg disse:

Embora voce tenha aceitado a correção, o que acha de não existir esse datamodule e sim apenas uma unit com a classe, e os TFields removidos e criados em tempo de execução?

Eu mudaria isso e enviaria, nunca mais daria problema de propriedade em dfm.

Igual é feito via NFe?

[Antonio Gomes]

Exato!

[hleorj]

1 hora atrás, acgubamg disse:

8 minutos atrás, acgubamg disse:

Exato!

Tente fazer .. a atualização ..

Sem quebrar código o existente.. se encontrar uma mudança de tipo ( Float para String ou String para Float , faça no arquivo .Fr3 ).

Tente ao Maximo manter o codigo existente.

 

[Antonio Gomes]

A alteração está correta, e como já estou em um ponto que é usado para o envio de e-mail, o trecho abaixo é chamado na função:

procedure NotaFiscal.EnviarEmail(sPara, sAssunto: String; sMensagem: TStrings;  EnviaPDF: Boolean; sCC: TStrings; Anexos: TStrings);

 

Trecho com problema no nome do pdf gerado:

if (EnviaPDF) then
      begin
        if Assigned(DANFSE) then
        begin
          DANFSE.ImprimirDANFSEPDF(FNFSe);
          NomeArq := PathWithDelim(DANFSE.PathPDF) + NumID + '-nfse.pdf';
          AnexosEmail.Add(NomeArq);
        end;
      end;

 

Uma sugestão boba, que coloquem essa procedure        DANFSE.ImprimirDANFSEPDF(FNFSe); como funcao, e nela retorne o nome do arquivo pdf salvo.

Para piorar ainda mais a coisa, no ato de gerar o pdf na unit relativa ao fast report, colocaram isso, que pode mudar o nome do pdf, logo, ao enviar o e-mail não vai encontrar o arquivo.

 

with TACBrNFSe(ACBrNFSe).NotasFiscais.Items do
      begin
        if TACBrNFSe(ACBrNFSe).Configuracoes.Arquivos.NomeLongoNFSe then
          NomeArqXML := GerarNomeNFSe(UFparaCodigo(NFSe.PrestadorServico.Endereco.UF),
           NFSe.DataEmissao,
           NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj,
           StrToIntDef(NFSe.Numero, 0))
        else
          NomeArqXML := NFSe.Numero;
      end;

 

E então, qual a sugestão ?

Código fonte testado impressão no Ginfes.

Qualquer problema notifique-me.

ACBrNFSeDANFSeFR.pas

[Antonio Gomes]

Esqueci de mencionar, pode deletar as units

ACBrNFSeDANFSeFRDM.dfm e ACBrNFSeDANFSeFRDM.pas

 

[Juliomar Marchetti]

12 horas atrás, acgubamg disse:

Esqueci de mencionar, pode deletar as units

ACBrNFSeDANFSeFRDM.dfm e ACBrNFSeDANFSeFRDM.pas

 

Certo mas dai não está faltando alguma coisa pra indicar onde é usado essa unit anexada?

[Antonio Gomes]

Nao entendi Juliomar, essas units foram as que sobraram, apos retirar as chamadas delas.

Na verdade é o TDatamodule isso dai.

seria isso seu questionamento ?

[Antonio Gomes]

Um outro detalhe: o instalador vai ter que ser ajustado, acabei de testar aqui.

Se eu puder mexer nele também e mandar...

[Juliomar Marchetti]

1 hora atrás, acgubamg disse:

Um outro detalhe: o instalador vai ter que ser ajustado, acabei de testar aqui.

Se eu puder mexer nele também e mandar...

 

3 horas atrás, acgubamg disse:

Nao entendi Juliomar, essas units foram as que sobraram, apos retirar as chamadas delas.

Na verdade é o TDatamodule isso dai.

seria isso seu questionamento ?

Acho que não.. quero saber onde tu pos pra chamar ACBrNFSeDANFSeFR.pas?

como está removendo o datamodule ele também vai sair de algum lugar certo?

Como falei tu não enviou todo o código modificado pra testar!

[Antonio Gomes]

usei a mesma chamada que já existia

[Juliomar Marchetti]

Boa tarde !

bom como falei faltou mandar arquivos alterados!

não precisa mexer em instalador mas sim no pacote que faz a instalação!

já está no svn!

favor testar e reportar problemas

obrigado pela colaboração!

 

[Antonio Gomes]

Comecei fazer no meu software, o MDF-e, é mais um ponto a ser removido o Datamodule...

Moderador, poderia eu mexer e enviar o código fonte alterado ?

[Juliomar Marchetti]

41 minutos atrás, acgubamg disse:

Comecei fazer no meu software, o MDF-e, é mais um ponto a ser removido o Datamodule...

Moderador, poderia eu mexer e enviar o código fonte alterado ?

Com certeza! é assim que um projeto opensource cresce!

lembre-se de informar no change log e adicionar também aqui !

[Antonio Gomes]

Juliomar:

Segue unit com uma variavel que foi esquecida de colocar.

Ao enviar o e-mail o pdf para anexar, com isso esqueci de colocar o NFSe.IdentificacaoRps.Serie somado do numero da NFS-e.

 

ACBrNFSeDANFSeFR.pas

[Juliomar Marchetti]

29 minutos atrás, acgubamg disse:

Juliomar:

Segue unit com uma variavel que foi esquecida de colocar.

Ao enviar o e-mail o pdf para anexar, com isso esqueci de colocar o NFSe.IdentificacaoRps.Serie somado do numero da NFS-e.

 

ACBrNFSeDANFSeFR.pas

SVN !

 

Obrigado pela colaboração!

[Matheus Rossi]

Estou com esse mesmo problema: property transparency not found em TfrxPDFExport

Atualizei os fontes e o pacote de instalação, removi o componente, o .bpl, reinstalei o componente DANFSE e o erro persistiu, alguém passou pelo mesmo problema e tem alguma solução?

Desde ja agradeço quem puder ajudar.

 

[Juliomar Marchetti]

Atualize seu Fast report!

lembre-se se estiver com a versão paga é só ir no site que está lá as novas versões!