TAG HTML PORTAL NACIONAL
Obrigado Altair, retirando o .trim funcionou perfeitamente. Fazendo alguns testes percebi que mesmo fazendo uma nova pesquisa com outra chave, meu programa está buscando os dados referente a chave da pesquisa anterior, não sei se existe algo como [Ô]limpar o cache[Ô] para isso nao ocorrer, se alguém tiver alguma ideia, favor me passe.
Olá,
Tenta assim:
O link tem que ser esse que esta ai, se vc usar:
vai dar errado.
Até mais.
Tenta assim:
WebBrowser1.Document.Cookie = [Ô][Ô]
WebBrowser1.Navigate([Ô]http://www.nfe.fazenda.gov.br/portal/consulta.aspx?tipoConsulta=completa&tipoConteudo=XbSeqxE8pl8=[Ô])
O link tem que ser esse que esta ai, se vc usar:
WebBrowser1.Navigate([Ô]www.nfe.fazenda.gov.br/portal/consultaImpressao.aspx?tipoConsulta=completa[Ô])
vai dar errado.
Até mais.
Tá ai a forma que achei aqui para varrer todos os campos da IE, esse exemplo está pegando a IE do destinatário, mas ele servirá de base para você pegar dos outros.
Até mais.
Dim ListaSpan As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName([Ô]Span[Ô])
For A = 0 To ListaSpan.Count - 1 [ô]Faz um loop entre todas as tags span que existem na página
If ListaSpan.Item(A).InnerText = [Ô]Valor Total da Nota Fiscal[Ô] Then [ô]Localiza a span que contém seu texto iqual a [Ô]Empresa[Ô]
A += 15
ie.Text = ListaSpan.Item(A).InnerText
End If
If Me.ie.Text = [Ô][Ô] Then [ô]Se o campo ainda estiver em branco ele fará a busca pelo próximo
If ListaSpan.Item(A).InnerText = [Ô]CNAE Fiscal[Ô] Then
A += 23
ie.Text = ListaSpan.Item(A).InnerText [ô]Joga dentro
End If
End If
Next
Até mais.
Pessoal qual seria a melhor forma para extrair os dados dos produtos no html em anexo e inseri-los em um gridview? Lembrando que a quantidade de produtos podem variar para cada NF e tbem que o fornecedor as vezes pode deixar de preencher alguns campos como cst, origem mercadoria, ncm...
Estou fazendo dessa forma, mas se o fornecedor deixa de preencher algum campo zoa tudo.
Dim Spans As HtmlElementCollection = WEBNACIONAL.Document.GetElementsByTagName([Ô]span[Ô])
For B = 0 To Spans.Count - 1
If Spans.Item(B).InnerText = [Ô]Num.[Ô] Then
B += 5
Dim linha As New DataGridViewRow
linha.CreateCells(dg)
With dg
linha.Cells(0).Value = Spans.Item(B).InnerText : B += 1
linha.Cells(1).Value = Spans.Item(B).InnerText : B += 1
linha.Cells(2).Value = Spans.Item(B).InnerText : B += 1
linha.Cells(3).Value = Spans.Item(B).InnerText : B += 1 [ô] Quando chega aqui e o campo ITEM DO PEDIDO DE COMPRA está em branco ai insere os valores errados para os demais campos
linha.Cells(4).Value = Spans.Item(B).InnerText : B += 1
.Rows.Add(linha)
End With
End If
Next
Dim Spans As HtmlElementCollection = WEBNACIONAL.Document.GetElementsByTagName([Ô]span[Ô])
For B = 0 To Spans.Count - 1
If Spans.Item(B).InnerText = [Ô]Num.[Ô] Then
B += 5
Dim linha As New DataGridViewRow
linha.CreateCells(dg)
With dg
linha.Cells(0).Value = Spans.Item(B).InnerText : B += 1
linha.Cells(1).Value = Spans.Item(B).InnerText : B += 1
linha.Cells(2).Value = Spans.Item(B).InnerText : B += 1
linha.Cells(3).Value = Spans.Item(B).InnerText : B += 1 [ô] Quando chega aqui e o campo ITEM DO PEDIDO DE COMPRA está em branco ai insere os valores errados para os demais campos
linha.Cells(4).Value = Spans.Item(B).InnerText : B += 1
.Rows.Add(linha)
End With
End If
Next
Pessoal, havia postado anteriormente um problema sobre o webbrowser nao descarregar a consulta anterior da memoria, nosso amigo ALTAIR148 havia indicado utilizar o codigo (WEBNACIONAL.Document.Cookie = [Ô][Ô]) para descarregar a consulta anterior da memoria, porém testando aqui, percebi que nao funcionou, o programa sempre busca os dados da primeira chave de acesso consultada. Preciso de uma ajuda quanto a resolver este problema. Aguardo comentários.
e se você limpasse o cache?
Ou os arquivos temporários?
System.Diagnostics.Process.Start([txt-color=#e80000][Ô]rundll32.exe[Ô][/txt-color], [txt-color=#e80000][Ô]InetCpl.cpl,ClearMyTracksByProcess 2[Ô][/txt-color])
Ou os arquivos temporários?
System.Diagnostics.Process.Start([txt-color=#e80000][Ô]rundll32.exe[Ô][/txt-color], [txt-color=#e80000][Ô]InetCpl.cpl,ClearMyTracksByProcess 8[Ô][/txt-color])
Com o código System.Diagnostics.Process.Start([Ô]rundll32.exe[Ô], [Ô]InetCpl.cpl,ClearMyTracksByProcess 8[Ô]) funcionou, porém toda vez vai aparecer uma caixa de dialogo, informando que está sendo excluido os arquivos temporários. Teria como oculta-la?
No momento eu desconheço este recurso. é um recurso interno do Windows.
Alguem consegui fazer o usuario digite a chave na tela do sistema , e mostre a imagem do captcha , como alguns sitemas já estão utilizando.. ??
Tópico encerrado , respostas não são mais permitidas