Ir para conteúdo
  • Cadastre-se

dev botao

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


DouglasGV
Ver Solução Respondido por Italo Giurizzato Junior,
  • Este tópico foi criado há 1317 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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.

image.thumb.png.69d028b264ec8003b9f2f096b9b716bb.png

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

  • Obrigado 1
Link para o comentário
Compartilhar em outros sites

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

image.png

pnfsConversao.pas

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • Consultores

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.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • Consultores
  • Solution

Boa tarde Douglas,

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

  • Curtir 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.