Mario Moreira
Iniciante DIVISÃO 4, Programador(a) Ola a todos.
Estou desenvolvendo um ERP em Delphi e gostaria de saber se existe uma planilha dos calculos de icms, Icms ST, ipi, pis, Pis ST ,cofins, Cofins ST, etc.. para eu poder gerar a NFE apartir do meu sistema. Para cada CST, qual o calculo usar. Dentro do Estado e Fora do Estado. Ou se alguem possui a rotina pronta tambem serve. Pode ser em Delphi, Clipper, VB, Foxpro ou mesmo Excel.
Após eu implementar esta funcionalidade de NFE, posso compartilhar este sistema com quem me ajudou. email de contato: @Oculto
Conforme exemplo abaixo:
function TuFormNotaFiscalEd.getTotalNF(): Real;
var
Tot: Real;
MVAA: DOUBLE;
calc_origem: double;
icms_origem: double;
begin
DSItensNF.DataSet.First;
Tot := 0;
while not DSItensNF.DataSet.Eof do
begin
Tot := Tot + DSItensNF.DataSet.FieldByName('SUBTOTAL').AsFloat;
calc_origem := calc_origem +
(DSItensNF.DataSet.FieldByName('SUBTOTAL').AsFloat *
DSItensNF.DataSet.FieldByName('PERCICMS').AsFloat / 100);
ICMS_ORIGEM := ICMS_ORIGEM +
(DSItensNF.DataSet.FieldByName('SUBTOTAL').AsFloat *
DSItensNF.DataSet.FieldByName('PERCICMS').AsFloat / 100);
DSItensNF.DataSet.Next;
end;
DSEdicao.DataSet.FieldByName('VALORICMS').Value := (Tot *
DSItensNF.DataSet.FieldByName('PERCICMS').AsFloat) / 100;
if DSItensNF.DataSet.FieldByName('CST').AsString = '000' then
begin
DSEdicao.DataSet.FieldByName('VALORICMS').Value := (Tot *
DSItensNF.DataSet.FieldByName('PERCICMS').AsFloat) / 100;
end;
if DSItensNF.DataSet.FieldByName('CST').AsString = '010' then
begin
DSEdicao.DataSet.FieldByName('VALORICMS').Value := (Tot *
DSItensNF.DataSet.FieldByName('PERCICMS').AsFloat) / 100;
end;
//MVAA := ((( 1 + DSEDICAO.DATASET.FIELDBYNAME('MVA').AsFloat- original ) x ( 1 - DSItensNF.DataSet.FieldByName('PERCICMS').AsFloat) ) / ( 1 - ALQ intra ) ] - 1 } x 100
//MVA ajustada = { [ ( 1 + MVA-ST original ) x ( 1 - ALQ inter ) / ( 1 - ALQ intra ) ] - 1 } x 100
DSItensNF.DataSet.First;
Result := Tot;
end;
{
Valor do produto: 60,00 (vou chamar de TOTAL)
IMVA: 40%
IPI: 8%
Clculo da Origem:
TOTAL * %ICMS = 60 * 12% = R$ 7,20
ICMS ORIGEM = R$ 7,20
Clculo do Destino:
TOTAL2 = TOTAL + IPI = 60,00 + 8% = R$ 64,80
TOTAL2 = TOTAL2 + %IMVA = 64,80 + 40% = R$ 90,72
// R$ 90,72 j a BASE DE CALCULO DE ICMS. SUBST. TRIB
ICMS
ICMS DESTINO = TOTAL2 * %ICMS INTERNO (DO RIO)
ICMS DESTINO = TOTAL2 * 19% = R$ 17,23
VALOR DE ICMS SUBST.T RIB: ICMS DESTINO - ICMS ORIGEM
ICMS SUBST. TRIB: R$ 17,23 - R$ 7,20
ICMS SUBST. TRIB: R$ 10,23
CST (Codigo de Situacao Tributaria)
CST 00 : ICMS Integral Formula: Valor do Produto x Aliquota de ICMS
Ex: Valor do Prod. R$ 20,00 venda da Bahia para Bahia. aliq. 17%
Base ICMS = R$ 20,00 (Valor do Prod.) ICMS = R$ 3, 40 (Valor do Prod. x Aliq.) Total da Nota. R$ 20,00
Obs: ICMS Integral nao influi no total da nota.
CST 10 : ICMS Integral com Substituicao Tributaria
Formula: ((valor do Prod. + Perc. Margem Subs. Trib. do Prod.) x Aliq.ICMS interna do Est.) - (Valor do Prod. x Aliq. ICMS entre estados)
Ex.: em uma venda de cola de SP para BA
Perc. Margem Subs. Trib. de Adesivos e Tintas e 57,26 %
Aliq. ICMS interna da Bahia e 17 %
Aliq. ICMS de SP para BA e 7 %
Suponhamos que o valor do produto e R$ 10,00
Entao: (( R$ 10,00 + 57,26 %) x 17 %) - ( R$ 10,00 x 7 % )
( R$ 15,73 x 17 % ) - R$ 0,70
R$ 2,67 - R$ 0,70
= R$ 1,97
Base do ICMS = R$ 10,00 Valor do ICMS = R$ 0,70 Base Subs. Trib. = R$ 15,73 Subs. Trib. = R$ 1,97
Total da Nota = R$ 11,97 obs: o valor da Subs. Trib. soma no total da nota
************
ICMS Operao prpria:
Valor da Operao (a) : 38.391,60
Perc.Red. BC do ICMS (b) : 76,39
Valor da BC do ICMS (c=a x b) : 29.327,34
Alquota ICMS (d) : 12%
Valor do ICMS (e= c x d) : 3.519,28
ICMS Substituio Tributria:
Valor da BC do ICMS ST (f=a) : 38.391,60
Alquota ICMS ST (g) : 12%
Valor do ICMS ST (h = f x g e) : 1.087,71 (4.606,99 - 3.519,28)
*************
********************
CST PIS=01 Operaao Tributvel (Base de clculo = valor da operao aliquota normal (cumulativo/no cumulativo);
CST PIS=02 Operaao Tributvel (Base de clculo = valor da operao (aliquota diferenciada));
CST PIS=03 Operaao Tributvel (Base de clculo = base de clculo = quantidade vendida x alquota por unidade de produto);
CST PIS=04 Operaao Tributvel (tributao monofsica (aliquota zero);
CST PIS=06 Operaao Tributvel (alquota zero);
CST PIS=07 Operao Isenta da Contribuio
CST PIS=08 Operao Sem Incidncia da Contribuio
CST PIS=09 Operao com Suspenso da Contribuio
CST PIS=99 Outras Operaes.
CST PIS=Substituio Tributria
e
CST COFINS=01 Operaao Tributvel (Base de clculo = valor da operao aliquota normal (cumulativo/no cumulativo);
CST COFINS=02 Operaao Tributvel (Base de clculo = valor da operao (aliquota diferenciada));
CST COFINS=03 Operaao Tributvel (Base de clculo = base de clculo = quantidade vendida x alquota por unidade de produto);
CST COFINS=04 Operaao Tributvel (tributao monofsica (aliquota zero);
CST COFINS=06 Operaao Tributvel (alquota zero);
CST COFINS=07 Operao Isenta da Contribuio
CST COFINS=08 Operao Sem Incidncia da Contribuio
CST COFINS=09 Operao com Suspenso da Contribuio
CST COFINS=99 Outras Operaes.
CST COFINS=Substituio Tributria
*********************