NFSe Caxias do Sul Infisc com retenções

[Marcos Mentz]

Bom dia!

O envio de XML está funcionando normalmente para Caxias do Sul/RS, o problema é quando tem retenção de PIS/COFINS não está validando.

Verificando pela mensagem de erro de validação e olhando um XML digitado com retenção existem tags que não são geradas pelo ACBr:

vBCCOFINS, pRetCOFINS, vRetCOFINS e as tags semelhantes para os outros impostos.

No fonte do ACBr não encontrei estas tags na geração do XML.

Segue em anexo um XML validado com estas tags geradas.

Marcos

 

NF43028177440001299800S000000099974618248.xml

[Italo Giurizzato Junior]

Boa tarde Marcos,

Favor atualizar todos os fontes de todas as pastas e realize novos testes.

[Marcos Mentz_5837]

Boa tarde!

Na unit "pnfsNFSeW_Infisc" tive que comentar 3 linhas que acredito estarem incorretas, pois o valor líquido da NFSe não ficou correto com retenção, estava o valor cheio.

Desta maneira validou, antes acusava o valor liquido da NFSe incorreto.

  else begin
    Gerador.wGrupoNFSe('total');
    Gerador.wCampoNFSe(tcDe2, '', 'vServ', 01, 15, 1, NFSe.Servico.Valores.ValorServicos, '');
    Gerador.wCampoNFSe(tcDe2, '', 'vDesc', 01, 15, 1, NFSe.Servico.Valores.DescontoIncondicionado, '');
    Gerador.wCampoNFSe(tcDe2, '', 'vtNF' , 01, 15, 1,  NFSe.Servico.Valores.ValorServicos, '');

//--- 573 aqui    if NFSe.CondicaoPagamento.Parcelas.Count > 0 then
      Gerador.wCampoNFSe(tcDe2, '', 'vtLiq', 01, 15, 1, NFSe.Servico.Valores.ValorLiquidoNfse, '');
//--- 575 aqui    else
//---576 aqui      Gerador.wCampoNFSe(tcDe2, '', 'vtLiq', 01, 15, 1, NFSe.Servico.Valores.ValorServicos, '');

    Gerador.wCampoNFSe(tcDe2, '', 'totalAproxTrib', 01, 15, 1, 0, '');

 

Em anexo a unit alterada.

 

Marcos

Softbox

 

pnfsNFSeW_Infisc.pas

[Italo Giurizzato Junior]

Boa noite Marcos,

Muito obrigado pela colaboração, já esta no repositório.

[Marcos Mentz_5837]

Boa tarde!

Mais um ajuste necessário após a última atualização.

Unit pnfsNFSeR linha 2679, está invertido a avaliação do "if" , se gue o ajuste feito a unit anexada.

function TNFSeR.LerNFSe_Infisc: Boolean;
begin
  Result := False;
  Leitor.Grupo := Leitor.Arquivo;

  if (Pos('<NFS-e>', Leitor.Arquivo) > 0) then
  begin
    if VersaoNFSe = ve110 then
      Result := LerNFSe_Infisc_V11      <<--
    else
      Result := LerNFSe_Infisc_V10;     <<--
  end;
end;

pnfsNFSeR.pas

[Italo Giurizzato Junior]

Boa tarde Marcos,

Muito obrigado pela correção, já esta no repositório.