duvida com impostos para o simples

[jocgom]

Boa noite, estou iniciando um projeto de Nfe e estou com duvida ref aos impostos que incidem aos produtos de um empresa enquadrada no simples, alguem tem algum trecho de código para inserção de produto com os parametros preenchidos para o simples. Estou usando este trecho, se alguem puder avilar esta correto agradeço.

TbPedItens.First;

while not TbPedItens.Eof do begin

TbNCM.Findkey([TbPedItensCOD_CLASS_FISCAL.Value]);

numItem := numItem + 1;

with Det.Add do

begin

infAdProd := '';

Prod.nItem := numItem;

Prod.CFOP := LimpaStr(TbCfopCOD_NOTA.Value);

Prod.cProd := TbPedItensEXTENSAO.Value;

Prod.xProd := TbPedItensDESCRICAO.Value;

Prod.qCom := TbPedItensQTDE.Value;

Prod.NCM := TbNCMNCM.Value;

Prod.uCom := TbPedItensUNIDADE.Value;

Prod.vUnCom := TbPedItensPRECO_VENDA.Value;

Prod.vProd := TbPedItensPRECO_VENDA.Value* TbPedItensQTDE.Value;

Prod.qTrib := TbPedItensQTDE.Value;

Prod.uTrib := TbPedItensUNIDADE.Value;

Prod.vUnTrib := TbPedItensPRECO_VENDA.Value;

with Imposto do

begin

with ICMS do

begin

if cst_padrao = 2 then

CST := cst51;

if cst_padrao = 0 then

begin

CST := cst00;

ICMS.modBC := dbiMargemValorAgregado;

ICMS.pICMS := TbPedItensALIQ_ICMS.Value;

ICMS.vICMS := TbPedItensVLR_ICMS.Value;

ICMS.pRedBC := TbEstadosBASE_NORMAL.Value;

ICMS.vBC := TbPedItensVLR_BASE_ICMS.Value;

end;

if cst_padrao = 1 then

begin

CST := cst41;

ICMS.modBC := dbiMargemValorAgregado;

ICMS.pICMS := 0;

ICMS.vICMS := 0;

ICMS.pRedBC := 0;

ICMS.vBC := 0;

end;

{Simples Nacional}

if cst_padrao = 3 then

begin

ICMS.orig := oeNacional;

ICMS.CSOSN := csosn101;

ICMS.pCredSN:= aliquota_simples;

ICMS.vCredICMSSN:= (TbPedItensPRECO_VENDA.Value* TbPedItensQTDE.Value) * aliquota_simples / 100;

ICMS.modBC := dbiMargemValorAgregado;

ICMS.pICMS := 0;

ICMS.vICMS := 0;

ICMS.pRedBC := 0;

ICMS.vBC := 0;

PIS.CST := pis08;

COFINS.CST := cof08;

end;

end;

IPI.CST := ipi00;

IPI.pIPI := TbPedItensALIQ_IPI.VAlue;

IPI.vIPI := TbPedItensVLR_IPI.VAlue;

end;

end;

TbPedItens.Next;

end;

[igor]

se eu nao me engano o PIS e COFINS tem que ter cst 99 e vc nao pode preencher as tags de IPI, só que não lembro onde li isso...

acho que foi no FAQ do portal da NFe