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

[Eder Lacerda]

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.

 

pnfsNFSeR.pas

Editado 30 Setembro, 2020 por Eder Lacerda

[Italo Giurizzato Junior]

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.

[Italo Giurizzato Junior]

Eder,

Já esta no repositório.

[José Jair de Oliveira]

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', '');

 

[Italo Giurizzato Junior]

Boa tarde José,

Favor anexar a unit alterada para que possamos analisar.

[José Jair de Oliveira]

Bom dia Ítalo.

Segue anexo.

Obrigado.

 

pnfsNFSeW_AssessorPublico.pas

[Italo Giurizzato Junior]

Boa tarde José,

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

[Italo Giurizzato Junior]

Bom dia José,

Já enviei para o repositório.

[José Jair de Oliveira]

Bom dia Italo.

Muito obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

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