Fórum tag vFrete do item da nota #457936

André, bom dia! Você deverá fazer um tratamento na divisão. Primeiramente, trucar na segunda casa decimal (7,16). Depois disso, a diferença que der, no caso do exemplo dará dois centavos para menos, jogue no primeiro ou último item. Em resumo ficaria assim:
- Primeiro item: 7,16
- Segundo item: 7,16
- Terceiro item: 7,18.

Fecharia nos 21,50.

Att,

Marcos

Marcos bom dia, fiz da seguinte maneira abaixo :

//Calculando o frete

if edtfrete.Text <> '' then
begin
frete := Strtofloat( edtFrete.Text );
calc_frete := frete / ( QbuscaItens.RecordCount );
end

// Parametro do Update realizado no banco de dados com o truncamento

Var
X: Double;
Begin

X := 0;
X := Trunc(calc_frete * 100) /100;
.
.
.
dm.QConsulta.ParamByName('20').AsCurrency := X;

até ai blz, vamos supor que no exemplo de um frete no valor de R$ 21,50, estarei dividindo por 3, estaria dando 7,166666666666667, com o truncamento esta dando 7,16, porem esta sando este valor nos 3 itens, ai fica faltando ainda 0,02 centavos, como que faço para que o valor que falta seja somado no ultimo item ?

André, você tem que ir acumulando o valor já dividido para os primeiros itens em alguma variável.
Exemplo:
- Item 1: 7,16
- Item 2: 7,16 + 7,16 = 14,32

No item 3, você pega o valor total (21,50) menos o valor já dividido e acumulado na variável (14,32) que vai ser igual a 7,18.
Você só precisa identificar qual é o último item para que isso funcione.

Att,

Marcos

Consegui aqui Marcos, no final do processo, somei o valor total do frete dos itens, fiz menos o valor do frente total, assim achando a diferença, e por ultimo dei um update no ultimo item da nota somando a diferença + o frete, deu certinho, muito obrigado pela dica.

Falou André! Precisando, estamos aí...