Impressão Campos Telefone e E-mail Prestador proSafeweb

[MBortolini]

Segue uma sugestão de implementação.

No XML de retorno da SafeWeb não há algumas das informações do prestador, o que fica faltando no danfe ou é necessário deixar fixo no report do cliente.

Fiz uma alteração na unit ACBrNFSeNotasFiscais.pas na unit LerXML

Citar

    if FNFSeR.Provedor = proSafeWeb then
    begin
      FNFSeR.NFSe.Prestador.Telefone := TACBrNFSe(TNotasFiscais(Collection).ACBrNFSe).Configuracoes.Geral.Emitente.DadosEmitente.Telefone;
      FNFSeR.NFSe.Prestador.Email    := TACBrNFSe(TNotasFiscais(Collection).ACBrNFSe).Configuracoes.Geral.Emitente.DadosEmitente.Email;
    end;
 

é necessário informar anteriormente na aplicação ao configurar o componente, os campos:

Citar

  ACBrNFSe1.Configuracoes.Geral.Emitente.DadosEmitente.Telefone   := strFone;
  ACBrNFSe1.Configuracoes.Geral.Emitente.DadosEmitente.Email        : = strMail;

segue fonte para análise ACBrNFSeNotasFiscais.pas

fiz as alterações no repor também DANFSeSarandi.fr3

Na danfe o campo ISS retido estava errado, e há algumas alterações visuais para ficar mais parecido com o disponibilizado pelo provedor no portal da prefeitura.

[Italo Giurizzato Junior]

Boa tarde Bortolini,

A alteração que você fez foi visando a impressão do DANFSE - Fast Report, correto?

Se sim, veja a solução adotada no caso do Fortes Report:

      with Contato do
      begin
        rllPrestTelefone.Caption := IfThen( Telefone <> '' , FormatarFone( Telefone) , FormatarFone(fpDANFSe.Fone) );
        rllPrestEmail.Caption    := IfThen( Email <> '' , Email , fpDANFSe.EMail_Prestador);
      end;

Esse fragmento de código é da unit ACBrNFSeDANFSeRLRetrato.