MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Baixar Xml direto do Sefaz

    avatar
    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 30/08/2010

    Baixar Xml direto do Sefaz Empty Baixar Xml direto do Sefaz

    Mensagem  NADIRONUNES em 29/6/2020, 14:17

    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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    Baixar Xml direto do Sefaz Empty Re: Baixar Xml direto do Sefaz

    Mensagem  DamascenoJr. em 30/6/2020, 00:55

    Veja esse tópico no repositório de exemplos
    https://www.maximoaccess.com/t29327-exemplo-download-direto-download-direto-dropbox

    Basta apontar o link do arquivo que o código faz o download


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 13/8/2020, 14:46