Nome Longo Com Danfse Do Rave Reports

[andre@prodez]

Boa noite a todos.

 

Verifiquei que na Emissão do DANFSE utilizando o componente do Rave Reports não é tratada a propriedade "NomeLongoNFSe" do componente TACBrNFSe. O arquivo pdf do DANFSE é sempre salvo com o nome curto (apenas o número da NFSe). Isso acaba gerando erro ao imprimir o DANFSe ou Enviar por Email qdo trabalhando com Nome Longo.

 

Debuguei o problema e segue abaixo uma sugestão para alteração:

 

- unit ACBrNFSeDANFSeRVClass

- procedure ImprimirDANFSePDF

 

- Mais ou menos na linha 170:

 

trocar o código

 

  NomeArq := StringReplace(NFSe.Numero,'NFSe', '', [rfIgnoreCase]);

  NomeArq := PathWithDelim(Self.PathPDF)+StringReplace(NomeArq,'A','', [rfIgnoreCase])+'.pdf';

 

por

 

  if TACBrNFSe(ACBrNFSe).Configuracoes.Arquivos.NomeLongoNFSe then

    NomeArq := NotaUtil.GerarNomeNFSe(UFparaCodigo(NFSe.PrestadorServico.Endereco.UF),

                                      NFSe.DataEmissao,

                                      NFSe.PrestadorServico.IdentificacaoPrestador.Cnpj,

                                      StrToIntDef(NFSe.Numero, 0))

  else

    NomeArq := NFSe.Numero;

 

  NomeArq := StringReplace(NomeArq, 'NFSe', '', [rfIgnoreCase]);

  NomeArq := PathWithDelim(Self.PathPDF)+StringReplace(NomeArq,'A','', [rfIgnoreCase])+'.pdf';

 

 

Caso possam dar uma olhada e acertada nisso seria legal.

Obrigado pela atenção

 

André Luis.

[mcob]

Bom Dia, a todos

 

Segue em anexo, o arquivo da unit ACBrNFSeDANFSeRVClass, com a correção solicitada pelo colega Andre.

 

 

ACBrNFSeDANFSeRVClass.pas

[andre@prodez]

Bom dia a todos.

 

Legal mcob.

 

Mas não seria legal que esse ajuste fosse feito no projeto ACBr, para ficar tb disponível nas atualizações futuras.

 

Abraço a todos.

[mcob]

Bom Dia

 

Sim, mas, é preciso esperar que um dos responsáveis do SVN suba para atualização do projeto, sendo assim temos que esperar um pouco

[Italo Giurizzato Junior]

Bom dia a todos

 

Vou avaliar a alteração e assim que possível estarei disponibilizando.

[andre@prodez]

Bom dia Italo.

 

Fiz algumas melhorias na Emissão do DANFSE utilizando o Rave Reports:

 

- Tratamento da Propriedade "QuebradeLinha" do componente na impressão da Discriminação do Serviço

 

- Tratamento do Propriedade "ImprimirCanhoto" do componente ACBrNFSeDANFSeRV:

  > para que funcione o tratamento da propriedade 'ImprimeCanhoto' do componente ACBrNFSeDANFSeRV:

    . criar o parametro "ImprimeCanhoto" no projeto do arquivo "DANFENFSE.rav" do Rave

      (na treeview clique em Reports; e no inspector va em Parameters)

    . no evento "OnBeforePrint" do band "bRecibo" adicionar o codigo:

        If DANFSE.GetParam('ImprimeCanhoto') = 'N' Then

         Self.Visible := False;

        Else

          Self.Visible := True;

        End If;

  (*)USO OPCIONAL: a não criação/utilização desse parâmetro não gera erros na emissão com Rave Rep.

 

- Melhorias no layout do arquivo modelo já com o parâmetro para tratamento do Canhoto (segue em anexo o .rav caso queira disponibilizar - DANFENFSE.zip)

 

Obs.: todas as alterações podem ser avaliadas no fonte pesquisando pelo comentário "//alterado Andre(Prodez)"

A unit alterada segue em anexo (DANFSeRaveDM).

 

Abraço a todos.

André Luis.

DANFSeRaveDM.pas

DANFENFSE.zip

[Italo Giurizzato Junior]

Boa tarde André,

 

Muito obrigado pela contribuição, assim que possível estarei analisando e se tudo estiver OK vou disponibilizar.

[andre@prodez]

Bom dia Italo.

 

Verifiquei que as alterações acima foram publicadas. Muito obrigado pela atenção.

Abraço.