Code: Select all | Expand
#INCLUDE "FIVEWIN.CH"FUNCTION MAIN() LOCAL oDlg DEFINE DIALOG oDlg ; FROM 1, 1 TO 10, 30 ACTIVATE DIALOG oDlg CENTERED ON INIT(PortalNFe())RETURN NIL/////////////////////////////////////////////////////////////////////////////// FUNCTION PortalNFe()/////////////////////////////////////////////////////////////////////////////// Local oActiveX,oWndNfe DEFINE WINDOW oWndNfe FROM 3, 2 TO 26, 98 TITLE "Portal Nacional da Nota Fiscal Eletrônica" //OF oWnd//of ofld oActiveX = TActiveX():New( oWndNfe, "Shell.Explorer" ) oWndNfe:oClient = oActiveX oActiveX:Do( "Navigate", "https://www.nfe.fazenda.gov.br/portal/FormularioDePesquisa.aspx?tipoconsulta=completa" ) ACTIVATE WINDOW oWndNfe EndDialog() RETURN nil///////////////////////////////////////////////////////////////////////////////