bom dia
pesquisando sobre como baixar a xml direto do site do sefaz achei esse codigo tentei adpta pra baixa mas o momento sem exito alguem pode me ajudar?
Public Function DownloadNotaFiscal(ByVal NSerieCert As String, ByVal Chave As String, Ambiente As AmbienteNFC, CNPJ As String) As String
Dim Ret As String = [�][�]
Try
If My.Computer.Network.IsAvailable = False Then Throw New Exception([�]A internet n�o est� dispon�vel no momento.[�] & ControlChars.NewLine & [�]Solucione o problema e repita a opera��o....[�])
If Chave.Trim = [�][�] Then Throw New Exception([�]Falta informar o n�mero da Nota Fiscal a ser consultado.[�])
If Chave.Length <> 44 Then Throw New Exception([�]A chave informada para download da NFE n�o � v�lida.[�])
If NSerieCert = [�][�] Then Throw New Exception([�]N�o foi informado o certificado digital a ser usado para download da Nota Fiscal.[�])
If IsNumeric(System.Enum.Parse(GetType(EstadosUF), BblNFC.PCUF).ToString) Then Throw New Exception([�]O estado da UF informado para a Empresa solicitante do Download da Nota Fiscal n�o � v�lido.[�])
Dim Cert As X509Certificate2 = New X509Certificate2
Cert = RetornaCertificado(NSerieCert)
If Cert Is Nothing Then
Throw New Exception([�]Problema na leitura do certificado digital.[�])
Else
BblNFC.Serv = TipoServico.NfeDownload
Dim WebNF As WsDownNFE.NfeDownloadNF = New WsDownNFE.NfeDownloadNF
Dim CabNF As WsDownNFE.nfeCabecMsg = New WsDownNFE.nfeCabecMsg
CabNF.cUF = PCUF
CabNF.versaoDados = [�]1.00[�]
WebNF.nfeCabecMsgValue = CabNF
WebNF.ClientCertificates.Add(Cert)
WebNF.Timeout = 10000
WebNF.SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12
WebNF.Url = RetornaURL()
Dim Doc As XDocument = New XDocument(
DWAMB
DOWNLOAD NFE
DOWCNPJ
DOWCHAVE
)
Dim Dados As String = Doc.ToString.Replace([�]DWAMB[�], Ambiente).Replace([�]DOWCNPJ[�], CNPJ.SoNumber).Replace([�]DOWCHAVE[�], Chave)
Dim Xml As XmlDocument = New XmlDocument
Xml.LoadXml(Dados)
Ret = WebNF.nfeDownloadNF(Xml).OuterXml
End If
Catch ex As Exception
Ret = [�][�]
MessageBox.Show(ex.Message, [�]Download NFE[�], MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
Return Ret
End Function
pesquisando sobre como baixar a xml direto do site do sefaz achei esse codigo tentei adpta pra baixa mas o momento sem exito alguem pode me ajudar?
Public Function DownloadNotaFiscal(ByVal NSerieCert As String, ByVal Chave As String, Ambiente As AmbienteNFC, CNPJ As String) As String
Dim Ret As String = [�][�]
Try
If My.Computer.Network.IsAvailable = False Then Throw New Exception([�]A internet n�o est� dispon�vel no momento.[�] & ControlChars.NewLine & [�]Solucione o problema e repita a opera��o....[�])
If Chave.Trim = [�][�] Then Throw New Exception([�]Falta informar o n�mero da Nota Fiscal a ser consultado.[�])
If Chave.Length <> 44 Then Throw New Exception([�]A chave informada para download da NFE n�o � v�lida.[�])
If NSerieCert = [�][�] Then Throw New Exception([�]N�o foi informado o certificado digital a ser usado para download da Nota Fiscal.[�])
If IsNumeric(System.Enum.Parse(GetType(EstadosUF), BblNFC.PCUF).ToString) Then Throw New Exception([�]O estado da UF informado para a Empresa solicitante do Download da Nota Fiscal n�o � v�lido.[�])
Dim Cert As X509Certificate2 = New X509Certificate2
Cert = RetornaCertificado(NSerieCert)
If Cert Is Nothing Then
Throw New Exception([�]Problema na leitura do certificado digital.[�])
Else
BblNFC.Serv = TipoServico.NfeDownload
Dim WebNF As WsDownNFE.NfeDownloadNF = New WsDownNFE.NfeDownloadNF
Dim CabNF As WsDownNFE.nfeCabecMsg = New WsDownNFE.nfeCabecMsg
CabNF.cUF = PCUF
CabNF.versaoDados = [�]1.00[�]
WebNF.nfeCabecMsgValue = CabNF
WebNF.ClientCertificates.Add(Cert)
WebNF.Timeout = 10000
WebNF.SoapVersion = Web.Services.Protocols.SoapProtocolVersion.Soap12
WebNF.Url = RetornaURL()
Dim Doc As XDocument = New XDocument(
DWAMB
DOWNLOAD NFE
DOWCNPJ
DOWCHAVE
)
Dim Dados As String = Doc.ToString.Replace([�]DWAMB[�], Ambiente).Replace([�]DOWCNPJ[�], CNPJ.SoNumber).Replace([�]DOWCHAVE[�], Chave)
Dim Xml As XmlDocument = New XmlDocument
Xml.LoadXml(Dados)
Ret = WebNF.nfeDownloadNF(Xml).OuterXml
End If
Catch ex As Exception
Ret = [�][�]
MessageBox.Show(ex.Message, [�]Download NFE[�], MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
Return Ret
End Function