NFSE com Desconto no Provedor Elotech

[Zottis]

Pessoal, estou tentando emitir uma nota com desconto Incondicionadomas estou penando.

Não consigo fazer sair o valor Correto(R$18,00).

Já tentei passar o valor R$18,00 no  Servico.Valores.ValorLiquidoNfse := 18.00

já tentei NÃO passar
e da a mesma coisa.
Alguém poderia me auxiliar?

[Zottis]

Pessoal, acredito que o Problema seja no Danfse do ACBR
Emiti uma nota pelo site da Prefeitura com desconto e Exportei o XML.
e emiti uma nota pelo meu sistema e exportei o XML.
Analisei os dois XMLs e pelo que ví os dois estão com as mesmas informações.

Usei o exemplo do ACBR para imprimir os DANFSE
Resultado errados no Valor Líquido.

DANFSE da Nota emitida pelo meu sistema no Exemplo ACBR

 

DANFSE da Nota emitida pelo site da ELOTECH no Exemplo ACBR

DANFSE da Nota emitida pelo site da ELOTECH no Site

NFSE Emitida pelo Meu Sistema.xml NFSE Emitida pelo Site da ELOTECH.XML

[Zottis]

Fiz testes tanto com o Fortes Report quanto pelo Fast Report

[Juliomar Marchetti]

Creio que seja a questão de onde está informando o condicional ou incondicional o valor

[Zottis]

Oi Juliomar, obrigado pelo retorno.
Pelos XMLs (em anexo), estão iguais, tanto no xml gerado pelo ACBR quanto no xml lançado pelo site da Elotech.

E não tem desconto condicional, somente o Incondicional

no sistema lanço assim:

Servico.Valores.DescontoIncondicionado := qNFSe.FieldByname('vl_descontoincondicional').AsFloat;

 with Servico.ItemServico.New do
   begin

      .....

      DescontoIncondicionado := qNFSe.FieldByname('vl_descontoincondicional').AsFloat;

      BaseCalculo       := ValorTotal - (ValorDeducoes + DescontoIncondicionado);

       ValorTotal        := (Quantidade * ValorUnitario) - DescontoIncondicionado;

end;

   

 

Editado 12 Março por Zottis
informação Complementar

[Zottis]

Pessoal,

se mando 

 with Servico.ItemServico.New do
    begin

     .....

           DescontoIncondicionado := qNFSe.FieldByname('vl_descontoincondicional').AsFloat; <= R$10,00
           DescontoCondicionado   := 0;

                TipoUnidade       := tuQtde;
                Unidade           := 'UN';
                Quantidade        := 1;
                ValorUnitario     := qNFSe.FieldByname('VL_NOTANFS').AsFloat;<=R$100,00

               ValorTotal          := qNFSe.FieldByname('vl_totalnfs').AsFloat;<=100,00
                BaseCalculo       := qNFSe.FieldByname('vl_bc').AsFloat;<R$90,00

 

Tomo erro

 

e se mando 

 DescontoIncondicionado := qNFSe.FieldByname('vl_descontoincondicional').AsFloat; <= R$10,00
           DescontoCondicionado   := 0;

                TipoUnidade       := tuQtde;
                Unidade           := 'UN';
                Quantidade        := 1;
                ValorUnitario     := qNFSe.FieldByname('VL_NOTANFS').AsFloat;<=R$100,00

               ValorTotal          := qNFSe.FieldByname('vl_totalnfs').AsFloat;<=90,00
                BaseCalculo       := qNFSe.FieldByname('vl_bc').AsFloat;<R$90,00

Ele faz o calculo