Nota Fiscal Eletronica Rejeição 694
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 vamos transmitir da o seguinte erro :
Rejeição 694 - Grupo de ICMS Interestadual para a UF de destino deve ser informado na operação interestadual de venda a consumidor final não contribuinte.
Alguém já implementou isso ?, utilizo acbr e não tenho a minima ideia de como fazer.
se alguém puder me ajudar fico grato!
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 vamos transmitir da o seguinte erro :
Rejeição 694 - Grupo de ICMS Interestadual para a UF de destino deve ser informado na operação interestadual de venda a consumidor final não contribuinte.
Alguém já implementou isso ?, utilizo acbr e não tenho a minima ideia de como fazer.
se alguém puder me ajudar fico grato!
Softsan Software
Curtidas 0
Melhor post
Raimundo Pereira
08/07/2016
Para empresas optantes do (Simples Nacional)
CST do produtos saem 090 ou 290
ICMS 0.00
CST do produtos saem 090 ou 290
ICMS 0.00
GOSTEI 1
Mais Respostas
Softsan Software
07/07/2016
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;
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;
GOSTEI 0