Como mostrar Base de Calculo do Icms na Danfe

[porter]

Olá pessoal, preciso gerar uma nota, onde o VALOR TOTAL DOS PRODUTOS É R$ 490,00, mas a BASE DE CALCULO DO ICMS, é R$ 326,69 e o VALOR DO ICMS R$ 58,81.
No item do produto, contendo apenas um item, o VALOR TOTAL é R$ 490,00, a BASE CALC ICMS, é 326,69 e o VALOR ICMS é R$ 58,81, por favor, alguém poderia informar, o que tem que mudar nesse arquivo ENTNFE.TXT, a minha dúvida é onde informar os R$ 326,69 e R$ 58,81 no cabeçalho da nota, e onde informar os R$ 326,69 e R$ 58,81 no item do produto.

ENTNFE.TXT

Código: Selecionar todos

[Produto001]
CFOP=5102
Codigo=15713
Descricao=ARROZ                                   
NCM=04059090
CEST=0100900   
cEAN=SEM GTIN
Unidade=UN
Quantidade=1.000
ValorUnitario=490.00
ValorTotal=490.00
cEANTrib=SEM GTIN
ValorDesconto=0.00
vOutro=0.00
indTot=1

[ICMS001]
Origem=0
CSOSN=500
ValorBase=490.00
PercentualReducao=0
Aliquota=18.00
Valor=88.20
ModalidadeST=4

[PIS001]
CST=56
vBC=490.00
pPIS=0.65
vPIS=3.19

[COFINS001]
CST=01
vBC=490.00
pCOFINS=3.00
vCOFINS=14.70

[Total]
BaseICMS=490.00
ValorICMS=88.20
ValorProduto=490.00
ValorDesconto=0.00
ValorOutrasDespesas=0.00
ValorNota=490.00
ValorPis=3.19
ValorCofins=14.70

[Itamar M. Lins Jr.]

Olá!
Se for simples nacional, só na devolução é possível.

Saudações,
Itamar M. Lins Jr.

[porter]

Olá Itamar, preciso emitir uma nota de devolução, contendo BASE CALC ICMS, a minha dúvida é quais mudanças devo fazer nesse arquivo ENTNFE.TXT que estou gerando, a minha dúvida é onde informo os valores, obrigado.

[Itamar M. Lins Jr.]

Olá!

minha dúvida é onde informo os valores, obrigado.

Não faz nada ! Se tiver os campos para receber os valores!
Se não tem os campos na NFe, vai precisar CRIÁ-LOS! no BD.

Precisa usar o CSOSN 900.
E adicionar na estrutura do BD para IPI DEVOLUÇÃO se não tiver.

Código: Selecionar todos

...
                {'pdevol'     ,'n',12,2},; //pDevol Percetual IPI devolvido
                {'vipidevol'  ,'n',12,2},; //Valor do IPI devolvido
...
   IF !Empty(sb->pdevol)
      ? 'pDevol='     + ltrim(transform(sb->pdevol                        ,'@e 99999999.99'))
      ? 'vIPIDevol='  + ltrim(transform(sb->vipidevol                     ,'@e 99999999.99'))            
   ENDIF
...
   IF !Empty(sb->vipidevol)
      ? '[ImpostoDevol' + strzero(nItem,3)  +']'
      ? 'pDevol=' + ltrim(transform(sb->pdevol ,'@e 99999999.99'))
      ? 'vIPIDevol=' + ltrim(transform(sb->vipidevol ,'@e 99999999.99'))
   ENDIF
...
[total]
...
IF !Empty(sa->vIPIDevol)
   ? 'vIPIDevol=' + ltrim(transform(sa->vipidevol ,'@e 99999999.99'))
ENDIF
...

Lembrando que é no(s) item(ns) e na SOMA TOTAL 2 lugares!

DICA! Veja o XML de devolução(Nota Referenciada) e faz IGUAL! Muda somete o CSOSN = 900 e Devolução.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Olá Itamar, preciso emitir uma nota de devolução, contendo BASE CALC ICMS, a minha dúvida é quais mudanças devo fazer nesse arquivo ENTNFE.TXT que estou gerando, a minha dúvida é onde informo os valores, obrigado.

Provavelmente vai copiar do jeito que fizeram na nota de entrada.
Provavelmente deve ter redução da base de cálculo.
Quanto ao txt.... não faço a menor idéia, mas se faz isso em nota de venda, vai saber fazer na devolução.