#include "inkey.ch"

***************
FUNCTION main
***************
local oPagi,mweb
local xcolors := setcolor()
local xtela := savescreen()
private xchave
Parameters xchave 
wvw_settitle(,"Usando o Internet Explorer")
setcolor("w+/b,g+/n,,,bg+b")
cls

do while .t.
  
   try
   oPagi := GetActiveObject( "InternetExplorer.Application" )
   catch
   try
   oPagi := CreateObject( "InternetExplorer.Application" )
   catch
   Alert( "Erro ! Internet Explorer nÆo dispon¡vel")
   return
   end
   end
   mweb := "https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa." + ;
           "aspx?tipoconsulta=completa&chaveacesso=" + xchave 

   oPagi:Visible := .t.
   oPagi:Navigate( mweb )
   wvw_minimize(0)
   exit

enddo

setcolor(xcolors)
restscreen(,,,,xtela)
return nil