Geração de Tributo ICMS

[tborges]

Estou obtendo a seguinte validação de regra de negócio de uma NFe.

se eu continuar e mandar validar obtenho mais esta mensagem.

o String Ini da Classe gerada é este...local onde obtive o string ' ACNFe.CarregarNota(ACNotaFiscal)'

[Produto001]
cProd=025
cEAN=17898955143022
cEANTrib=17898955143022
xProd=Achocolatado EstraFoods Pacote 200 Gr
NCM=18069000
CEST=1700600
CFOP=5.401
uCom=PCT
qCom=400,000000
vUnCom=0,540000
vProd=216,00
uTrib=PCT
qTrib=400,000000
vUnTrib=0,540000
vFrete=0,000000
vSeg=0,000000
vDesc=0
indTot=1
nItemPed=1
pDevol=0
vIPIDevol=0
vTotTrib=12,96
indEscala=S

[rastro001001]
qLote=0
dFab=01/01/0001
dVal=01/01/0001

[ICMS002]
orig=0
CSOSN=201
modBCST=4
pMVAST=33,3300
vBCST=287,99
pICMSST=18,0000
vICMSST=12,96
pCredSN=0,0000
vCredICMSSN=0,00

[Total]
vBC=0
vICMS=0
vICMSDeson=0
vBCST=287,99
vST=12,96
vProd=216,000000
vFrete=0,000000
vSeg=0,000000
vDesc=0,000000
vII=0
vPIS=0
vCOFINS=0
vOutro=0,000000
vNF=228,960000
vFCP=0,00
vFCPST=0,00
vFCPSTRet=0
vIPI=0
vTotTrib=12,96
vIPIDevol=0
 

O Codigo que gerou a Classe ACNotaFiscal = New ACBrLib.NFe.NotaFiscal é este

 

Se observarem a Section [ICMS002] é a unica incorreta, se eu editar a string para [ICMS001] gravar um arquivo texto, chamar via CarregarINI, não ocorre nenhuma mensagem.

Minha pergunta é : No codigo acima esta faltando alguma linha para definir que a Sections que foi gerada é '001' ou o Metodo da Classe esta contanto o [ICMS] incorretamente?

 

[José M. S. Junior]

Boa tarde @tborges,

Com essa informação conseguimos corrigir e fazer a validação da geração nas classes da NFe.

Assim que validado, geramos uma nova versão e informamos aqui.

[José M. S. Junior]

Boa tarde @tborges,

Favor atualizar as classes do demo ACBrLibNFe em C# e refazer os testes.

[tborges]

OK, vamos testar pela manhã e lhe dou um feedback. Obrigado.

[tborges]

Junior aproveitando olhe este outro problema.

Se antes disso você carregar um ini como abaixo, ai ele permite carregar o xml, mas no meu caso eu preciso é que carregue o xml.

        Dim StrIni As String = IO.File.ReadAllText("C:\Temp\1302.txt")
        ACNFe.CarregarINI(StrIni)
        Dim X As String = ACNFe.ObterIni(0)
 

NFe.xml

[José M. S. Junior]

2 horas atrás, tborges disse:

Se antes disso você carregar um ini como abaixo, ai ele permite carregar o xml, mas no meu caso eu preciso é que carregue o xml.

Boa tarde,

Se entendi correto, voce deseja carregar um xml já gerado para a lib, nesse caso use o método NFE_CarregarXML()

https://acbr.sourceforge.io/ACBrLib/NFE_CarregarXML.html

O método NFE_ObterXML tem efeito contrário, ele retorna o XML da NFe gerado pela lib, se já estiver carregado os dados na ACBrLibNFe.

[tborges]

O que esta dizendo é que jamais poderei usar um código como o abaixo.(Pegar um xml do em algum lugar e carregar na Lib)

Isso mesmo?  tenho que tomar o caminho de NFE_CarregarXML(), apesar de os exemplos nas Demos estarem .CarregarXML(str)!

Desculpe pela falta de conhecimento sobre os dois métodos, mas preciso saber alguns 'porques', para que eu possa montar um Classe de Negócio sobre a ACBrLIB com a maior performance possível.

E .CarregarXML(stringxml) seria uma 'baita' mão na roda, em um sufoco no Cliente, poderia editar o XML, carrega-lo e enviar a SEFAZ.

Grato pela atenção, e código abaixo jamais?

Dim ACNFe As New ACBrNFe

ACNFe.Config(.......)

Dim StrIni As String = IO.File.ReadAllText("C:\Temp\NFe.xml")
ACNFe.CarregarXML(StrIni)
 

 

[José M. S. Junior]

32 minutos atrás, tborges disse:

Dim ACNFe As New ACBrNFe

ACNFe.Config(.......)

Dim StrIni As String = IO.File.ReadAllText("C:\Temp\NFe.xml")
ACNFe.CarregarXML(StrIni)

Dessa forma está correto, esse método você pode carregar um XML de NFe na lib, pode ser passando o path do xml ou o conteúdo do mesmo como parâmetro. Só precisa ser um XML de NFe válido no padrão SEFAZ.

Após carregar o XML você pode utilizar os métodos para Assinar, Validar, Enviar e Imprimir...

Está ocorrendo algum erro ao carregar o xml? Se sim por favor anexe o log da lib para que possamos analisar.

 

[tborges]

Ok...Na 2ª eu carrego xmls válidos e inválidos para analisar o comportamento e reporto o ocorrido.

Bom final de semana...

[tborges]

Junior bom dia.

       AGENFe.Configuracao(ACNFe, dtEmpresa.Rows(0), dhEmi, CInt(Controls("NFeAmbiente").Text))

        Dim FNFe As String = IO.File.ReadAllText("C:\Temp\NFe.xml")
        ACNFe.CarregarXML(FNFe)
        ACNFe.Assinar()
        ACNFe.Validar()
        ACNFe.Imprimir()

 

Este código nada acontece, passa 'batido' por todas as linhas e nada ocorre.

Em anexo o xml carregado.

NFe.xml

[José M. S. Junior]

Bom dia @tborges,

O cabeçalho desse XML está fora do padrão, por isso o componente não identifica como sendo um xml e não está carregando. Adicione o encoding UTF-8 no xml e a tag <NFe> como sendo o grupo principal.

exemplo:

<?xml version="1.0" encoding="UTF-8"?>

-<NFe xmlns="http://www.portalfiscal.inf.br/nfe">

O XML completo deve ficar dessa forma:

NFe.xml

[tborges]

Muitíssimo obrigado por apontar um descuido meu.

Tudo funcionando, pode encerrar este post.

Tenha um bom dia.

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.