BAIXAR ARQUIVOS XML DIRETO DO SITE DO SEFAZ

AGAZAMBUJA 29/09/2015 14:07:30
#451920
bom dia.
sou novo por aqui, gostaria de saber se alguem ja fez importação de arquivos xml direto do site do sefaz, estou querendo montar um para facilitar a contabilidade aqui da empresa.
Caso alguem possa mostrar o caminho, tenha algum manual.
Desde já agradeço qualquer ajuda.
ELUCIMAR 29/09/2015 14:43:40
#451922
Boa Tarde !

AGAZAMBUJA

No tópico NFe C# implementei classes que fazem o Processo de baixar as NFe destinadas e Download das mesmas.
é só baixar ele e adaptar a sua necessidade.
AGAZAMBUJA 30/09/2015 09:41:18
#451951
Citação:

:
Boa Tarde !

AGAZAMBUJA

No tópico NFe C# implementei classes que fazem o Processo de baixar as NFe destinadas e Download das mesmas.
é só baixar ele e adaptar a sua necessidade.



Grato por sua ajuda.
O dia que eu puder, ajudarei também.
PLUGSOFTSM 01/10/2015 11:15:25
#452013
Tenho essa função que desenvolvi em VB que funciona direitinho para baixar uma NFe da Sefaz

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(<downloadNFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô] versao=[Ô]1.00[Ô]>
<tpAmb>DWAMB</tpAmb>
<xServ>DOWNLOAD NFE</xServ>
<CNPJ>DOWCNPJ</CNPJ>
<chNFe>DOWCHAVE</chNFe>
</downloadNFe>)
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

Tenta adaptar ela a teu modo....
Código ou comandos que não entende... pergunte que eu explico melhor
RCARLOSM 15/10/2016 13:03:52
#468100
Olá, poderia disponibilizar sua classe WsDownNFE
PLUGSOFTSM 15/10/2016 13:46:23
#468101
RCARLOSM

WsDownNFE é o nome que eu dei pra a webservice que faz a conexão com a sefaz

Essa é a URL
https://www.nfe.fazenda.gov.br/NfeDownloadNF/NfeDownloadNF.asmx

Tu sabe criar uma conexão com um webservice?
NILSONTRES 15/10/2016 20:41:58
#468106
Citação:

Olá, poderia disponibilizar sua classe WsDownNFE


Falta mesmo.
Faça seu login para responder
Voltar