ISS Retido

[pradilsoncarlos]

Bom Dia. Estou emitindo a nota de serviço em um cliente e no Valor Líquido Não está descontando o valor do ISS Retido.

 

201900000000136.xml

[Rafael Moreira Neves]

Olá,

Como você está preenchendo o campo Servico.Valores.IssRetido?

[pradilsoncarlos]

<IssRetido>1</IssRetido>

7 minutos atrás, Rafael Moreira Neves disse:

Olá,

Como você está preenchendo o campo Servico.Valores.IssRetido?

<IssRetido>1</IssRetido>

O XML está anexado

No Código eu passo assim:

                      If CDSNota2.FieldByName('ISSRetido').AsString = 'S' then
                        Servico.Valores.IssRetido := stRetencao
                     Else
                        Servico.Valores.IssRetido := stNormal;

[Rafael Moreira Neves]

Também coloco Servico.Valores.IssRetido := stRetencao, e preencho também Servico.ResponsavelRetencao e Servico.Valores.ValorIssRetido.

Não achei no xml o Servico.Valores.ValorIssRetido.

Editado 26 Fevereiro, 2019 por Rafael Moreira Neves

[pradilsoncarlos]

6 minutos atrás, Rafael Moreira Neves disse:

Também coloco Servico.Valores.IssRetido := stRetencao, e preencho também Servico.ResponsavelRetencao e Servico.Valores.ValorIssRetido.

Não achei no xml o Servico.Valores.ValorIssRetido.

Não é nessa tag que faço essa indicação ? <IssRetido>1</IssRetido>

Ele está calculando certinho só na hora de imprimir que ele não exibe no valor liquido o valor liquido.

Servico.Valores.ValorLiquidoNfse := Servico.Valores.ValorServicos -
                                                         Servico.Valores.ValorPis -
                                                         Servico.Valores.ValorCofins -
                                                         Servico.Valores.ValorInss -
                                                         Servico.Valores.ValorIr -
                                                         Servico.Valores.ValorCsll -
                                                         Servico.Valores.OutrasRetencoes -
                                                         Servico.Valores.ValorIssRetido -
                                                         Servico.Valores.DescontoIncondicionado -
                                                         Servico.Valores.DescontoCondicionado;

[pradilsoncarlos]

                     If Servico.Valores.IssRetido = stNormal Then
                        Begin
                           Servico.Valores.ValorIss         := RoundTo(CDSNota2.FieldBYName('VLISS').asCurrency,-4);
                           Servico.Valores.ValorIssRetido   := 0.00;
                        End
                     Else
                        Begin
                           If wIBGE = '3552601' then
                              Servico.Valores.ValorIss      := RoundTo5(ValorISS, -3)
                           Else
                              Servico.Valores.ValorIss      := 0.00;

                           Servico.Valores.ValorIssRetido   := fArredonda(CDSNota2.FieldBYName('VLISS').asCurrency,2);
                        End;
 

 

Essa aqui eu não estou configurando mesmo:

Servico.ResponsavelRetencao := (rtIntermediario, rtPrestador, ptTomador) tem que atribuir uma das opções entre parenteses.

Pode ser por falta dessa informação ?

 

[pradilsoncarlos]

Servico.ResponsavelRetencao está no xml

[pradilsoncarlos]

Agradeço a todos que contribuiram com este forum o problema foi resolvido.

Informei os valores para esta tag e deu certo: Servico.ResponsavelRetencao := (rtIntermediario, rtPrestador, ptTomador) tem que atribuir uma das opções entre parenteses.

Obrigado.

[Juliomar Marchetti]

Obrigado por reportar.

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