FONTE NFE VB.NET
Citação::
Pessoal, alem do certificado , o cliente precisa fazer algum outro tipo de cadastro, para emitir a NFE ?
Acabei de ler na SEFAZ, precisa, só achei estranho que tem que ser um agora para testes e depois tem que solicitar outro para produção.
Outra coisa, vi que perguntaram aqui , mas também não responderam, existe algum certificado para testes, não encontro isso, estou
pedindo ao meu cliente uma copiad do dele, mas o contador esta barrando, e disse que não precisa de certificado deles para fazer os testes, estou
ficando carequinha, encontrei um na SEFAZ, mas ele só tem validade até 06/2010.
Se existe esse certificado para testes com validade, alguem tem o link ?
Esse contador esta certo ?
Solicitar dois credenciamentos ?
***Após estes passos, o estabelecimento já está autorizado a enviar NF-e no ambiente de testes / homologação da SEFAZ/SP por meio do “Emissor de NF-e – versão de testes†ou por meio de aplicativo próprio.
Para emitir NF-e com validade jurÃdica em substituição à s notas fiscais em papel Modelo 1 ou 1-A, o estabelecimento deverá solicitar seu credenciamento, nesse mesmo site, para emitir NF-e em produção.***
Obrigado
Nilson, Além do certificado, o seu cliente tem que estar credenciado junto a SECRETARIA DA FAZENDA ESTADUAL(ao menos em SP). O processo é simples. Na verdade esse credenciamento inicialmente é para TESTES(HOMOLOGAÇÃO), Depois é só alterar para PRODUÇÃO, porém você poderá continuar a fazer testes em ambiente de HOMOLOGAÇÃO.
Se seu cliente terá que emitir NFe, já solicite o Certificado Digital para ele (eu sempre utilizo o MODELO A1) pois posso ter várias cópias e no meu caso faço testes com a empresa REAL.
Assim você terá a exata simulação do ambiente de produção.
Citação::
Boa tarde colegas
Estou adaptando meu erp para versão 2.0.
Tenho um cliente que é simples nacional, e estou perdido com relação aos campos [Ô]pCredSN[Ô] e [Ô]vCredICMSSN[Ô], sera que alguem poderia me explcar quais informações vão ai? (porque no manual não entendi nada)
Obrigado
Citação::
:
Pessoal, boa tarde.
Com relação aos campos vCredICMSSN e pCredSN qual é o calculo a ser feito ????
FOXMAN,
Pelo que eu entendo, há alguns casos onde pode o cliente pode recuperar crédito de ICMS nas Operações com Simples Nacional, ou seja se creditar daquele valor. Nesse caso, a porcentagem de crédito é referente ao percentual do ICMS constante da tabela da Lei Complementar 123 (no caso de Indústria, anexo II), de acordo com a receita bruta da empresa no perÃodo de 12 meses. Por exemplo, para uma faixa de 600.000,01 a 720.000,00, a porcentagem é de 2,82%, ou seja pCredSN é de 2,82. Para o vCredICMSSN é o valor total dos produtos (sem a ST) * 0,0282.
Creio que seja assim.
Abraço.
Ricardo
Eu consegui cim um amigo,o cógigo para fazer a Nfe.
Então,ele gerou um arquivo .txt com as informações e talz...
Mas,onde é que entra o arquivo XML nessa história?
Ele é gerado por aquele programa do site da Nfe, que [Ô]puxa[Ô] o .txt,e que gera um XML,e é enviado para a receita?
é isso?
Obrigado,
Este código que estamos apresentando aqui no VBMania é para realizar todos estes processos automatizadamente sem a nescessidade de importar no programa da receita. O nosso sistema gera o XML e já transmite a NFE para a receita e depois gera a danfe.
Vlw mesmo cara! =D
Parabéns mesmo.
Faço o consumo do WS assim:
Public Sub pegar_protocolo_nfe(ByVal chave_nfe As String)
Dim q As String = String.Empty
q = [Ô]<consSitNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
q &= [Ô]<tpAmb>[Ô] & EmpresaAtual.tipoAmbiente & [Ô]</tpAmb>[Ô]
q &= [Ô]<xServ>CONSULTAR</xServ>[Ô]
q &= [Ô]<chNFe>[Ô] & chave_nfe & [Ô]</chNFe>[Ô]
q &= [Ô]</consSitNFe>[Ô]
Dim ws = New NfeConsulta2.NfeConsulta2(ListasWebServices.UrlNfeConsultaProtocolo)
ws.nfeCabecMsgValue = New NfeConsulta2.nfeCabecMsg
ws.nfeCabecMsgValue.cUF = EmpresaAtual.UFCod
ws.nfeCabecMsgValue.versaoDados = EmpresaAtual.versao_dados
ws.ClientCertificates.Add(CertificadoDigital.oCertificado)
[ô]aumenta o tempo de retorno
ws.Timeout = 100000
Try
status_protocolo_nfe = q & vbCrLf & vbCrLf & ws.nfeConsultaNF2(XML_diversos.String_to_XmlNode(q)).OuterXml.ToString
Catch ex As Exception
status_protocolo_nfe = [Ô]erro = [Ô] & ex.Message
End Try
End Sub
A pergunta é a seguinte:
Quando envio a requisição tem como acessar o XML completo do envio, ou seja Mensagem+Cabeçalho?
Pego isso de onde dentro da CLASSE NfeConsulta2?
Poderia pegar da Classe ENVIOLOTE tembém?
No caso é o XML inteiro ASSINADO entende?
é esse que quero salvar.
Por exemplo quando mando o LOTE mando NFe+Signature correto, é isso que quero salvar.
Tche muito obrigado se puder me ajudar.
No código que consome o webservice existe uma chamada que retorna o XML e depois este é detalhado e separado
strRetorno = wsMsg.nfeRecepcaoLote(wsCabecMsg, Notas)
O strRetorno é o XML
Citação::
Daniel, preciso de um HELP por favor, não achei isso em nenhum tópico.
Faço o consumo do WS assim:
Public Sub pegar_protocolo_nfe(ByVal chave_nfe As String)
Dim q As String = String.Empty
q = [Ô]<consSitNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
q &= [Ô]<tpAmb>[Ô] & EmpresaAtual.tipoAmbiente & [Ô]</tpAmb>[Ô]
q &= [Ô]<xServ>CONSULTAR</xServ>[Ô]
q &= [Ô]<chNFe>[Ô] & chave_nfe & [Ô]</chNFe>[Ô]
q &= [Ô]</consSitNFe>[Ô]
Dim ws = New NfeConsulta2.NfeConsulta2(ListasWebServices.UrlNfeConsultaProtocolo)
ws.nfeCabecMsgValue = New NfeConsulta2.nfeCabecMsg
ws.nfeCabecMsgValue.cUF = EmpresaAtual.UFCod
ws.nfeCabecMsgValue.versaoDados = EmpresaAtual.versao_dados
ws.ClientCertificates.Add(CertificadoDigital.oCertificado)
[ô]aumenta o tempo de retorno
ws.Timeout = 100000
Try
status_protocolo_nfe = q & vbCrLf & vbCrLf & ws.nfeConsultaNF2(XML_diversos.String_to_XmlNode(q)).OuterXml.ToString
Catch ex As Exception
status_protocolo_nfe = [Ô]erro = [Ô] & ex.Message
End Try
End Sub
A pergunta é a seguinte:
Quando envio a requisição tem como acessar o XML completo do envio, ou seja Mensagem+Cabeçalho?
Pego isso de onde dentro da CLASSE NfeConsulta2?
Poderia pegar da Classe ENVIOLOTE tembém?
No caso é o XML inteiro ASSINADO entende?
é esse que quero salvar.
Por exemplo quando mando o LOTE mando NFe+Signature correto, é isso que quero salvar.
Tche muito obrigado se puder me ajudar.
Pelo que entendi você se refere a NOTA e não a CONSULTA, você gostaria de pegar a NOTA enviada nessa CONSULTA ???
Se SIM for sua resposta então :
NÃO
NÃO PEGA.
NÃO
ENTENDO
SALVE ANTES DE ENVIAR.
Amigo, tu não salva ele antes ????
Por exemplo :
Uma cópia da NFe Gerada
Uma cópia da NFe Assinda
Uma cópia da NFe Enviada
Uma cópia da NFe Autorizada
As 3 primeiras não é obrigatório, a última Durante 5 anos.
Citação::
Daniel, preciso de um HELP por favor, não achei isso em nenhum tópico.
Faço o consumo do WS assim:
Public Sub pegar_protocolo_nfe(ByVal chave_nfe As String)
Dim q As String = String.Empty
q = [Ô]<consSitNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]>[Ô]
q &= [Ô]<tpAmb>[Ô] & EmpresaAtual.tipoAmbiente & [Ô]</tpAmb>[Ô]
q &= [Ô]<xServ>CONSULTAR</xServ>[Ô]
q &= [Ô]<chNFe>[Ô] & chave_nfe & [Ô]</chNFe>[Ô]
q &= [Ô]</consSitNFe>[Ô]
Dim ws = New NfeConsulta2.NfeConsulta2(ListasWebServices.UrlNfeConsultaProtocolo)
ws.nfeCabecMsgValue = New NfeConsulta2.nfeCabecMsg
ws.nfeCabecMsgValue.cUF = EmpresaAtual.UFCod
ws.nfeCabecMsgValue.versaoDados = EmpresaAtual.versao_dados
ws.ClientCertificates.Add(CertificadoDigital.oCertificado)
[ô]aumenta o tempo de retorno
ws.Timeout = 100000
Try
status_protocolo_nfe = q & vbCrLf & vbCrLf & ws.nfeConsultaNF2(XML_diversos.String_to_XmlNode(q)).OuterXml.ToString
Catch ex As Exception
status_protocolo_nfe = [Ô]erro = [Ô] & ex.Message
End Try
End Sub
A pergunta é a seguinte:
Quando envio a requisição tem como acessar o XML completo do envio, ou seja Mensagem+Cabeçalho?
Pego isso de onde dentro da CLASSE NfeConsulta2?
Poderia pegar da Classe ENVIOLOTE tembém?
No caso é o XML inteiro ASSINADO entende?
é esse que quero salvar.
Por exemplo quando mando o LOTE mando NFe+Signature correto, é isso que quero salvar.
Tche muito obrigado se puder me ajudar.
Try
BuscaURL(rocket_Funcao.vUF, rocket_Funcao.Ambiente)
dll_rocket_nfe.rocket_Funcao.GerarXML([Ô]NfeConsultaNota[Ô])
Dim vStringLoteNfe As String
vStringLoteNfe = dll_rocket_nfe.rocket_Funcao.TextoXML
Dim myXMLDoc As New System.Xml.XmlDocument
myXMLDoc.PreserveWhitespace = True
myXMLDoc.LoadXml(vStringLoteNfe)
Dim NfeServico As Consulta2.NfeConsulta2
Dim nfeCabecMsg As New Consulta2.nfeCabecMsg
NfeServico = New Consulta2.NfeConsulta2(rocket_Funcao.UrlNfeConsultaProtocolo)
nfeCabecMsg.versaoDados = [Ô]2.00[Ô]
nfeCabecMsg.cUF = rocket_Funcao.vUF
NfeServico.nfeCabecMsgValue = nfeCabecMsg
[ô][ô]NfeStatusServico.Url = rocket_Funcao.UrlNfeStatusServico
NfeServico.SoapVersion = SoapProtocolVersion.Soap12
NfeServico.ClientCertificates.Add(rocket_Certificado.oCertificado)
Dim Retorno As New XmlDocument
Retorno.LoadXml(NfeServico.nfeConsultaNF2(myXMLDoc).OuterXml)
dll_rocket_nfe.rocket_Funcao.TextoXML = Retorno.InnerXml
NfeServico.Dispose()
dll_rocket_nfe.rocket_Funcao.NomeArquivo = SalvaRetorno & dll_rocket_nfe.rocket_Funcao.ChaveNFe & [Ô]-sit.xml[Ô]
dll_rocket_nfe.rocket_Funcao.GravarXML()
dll_rocket_nfe.rocket_Funcao.Ler_XMLRetorno(dll_rocket_nfe.rocket_Funcao.NomeArquivo, dll_rocket_nfe.rocket_Funcao.TextoXML)
ConsultaNFe = dll_rocket_nfe.rocket_Funcao.TextoMotivo
Catch
Return [Ô]Sem Conexão...[Ô]
End Try
dll_rocket_nfe.rocket_Funcao.TextoXML = [Ô]<?xml version=[Ô][Ô]1.0[Ô][Ô] encoding=[Ô][Ô]UTF-8[Ô][Ô]?><consSitNFe xmlns=[Ô][Ô]http://www.portalfiscal.inf.br/nfe[Ô][Ô] versao=[Ô][Ô]2.00[Ô][Ô]><tpAmb>[Ô] & dll_rocket_nfe.rocket_Funcao.Ambiente & [Ô]</tpAmb><xServ>CONSULTAR</xServ><chNFe>[Ô] & dll_rocket_nfe.rocket_Funcao.ChaveNFe & [Ô]</chNFe></consSitNFe>[Ô]
dll_rocket_nfe.rocket_Funcao.NomeArquivo = dll_rocket_nfe.rocket_Funcao.NomeArquivo & dll_rocket_nfe.rocket_Funcao.ChaveNFe & [Ô]-ped-sit.xml[Ô]
bom e isso que voce procura?????