DANFE em Delphi FMX Windows 32 - Fortes ou Fast

[Gustavo Pillar]

Boa tarde,

Alguém sabe me dizer se consigo gerar a Danfe ou PDF da Danfe em uma aplicação Delphi FMX plataforma Windows 32 com o Fast Report ou Fortes Report?

Não consegui fazer funcionar, gostaria de saber se é possível.

Obrigado.

 

[Daniel Simoes]

Se não me engano já existe Fast Report para FMX

[Juliomar Marchetti]

Uma dica se for para windows. cria uma bpl do danfe em fortes e passa pra ele o xml de dentro do fmx e vai funcionar também

[Gustavo Pillar]

Em 12/04/2021 at 12:26, Juliomar Marchetti disse:

Uma dica se for para windows. cria uma bpl do danfe em fortes e passa pra ele o xml de dentro do fmx e vai funcionar também

Olá Juliomar, você teria um passo a passo de como fazer dessa forma que você falou? Já tenho o Fortes e o ACBr instalado no Delphi.

[Gustavo Pillar]

Consegui fazer funcionar a DANFE no FMX com o Fortes para Windows, só tive que alterar o arquivo ACBrNFeDANFeRLClass.pas

Na parte uses coloquei dessa forma: {$IFDEF FMX} FMX.Graphics, System.UITypes, {$ELSE} Graphics, {$ENDIF}

Adicionei a unit System.UITypes no uses para reconhecer o tipo TColor da propriedade CorDestaqueProdutos.

No default da propriedade e no create do TACBrNFeDANFeRL coloquei assim: {$IFDEF FMX} TAlphaColorRec.White {$ELSE} clWhite {$ENDIF}

Funcionou sem erros. Muito obrigado!

[Juliomar Marchetti]

somente no windows?

 

[Gustavo Pillar]

Sim, compilei somente para Windows

[Robson Bie]

Ola, estou com um problema similar, usando FMX e Fortes report.
Na hora do acbr.notafiscal.imprimir da o erro da imagem.

Fiz o procedimento que o amigo passou acima, e quando dou o break ele abre o erro no arquivo vcl.Grapichs e não fmx.Grapichs 

E como se ele não estivesse entendendo que esta em FMX. 

Alguém tem mais alguma luz de como resolver?

[Juliomar Marchetti]

9 horas atrás, r_rodrigues disse:

Ola, estou com um problema similar, usando FMX e Fortes report.
Na hora do acbr.notafiscal.imprimir da o erro da imagem.

Fiz o procedimento que o amigo passou acima, e quando dou o break ele abre o erro no arquivo vcl.Grapichs e não fmx.Grapichs 

E como se ele não estivesse entendendo que esta em FMX. 

Alguém tem mais alguma luz de como resolver?

unit scope names ou tu tá usando a versão errada do fast, dai tem que contatar o suporte da fast report e verificar se mandaram o instalador errado pra você

[Robson Bie]

10 minutos atrás, Juliomar Marchetti disse:

unit scope names ou tu tá usando a versão errada do fast, dai tem que contatar o suporte da fast report e verificar se mandaram o instalador errado pra você

Ola Juliomar, estou usando o fortes report não o fast

[Juliomar Marchetti]

23 horas atrás, r_rodrigues disse:

Ola Juliomar, estou usando o fortes report não o fast

Fortes não suporta FMX

[Robson Bie]

Apenas para conhecimento consegui fazer funcionar através de uma gambiarra. Caso vocês queiram investigar  melhor o porque acontece isso pois eu não consegui estabelecer logica.

Nos testes que eu fiz se eu chamar a impressão da NFce dentro do processo de validação / emissão o arquivo  tipo :

if StatusNFCe in [100, 110, 150] then
          begin
            TACBrNFeDANFCEClass(DM.ACBrNFe1.DANFE).ViaConsumidor := True;
            DM.ACBrNFe1.NotasFiscais.Imprimir;
           end

então no fortes report apresenta o erro que reportei antes.

Agora se eu fizer a rotina de validação / emissão sem mandar imprimir e depois apontar o XML para impressão tipo:

 DM.ACBrNFe1.NotasFiscais.Clear;
 DM.ACBrNFe1.NotasFiscais.LoadFromFile(vXML);
 DM.ACBrNFe1.NotasFiscais.Imprimir;

Ai a impressão funciona.

Não consegui entender o porque disso porem fazendo essa "gambiarra" funcionou o Fortes Report, em um Projeto FMX Windows. Não testei em Android.

[Juliomar Marchetti]

3 horas atrás, r_rodrigues disse:

Apenas para conhecimento consegui fazer funcionar através de uma gambiarra. Caso vocês queiram investigar  melhor o porque acontece isso pois eu não consegui estabelecer logica.

Nos testes que eu fiz se eu chamar a impressão da NFce dentro do processo de validação / emissão o arquivo  tipo :

if StatusNFCe in [100, 110, 150] then
          begin
            TACBrNFeDANFCEClass(DM.ACBrNFe1.DANFE).ViaConsumidor := True;
            DM.ACBrNFe1.NotasFiscais.Imprimir;
           end

então no fortes report apresenta o erro que reportei antes.

Agora se eu fizer a rotina de validação / emissão sem mandar imprimir e depois apontar o XML para impressão tipo:

 DM.ACBrNFe1.NotasFiscais.Clear;
 DM.ACBrNFe1.NotasFiscais.LoadFromFile(vXML);
 DM.ACBrNFe1.NotasFiscais.Imprimir;

Ai a impressão funciona.

Não consegui entender o porque disso porem fazendo essa "gambiarra" funcionou o Fortes Report, em um Projeto FMX Windows. Não testei em Android.

o que tá ocorrendo é que seu sistema não é mais FMX e sim FMX e VCL e só vai rodar no windows.

Fortes report não funciona nativamente em FMX, ele vai acabar fazendo sua aplicação depender da VCL e é isso que tá fazendo e só vai rodar no windows.

[Robson Bie]

Tudo bem @Juliomar Marchetti eu entendi esse ponto. No meu caso o sistema e para rodar em windows mesmo.

O ponto que mostrei dos meus testes é que se chamar o ACBrNFe1.NotasFiscais.Imprimir dentro de uma rotina de envio de nfce ele da erro, se eu faço o mesmo ACBrNFe1.NotasFiscais.Imprimir depois fazendo load de um XML ele funciona. 

[Juliomar Marchetti]

55 minutos atrás, r_rodrigues disse:

Tudo bem @Juliomar Marchetti eu entendi esse ponto. No meu caso o sistema e para rodar em windows mesmo.

O ponto que mostrei dos meus testes é que se chamar o ACBrNFe1.NotasFiscais.Imprimir dentro de uma rotina de envio de nfce ele da erro, se eu faço o mesmo ACBrNFe1.NotasFiscais.Imprimir depois fazendo load de um XML ele funciona. 

sim até mesmo no vcl isso ocorre pois não tem xml para carregar