FONTE NFE VB.NET

TABPRS 25/06/2016 10:53:16
#464049
Não, tem que acrescentar antes da validação, e enviar para a sefaz com os dados da assinatura e chave de acesso.
MESTRE 30/06/2016 09:07:57
#464325
Alguem poderia mandar o projeto NFE atualizado???
TABPRS 01/07/2016 13:42:19
#464388
Boa tarde...

Alguém saber quando entra em vigor a regra para cobrança do DIFAL, que e diferença de alíquota para venda pessoal física fora do estado?

Obrigado.
MESTRE 04/07/2016 15:37:37
#464469
Citação:

:
Boa tarde
Estou tendo problemas com o envio da NFE. Está ocorrendo um erro [Ô]Valor não pode ser nulo. Nome do parâmetro: uriString .
o erro é na nesta linha ==>: Dim wsMsg As New AutorizacaoNFe.NfeAutorizacao(S_Url.UrlNFeAutorizacao310)
Deve ser algo relacionado à alguma url que não está sendo carregada, mas como posso resolver, Alguma poderia ajudar?

Public Function EnviaLote310(ByVal EndArquivoXml As String) As RetEnvio
Dim strRetorno As XmlElement
Dim xmldoc = New XmlDocument()

xmldoc.Load(EndArquivoXml) [ô]Carrega o arquivo XML
Dim CERT As X509Certificate2
CERT = SelecionarCertificado([Ô][Ô])
Try
Dim wsMsg As New AutorizacaoNFe.NfeAutorizacao(S_Url.UrlNFeAutorizacao310)
Dim cab As New AutorizacaoNFe.nfeCabecMsg

[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = VersaoAtualNfe

Dim Notas As String


Então estou com o mesmo problema mesmo selecionando o certificado digital manualmente...

conseguiu solucionar?
MFLAVIO 12/07/2016 17:57:23
#464755
Citação:

:
:
Boa tarde
Estou tendo problemas com o envio da NFE. Está ocorrendo um erro [Ô]Valor não pode ser nulo. Nome do parâmetro: uriString .
o erro é na nesta linha ==>: Dim wsMsg As New AutorizacaoNFe.NfeAutorizacao(S_Url.UrlNFeAutorizacao310)
Deve ser algo relacionado à alguma url que não está sendo carregada, mas como posso resolver, Alguma poderia ajudar?

Public Function EnviaLote310(ByVal EndArquivoXml As String) As RetEnvio
Dim strRetorno As XmlElement
Dim xmldoc = New XmlDocument()

xmldoc.Load(EndArquivoXml) [ô]Carrega o arquivo XML
Dim CERT As X509Certificate2
CERT = SelecionarCertificado([Ô][Ô])
Try
Dim wsMsg As New AutorizacaoNFe.NfeAutorizacao(S_Url.UrlNFeAutorizacao310)
Dim cab As New AutorizacaoNFe.nfeCabecMsg

[ô]UF E VERSÃO DO CABEÇALHO
cab.cUF = S_Url.CodigoUF
cab.versaoDados = VersaoAtualNfe

Dim Notas As String
Então estou com o mesmo problema mesmo selecionando o certificado digital manualmente...

conseguiu solucionar?




qual e o erro?
MESTRE 14/07/2016 09:33:14
#464808
E quando clico em enviar Lote aparece:

Citação:

[Ô]Valor não pode ser nulo. Nome do parâmetro: uriString .


na verdade acho que anda faltando links, ta dando Nothing olha sou de SP.





Agora o erro que me dá na linha strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc) no EnviaLote310 :
Citação:

Referência de objeto não definida para uma instância de objeto


EDIT agora ele foi passou no Autorização e mandou msg de [Ô]Lote recebido com sucesso[Ô] porém ta dando problema no retorno.

Dim RetonoConsulta As New RetRetorno
RetonoConsulta = WebS.ConsultaRecLote310(StrRetorno.nRec)


EDIT 2:
 Case Is = [Ô]SP[Ô] [ô]SP USA SEFAZ PROPRIO
                If AmbienteNFe.ToUpper <> [Ô]PRODUCAO[Ô] Then
                    UrlWs.UrlNfeRecepcao = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeRecepcao2.asmx[Ô]
                    UrlWs.UrlNfeRetRecepcao = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeRetRecepcao2.asmx[Ô]
                    UrlWs.UrlNfeCancelamento = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeCancelamento2.asmx[Ô]
                    UrlWs.UrlNfeInutilizacao = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeInutilizacao3.asmx[Ô]
                    UrlWs.UrlNfeConsultaProtocolo = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeConsulta3.asmx[Ô]

                    UrlWs.UrlNfeStatusServico = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeStatusServico2.asmx[Ô]
                    UrlWs.UrlNfeRecepcaoEvento = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/ws/recepcaoevento.asmx[Ô]
                    UrlWs.UrlNFeAutorizacao310 = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/ws/nfeautorizacao.asmx[Ô]
                    UrlWs.UrlNFeRetAutorizacao310 = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/ws/nferetautorizacao.asmx[Ô]
                    UrlWs.CodigoUF = 35
                Else
                    UrlWs.UrlNfeRecepcao = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nferecepcao2.asmx[Ô]
                    UrlWs.UrlNfeRetRecepcao = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nferetrecepcao2.asmx[Ô]
                    UrlWs.UrlNfeCancelamento = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfecancelamento2.asmx[Ô]
                    UrlWs.UrlNfeInutilizacao = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfeinutilizacao2.asmx[Ô]
                    UrlWs.UrlNfeConsultaProtocolo = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfeconsulta2.asmx[Ô]
                    UrlWs.UrlNfeStatusServico = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico2.asmx[Ô]
                    UrlWs.CodigoUF = 35
                End If


Agora ele parou de dar o erro após eu adicionar o url em negrito e me da a mensagem apenas [Ô]lote recebido com sucesso[Ô]:
Da erro no IE (Inscrição estadual) um monte de msgbox tenso viu! kkk

http://hom.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY=
Esta tudo vermelho SP :(
MFLAVIO 14/07/2016 17:00:15
#464823
Citação:

:
E quando clico em enviar Lote aparece:

[Ô]Valor não pode ser nulo. Nome do parâmetro: uriString .
na verdade acho que anda faltando links, ta dando Nothing olha sou de SP.





Agora o erro que me dá na linha strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc) no EnviaLote310 :
Referência de objeto não definida para uma instância de objeto
EDIT agora ele foi passou no Autorização e mandou msg de [Ô]Lote recebido com sucesso[Ô] porém ta dando problema no retorno.

Dim RetonoConsulta As New RetRetorno
RetonoConsulta = WebS.ConsultaRecLote310(StrRetorno.nRec)


EDIT 2:

 Case Is = [Ô]SP[Ô] [ô]SP USA SEFAZ PROPRIO
                If AmbienteNFe.ToUpper <> [Ô]PRODUCAO[Ô] Then
                    UrlWs.UrlNfeRecepcao = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeRecepcao2.asmx[Ô]
                    UrlWs.UrlNfeRetRecepcao = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeRetRecepcao2.asmx[Ô]
                    UrlWs.UrlNfeCancelamento = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeCancelamento2.asmx[Ô]
                    UrlWs.UrlNfeInutilizacao = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeInutilizacao3.asmx[Ô]
                    UrlWs.UrlNfeConsultaProtocolo = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeConsulta3.asmx[Ô]

                    UrlWs.UrlNfeStatusServico = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/nfeweb/services/NfeStatusServico2.asmx[Ô]
                    UrlWs.UrlNfeRecepcaoEvento = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/ws/recepcaoevento.asmx[Ô]
                    UrlWs.UrlNFeAutorizacao310 = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/ws/nfeautorizacao.asmx[Ô]
                    UrlWs.UrlNFeRetAutorizacao310 = [Ô]https://homologacao.nfe.fazenda.sp.gov.br/ws/nferetautorizacao.asmx[Ô]
                    UrlWs.CodigoUF = 35
                Else
                    UrlWs.UrlNfeRecepcao = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nferecepcao2.asmx[Ô]
                    UrlWs.UrlNfeRetRecepcao = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nferetrecepcao2.asmx[Ô]
                    UrlWs.UrlNfeCancelamento = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfecancelamento2.asmx[Ô]
                    UrlWs.UrlNfeInutilizacao = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfeinutilizacao2.asmx[Ô]
                    UrlWs.UrlNfeConsultaProtocolo = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfeconsulta2.asmx[Ô]
                    UrlWs.UrlNfeStatusServico = [Ô]https://nfe.fazenda.sp.gov.br/nfeweb/services/nfestatusservico2.asmx[Ô]
                    UrlWs.CodigoUF = 35
                End If


Agora ele parou de dar o erro após eu adicionar o url em negrito e me da a mensagem apenas [Ô]lote recebido com sucesso[Ô]:
Da erro no IE (Inscrição estadual) um monte de msgbox tenso viu! kkk

http://hom.nfe.fazenda.gov.br/portal/disponibilidade.aspx?versao=0.00&tipoConteudo=Skeuqr8PQBY=
Esta tudo vermelho SP :(



Amigo voce pode verificar as URLs no arquivo WsURLs.vb
na função Busca URL

[c] Public Function BuscaURL(ByVal Sigla As String, ByVal AmbienteNFe As String) As C_WebService.ListaUrl
Dim UrlWs As C_WebService.ListaUrl = Nothing
Select Case Sigla
Case Is = [Ô]ES[Ô], [Ô]MA[Ô], [Ô]PA[Ô], [Ô]PI[Ô], [Ô]RN[Ô] [ô]USAM SEFAZ VIRTUAL DO AMBIENTE NACIONAL
If AmbienteNFe.ToUpper <> [Ô]PRODUCAO[Ô] Then
UrlWs.UrlNfeRecepcao = [Ô]https://hom.sefazvirtual.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://hom.sefazvirtual.fazenda.gov.br/NFeRetRecepcao2/NFeRetRecepcao2.asmx[Ô]
UrlWs.UrlNfeCancelamento = [Ô]https://hom.sefazvirtual.fazenda.gov.br/NFeCancelamento2/NFeCancelamento2.asmx[Ô]
UrlWs.UrlNfeInutilizacao = [Ô]https://hom.sefazvirtual.fazenda.gov.br/NFeInutilizacao2/NFeInutilizacao2.asmx[Ô]
UrlWs.UrlNfeConsultaProtocolo = [Ô]https://hom.sefazvirtual.fazenda.gov.br/nfeconsulta2/nfeconsulta2.asmx[Ô]
UrlWs.UrlNfeStatusServico = [Ô]https://hom.sefazvirtual.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx[Ô]
UrlWs.CodigoUF = 32
UrlWs.ConsultaSite = [Ô]https://hom.nfe.fazenda.gov.br/PORTAL/FormularioDePesquisa.aspx?tipoconsulta=completa[Ô]
Else
UrlWs.UrlNfeRecepcao = [Ô]https://www.sefazvirtual.fazenda.gov.br/NfeRecepcao2/NfeRecepcao2.asmx[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://www.sefazvirtual.fazenda.gov.br/NFeRetRecepcao2/NFeRetRecepcao2.asmx[Ô]
UrlWs.UrlNfeCancelamento = [Ô]https://www.sefazvirtual.fazenda.gov.br/NFeCancelamento2/NFeCancelamento2.asmx[Ô]
UrlWs.UrlNfeInutilizacao = [Ô]https://www.sefazvirtual.fazenda.gov.br/NFeInutilizacao2/NFeInutilizacao2.asmx[Ô]
UrlWs.UrlNfeConsultaProtocolo = [Ô]https://www.sefazvirtual.fazenda.gov.br/nfeconsulta2/nfeconsulta2.asmx[Ô]
UrlWs.UrlNfeStatusServico = [Ô]https://www.sefazvirtual.fazenda.gov.br/NFeStatusServico2/NFeStatusServico2.asmx[Ô]
UrlWs.CodigoUF = 32
UrlWs.ConsultaSite = [Ô]https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa[Ô]
End If
Case Is = [Ô]AC[Ô], [Ô]AL[Ô], [Ô]AP[Ô], [Ô]DF[Ô], [Ô]PB[Ô], [Ô]RJ[Ô], [Ô]RO[Ô], [Ô]RS[Ô], [Ô]SC[Ô], [Ô]SE[Ô], [Ô]TO[Ô] [ô]USAM SEFAZ VIRTUAL DO RIO GRANDE DO SUL
If AmbienteNFe.ToUpper <> [Ô]PRODUCAO[Ô] Then
UrlWs.UrlNfeRecepcao = [Ô]https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nferecepcao/NfeRecepcao2.asmx[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nferetrecepcao/NfeRetRecepcao2.asmx[Ô]
UrlWs.UrlNfeCancelamento = [Ô]https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nfecancelamento/NfeCancelamento2.asmx[Ô]
UrlWs.UrlNfeInutilizacao = [Ô]https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nfeinutilizacao/NfeInutilizacao2.asmx[Ô]
UrlWs.UrlNfeConsultaProtocolo = [Ô]https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nfeconsulta/NfeConsulta2.asmx[Ô]
UrlWs.UrlNfeStatusServico = [Ô]https://homologacao.nfe.sefazvirtual.rs.gov.br/ws/nfestatusservico/NfeStatusServico2.asmx[Ô]
UrlWs.CodigoUF = 12
UrlWs.ConsultaSite = [Ô]http://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx[Ô]
UrlWs.UrlNfeRecepcaoEvento = [Ô]https://homologacao.nfe.sefaz.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx[Ô]
Else
UrlWs.UrlNfeRecepcao = [Ô]https://nfe.sefazvirtual.rs.gov.br/ws/nferecepcao/NfeRecepcao2.asmx[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://nfe.sefazvirtual.rs.gov.br/ws/nferetrecepcao/NfeRetRecepcao2.asmx[Ô]
UrlWs.UrlNfeCancelamento = [Ô]https://nfe.sefazvirtual.rs.gov.br/ws/nfecancelamento/NfeCancelamento2.asmx[Ô]
UrlWs.UrlNfeInutilizacao = [Ô]https://nfe.sefazvirtual.rs.gov.br/ws/nfeinutilizacao/NfeInutilizacao2.asmx[Ô]
UrlWs.UrlNfeConsultaProtocolo = [Ô]https://nfe.sefazvirtual.rs.gov.br/ws/nfeconsulta/NfeConsulta2.asmx[Ô]
UrlWs.UrlNfeStatusServico = [Ô]https://nfe.sefazvirtual.rs.gov.br/ws/nfestatusservico/NfeStatusServico2.asmx[Ô]
UrlWs.CodigoUF = 12
UrlWs.ConsultaSite = [Ô]http://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx[Ô]
UrlWs.UrlNfeRecepcaoEvento = [Ô]https://nfe.sefaz.rs.gov.br/ws/recepcaoevento/recepcaoevento.asmx[Ô]
End If
Case Is = [Ô]BA[Ô] [ô]BA USA SEFAZ PROPRIA
If AmbienteNFe.ToUpper <> [Ô]PRODUCAO[Ô] Then
UrlWs.UrlNfeRecepcao = [Ô]https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeRecepcao2.asmx[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeRetRecepcao2.asmx[Ô]
UrlWs.UrlNfeCancelamento = [Ô]https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeCancelamento2.asmx[Ô]
UrlWs.UrlNfeInutilizacao = [Ô]https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeInutilizacao2.asmx[Ô]
UrlWs.UrlNfeConsultaProtocolo = [Ô]https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeConsulta2.asmx[Ô]
UrlWs.UrlNfeStatusServico = [Ô]https://hnfe.sefaz.ba.gov.br/webservices/nfenw/NfeStatusServico2.asmx[Ô]
UrlWs.CodigoUF = 29
UrlWs.ConsultaSite = [Ô]http://www.sefaz.ba.gov.br/default.htm[Ô]
Else
UrlWs.UrlNfeRecepcao = [Ô]https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeRecepcao2.asmx[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeRetRecepcao2.asmx[Ô]
UrlWs.UrlNfeCancelamento = [Ô]https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeCancelamento2.asmx[Ô]
UrlWs.UrlNfeInutilizacao = [Ô]https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeInutilizacao2.asmx[Ô]
UrlWs.UrlNfeConsultaProtocolo = [Ô]https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeConsulta2.asmx[Ô]
UrlWs.UrlNfeStatusServico = [Ô]https://nfe.sefaz.ba.gov.br/webservices/nfenw/NfeStatusServico2.asmx[Ô]
UrlWs.CodigoUF = 29
UrlWs.ConsultaSite = [Ô]http://www.sefaz.ba.gov.br/default.htm[Ô]
End If
Case Is = [Ô]CE[Ô] [ô]CE USA SEFAZ PROPRIA
If AmbienteNFe.ToUpper <> [Ô]PRODUCAO[Ô] Then
UrlWs.UrlNfeRecepcao = [Ô]https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeRecepcao2[Ô]
UrlWs.UrlNfeRetRecepcao = [Ô]https://homologacao.nfe.ms.gov.br/homologacao/services2/NfeRetRecepcao2
MESTRE 15/07/2016 09:42:21
#464830
Então más de SP está faltando 2 URL[ô]s

UrlRecepcaoEvento
UrlNfeAutorizacao310

Eu busquei essas URL[ô]s e encontrei.. porém está dando erro agora de IE invalido, sendo que to colocando a Inscrição Estadual correta...
estranho..

No Link Aqui está tudo vermelho o homologação pra SP será por isso que to recebendo um erro?
MESTRE 15/07/2016 10:21:07
#464831
Bom galera consegui tirar a nota em ambiente de homologação..

UHULLLLLLLLL ..

[txt-color=#0000f0]Algumas Tratativas referente ao projeto NFe[/txt-color]
Bom galera vou explicar o que aconteceu comigo:

1. Acho que está faltando alguns links do WS abaixo:

UrlRecepcaoEvento
UrlNfeAutorizacao310
UrlNfeRetAutorizacao310
encontrei os mesmos em 2 minutos de pesquisa no Google no link: http://www.nfe.fazenda.gov.br/portal/WebServices.aspx

2. Percebi que o erro que eu estava tendo referente a IE, a Inscrição Estadual estava incorreta e o numero correto excede o MaskedTextBox de tamanho, apenas retirei a mask e deixei livre e deu certo.

3. Percebi um BUG pelo menos comigo quando não preencho o campo Complemento e deixo ele [ô]null[ô] ele dá problema não sei porque, se eu colocar um complemento qualquer funciona que é uma beleza (mistério total ainda não desvendado < ) más ta funcionando..
TABPRS 02/08/2016 11:30:19
#465405
Alguém tem o projeto atualizado, com o CSOSN 101,102,103...

Vi apenas com o CST 00,10,40,41...

Obrigado...
Página 206 de 228 [2276 registro(s)]
Faça seu login para responder
Voltar