Total do Desconto difere do somatorio dos itens.

[Wellissonr]

Olá sou novo aqui,

Estou com esse problema ao fazer o rateio do desconto nos itens.

quando por exemplo lanço um desconto de 19.93

ele me retorna Total do Desconto difere do somatorio dos itens (vDesc informado: 19.93, vDesc calculado: 19.92).

No xml os dois itens estão, assim não fechando o valor:

item 1

     <vProd>75.00</vProd>

     <vDesc>9.96</vDesc>

 

     item 2

 

    <vProd>75.00</vProd>

    <vDesc>9.96</vDesc>

 

   codigo

	if (CDSNota.FieldByName('VALOR_DESCONTO').AsFloat > 0) then
		Prod.vDesc := RoundTo(((CDSNota.FieldByName('VALOR_DESCONTO').AsFloat/cdsNfSaidaDetalheSUBTOTAL_GERAL.AsVariant)*Prod.vProd),-2)
	else
    	Prod.vDesc := 0;

 

Editado 5 Setembro, 2017 por Wellissonr

[Edy]

Já tentou usar o mesmo método de arredondamento direto no vDesc? o problema neste arredondamento final do total.

[Wellissonr]

20 minutos atrás, Edy disse:

Já tentou usar o mesmo método de arredondamento direto no vDesc? o problema neste arredondamento final do total.

Opa, não entendi a sua pergunta.

[BigWings]

Para os casos de rateio você sempre deve considerar a "sobra" em cada arredondamento, e ir somando numa variável. 

Após passar todos os itens, acrescentar a sobra ao desconto do item de maior valor.

[Wellissonr]

Em 05/09/2017 at 16:13, BigWings disse:

Para os casos de rateio você sempre deve considerar a "sobra" em cada arredondamento, e ir somando numa variável. 

Após passar todos os itens, acrescentar a sobra ao desconto do item de maior valor.

Poderia me citar um exemplo usando esta "sobra" ?

[Sérgio Assunção]

7 minutos atrás, Wellissonr disse:

Poderia me citar um exemplo usando esta "sobra" ?

Desconto Total: 19,93
Desconto Total Fracionado: 19,92
Diferença: 0,01
Você tem que adicionar esse 0,01 no desconto de um dos itens. Aconselho que seja feito no item de maior valor.

[BigWings]

11 minutos atrás, Wellissonr disse:

Poderia me citar um exemplo usando esta "sobra" ?

if (CDSNota.FieldByName('VALOR_DESCONTO').AsFloat > 0) then
begin
  Prod.vDesc := RoundTo(((CDSNota.FieldByName('VALOR_DESCONTO').AsFloat/cdsNfSaidaDetalheSUBTOTAL_GERAL.AsVariant)*Prod.vProd),-2)
  Sobra := Sobra + (CDSNota.FieldByName('VALOR_DESCONTO').AsFloat/cdsNfSaidaDetalheSUBTOTAL_GERAL.AsVariant)*Prod.vProd) - Prod.vDesc;
end
else
  Prod.vDesc := 0;

 

[Wellissonr]

Pessoal consegui resolver aqui valeu pela ajuda!

[anderson_falves]

Wellissonr, Qual foi a solução para o seu problema?

 

[Sérgio Assunção]

36 minutos atrás, anderson_falves disse:

Wellissonr, Qual foi a solução para o seu problema?

Se você está com o mesmo problema, anexe o XML para que alguém possa te ajudar.

[suporti2011]

Em 08/09/2017 at 16:55, Wellissonr disse:

Pessoal consegui resolver aqui valeu pela ajuda!

Você poderia ter colocado a sua solução ai p ajudar aqueles que ainda não sabe 

[Sérgio Assunção]

26 minutos atrás, suporti2011 disse:

Você poderia ter colocado a sua solução ai p ajudar aqueles que ainda não sabe 

Tópico antigo.

Sugiro você abrir um novo tópico detalhando a sua dúvida.