Título natureza de operação Thema retenção de ISS

[DouglasGV]

Bom dia pessoal! tudo bem? Espero que sim!

Estou com o seguinte caso:

Na emissão da NFS-e para a cidade de Passo Fundo, servidor Thema, definido a natureza de operação 63 ou 64 a descrição é inválida (Para o servidor Thema no63 é sem retenção e no64 com retenção).

Cidade Passo Fundo RS.

Então mudei a função abaixo, inserindo um if else, porém não encontrei onde alimentar o parâmetro: AProvedor, vindo sempre com o valor padrão: proNenhum, com isso não cai onde preciso.

Alguém tem ideia de como resolver?

Tentei isso abaixo, mas não obtive sucesso.

 DataM.ACBrNFSe1.DANFSe.Provedor := ProThema;
 DataM.ACBrNFSeDANFSeRL1.Provedor := ProThema;
 DataM.ACBrNFSe1.NotasFiscais.Imprimir;

Desde já agradeço a atenção.

Em anexo o arquivo pnfsConversao. pas com o ajuste abaixo.

function NaturezaOperacaoDescricao( const t: TnfseNaturezaOperacao; AProvedor: TnfseProvedor = proNenhum String;

    no63 : if AProvedor = proThema then
               Result := '6.3 - Tributação fora do municipio sem retenção de ISS'
            else
               Result := '6.3 - Tributação fora do municipio com retenção de ISS';

    no64 : if AProvedor = proThema then
               Result := '6.4 - Tributacao fora do municipio com retenção de ISS'
            else
               Result := '6.4 - Tributacao fora do municipio sem retenção de ISS';

pnfsConversao.pas

[DouglasGV]

ACBrNFSeDANFSeRLRetrato.pas

Mudei a function abaixo, só existia o parametro natureza de operação, inserei o fpDANFSe.Provedor, tá certo?

procedure TfrlDANFSeRLRetrato.rlbISSQNBeforePrint(Sender: TObject; var PrintIt: Boolean);
var
  MostrarObra, MostrarNaturezaOperacao: Boolean;
begin
  inherited;
  RLLabel16.Visible := False;
  rllCodTributacaoMunicipio.Visible     := False;
  rlmDescCodTributacaoMunicipio.Visible := False;
  With fpNFSe do
  begin
    rllNatOperacao.Caption    := ACBrStr(NaturezaOperacaoDescricao(NaturezaOperacao, fpDANFSe.Provedor)); //// alteração aqui

pnfsConversao.pas

[Italo Giurizzato Junior]

Boa tarde Douglas,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas.

Vou analisar o que você fez e estando tudo OK, vou enviar para o repositório.

[Italo Giurizzato Junior]

Boa tarde Douglas,

Já enviei para o repositório a sua contribuição, muito obrigado.