IBPT - Como preencher na NFSe?

[GAVOHA]

Senhores, 

Estou adicionando agora em minhas aplicações o emissor de NFSe. A única informação que não sei preencher é o  IBPT (sai em branco) 

 

Como faço para preencher essa informação?

[Italo Giurizzato Junior]

Bom dia Gavoha,

Você esta emitindo nota para qual cidade?

[GAVOHA]

Bom dia Italo,... 

 

Para São Paulo

[Italo Giurizzato Junior]

Gavoha,

Ao gerar o XML do Rps temos:

  NFSeNode.AppendChild(AddNode(tcDe2, '#1', 'ValorCargaTributaria', 1, 15, 0,
                                               NFSe.Servico.ValorCargaTributaria, ''));

  NFSeNode.AppendChild(AddNode(tcDe4, '#1', 'PercentualCargaTributaria', 1, 5, 0,
                                   NFSe.Servico.PercentualCargaTributaria, ''));

  NFSeNode.AppendChild(AddNode(tcStr, '#1', 'FonteCargaTributaria', 1, 10, 0,
                                        NFSe.Servico.FonteCargaTributaria, ''));

Segundo o manual, no campo: FonteCargaTributaria você pode informar o texto "IBPT", consequentemente nos dois campos acima o valor e o percentual do mesmo.

[GAVOHA]

Estou tomando uma Surra...!!! 

Seria isso?

NotasFiscais.Add.NFSe.Servico.FonteCargaTributaria := DM.qryNFMestreIBPT.Text + ' (16,23%)/IBPT';

 

 

 

[Italo Giurizzato Junior]

Boa tarde Gavoha,

Cuidado ao usar o ADD e NEW, da forma que você usando vai acabar gerando dezenas de notas vazias na lista de notas, estude o programa exemplo.

[GAVOHA]

   with NotasFiscais.Add.NFSe do
    begin
      ....
      Status := srNormal;

     //---- IBPT
      Servico.FonteCargaTributaria := DM.qryNFMestreIBPT.Text + ' (16,23%)/IBPT';
     //----

     ...

Ficou assim..... copiei só a linha...desculpe

Agora, GAVOHA disse:

   with NotasFiscais.Add.NFSe do
    begin
      ....
      Status := srNormal;

     //---- IBPT
      Servico.FonteCargaTributaria := DM.qryNFMestreIBPT.Text + ' (16,23%)/IBPT';
     //----

     ...

Ficou assim..... copiei só a linha...desculpe

Faço uma NF de cada vez... 

[GAVOHA]

12 minutos atrás, GAVOHA disse:

  with ACBrNFSe do
  begin
   NotasFiscais.Clear;
   NotasFiscais.NumeroLote := vNumLote;

   with NotasFiscais.Add.NFSe do
    begin
     //---- IBPT
      Servico.FonteCargaTributaria := DM.qryNFMestreIBPT.Text + ' (16,23%)/IBPT';
     //----

Ficou assim..... copiei só a linha...desculpe

Faço uma NF de cada vez... 

[Italo Giurizzato Junior]

E os outros dois campos (ValorCargaTributaria e PercentualCargaTributaria) ?

[GAVOHA]

Eu não tinha preenchido nada.... então, estaria correto colocar assim?

 

     //---- IBPT
      Servico.FonteCargaTributaria        := DM.qryNFMestreIBPT.Text + ' (16,23%)/IBPT';
      Servico.PercentualCargaTributaria   := 16.23;
      Servico.ValorCargaTributaria        := DM.qryNFMestreIBPT.Value;

     //----

 

[Italo Giurizzato Junior]

Acredito que sim.

Agora precisa ver como o XML da NFS-e é gerado, ou seja, se tem essas informações.

[GAVOHA]

....começou a apresentar outro erro que não estava. 

 

Primeiro eu entendi que era referente a quantidade de caractéries no 

Servico.FonteCargaTributaria

E agora CPFCNPJ não está vinculado ao tomador (esse erro não estava aparecendo nas NFSe anteriores desse mesmo cliente)

 

2 minutos atrás, GAVOHA disse:

....começou a apresentar outro erro que não estava. 

 

Primeiro eu entendi que era referente a quantidade de caractéries no 

Servico.FonteCargaTributaria

E agora CPFCNPJ não está vinculado ao tomador (esse erro não estava aparecendo nas NFSe anteriores desse mesmo cliente)

 

      // Tomador
      Tomador.IdentificacaoTomador.CpfCnpj            := ACBrUtil.OnlyNumber(TiraPontos(DM.qryNFClienteCNPJ.AsString.Trim));
      Tomador.IdentificacaoTomador.InscricaoMunicipal := ACBrUtil.OnlyNumber(DM.qryNFClienteIM.AsString.Trim);
 

[Italo Giurizzato Junior]

Bom dia,

Você vai ter que verificar as informações que esta passando para o componente, se são reais ou não.

Coloque um ponto de parada na procedure que alimenta o componente e verifica se ela esta lendo corretamente os dados do banco de dados e passando para os campos do componente.

[GAVOHA]

12 minutos atrás, Italo Giurizzato Junior disse:

Bom dia,

Você vai ter que verificar as informações que esta passando para o componente, se são reais ou não.

Coloque um ponto de parada na procedure que alimenta o componente e verifica se ela esta lendo corretamente os dados do banco de dados e passando para os campos do componente.

Muito obrigado pela sua ajuda.... Consegui! 

 

Podemos marcar como Solucionado !!!

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.