ERRO 402 -> REJEIÇÃO:TOTAL DA BC ICMS DIFERE ...

[josemarmt]

boa tarde senhores,

como não tenho conhecimento na área fiscal e tenho andado muito atolado com outros projetos(sem tempo para pesquisas mais aprofundadas), venho solicitar junto a vcs. por favor ajudem-me a encontrar onde esta o erro no código. voui postar como disse o código e o arquivo xml rejeitado. certo da ajuda. desde já agradeço. abs

código:

while not dmmovimento.cdsitemmovimento.Eof do

begin

with Det.Add do

begin

Prod.nItem := itemnota;

Prod.CFOP := cfop;

Prod.cProd := dmmovimento.cdsitemmovimento.fieldbyname('CODIGO').AsString;

Prod.xProd := dmmovimento.cdsitemmovimento.fieldbyname('DESCRICAO').AsString;

Prod.qCom := dmmovimento.cdsitemmovimento.fieldbyname('QUANTIDADE').AsInteger;

Prod.uCom := dmmovimento.cdsitemmovimento.fieldbyname('UNIDADE').AsString;

Prod.vUnTrib := dmmovimento.cdsitemmovimento.fieldbyname('VALORUNIT').AsFloat;

Prod.vUnCom := dmmovimento.cdsitemmovimento.fieldbyname('VALORUNIT').AsFloat;

Prod.vProd := dmmovimento.cdsitemmovimento.fieldbyname('VALORTOTAL').AsFloat;

Prod.qTrib := dmmovimento.cdsitemmovimento.fieldbyname('QUANTIDADE').AsInteger;

Prod.uTrib := dmmovimento.cdsitemmovimento.fieldbyname('UNIDADE').AsString;

Prod.NCM := dmmovimento.cdsitemmovimento.fieldbyname('NCM').AsString;

if dmmovimento.cdsitemmovimento.FieldByName('ICMSITEM').AsFloat <> 0 then

begin

with Imposto do

begin

with ICMS do

begin

if (trim(dmmovimento.cdsitemmovimento.FieldByName('cst').AsString) = '201') or

(trim(dmmovimento.cdsitemmovimento.FieldByName('cst').AsString) = '202') then

begin

if trim(dmmovimento.cdsitemmovimento.FieldByName('cst').AsString) = '201' then

CSOSN := csosn201

else

CSOSN := csosn202;

end

else

CST := cst40;

ICMS.pICMS := dmmovimento.cdsitemmovimento.fieldbyname('ALIQUOTAICMS').AsFloat;

ICMS.vICMS := dmmovimento.cdsitemmovimento.fieldbyname('ICMSITEM').AsFloat;

ICMS.vBC := dmmovimento.cdsitemmovimento.fieldbyname('BASEITEM').AsFloat;

ICMS.vBCST := dmmovimento.cdsitemmovimento.fieldbyname('BASEST').AsFloat;

ICMS.vICMSST := dmmovimento.cdsitemmovimento.fieldbyname('ICMSST').AsFloat;

end;

end;

end;

end;

dmmovimento.cdsitemmovimento.Next;

itemnota := itemnota + 1;

end;

Total.ICMSTot.vBC := dmmovimento.cdsmovimento.fieldbyname('BASECALCULO').AsFloat;

Total.ICMSTot.vICMS := dmmovimento.cdsmovimento.fieldbyname('ICMS').AsFloat;

Total.ICMSTot.vDesc := dmmovimento.cdsmovimento.fieldbyname('DESCONTO').AsFloat;

Total.ICMSTot.vNF := dmmovimento.cdsmovimento.fieldbyname('VALORTOTAL').AsFloat;

Total.ICMSTot.vProd := dmmovimento.cdsmovimento.fieldbyname('VALORTOTAL').AsFloat+dmmovimento.cdsmovimento.fieldbyname('DESCONTO').AsFloat-dmmovimento.cdsmovimento.fieldbyname('ICMSST').AsFloat;

Total.ICMSTot.vBCST := dmmovimento.cdsmovimento.fieldbyname('BASEST').AsFloat;

Total.ICMSTot.vST := dmmovimento.cdsmovimento.fieldbyname('ICMSST').AsFloat;

xml gerado:

seguira em anexo

31111025274150000114550010000004021000004025-nfe.xml

[Marcio]

Bom Dia,

O erro ocorre pq vc está lançado vBC de ICMS nos totais sendo que seus produto nem tem lançado vBC. A soma dos campos vBC dos itens é o valor que deve constar nos totais, isso funciona para todos os demais campos.

[]'s

Marcio

[nazarenoneto]

Isso também pq no item que ele ta lançando o ICMS, ele esta colocando o CST 40, que não tem cobrança de icms, logo o ACBrNFe não gera as tags de icms para os itens, assim ficando diferente o valor dos itens com o total da nota.

[josemarmt]

concluído, grato