DANFE FastReport - mensagem de NOTA CANCELADA RESOLVIDO

[FocusRJ]

Utilizo o DANFE em fastReport e uma coisa que havia notado é que quando eu cancelava uma nota não aparecia aquela tarja NF-e CANCELADA. Então fiz as devidas alterações, caso alguém queira estou disponibilizando aqui, seria uma boa o pessoal do acbr ajustar lá também se possível!

Na unit ACBrNFeDANFEFRDM,...

|*20/05/2011: Rômulo Mayworm

|*  -Alterado o Carrega Parametros, o parâmetro mensagem0 estava mesmo para uma

|*   nota não cancelada recebendo a mensagem "Nota Cancelada". Para a tarja

|*   aparecer no DANFE dentro do código do mesmo (fr3) foi alterado:

|*

|*      procedure Overlay1OnBeforePrint(Sender: TfrxComponent);

|*      begin

|*        if  <> '' then

|*        begin

|*          Overlay1.Visible := True;

|*          Overlay1.Height        := Engine.PageHeight;

|*          memWatermark.Text      := ;

|*          memWatermark.Width     := Overlay1.Width;

|*          memWatermark.Height    := Engine.PageHeight;

|*          memWatermark.Font.Size := 50;

|*          if  <> 'NFe Cancelada' then

|*            memWatermark.font.color   := $00D7D7D7

|*          else

|*            memWatermark.font.color   := $009797FF;

|*        end

|*        else

|*          Overlay.Visible := False;

|*      end;

|*

******************************************************************************}

Vamos ao código, lá no procedimento CARREGAPARAMETROS, quando testa o tipo do ambiente de emissão:

if (FNFe.Ide.TpAmb = taHomologacao) then

      FieldByName('Mensagem0').AsString := 'NFe sem Valor Fiscal - HOMOLOGAÇÃO'

    else

    begin

      if not (FNFe.Ide.tpEmis in [teContingencia, teFSDA]) then

      begin

        if ((NotaUtil.EstaVazio(FDANFEClassOwner.ProtocoloNFe)) and

            (NotaUtil.EstaVazio(FNFe.procNFe.nProt))) then

          FieldByName('Mensagem0').AsString := 'NFe sem Autorização de Uso da SEFAZ'

        else

//      Alterado por Rômulo Mayworm, sem a necessidade do teste 'Not'

        if (FNFe.procNFe.cStat = 101) then

          FieldByName('Mensagem0').AsString := 'NFe Cancelada'

        else

        begin

//        Alterado por Rômulo Mayworm - dessa forma as notas não canceladas estavam indo com a tarja "NFe Cancelada"

//          if FDANFEClassOwner.NFeCancelada then

//            FieldByName('Mensagem0').AsString := 'NFe Cancelada'

//          else

            FieldByName('Mensagem0').AsString := '';

        end;

      end

      else

        FieldByName('Mensagem0').AsString := '';

    end;

Lembrando quem tem que alterar também o procedure Overlay1OnBeforePrint da danfe, do DANFE.fr3, a alteração está no comentário acima, dessa forma, se a NFe for cancelada vai aparecer a tarja em vermelho!

Bom pessoal é isso, espero que ajude aos amigos!

Abraços, Rômulo Mayworm