FONTE NFE VB.NET

FOXMAN 19/11/2010 20:00:38
#357856
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

PDUARTE9 20/11/2010 15:43:54
#357893
Bom,eu preciso saber uma coisa.

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,
DANIELCPAETE 20/11/2010 18:18:10
#357903
Amigo PDUARTE esta maneira que mencionou é gerando apenas o txt e importando no programa da receita e depois ele se encarrega de tudo (gerar XML, transmitir NFE, e imprimir a Danfe.
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.
PDUARTE9 20/11/2010 20:08:09
#357910
DANIELCPAETE

Vlw mesmo cara! =D
JONASSCALAR 24/11/2010 17:01:14
#358144
Cara, to chorando de felicidade pelo teu servico.
Parabéns mesmo.
JONASSCALAR 25/11/2010 08:23:51
#358182
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.
DANIELCPAETE 25/11/2010 09:58:59
#358194
é só você pegar o retorno completo sem verificar as tags nele

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
FOXMAN 27/11/2010 09:41:17
#358320
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.


OTAVIOFAVERO 27/11/2010 21:19:50
#358351
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?????
Página 51 de 228 [2276 registro(s)]
Faça seu login para responder