Rateio desconto

[Antonino]

Bom dia, não estou conseguindo fazer com que o rateio do desconto entre os produtos funcione, é o seguinte, quando o desconto é distribuído pelos itens, se cada item ficar com uma parte do desconto, nem que seja 0,01, é aceito normalmente, mas se for muitos itens e algum ficar com desconto igual a 0 não é aceito conforme mensagem de erro abaixo.

Obrigado pela ajuda.

 

 

[BigWings]

8 minutos atrás, Antonino disse:

Bom dia, não estou conseguindo fazer com que o rateio do desconto entre os produtos funcione, é o seguinte, quando o desconto é distribuído pelos itens, se cada item ficar com uma parte do desconto, nem que seja 0,01, é aceito normalmente, mas se for muitos itens e algum ficar com desconto igual a 0 não é aceito conforme mensagem de erro abaixo.

Você deve estar passando um valor com mais de 2 casas decimais para o desconto.

[Antonino]

É pra eu aumentar o número de casas decimais no desconto? E quando for uma venda com uns 200 itens e tiver um desconto que o rateio ficar menos de 1 centavo pra cada item, como eu faço?

obrigado.

XML do que tem alguns itens com desconto e outros com 0.

26180304260169000131650010000000651000000651-nfe.xml

[BigWings]

48 minutos atrás, Antonino disse:

E quando for uma venda com uns 200 itens e tiver um desconto que o rateio ficar menos de 1 centavo pra cada item, como eu faço?

A regra geral é somar os resíduos (diferença entre o valor total do desconto e a soma dos descontos dos itens truncados para 2 casas decimais) e somar ao desconto do item de maior valor.

[Antonino]

Não estou conseguindo fazer esse rateio, vê meu código do rateio aí em baixo se tem como me auxiliar.

Obrigado.

 

         //Faz o Rateio do Desconto
         if desconto > 0 then
         begin
            p_desc_item   := (desconto / TotalCupom * 100);
            desconto_item := (db_Vendas.FieldByName('valor_total').AsFloat / 100) * p_desc_item;
            valor_total_desc_item := RoundTo(valor_total_desc_item + desconto_item, -5);

            if valor_total_desc_item > Desconto then
            begin
              ajusta_desconto := valor_total_desc_item - RoundTo(Desconto, -5);
              desconto_item := desconto_item - ajusta_desconto;
              if desconto_item < 0 then
              begin
                desconto_item := 0;
              end;
            end;
          //No Ultimo Item
            if ultimoitem = n_item then
            begin
              if valor_total_desc_item < Desconto then
              begin
                ajusta_desconto :=  RoundTo(Desconto, -5) - valor_total_desc_item;
                desconto_item :=  desconto_item + ajusta_desconto;
                if desconto_item < 0 then
                begin
                  desconto_item := 0;
                end;
              end;
            end;
         end
         else
         begin
           desconto_item := 0;
         end;
        Prod.vDesc     := desconto_item;

        //Fim do Rateio do Desconto por ITEM
        //////////////////////////////////