Como calcular a redução do icms?

Delphi

22/09/2006

Bom dia... estou querendo algum artigo de como faço os calculos da redução da base do icms, sobre que valor eu aplico isso? como é feito esse calculo?


Por favor... preciso disso!


valeu pela ajuda...

abraços a todos/as


Facc

Facc

Curtidas 0

Respostas

Aldus

Aldus

22/09/2006

Olá Fabio, você pode criar uma função que faça esse cálculo e usar em todo o sistema, da seguinte forma:

function ValorBaseICMS(ValorProduto,Reducao: double ou currency); double ou currency;
begin
   Result := ValorProduto * (1-(Reducao/100));
end;

{Para Usar}
BaseParaCalcularICMS := ValorBaseICMS(2500.00,13.00);
{Valor Retornado será 2.175,00 que o valor sobre o qual você irá aplicar o percentual de ICMS}


Espero tê-lo ajudado, e qualquer coisa, posta aí.
Abraço
Mario


GOSTEI 0
Facc

Facc

22/09/2006

Olá Fabio, você pode criar uma função que faça esse cálculo e usar em todo o sistema, da seguinte forma: 
function ValorBaseICMS(ValorProduto,Reducao: double ou currency); double ou currency;
begin
   Result := ValorProduto * (1-(Reducao/100));
end;

{Para Usar}
BaseParaCalcularICMS := ValorBaseICMS(2500.00,13.00);
{Valor Retornado será 2.175,00 que o valor sobre o qual você irá aplicar o percentual de ICMS}
Espero tê-lo ajudado, e qualquer coisa, posta aí. Abraço Mario



É sobre o valor (qtde * vlrUnitario) ? e esse valor se torna o valor do produto? Sou nosso nesse calculo...


GOSTEI 0
Aldus

Aldus

22/09/2006

Isso mesmo Fabio.

A disposição
Mario


GOSTEI 0
Facc

Facc

22/09/2006

Isso mesmo Fabio. A disposição Mario


então para se calcular o valor do icms (18¬) eu pego esse novo valor, correto?


GOSTEI 0
Aldus

Aldus

22/09/2006

Isso mesmo o cálculo vai ficar assim:

ValordoICMS := ValorBaseICMS(2500.00,13.00) * (1-(18.00/100));

Sendo: 
2500.00 - total do item
13.00 - percentual de reducao
18.00 - aliquota de icms deste produto

Caso o produto não tenha redução, pode usar a mesma fórmula, utilize-a como padrão.


Até


GOSTEI 0
POSTAR