Ir para conteúdo
  • Cadastre-se

dev botao

NFSe provedor Assessor Publico sem Código de Verificação no retorno


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

Recommended Posts

Boa tarde,
precisei adicionar na function LerRPS_AssessorPublico  do pnfsNFSeR.pas uma linha para ler o código de verificação da nota que estava retornando em branco.

o comando adicionado foi: 

NFSe.CodigoVerificacao := Leitor.rCampo(tcStr, 'RPS');

pois conforme imagem anexo no provedor Assessor Publico esse código vem na tag RPS do xml de retorno.

codigo_verificacao.jpg

 

pnfsNFSeR.pas

Editado por Eder Lacerda
Link para o comentário
Compartilhar em outros sites

  • Eder Lacerda changed the title to NFSe provedor Assessor Publico sem Código de Verificação no retorno
  • Consultores

Bom dia Eder,

Muito obrigado pela colaboração, vou incluir na minha de tarefas para analisar, 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

  • 2 meses depois ...

Bom dia Italo.
Também no provedor AssessorPublico ao enviar RPS com retenções de PIS, COFINS, IR e CSLL, temos que enviar parâmetros para que tais retenções sejam aceitas:

Obrigado.

  Gerador.wCampo(tcDe2, '', 'PIS', 1, 1, 1,NFSe.Servico.Valores.ValorPis, '');
  if NFSe.Servico.Valores.ValorPis>0 then
     Gerador.wCampo(tcStr, '', 'RETPIS', 1, 1, 1, 'S', '');
  Gerador.wCampo(tcDe2, '', 'COFINS', 1, 1, 1, NFSe.Servico.Valores.ValorCofins, '');
  if NFSe.Servico.Valores.ValorCofins>0 then
     Gerador.wCampo(tcStr, '', 'RETCOFINS', 1, 1, 1, 'S', '');
  Gerador.wCampo(tcDe2, '', 'INSS', 1, 1, 1, NFSe.Servico.Valores.ValorInss , '');
  if NFSe.Servico.Valores.ValorInss>0 then
     Gerador.wCampo(tcStr, '', 'RETINSS', 1, 1, 1, 'S', '');
  Gerador.wCampo(tcDe2, '', 'IR', 1, 1, 1, NFSe.Servico.Valores.ValorIr, '');
  if NFSe.Servico.Valores.ValorIr>0 then
     Gerador.wCampo(tcStr, '', 'RETIR', 1, 1, 1, 'S', '');
  Gerador.wCampo(tcDe2, '', 'CSLL', 1, 1, 1,  NFSe.Servico.Valores.ValorCsll  , '');
  if NFSe.Servico.Valores.ValorCsll>0 then
     Gerador.wCampo(tcStr, '', 'RETCSLL', 1, 1, 1, 'S', '');

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa tarde José,

Favor anexar a unit alterada para que possamos analisar.

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

Boa tarde José,

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

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

Obrigado por reportar.

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

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á 1185 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.