Nota Fiscal Eletronica Rejei��o 694

Question

Boa tarde pessoal,Meu cliente tem uma empresa (Simples Nacional) aqui no estado de SP e precisa emitir uma NF-e para um cliente que � consumidor final e reside la no estado da Bahia, porem quando va...

Raimundo Pereira · Accepted Answer

Para empresas optantes do (Simples Nacional) CST do produtos saem 090 ou 290ICMS 0.00...

Softsan Software · Answer

Pesssoal resolvi informando da seguinte forma:

ICMSUFDest.vBCUFDest := 0;
ICMSUFDest.pFCPUFDest := 0;
ICMSUFDest.pICMSUFDest := 0;

with dm.QConsulta do
begin
close;
sql.Clear;
sql.Add('select aliquota from aliquotauf where uf =:uf');
ParamByName('uf').AsString := Trim(sUFEmi);
Open;

ICMSUFDest.pICMSInter := dm.QConsulta.FieldByName('aliquota').Value;

end;

if FormatDateTime('yyyy',Date) = '2016' then
begin
ICMSUFDest.pICMSInterPart := 40.00;
end;

if FormatDateTime('yyyy',Date) = '2017' then
begin
ICMSUFDest.pICMSInterPart := 60.00;
end;

if FormatDateTime('yyyy',Date) = '2018' then
begin
ICMSUFDest.pICMSInterPart := 80.00;
end;

if FormatDateTime('yyyy',Date) >= '2019' then
begin
ICMSUFDest.pICMSInterPart := 100.00;
end;

ICMSUFDest.vFCPUFDest := 0.00;
ICMSUFDest.vICMSUFDest := 0.00;
ICMSUFDest.vICMSUFRemet := 0.00;