Iss Retido Não Destacando Em Danfe Acbr, Mas Consta Em Danfe Site;

[theiller]

Olá,

 

Estou carregando o XML refrente a uma nota com ISS retido, provedor Saatri, porem estou com problema:

 

O ISS Retido não está sendo apresentado no DANFSe do ACBr porem se acessarmos pelo site o valor consta: https://barreiras.saatri.com.br/Relatorio/VisualizarNotaFiscal?numero=1814&codigoVerificacao=ABIXAKAO-EPAJGJ

 

Segue em anexo:

 

XML com ISS Retido;

Danfse do ACBr;

Danfse do Provedor Saatri;

Print de xml com iss retido;

Print de xml sem iss retido;

 

 

NFSE001814.xml

NFE-RPS-SAATRI.pdf

NFE-RPS-ACBr.pdf

[jGuto]

Bom dia, estou com o mesmo problema, pelo que eu percebi, na alimentação do retorno está procurando o campo ValorIssRetido, porém o valor do Iss Retido vem no campo ValorISS, a unica coisa que muda é a tag IssRetido.

 

No manual da ABRASF nem tem essa tag ValorIssRetido

Editado 25 Fevereiro, 2015 por jGuto

[jGuto]

Fiz as seguintes alterações para resolver meu problema

procedure TdmACBrNFSeFR.CarregaServicos;
var
  i: Integer;
  dValorNota: Double;
begin
  with cdsServicos do
  begin
    Close;
    CreateDataSet;
    Append;


    with FNFSe.Servico do
    begin
      FieldByName('ItemListaServico').AsString          := ItemListaServico;
      FieldByName('xItemListaServico').AsString         := xItemListaServico;
      FieldByName('CodigoCnae').AsString                := CodigoCnae;
      FieldByName('CodigoTributacaoMunicipio').AsString := CodigoTributacaoMunicipio;
     FieldByName('Discriminacao').AsString := StringReplace(Discriminacao, TACBrNFSe(DANFSeClassOwner.ACBrNFSe).Configuracoes.WebServices.QuebradeLinha, #13, [rfReplaceAll, rfIgnoreCase]);


      FieldByName('CodigoPais').AsString                := IntToStr(CodigoPais);
      FieldByName('NumeroProcesso').AsString            := NumeroProcesso;
      FieldByName('Descricao').AsString                 := Descricao;


      with Valores do
      begin
        FieldByName('ValorServicos').AsFloat            := ValorServicos;
        FieldByName('ValorDeducoes').AsFloat            := ValorDeducoes;
        FieldByName('ValorPis').AsFloat                 := ValorPis;
        FieldByName('ValorCofins').AsFloat              := ValorCofins;
        FieldByName('ValorInss').AsFloat                := ValorInss;
        FieldByName('ValorIr').AsFloat                  := ValorIr;
        FieldByName('ValorCsll').AsFloat                := ValorCsll;
//        FieldByName('IssRetido').AsString               := DFeUtil.SeSenao(IssRetido = stRetencao,'0', DFeUtil.SeSenao(IssRetido = stNormal,'2','3'));


//        FieldByName('ValorIss').AsFloat       := ValorIss;
//        FieldByName('ValorIssRetido').AsFloat := ValorIssRetido;

        if IssRetido = stNormal then
        begin
          FieldByName('ValorIss').AsFloat       := FNFSe.ValoresNfse.ValorIss;
          FieldByName('ValorIssRetido').AsFloat := 0;
        end
        else
        begin
          FieldByName('ValorIss').AsFloat       := 0;
          FieldByName('ValorIssRetido').AsFloat := FNFSe.ValoresNfse.ValorIss;
        end;


        FieldByName('OutrasRetencoes').AsFloat          := OutrasRetencoes;
        FieldByName('BaseCalculo').AsFloat              := FNFSe.ValoresNfse.BaseCalculo;
        FieldByName('Aliquota').AsFloat                 := FNFSe.ValoresNfse.Aliquota;
        FieldByName('ValorLiquidoNfse').AsFloat         := FNFSe.ValoresNfse.ValorLiquidoNfse;
        FieldByName('DescontoCondicionado').AsFloat     := DescontoCondicionado;
        FieldByName('DescontoIncondicionado').AsFloat   := DescontoIncondicionado;
      end;
    end;
    Post;
  end;
end;