NFSE - CAMPO BELO MG ERRO PARA CLIENTE ISS RETIDO - URGENTE

[xim.logan]

Bom dia,

 estou implementando a NFSe de campo Belo-MG do provedor WebISS,

tenho obtido sucesso para clientes que não retem ISS,

já para  clientes que tem o ISS retido da mensagem de erro (vazia ) ao final e nao envia.  

 

Gostaria de saber se alguem ja passou por isso, ou saiba a solução.

 

esta assim no codigo , para passagem de valores de iss retido.

       IF MqNFReterIss.AsString='S' then
       begin
         Servico.Valores.ValorIss := 0 ;
         Servico.Valores.ValorIssRetido := SimpleRoundTo(valoriss,-2) ;

       end
       else
       begin
         servico.Valores.ValorIssRetido :=0;
         Servico.Valores.ValorIss :=SimpleRoundTo(valoriss,-2);
       end;

 

OBS: Ja certifiquei se o cliente retem iss, e sem esta sendo passada a IM do mesmo. 

 

Grato

Adilson Duarte

[Michel Ouriques]

Bom dia

Você está alterando a propriedade "Servico.Valores.IssRetido"?

Não trabalho com o provedor em questão, mas a provedores que obriga a que propriedade "Servico.Valores.ValorIss" esteja igual a "Servico.Valores.ValorIssRetido"

[Celso Marigo Junior]

O que você está preenchendo em:

// Neste exemplo não temos ISS Retido ( stNormal = Não )
// Logo o valor do ISS Retido é igual a zero.
// Veja que os valores possíveis para IssRetido são: ( stRetencao, stNormal, stSubstituicao )

Servico.Valores.IssRetido      := stNormal;
Servico.Valores.ValorIssRetido := 0.00;

// Se você retêm o ISSO, mude para
Servico.Valores.IssRetido := stRetencao;

Peguei os valores na demo do ACBr NFSe. Faça testes e verifique se o erro persiste.

[xim.logan]

45 minutos atrás, Celso disse:

O que você está preenchendo em:

// Neste exemplo não temos ISS Retido ( stNormal = Não )
// Logo o valor do ISS Retido é igual a zero.
// Veja que os valores possíveis para IssRetido são: ( stRetencao, stNormal, stSubstituicao )

Servico.Valores.IssRetido      := stNormal;
Servico.Valores.ValorIssRetido := 0.00;

// Se você retêm o ISSO, mude para
Servico.Valores.IssRetido := stRetencao;

Peguei os valores na demo do ACBr NFSe. Faça testes e verifique se o erro persiste.

Amigo boa Tarde,

 

Olha sim, eu ja estava preenchendo este campo, mas após sua resposta, resolve verifica-lo novamente, e encontrei o erro.

 

 no fonte estava assim:

     IF MqNFReterIss.AsString = 'S' then    ---->  linha com o erro, na verdade deveria ser <>"S" .  
      Servico.Valores.IssRetido              := stNormal
     else
     begin
     Servico.Valores.IssRetido              := stRetencao;
     Servico.Valores.ValorIssRetido         := MqNFValorIss.AsFloat;
     end;

 

Obrigado, pela ajuda!  Se não fosse por ela, nem olharia essa parte do codigo com mais cautela.

 

 

 

 

Amigo boa Tarde,

 

Olha sim, eu ja estava preenchendo este campo, mas após sua resposta, resolve verifica-lo novamente, e encontrei o erro.

 

 no fonte estava assim:

     IF MqNFReterIss.AsString = 'S' then    ---->  linha com o erro, na verdade deveria ser <>"S" .  
      Servico.Valores.IssRetido              := stNormal
     else
     begin
     Servico.Valores.IssRetido              := stRetencao;
     Servico.Valores.ValorIssRetido         := MqNFValorIss.AsFloat;
     end;

 

Obrigado, pela ajuda!  Se não fosse por ela, nem olharia essa parte do codigo com mais cautela.

[xim.logan]

Bom dia, para finalizar o assunto de NFse, existe alguma funcao ou propriedade do acbr, que me permita pergar o numero da NFSe retornado ao imprimir a Danfe ?

[Italo Giurizzato Junior]

Boa noite,

Se não me falha a memória no programa exemplo do componente ACBrNFSe tem algo nesse sentido.