Jump to content

dev botao
  • Este tópico foi criado há 3205 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Posted

Hello!

We update ACBr fonts in 26/09/2016, starting from a June 2015 version. We are in trunk2. After the update , we have a problem in printing the NFCe. Please look at the attacched PDF . Attacched you can also find the fast report file that we are using. This file comes from an old version of ACBr (around June 2015), and it is "standard", we did not modify anything. We cannot use the "new" fr3 because it is compiled with fast report 5.0 and we are still using 4.0

Could you please help us?

Many Thanks

Andrea, ITALY.

DANFeNFCe.fr3

DANFeNFCe.pdf

Posted

So, I did a BeyonCompare and for what I can see, in function TACBrNFeDANFEFR.PrepareReport(NFE: TNFe): Boolean;

1) You commented the linese:

//  if Assigned(ACBrNFe) then
//   if(TACBrNFe(ACBrNFe).Configuracoes.Geral.ModeloDF = moNFCe)then
//     FdmDanfe.frxReport.PrintOptions.PrintMode := pmSplit; 
 

2) You added this at the end:

  for i := 0 to FdmDanfe.frxReport.PreviewPages.Count - 1 do
  begin
    Page := FdmDanfe.frxReport.PreviewPages.Page;
    if MargemSuperior > 0 then
      Page.TopMargin    := MargemSuperior * 10;
    if MargemInferior > 0 then
      Page.BottomMargin := MargemInferior * 10;
    if MargemEsquerda > 0 then
      Page.LeftMargin   := MargemEsquerda * 10;
    if MargemDireita > 0 then
      Page.RightMargin  := MargemDireita * 10;
    FdmDanfe.frxReport.PreviewPages.ModifyPage(i, Page);
  end;
 

 

Uncommenting 1) and commenting 2) makes everything work again.

Thanks

Andrea

 

  • Este tópico foi criado há 3205 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.