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

    [Resolvido]Baixar Xml direto do Sefaz

    avatar
    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Baixar Xml direto do Sefaz Empty [Resolvido]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 : 2455
    Registrado : 22/11/2016

    [Resolvido]Baixar Xml direto do Sefaz Empty Re: [Resolvido]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.
    avatar
    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Baixar Xml direto do Sefaz Empty Re: [Resolvido]Baixar Xml direto do Sefaz

    Mensagem  NADIRONUNES em 18/8/2020, 14:05

    obrigado a todos

      Data/hora atual: 4/12/2020, 14:43