Captura os Dados da NF-e no site e Transforma em .HTML Ou .TXT

[BrunoMesquita]

Relembrando a primeira mensagem :

Bom pessoal com a ajuda do pessoal aqui do forum Eu consegui capturar os dados do site da Nota Fiscal Eletrônica (NF-e) e salvar no formato HTML ou TXT. Espero que ajude ele esta bem simples, agoa só falta pegar os dados do HTML ou TXT e importar para uma Tabela.

Código:


cChave  = "Numero da Chave de Acesso" && Coloque o Numero da Chave de Acesso
cCaptcha = ""
*

oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.Visible = .T.
oIE.Navigate('https://[Você precisa estar registrado e conectado para ver este link.]
*
vaddress='https://[Você precisa estar registrado e conectado para ver este link.]
*
DO WHILE oIE.ReadyState # 4
  WAIT WINDOW "Aguarde abrindo site: " + ALLTRIM(vaddress) NOWAIT 
ENDDO

    *oIE.Visible = .F.
    *oIE.menubar = .F.
    *oIE.toolbar = .F.
    *oIE.statusbar = .F.
    *oIE.left = 0
    *oIE.top = 0
    *oIE.height = 180
    *oIE.width = 260
    *oIE.Visible = .T.
    *oIE.Navigate( "https://[Você precisa estar registrado e conectado para ver este link.] )
    *cCaptcha = ALLTRIM(INPUTBOX('Captcha'))



      IF oIE.LocationURL = 'https://[Você precisa estar registrado e conectado para ver este link.]
         
                           
          oIE.Document.All('ctl00_ContentPlaceHolder3_chaveAcesso', 0).value = cChave
          oIE.Document.All('ctl00_ContentPlaceHolder3_intercepta', 0).value = cCaptcha
          oIE.Document.All('ctl00$ContentPlaceHolder3$btcontinuar', 0).click()
         
         
          DO WHILE oIE.Busy
              WAIT WINDOW "site ocupado" NOWAIT 
          ENDDO
         
        ENDIF
        *

  oIE.Navigate( 'https://[Você precisa estar registrado e conectado para ver este link.] )
    DO WHILE oIE.ReadyState # 4
       
        WAIT WINDOW "imprimindo Página" NOWAIT 

    ENDDO
 
    IF oIE.LocationURL = 'https://[Você precisa estar registrado e conectado para ver este link.]
     
      vaddress = 'https://[Você precisa estar registrado e conectado para ver este link.]
     
      oIE = CREATEOBJECT("InternetExplorer.Application")
      oIE.Navigate(vaddress)
      DECLARE INTEGER Sleep IN WIN32API INTEGER nTimeout
     
      DO WHILE oIE.ReadyState # 4
       
          WAIT WINDOW "Verificando Web Service" NOWAIT       

      ENDDO
     
      *** Abre a página e salva o codigo fonte em HTML
*!* Salvar em TXT / lcHTML = oIE.Document.Body.InnerText
      lcHTML = oIE.Document.Body.Innerhtml
      *MESSAGEBOX(ALLTRIM(lcHTML)) && You can use function STRTOFILE() to assign value to file
      STRTOFILE(LcHTML,"nfe.html",.t.) && Salvar em TXT "nfe.txt"
      oIE = NULL
     
      ELSE
   
      MESSAGEBOX("Sistema temporariamente indisponível. Por favor tente mais tarde.",0+48,"Atenção")
     
    ENDIF
   
***********************************


[Rodrigo Ribeiro]

Boa tarde pessoal, tudo bem?

Estou acompanhando esse tópico com grande interesse, porque também é algo que preciso muito realizar aqui no escritório de contabilidade onde trabalho, visto que, como ja foi comentado aqui, muitas empresas ou fornecedores não nos mandam o arquivo XML.

Vi que na última mensagem do tópico, o mar.nogueira_cwb disse que ja está conseguindo gerar a pesquisa e recuperar um txt com os dados da nota num FORM do FOX, mostrando na tela o captcha correto.

Será então que não é possivel mar.nogueira_cwb vc disponibilizar o código que vc já tem e que está funcionando?

Em relação ao código em VB que vc passou pedindo pra transformar pra FOX, estou tentando passar com a ajuda de um colega que entende bem de VB. Assim que tiver tudo certinho, disponibilizo aqui pra juntar com o código existente.

Abraço a todos!

Rodrigo Ribeiro